Lỗi gì đây?

**Sói Đẹp Trai** · 01-07-13, 08:55 AM

Như tiêu đề cao thủ nào biết lỗi gì trong đoạn code dưới xin chỉ giáo. Thanks nhiệt tình.

Code:

--ÐÕi Lý NPC
--ID:002098
--Script: Test code by Sói Kool

x002098_g_scriptID = 002098

--Kh·i ðµng
function x002098_OnDefaultEvent( sceneId, selfId,targetId )
local nam = LuaFnGetName( sceneId, selfId )
	
	BeginEvent( sceneId )
		AddText(sceneId,"#GChào m×ng "..nam.." ðªn v¾i Thiên Long Bát Bµ. Script test by Sói Kool...")
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n 99999999 kinh nghi®m",6, 2 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n Kim t®",6, 3 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n trang b¸ Trùng Lâu",6, 4 )				
	EndEvent( sceneId )
	
	DispatchEventList( sceneId, selfId, targetId )
	
end

--Thân sñ ki®n
function x002098_OnEventRequest( sceneId, selfId, targetId, eventId )
local	key	= GetNumText()
	
	if key == 2 then --Nh§n 9999999 kinh nghi®m
		x002098_EXP( sceneId, selfId, targetId )
	end
	
	if key == 3 then --Nh§n Kim T®
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi Kim T®")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Kim Nguyên Bäo", 5, 5 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Ði¬m T£ng", 5, 6 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 10000 Vàng", 5, 7 )
		EndEvent( sceneId )
		
		if key == 5 then --Nh§n KNB
			x002098_KNB( sceneId, selfId, targetId )
		end
		
		if key == 6 then --Nh§n Ði¬m T£ng
			x002098_DT( sceneId, selfID, targetId )
		end
		
		if key == 7 then --Nh§n Ti«n
			x002098_Money( sceneId, selfId, targetId )
		end
		
		DispatchEventList(sceneId,selfId,targetId)
		
	end
	
	if key == 4 then --Nh§n trang b¸ Trùng Lâu
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi trang b¸")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Gi¾i", 5, 8 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Ng÷c", 5, 9 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Liên", 5, 11 )
		EndEvent( sceneId )
		
		if LuaFnGetPropertyBagSpace( sceneId, selfId ) < 2 then
			x002098_NotifyFailTips( sceneId, selfId, "Túi ðeo thiªu không gian!" )
			DispatchEventList(sceneId,selfId,targetId)
			return -1
		end
			
		if key == 8 then --Nh§n Trùng Lâu Gi¾i
			x002098_TLG( sceneId, selfId, targetId )
		end
		
		if key == 9 then --Nh§n Trùng Lâu Ng÷c
			x002098_TLN( sceneId, selfId, targetId )
		end
		
		if key == 11 then --Nh§n Trùng Lâu Liên
			x002098_TLL( sceneId, selfId, targetId )
		end
		
		DispatchEventList(sceneId,selfId,targetId)
		
	end
	
end

