[KT] Lỗi này khó hiểu pro nào vào giúp phát [Lưu trữ]

anhnhianh

15-03-14, 07:31 PM

lúc đầu e viết script cho item đèn kéo quân click phải vào đc VP rồi item đèn kéo quân đó mất đi (như ev siro ngũ sắc). Nhưng chỉ đc lúc đầu thì nó còn mất item nhưng lúc sau cũng cùng script đó nhưng click phải vào lại ko mất đi item đó :(
CÒN ĐÂY LÀ FILE.LUA CỦA NÓ:

local tbItem = Item:GetClass("denkeoquan");
tbItem.tbItemInfo = {
bForceBind=1,
};
function tbItem:OnUse()
DoScript("\\script\\item\\class\\denkeoquan.lua") -- Reload Đèn Kéo Quân
local nCount = me.GetItemCountInBags(18,1,1337,4) -- Đèn Kéo Quân
if nCount < 1 then
Dialog:SendBlackBoardMsg(me, string.format("Trong người không có <color=yellow>Đèn Kéo Quân<color> !"));
return
end
self:OnUse1();
end
function tbItem:OnUse1()
if me.CountFreeBagCell() < 10 then
Dialog:Say("Phải Có 10 Ô Trống Trong Túi Hành Trang!");
return 0;
end
local nCount = me.GetItemCountInBags(18,1,1337,4) -- Đèn Kéo Quân
local tbItemId1 = {18,1,1337,0,0,0}; -- Đèn Kéo Quân
local i = 0;
local nAdd = 0;
local nRand = 0;
local nIndex = 0;
nRand = MathRandom(1, 100);
local tbRate = {50, 30, 15, 5}; -- Rate Item
local tbAward = {1 ,2, 3, 4}; -- Rate 4 con số
for i = 1, 4 do
nAdd = nAdd + tbRate[i];
if nAdd >= nRand then
nIndex = i;
break;
end
end
if (tbAward[nIndex]==1) then -- Xác xuất ra số 1 là 50/100 (50%)
me.AddExp(10000000) -- 10tr Exp
me.AddStackItem(18,1,1,7,self.tbItemInfo,2) -- (18,1,1,7) là Huyền Tinh (Cấp 7) , 2 là số lượng Huyền Tinh (Cấp 7) người chơi nhận được
Dialog:SendBlackBoardMsg(me, string.format("Nhận được 10tr EXP và 2 Huyền Tinh (Cấp 7)!"));
Task:DelItem(me, tbItemId1, 1); -- Xóa 1 Item tbItemId1 được khai báo ở trên là Đèn Kéo Quân
me.CastSkill(307, 1, -1, me.GetNpc().nIndex);
end
if (tbAward[nIndex]==2) then -- Xác xuất ra số 2 là 30/10000 (30%)
me.AddExp(20000000) -- 20tr Exp
me.AddStackItem(18,1,1,8,self.tbItemInfo,1) -- (18,1,1,8) là Huyền Tinh (Cấp 8) , 1 là số lượng Huyền Tinh (Cấp 8) người chơi nhận được
Dialog:SendBlackBoardMsg(me, string.format("Nhận được 20tr EXP và 1 Huyền Tinh (Cấp 8)!"));
Task:DelItem(me, tbItemId1, 1); -- Xóa 1 Item tbItemId1 được khai báo ở trên là Đèn Kéo Quân
me.CastSkill(307, 1, -1, me.GetNpc().nIndex);
end
if (tbAward[nIndex]==3) then -- Xác xuất ra số 3 là 15/100 (15%)
me.AddExp(400000000) -- 40tr Exp
me.AddStackItem(18,1,1,8,self.tbItemInfo,3) -- (18,1,1,8) là Huyền Tinh (Cấp 8) , 2 là số lượng Huyền Tinh (Cấp 8) người chơi nhận được
Dialog:SendBlackBoardMsg(me, string.format("Nhận được 40tr EXP và 3 Huyền Tinh (Cấp 8)!"));
Task:DelItem(me, tbItemId1, 1); -- Xóa 1 Item tbItemId1 được khai báo ở trên là Đèn Kéo Quân
me.CastSkill(307, 1, -1, me.GetNpc().nIndex);
end
if (tbAward[nIndex]==4) then -- Xác xuất ra số 4 là 5/100 (5%)
me.AddExp(150000000) -- 100tr Exp
me.AddStackItem(18,1,1,10,self.tbItemInfo,2) -- (18,1,1,12) là Huyền Tinh (Cấp 10) , 2 là số lượng Huyền Tinh (Cấp 10) người chơi nhận được
Dialog:SendBlackBoardMsg(me, string.format("Nhận được 100tr EXP và 2 Huyền Tinh (Cấp 10)!"));
Task:DelItem(me, tbItemId1, 1); -- Xóa 1 Item tbItemId1 được khai báo ở trên là Đèn Kéo Quân
GlobalExcute({"Dialog:GlobalNewsMsg_GS","<color=yellow>Người chơi <color=green>["..me.szName.."]<color> sử dụng <color=yellow>Đèn Kéo Quân<color> nhận được <color=green>2 Huyền Tinh Hoàn Mỹ (Cấp 10)<color> !<color>"});
KDialog.NewsMsg(1, Env.NEWSMSG_COUNT,"<color=yellow>Người chơi <color=green>["..me.szName.."]<color> sử dụng <color=yellow>Đèn Kéo Quân<color> nhận được <color=green>2 Huyền Tinh Hoàn Mỹ (Cấp 10)<color> !<color>");
KDialog.MsgToGlobal("<color=yellow>Người chơi <color=green>["..me.szName.."]<color> sử dụng <color=yellow>Đèn Kéo Quân<color> nhận được <color=green>2 Huyền Tinh Hoàn Mỹ (Cấp 10)<color> !<color>");
me.CastSkill(307, 1, -1, me.GetNpc().nIndex);
end
end

Mong có pro giúp đỡ. tks o:-)o:-)o:-)