PDA

View Full Version : [KT] Lỗi event đập trứng ai giúp em với !


ltasa93
30-12-12, 07:14 PM
TÌnh hình là cái event đập trứng của em không hiểu lỗi chỗ nào mà khi đập, búa thì mất , mà trứng thì còn nguyên ko mất cái nào cả :(
bác nào bik chỉ em với. Thank ạ !


local tbItem = Item:GetClass("trungevent")
function tbItem:OnUse()
local tbItemId2 = {18,1,25108,1,0,0};
local nCount2 = me.GetItemCountInBags(18,1,25108,1); -- Búa
if nCount2 < 1 then
Dialog:Say("<color=yellow>Trong hành trang của bạn không có <color=cyan>Búa<color> . Không thể đập trứng<color>");
return 0;
end
local tbEvent =
{
Player.ProcessBreakEvent.emEVENT_MOVE,
Player.ProcessBreakEvent.emEVENT_ATTACK,
Player.ProcessBreakEvent.emEVENT_SITE,
Player.ProcessBreakEvent.emEVENT_USEITEM,
Player.ProcessBreakEvent.emEVENT_ARRANGEITEM,
Player.ProcessBreakEvent.emEVENT_DROPITEM,
Player.ProcessBreakEvent.emEVENT_SENDMAIL,
Player.ProcessBreakEvent.emEVENT_TRADE,
Player.ProcessBreakEvent.emEVENT_CHANGEFIGHTSTATE,
Player.ProcessBreakEvent.emEVENT_CLIENTCOMMAND,
Player.ProcessBreakEvent.emEVENT_LOGOUT,
Player.ProcessBreakEvent.emEVENT_DEATH,
Player.ProcessBreakEvent.emEVENT_ATTACKED,
}
local tbOpt = {
GeneralProcess:StartProcess("<color=pink>Đang Đập Trứng<color>", 5 * Env.GAME_FPS, {self.OnDialog4, self}, nil, tbEvent);
};
--Dialog:Say("",tbOpt);
end
function tbItem:OnDialog4()
local tbItemId2 = {18,1,25108,1,0,0};
local nCount2 = me.GetItemCountInBags(18,1,25108,1); -- Búa
local i = 0;
local nAdd = 0;
local nRand = 0;
local nIndex = 0;
-- random
nRand = MathRandom(1, 10000);
-- fill 3 rate
local tbRate = {5000,2000,1000,100,50,50,50,50,50,50,500,500};
local tbAward =
{
[1] = {18,1,1,8};
[2] = {18,1,1,9};
[3] = {18,1,1,10};
[4] = {18,1,1,11};
[5] = {18,1,1,12};
[6] = {18,1,529,1};
[7] = {18,1,529,2};
[8] = {18,1,529,3};
[9] = {18,1,529,4};
[10] = {18,1,529,5};
[11] = {18,1,377,1};
[12] = {1,13,63,1};
}
if me.CountFreeBagCell() < 10 then
Dialog:Say("Phải Có 10 Ô Trống Trong Túi Hành Trang Mới Đập Trứng Được !");
return 0;
end
if nCount2 < 1 then
Dialog:Say("<color=yellow>Trong hành trang của bạn không có <color=cyan>Búa<color> . Không thể đập trứng<color>");
return 0;
end


-- for i = 1, 2 do
-- nAdd = nAdd + tbRate[i];
-- if nAdd >= nRand then
-- nIndex = i;
-- break;
-- end
-- end
-- local pItem = me.AddItem(unpack(tbAward[nIndex]));
--pItem.Bind(1);
-- local szMsg = string.format("Chúc mừng người chơi <color=cyan>%s<color> Dương Cung Bắn Trung <color=cyan>%s<color> Nhận 50tr EXP.", me.szName, pItem.szName);
-- KDialog.NewsMsg(1, Env.NEWSMSG_COUNT, szMsg);
-- KDialog.MsgToGlobal(szMsg);
-- me.SendMsgToFriend("Hảo hữu của bạn [<color=yellow>" .. me.szName
-- .. "<color>] Dương Cung Bắn Trúng <color=cyan>"
-- .. pItem.szName .."<color> Nhận 50tr EXP.");
-- me.Msg("Bắn Trúng <color=cyan>"..pItem.szName.."<color> Nhận 50tr EXP - Xin Chúc Mừng");
-- me.AddExp(50000000);

for i = 1, 12 do
nAdd = nAdd + tbRate[i];
if nAdd >= nRand then
nIndex = i;
break;
end
end
local pItem = me.AddItem(unpack(tbAward[nIndex]));
pItem.Bind(0);
if (nIndex == 4) or (nIndex == 5) or (nIndex == 3) or (nIndex == 6) or (nIndex == 7) or (nIndex == 8) or (nIndex == 9) or (nIndex == 10) or (nIndex == 12) then
local szMsg = string.format("<color=cyan>%s<color> Đập Trứng Nhận Được <color=cyan>%s<color>", me.szName, pItem.szName);
KDialog.NewsMsg(1, Env.NEWSMSG_COUNT, szMsg);
KDialog.MsgToGlobal(szMsg);
me.SendMsgToFriend("Hảo hữu của bạn [<color=cyan>" .. me.szName
.. "<color>] Đập Trứng Nhận Được <color=cyan>"
.. pItem.szName .."");
me.Msg("Đập Trứng Nhận Được <color=cyan>"..pItem.szName.."<color>");
Task:DelItem(me, tbItemId2, 1);
elseif (nIndex == 1) or (nIndex == 2) or (nIndex == 11) then
me.Msg("<color=cyan>"..me.szName.."<color> Đập Trứng Nhận Được <color=cyan>"..pItem.szName.."<color>");
Task:DelItem(me, tbItemId2, 1);
end
end
jxonline2
30-12-12, 07:34 PM
TÌnh hình là cái event đập trứng của em không hiểu lỗi chỗ nào mà khi đập, búa thì mất , mà trứng thì còn nguyên ko mất cái nào cả
bác nào bik chỉ em với. Thank ạ !

Bác ơi đập trứng thì búa mất trứng còn là phải đạo rồi chứ sao ?
ltasa93
30-12-12, 07:50 PM
Bác ơi đập trứng thì búa mất trứng còn là phải đạo rồi chứ sao ?

bán mất trứng mất mới đúng chứ :( ,,,
satthupro95
30-12-12, 08:10 PM
Đập mất 1 cái thôi chứ đập mất 2 cái khác gì hút máu gamer :))
ltasa93
30-12-12, 08:43 PM
Đập mất 1 cái thôi chứ đập mất 2 cái khác gì hút máu gamer :))