--Kinh nghi®m
function x002098_EXP( sceneId, selfId, targetId )
		
	LuaFnAddExp( sceneId, selfId, 9999999 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 9999999 Kinh Nghi®m." )
	
end

--KNB
function x002098_KNB( sceneId, selfId, targetId )

	YuanBao( sceneId, selfId, targetId, 1, 1000000 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 100 vÕn Kim Nguyên Bäo." )
	
end

--Ði¬m T£ng
function x002098_DT( sceneId, selfId, targetId )

	ZengDian( sceneId, selfId, targetId, 1, 1000000 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 100 vÕn Ði¬m T£ng." )
	
end

--Vàng
function x002098_Money( sceneId, selfId, targetId )

	AddMoney( sceneId, selfId, 100000000 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 1 vÕn Vàng." )
	
end

--Trùng Lâu Gi¾i
function x002098_TLG( sceneId, selfId, targetId )

	BeginAddItem( sceneId )
		AddItem( sceneId, 10422016, 1 )
	EndAddItem( sceneId, selfId )
	AddItemListToHuman( sceneId, selfId )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 1 cái Trùng Lâu Gi¾i." )
	
end

--Trùng Lâu Ng÷c
function x002098_TLN( sceneId, selfId, targetId)

	BeginAddItem( sceneId )
		AddItem( sceneId, 10423024, 1 )
	EndAddItem( sceneId, selfId )
	AddItemListToHuman( sceneId, selfId )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 1 cái Trùng Lâu Ng÷c." )
	
end

--Trùng Lâu Liên
function x002098_TLL( sceneId, selfId, targetId )

	BeginAddItem( sceneId )
		AddItem( sceneId, 10420088, 1 )
		AddItem( sceneId, 10420090, 1 )
	EndAddItem( sceneId, selfId )
	AddItemListToHuman( sceneId, selfId )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 1 cái Trùng Lâu Liên." )
	
end

--Ghi lên tip
function x002098_NotifyFailTips( sceneId, selfId, Tip )

	BeginEvent( sceneId )
		AddText( sceneId, Tip )
	EndEvent( sceneId )
	DispatchMissionTips( sceneId, selfId )
	
end

P/s: Add được kinh nghiệm. Đến các cái còn lại chỉ ra cái bảng lựa chọn ( ví dụ Trang bị trùng lâu/Trùng lâu giới ). Ra đến đó kick vào chả có hiện tượng add vào gì cả... Ai pro chỉ giáo

**huuduyen_05** · 01-07-13, 09:38 PM

Sửa lại thế này

Code:

--ÐÕi Lý NPC
--ID:002098
--Script: Test code by Sói Kool

x002098_g_scriptID = 002098

--Kh·i ðµng
function x002098_OnDefaultEvent( sceneId, selfId,targetId )
local nam = LuaFnGetName( sceneId, selfId )
	
	BeginEvent( sceneId )
		AddText(sceneId,"#GChào m×ng "..nam.." ðªn v¾i Thiên Long Bát Bµ. Script test by Sói Kool...")
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n 99999999 kinh nghi®m",6, 2 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n Kim t®",6, 3 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n trang b¸ Trùng Lâu",6, 4 )				
	EndEvent( sceneId )
	
	DispatchEventList( sceneId, selfId, targetId )
	
end

--Thân sñ ki®n
function x002098_OnEventRequest( sceneId, selfId, targetId, eventId )
local	key	= GetNumText()
	
	if key == 2 then --Nh§n 9999999 kinh nghi®m
		x002098_EXP( sceneId, selfId, targetId )
	end
	
	if key == 3 then --Nh§n Kim T®
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi Kim T®")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Kim Nguyên Bäo", 5, 5 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Ði¬m T£ng", 5, 6 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 10000 Vàng", 5, 7 )
		EndEvent( sceneId )
		DispatchEventList(sceneId,selfId,targetId)
	end	
	if key == 5 then --Nh§n KNB
		x002098_KNB( sceneId, selfId, targetId )
	end
	
	if key == 6 then --Nh§n Ði¬m T£ng
		x002098_DT( sceneId, selfID, targetId )
	end
	
	if key == 7 then --Nh§n Ti«n
		x002098_Money( sceneId, selfId, targetId )
	end
		
		
		
	
	
	if key == 4 then --Nh§n trang b¸ Trùng Lâu
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi trang b¸")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Gi¾i", 5, 8 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Ng÷c", 5, 9 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Liên", 5, 11 )
		EndEvent( sceneId )
		DispatchEventList(sceneId,selfId,targetId)
	end	
		
			
		if key == 8 then --Nh§n Trùng Lâu Gi¾i
			x002098_TLG( sceneId, selfId, targetId )
		end
		
		if key == 9 then --Nh§n Trùng Lâu Ng÷c
			x002098_TLN( sceneId, selfId, targetId )
		end
		
		if key == 11 then --Nh§n Trùng Lâu Liên
			x002098_TLL( sceneId, selfId, targetId )
		end
		
		
		
	
	
end

--Kinh nghi®m
function x002098_EXP( sceneId, selfId, targetId )
		
	LuaFnAddExp( sceneId, selfId, 9999999 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 9999999 Kinh Nghi®m." )
	
end

--KNB
function x002098_KNB( sceneId, selfId, targetId )

	YuanBao( sceneId, selfId, targetId, 1, 1000000 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 100 vÕn Kim Nguyên Bäo." )
	
end

--Ði¬m T£ng
function x002098_DT( sceneId, selfId, targetId )

	ZengDian( sceneId, selfId, targetId, 1, 1000000 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 100 vÕn Ði¬m T£ng." )
	
end

--Vàng
function x002098_Money( sceneId, selfId, targetId )

	AddMoney( sceneId, selfId, 100000000 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 1 vÕn Vàng." )
	
end

--Trùng Lâu Gi¾i
function x002098_TLG( sceneId, selfId, targetId )
	if LuaFnGetPropertyBagSpace( sceneId, selfId ) < 1 then
		x002098_NotifyFailTips( sceneId, selfId, "Túi ðeo thiªu không gian!" )
		DispatchEventList(sceneId,selfId,targetId)
		return -1
	end
	BeginAddItem( sceneId )
		AddItem( sceneId, 10422016, 1 )
	EndAddItem( sceneId, selfId )
	AddItemListToHuman( sceneId, selfId )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 1 cái Trùng Lâu Gi¾i." )
	
end

--Trùng Lâu Ng÷c
function x002098_TLN( sceneId, selfId, targetId)
	if LuaFnGetPropertyBagSpace( sceneId, selfId ) < 1 then
		x002098_NotifyFailTips( sceneId, selfId, "Túi ðeo thiªu không gian!" )
		DispatchEventList(sceneId,selfId,targetId)
		return -1
	end
	BeginAddItem( sceneId )
		AddItem( sceneId, 10423024, 1 )
	EndAddItem( sceneId, selfId )
	AddItemListToHuman( sceneId, selfId )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 1 cái Trùng Lâu Ng÷c." )
	
end

--Trùng Lâu Liên
function x002098_TLL( sceneId, selfId, targetId )
	if LuaFnGetPropertyBagSpace( sceneId, selfId ) < 2 then
		x002098_NotifyFailTips( sceneId, selfId, "Túi ðeo thiªu không gian!" )
		DispatchEventList(sceneId,selfId,targetId)
		return -1
	end
	BeginAddItem( sceneId )
		AddItem( sceneId, 10420088, 1 )
		AddItem( sceneId, 10420090, 1 )
	EndAddItem( sceneId, selfId )
	AddItemListToHuman( sceneId, selfId )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 1 cái Trùng Lâu Liên." )
	
end

--Ghi lên tip
function x002098_NotifyFailTips( sceneId, selfId, Tip )

	BeginEvent( sceneId )
		AddText( sceneId, Tip )
	EndEvent( sceneId )
	DispatchMissionTips( sceneId, selfId )
	
end

**Sói Đẹp Trai** · 02-07-13, 08:54 AM

Gõ lệnh if lồng nhau nó báo lỗi là sao anh? Em ko hiểu các ngôn ngữ khác dùng đc kiểu đấy mà cái lua này nó lạ lắm lắm ý

**duc2071990** · 02-07-13, 10:12 AM

muốn thế thì bác dùng elseif ................................

**Sói Đẹp Trai** · 02-07-13, 10:22 AM

Gửi bởi duc2071990 [Only registered and activated users can see links. ]

muốn thế thì bác dùng elseif ................................

elseif tưởng gộp else + if lại chứ nhỉ mà hình như kết thúc phải có end thì phải @@

**duc2071990** · 02-07-13, 10:45 AM

Gửi bởi Hà Hoàng [Only registered and activated users can see links. ]

elseif tưởng gộp else + if lại chứ nhỉ mà hình như kết thúc phải có end thì phải @@

vd:

if then
elseif then
elseif then
elseif then
end

Chỉ cần end 1 lần thôi bác à .......................

**Sói Đẹp Trai** · 02-07-13, 11:46 AM

Gửi bởi duc2071990 [Only registered and activated users can see links. ]

vd:

Chỉ cần end 1 lần thôi bác à .......................

OK thanks for reply !!. Nice job

Chủ đề: Lỗi gì đây?

Công cụ Chủ đề

Lỗi gì đây?

Ðề: Lỗi gì đây?

Các thành viên gởi lời cảm ơn đến huuduyen_05 vì bài viết này !

Ðề: Lỗi gì đây?

Ðề: Lỗi gì đây?

Các thành viên gởi lời cảm ơn đến duc2071990 vì bài viết này !

Ðề: Lỗi gì đây?

Ðề: Lỗi gì đây?

Các thành viên gởi lời cảm ơn đến duc2071990 vì bài viết này !

Ðề: Lỗi gì đây?

Quyền viết bài