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

**kiemthe_dev** · 15-07-13, 01:20 AM

Ai giúp mình với,chân thành cảm ơn

**Sesshomaru** · 15-07-13, 01:29 AM

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

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à :

PHP Code:


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<==Thêm đoạn này ngay sau onuse

PHP Code:


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

PHP Code:


   me.SetTask(2150,2, 1);

<=Thêm đoạn này ngay khi nhân vật nhận thưởng thành công.Lưu ý là thêm trước khi cho phần thưởng.vi thêm sau khi cho phần thưởng nếu chỗ trống ko đủ sẽ dẫn đến bug mở nhiều lần.( local pItem = me.AddItem(unpack(tbAward[nIndex]))

Đâ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

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

**mrkutepro** · 15-07-13, 02:30 AM

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

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

Tại mình thấy code này quá đơn giản, nên ko chỉ hết theo cách copy về xài, muốn các bạn ấy chủ động hơn thôi

**mrkutepro** · 15-07-13, 02:36 AM

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

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à :

PHP Code:


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

PHP Code:


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

PHP Code:


   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

Huóng dẫn luôn code 1 Task nhé:

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à :

PHP Code:


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

PHP Code:


local nowDate = tonumber(GetLocalDate("%Y%m%d"));

if me.GetTask(2150, 1) <= nowDate then   --Reset

    me.SetTask(2150,1,  nowDate);

end



if me.GetTask(2150, 1) > nowDate  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

PHP Code:


   me.SetTask(2150,1, 1);

Đơn giản thế thôi, còn như bác Toại có nhắc nhở bạn nên chèn thêm code kiểm tra chỗ trống vào, code sơ sài quá

**kiemthe_dev** · 15-07-13, 11:21 AM

Mình chèn như này sai chỗ nào mà lúc thì đập đc 1 quả, lúc thì 7 quả,lúc thì hơn 10 quả nhỉ. Mình muốn đập ngày đc 10 quả thì chỉnh sao vậy

2 bác giúp cho ch ót nhé

Mình đã khai báo task như bác Toại nói rồi.

PHP Code:


local tbItem = Item:GetClass("trungevent")
local REQUIRE_ITEM = { 
            [5] = 
            {
                {
                    {
                        string.format("%s,%s,%s,%s", 18, 1, 1336, 1),
                    }, 
                    1
                },
            },
};
function tbItem:OnUse()
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) >= 10 then     ----Ngày đập 10 quả
    me.Msg("Hôm nay đập rồi, mai quay lại nhé!");
    return;
end 
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]));
    me.SetTask(2150,2, 10);
    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

**vd_tt** · 15-07-13, 01:37 PM

mở code bí kiếp đồng hành đặc biệt lên, chỗ nào giới hạn thì để ý, chỗ nào có task thì thêm vào

**mrkutepro** · 15-07-13, 01:44 PM

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

Mình chèn như này sai chỗ nào mà lúc thì đập đc 1 quả, lúc thì 7 quả,lúc thì hơn 10 quả nhỉ. Mình muốn đập ngày đc 10 quả thì chỉnh sao vậy

2 bác giúp cho ch ót nhé

Mình đã khai báo task như bác Toại nói rồi.

PHP Code:


local tbItem = Item:GetClass("trungevent")

local REQUIRE_ITEM = { 

            [5] = 

            {

                {

                    {

                        string.format("%s,%s,%s,%s", 18, 1, 1336, 1),

                    }, 

                    1

                },

            },

};

function tbItem:OnUse()

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) >= 10 then     ----Ngày đập 10 quả

    me.Msg("Hôm nay đập rồi, mai quay lại nhé!");

    return;

end 

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]));

    me.SetTask(2150,2, 10);

    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

Tại bữa chỉ hỏi đập 1 quả nên chỉ thế, còn đập 10 quả code hơi khác
Sửa đoạn này:

PHP Code:


me.SetTask(2150,2, 10);

thành

PHP Code:


me.SetTask(2150,2, me.GetTask(2150,2) +1);

**kiemthe_dev** · 15-07-13, 03:15 PM

Cảm ơn mrkutepro & mr trantoai323 nhé. Mở mang tầm mắt quá :X 2 bạn cần VPS thì inbox mình nhé,bên mình đang dư khá nhiều ^^, dưới 2GB Ram chỉ tính tiền mua IP thôi (150k/ tháng ). Server đường truyền 300 Mb đặt tại VDC 1 nhé.

**mrkutepro** · 15-07-13, 04:25 PM

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

Cảm ơn mrkutepro & mr trantoai323 nhé. Mở mang tầm mắt quá :X 2 bạn cần VPS thì inbox mình nhé,bên mình đang dư khá nhiều ^^, dưới 2GB Ram chỉ tính tiền mua IP thôi (150k/ tháng ). Server đường truyền 300 Mb đặt tại VDC 1 nhé.

VPS chạy có ổn định 24/24 không bạn, mình dùng vps 500k một tháng mà nhiều khi còn bị cà giựt nữa

**kiemthe_dev** · 15-07-13, 06:12 PM

Uptime 99,99% mà. Có j pm inbox mình nhé

Chủ đề: Giúp mình event đập trứng với

Công cụ Chủ đề

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Các Chủ đề tương tự

[MU] Xin giúp đỡ về các Event trong Data/Event

[MU] Xin giúp đỡ về Event Thỏ trắng (Blue Event) trong MU ss6

[KT] xin 1 event và hướng dẫn làm event tết nguyên đán kiếm thế !

[KT] Ai giúp em về 2 cái event Euro và event tết 2010

[MU] Cách open Event Sự Kiện Thiên Giới (Sky Event) ?

Quyền viết bài