ý tớ là khi đập trứng cái búa mất là đúng ,,, nhưng cái trứng nó ko mất :(( , ý là làm sao cho cái trứng khi đập nó mất ấy
anhtuan1409
30-12-12, 08:49 PM
Đập trứng mất búa là đúng rồi còn gì nữa , gamer phải đi kiếm búa đập trứng chứ sao nữa bạn
ltasa93
30-12-12, 08:59 PM
Đập trứng mất búa là đúng rồi còn gì nữa , gamer phải đi kiếm búa đập trứng chứ sao nữa bạn
mất búa đúng rồi
nhưng Trứng ko mất
ý tớ là làm sao cho cái Trứng nó cũng mất ấy
jxonline2
30-12-12, 09:08 PM
mất búa đúng rồi
nhưng Trứng ko mất
ý tớ là làm sao cho cái Trứng nó cũng mất ấy

Mất cã 2 àh thêm 2 cái nào vào


local tbItemId3 = {18,1,idtrung,1,0,0};
Task: DelItem(me, tbItemId3, 1);
ltasa93
30-12-12, 09:41 PM
Mất cã 2 àh thêm 2 cái nào vào


local tbItemId3 = {18,1,idtrung,1,0,0};
Task: DelItem(me, tbItemId3, 1);

thêm vào chỗ đoạn nào bạn , giúp mình với !
jxonline2
30-12-12, 10:44 PM
Cái này:


local tbItemId3 = {18,1,idtrung,1,0,0};

Thêm vào dưới cài này:


local tbItemId2 = {18,1,25108,1,0,0};

------=====================-----------

Còn cái này:


Task: DelItem(me, tbItemId3, 1);

Thêm vào dưới cài này:


Task: DelItem(me, tbItemId2, 1);

Trong code của bạn post ở trên
ltasa93
31-12-12, 10:42 AM
tiện đây cho em hỏi , mình muốn giới hạn 1 ngày đập được 30 quả trứng thì thêm hàm gì , và thêm vào chỗ nào ạ . Bác nào biết chỉ em với. Thank bằng hành động ạ !
vipbk
31-12-12, 11:52 AM
tiện đây cho em hỏi , mình muốn giới hạn 1 ngày đập được 30 quả trứng thì thêm hàm gì , và thêm vào chỗ nào ạ . Bác nào biết chỉ em với. Thank bằng hành động ạ !

tham khảo: <b><font color=red>[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>]</font></b>
ltasa93
31-12-12, 12:59 PM
tham khảo: <b><font color=red>[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>]</font></b>

Cảm ơn tất cả các Bác đã quan tầm topic của em ! . tiện thể em xin luôn Bác nào có code giới hạn số lần đập trứng trong ngày cho em với !
satthupro95
31-12-12, 01:23 PM
Cảm ơn tất cả các Bác đã quan tầm topic của em ! . tiện thể em xin luôn Bác nào có code giới hạn số lần đập trứng trong ngày cho em với !

<b><font color=red>[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>]</font></b>
vuagamepri
01-01-13, 12:13 AM
Cái này:



Thêm vào dưới cài này:



------=====================-----------

Còn cái này:



Thêm vào dưới cài này:



Trong code của bạn post ở trên


Nhưng nó có 2 cái Task : DelItem thì mình cũng thêm dưới 2 Task luôn à?
ltasa93
01-01-13, 10:38 AM
local pItem = me.AddItem(unpack(tbAward[nIndex]));
pItem.Bind(0);
if (nIndex == 4) or (nIndex == 5) or (nIndex == 3) or (nIndex == 6) or (nIndex == 7) or (nIndex == 8) or (nIndex == 9) or (nIndex == 10) or (nIndex == 11) then
local szMsg = string.format("<color=cyan>%s<color> Đập Trứng Nhận Được <color=cyan>%s<color>", me.szName, pItem.szName);
KDialog.NewsMsg(1, Env.NEWSMSG_COUNT, szMsg);
KDialog.MsgToGlobal(szMsg);
me.SendMsgToFriend("Hảo hữu của bạn [<color=cyan>" .. me.szName
.. "<color>] Đập Trứng Nhận Được <color=cyan>"
.. pItem.szName .."");
me.Msg("Đập Trứng Nhận Được <color=cyan>"..pItem.szName.."<color>");
Task:DelItem(me, tbItemId2, 1);
elseif (nIndex == 1) or (nIndex == 2) then
me.Msg("<color=cyan>"..me.szName.."<color> Đập Trứng Nhận Được <color=cyan>"..pItem.szName.."<color>");
Task:DelItem(me, tbItemId2, 1);


có 2 chỗ Task: DelItem(me, tbItemId2, 1); luôn Bác jxonline2 ơi , thêm dưới chỗ nào
satthupro95
01-01-13, 10:45 AM
local pItem = me.AddItem(unpack(tbAward[nIndex]));
pItem.Bind(0);
if (nIndex == 4) or (nIndex == 5) or (nIndex == 3) or (nIndex == 6) or (nIndex == 7) or (nIndex == 8) or (nIndex == 9) or (nIndex == 10) or (nIndex == 11) then
local szMsg = string.format("<color=cyan>%s<color> Đập Trứng Nhận Được <color=cyan>%s<color>", me.szName, pItem.szName);
KDialog.NewsMsg(1, Env.NEWSMSG_COUNT, szMsg);
KDialog.MsgToGlobal(szMsg);
me.SendMsgToFriend("Hảo hữu của bạn [<color=cyan>" .. me.szName
.. "<color>] Đập Trứng Nhận Được <color=cyan>"
.. pItem.szName .."");
me.Msg("Đập Trứng Nhận Được <color=cyan>"..pItem.szName.."<color>");
Task:DelItem(me, tbItemId2, 1);
elseif (nIndex == 1) or (nIndex == 2) then
me.Msg("<color=cyan>"..me.szName.."<color> Đập Trứng Nhận Được <color=cyan>"..pItem.szName.."<color>");
Task:DelItem(me, tbItemId2, 1);


có 2 chỗ Task: DelItem(me, tbItemId2, 1); luôn Bác jxonline2 ơi , thêm dưới chỗ nào
Khai vào chỗ này :
local tbItem = Item:GetClass("trungevent")
function tbItem:OnUse()
local tbItemId2 = {18,1,25108,1,0,0};
local tbItemId3 = {18,1,25108,1,0,0}; <-- Khai ID của búa vào đây
local nCount2 = me.GetItemCountInBags(18,1,25108,1); -- Búa
----------
if (nIndex == 4) or (nIndex == 5) or (nIndex == 3) or (nIndex == 6) or (nIndex == 7) or (nIndex == 8) or (nIndex == 9) or (nIndex == 10) or (nIndex == 12) then
local szMsg = string.format("<color=cyan>%s<color> Đập Trứng Nhận Được <color=cyan>%s<color>", me.szName, pItem.szName);
KDialog.NewsMsg(1, Env.NEWSMSG_COUNT, szMsg);
KDialog.MsgToGlobal(szMsg);
me.SendMsgToFriend("Hảo hữu của bạn [<color=cyan>" .. me.szName
.. "<color>] Đập Trứng Nhận Được <color=cyan>"
.. pItem.szName .."");
me.Msg("Đập Trứng Nhận Được <color=cyan>"..pItem.szName.."<color>");
Task:DelItem(me, tbItemId2, 1);
Task:DelItem(me, tbItemId3, 1); <-- Khai thêm 1 dòng này xóa 1 item tbItemId3

---------
elseif (nIndex == 1) or (nIndex == 2) or (nIndex == 11) then
me.Msg("<color=cyan>"..me.szName.."<color> Đập Trứng Nhận Được <color=cyan>"..pItem.szName.."<color>");
Task:DelItem(me, tbItemId2, 1);
Task:DelItem(me, tbItemId3, 1); <-- Khai thêm 1 dòng này xóa 1 item tbItemId3
end