[TLBB] Lỗi gì đây? [Lưu trữ] - CLBGAMESVN MMORPG DEVELOPMENT

View Full Version : [TLBB] 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.

--ÐÕ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

--ÐÕ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

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

duc2071990

02-07-13, 10:45 AM

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

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

vd:

Chỉ cần end 1 lần thôi bác à .......................OK thanks for reply !!. Nice job :)