Giúp mình event đập trứng với

[kiemthe_dev]

Bạn nào chỉ giùm mình giới hạn 1 ngày đập 1 quả trứng vàng với? Event búa đập trứng nhé. Cảm ơn mọi người




Lần sau nhớ post bài đúng box !

[kiemthe_dev]

Mình thấy code nó như này,thêm gì để giới hạn lần đập vậy mọi người????

local tbItem = Item:GetClass("trungevent")
local REQUIRE_ITEM = { 
            [5] = 
            {
                {
                    {
                        string.format("%s,%s,%s,%s", 18, 1, 1336, 1),
                    }, 
                    1
                },
            },
};
function tbItem:OnUse()
local tbItemId2    = {18,1,1336,2,0,0};
    local nCount2 = me.GetItemCountInBags(18,1,1336,2); -- 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,1336,2,0,0};
local item02= {18,1,1336,1,0,0};
    local nCount2 = me.GetItemCountInBags(18,1,1336,2); -- Búa
    local i = 0;
    local nAdd = 0;
    local nRand = 0;
    local nIndex = 0;
    -- random
    nRand = MathRandom(1, 10000);
    -- fill 3 rate    
    local tbRate = {6000,3000,500,300,150,50};
    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};
}
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, 5 do
        nAdd = nAdd + tbRate[i];
        if nAdd >= nRand then
            nIndex = i;
            break;
        end
    end
    local pItem = me.AddItem(unpack(tbAward[nIndex]));
    pItem.Bind(1);
    if (nIndex == 4) or (nIndex == 5)  or (nIndex == 3)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, item02, 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, item02, 1);
    end
        end 

[mrkutepro]

Mình thấy code nó như này,thêm gì để giới hạn lần đập vậy mọi người????

local tbItem = Item:GetClass("trungevent")
local REQUIRE_ITEM = { 
            [5] = 
            {
                {
                    {
                        string.format("%s,%s,%s,%s", 18, 1, 1336, 1),
                    }, 
                    1
                },
            },
};
function tbItem:OnUse()
local tbItemId2    = {18,1,1336,2,0,0};
    local nCount2 = me.GetItemCountInBags(18,1,1336,2); -- 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,1336,2,0,0};
local item02= {18,1,1336,1,0,0};
    local nCount2 = me.GetItemCountInBags(18,1,1336,2); -- Búa
    local i = 0;
    local nAdd = 0;
    local nRand = 0;
    local nIndex = 0;
    -- random
    nRand = MathRandom(1, 10000);
    -- fill 3 rate    
    local tbRate = {6000,3000,500,300,150,50};
    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};
}
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, 5 do
        nAdd = nAdd + tbRate[i];
        if nAdd >= nRand then
            nIndex = i;
            break;
        end
    end
    local pItem = me.AddItem(unpack(tbAward[nIndex]));
    pItem.Bind(1);
    if (nIndex == 4) or (nIndex == 5)  or (nIndex == 3)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, item02, 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, item02, 1);
    end
        end 

Khai báo thêm task đê giới hạn. Ví dụ khai báo thêm task mới trong setting\player\task_def.txt là :

2150    1    2    Task Gioi Han Dap Trung(1-ngay, 2-so lan)        0    0 

Sau đó sẽ chèn đoạn code này vào script đập trứng

local nowDate = tonumber(GetLocalDate("%Y%m%d"));
if me.GetTask(2150, 1) < nowDate then   --Reset
    me.SetTask(2150,1,  nowDate);
    me.SetTask(2150,2, 0); 
end

if me.GetTask(2150, 1) == nowDate and me.GetTask(2150, 2) >= 1 then
    me.Msg("Hôm nay đập rồi, mai quay lại nhé!");
    return;
end 

Trên là hàm kiểm tra reset ngày mới, và kiểm tra đập hay chưa đập. Đây là hàm Set là đã đập nhé, chèn nó vào đoạn nào đấy sau khi đã đập xong trứng tùy bạn

   me.SetTask(2150,2, 1); 

Đây là code cho newbine, nếu như bạn thuần thục, bạn chỉ việc sử dụng 1 task, ko cần dùng đến 2 task như mình hướng dẫn

[kiemthe_dev]

Vâng mình là newbie mà,bạn có thể ghép vào luôn cho mình thành cái code hoàn chỉnh được không? Cảm ơn bạn nhiều lắm

[kiemthe_dev]

Sao mình làm như hướng dẫn mà vào vẫn đập thoải mái đc vậy . Ai cho mình xin cái scrips hoàn chỉnh với

[kiemthe_dev]

Pro nào giúp mình với,mình làm đúng theo hướng dẫn mà có được đâu

[Sesshomaru]

tìm script mỗi ngày nhận thưởng 1 lần thử xem

[mr.rain]

tìm script mỗi ngày nhận thưởng 1 lần thử xem

ko mày mò mở online rồi

để bạn ấy mò cho ra đi

[voanhnhat20010]

ko mày mò mở online rồi

để bạn ấy mò cho ra đi

bác là bác quá ác đó đấy đôi khi họ mò k ra thì mình giúp thôi
ai làm gì kệ họ
c50 nó có mần thì chết kệ họ

[kiemthe_dev]

ko mày mò mở online rồi

để bạn ấy mò cho ra đi

Mình thấy bạn cũng hay đi hỏi này hỏi nọ mà còn mở mồm ra nói như vậy. Đã không giúp thì thôi sao phải thế? Những lúc bạn hỏi anh em ko ai giúp thì bạn cảm thấy thế nào? Vui lắm hả?