[KT] Cách chỉnh thêm vật phẩm ở Event đập trứng
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 8 của 8
  1. #1
    Thành Viên
    Ngày tham gia
    Jun 2009
    Bài viết
    386
    Thanks
    69
    Thanked 2 Times in 2 Posts

    Cách chỉnh thêm vật phẩm ở Event đập trứng

    ở file vật phẩm của event đập trứng hiện chỉ có 5 vật phẩm ai biết chỉnh cho số lượng nhiều hơn ở đâu không xin chỉ mình với
    Khách viếng thăm hãy cùng dianguc.vn xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    gbproteen1991 (12-12-12)

  3. #2
    Thành Viên Tâm Huyết satthupro95's Avatar
    Ngày tham gia
    Jan 2012
    Bài viết
    2,415
    Thanks
    2,567
    Thanked 1,845 Times in 882 Posts

    Ðề: Cách chỉnh thêm vật phẩm ở Event đập trứng

    local tbRate = {7000,3000};
    local tbAward =
    {
    [1] = {18,1,1,7};
    [2] = {18,1,1,8};

    --- Thêm vật phẩm vào đây ví dụ như là [3] = {18,1,1,8};
    }
    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 -- Bao nhiêu vật phẩm thì i chạy từ 1 -> đó . ví dụ 3 vật phẩm là i = 1,3
    Khách viếng thăm hãy cùng satthupro95 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  4. #3
    Thành Viên
    Ngày tham gia
    Jun 2009
    Bài viết
    386
    Thanks
    69
    Thanked 2 Times in 2 Posts

    Ðề: Cách chỉnh thêm vật phẩm ở Event đập trứng

    PHP Code:
    -- ÎļþÃû¡¡£ºguozi_summer.lua
    -- ´´½¨Õß¡¡£ºsunduoliang
    -- ´´½¨Ê±¼ä£º2009-07-09 09:12:56
    -- Ãè  Êö  £º

    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 ÄÃ¡<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 ÄÃ¡<color>"Env.GAME_FPS, {self.OnDialog4self}, niltbEvent);
         };
        --
    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(110000);
        -- 
    fill 3 rate    
        local tbRate 
    = {5000,3000,1200,500,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000};
        
    local tbAward 
    {
        [
    1] = {18,1,1190,4};
        [
    2] = {1,12,33,4};
        [
    3] = {1,12,36,4};
        [
    4] = {1,12,37,4};
        [
    5] = {1,12,39,4};
        [
    6] = {1,12,40,4};
        [
    7] = {1,12,41,4};
        [
    8] = {1,12,42,4};
        [
    9] = {1,12,47,4};
        [
    10] = {1,12,48,4};
        [
    11] = {1,12,38,4};
        [
    12] = {1,12,49,4};
        [
    13] = {1,12,50,4};
        [
    14] = {1,12,51,4};
        [
    15] = {1,12,52,4};
        [
    16] = {1,12,53,4};

    }
    if 
    me.CountFreeBagCell() < 10 then
            Dialog
    :Say("Phải Có 10 Ã” Trống Trong Túi Hành Trang Má»›i Äáº­p ÄÃ¡ ÄÆ°á»£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 ÄÃ¡<color>");
            return 
    0;
            
    end


        
    -- for 1do
            -- 
    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.szNamepItem.szName);
        -- 
    KDialog.NewsMsg(1Env.NEWSMSG_COUNTszMsg);
        -- 
    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 
    1do
            
    nAdd nAdd tbRate[i];
            if 
    nAdd >= nRand then
                nIndex 
    i;
                break;
            
    end
        end
        local pItem 
    me.AddItem(unpack(tbAward[nIndex]));
    pItem.Bind(1);
    me.SetItemTimeout(pItem2*24*600); 
        if (
    nIndex == 4) or (nIndex == 5)  or (nIndex == 3)then
            local szMsg 
    string.format("<color=cyan>%s<color> Äáº­p ÄÃ¡ Nhận ÄÆ°á»£c <color=cyan>%s<color>"me.szNamepItem.szName);
        
    KDialog.NewsMsg(1Env.NEWSMSG_COUNTszMsg);
        
    KDialog.MsgToGlobal(szMsg);            
        
    me.SendMsgToFriend("Hảo hữu của bạn [<color=cyan>" .. me.szName 
            
    .. "<color>] Äáº­p ÄÃ¡ Nhận ÄÆ°á»£c <color=cyan>"
        
    .. pItem.szName .."");                           
        
    me.Msg("Đập ÄÃ¡ Nhận ÄÆ°á»£c <color=cyan>"..pItem.szName.."<color>"); 
        
    Task:DelItem(metbItemId21);
        elseif (
    nIndex == 1) or (nIndex == 2)then
            me
    .Msg("<color=cyan>"..me.szName.."<color> Äáº­p ÄÃ¡ Nhận ÄÆ°á»£c <color=cyan>"..pItem.szName.."<color>");
            
    Task:DelItem(metbItemId21);
        
    end
            end 
    Toàn bộ file đây nó chỉ ra đến vật phẩm số 5 thôi không ra các vật phẩm khác tử 6 trở lên
    Khách viếng thăm hãy cùng dianguc.vn xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  5. #4
    Thành Viên Tâm Huyết satthupro95's Avatar
    Ngày tham gia
    Jan 2012
    Bài viết
    2,415
    Thanks
    2,567
    Thanked 1,845 Times in 882 Posts

    Ðề: Cách chỉnh thêm vật phẩm ở Event đập trứng

    PHP Code:
    for 1do
            
    nAdd nAdd tbRate[i];
            if 
    nAdd >= nRand then
                nIndex 
    i;
                break; 
    Bao nhiêu vật phẩm thì sửa cái 5 ở trên như thế
    Chỗ này nữa :
    nRand = MathRandom(1, 10000);
    local tbRate = {5000,3000,1200,500,3000,3000,3000,3000,3000,3000, 3000,3000,3000,3000,3000,3000};
    local tbAward =
    Ở trên bạn khai tổng là 10000 thì tổng các value ở tbRate cộng với nhau = 10000
    Lần sửa cuối bởi satthupro95, ngày 12-12-12 lúc 09:39 PM.
    Khách viếng thăm hãy cùng satthupro95 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    dianguc.vn (12-12-12)

  7. #5
    Moderator vipbk's Avatar
    Ngày tham gia
    May 2012
    Đang ở
    đây
    Bài viết
    5,112
    Thanks
    248
    Thanked 3,008 Times in 1,889 Posts

    Ðề: Cách chỉnh thêm vật phẩm ở Event đập trứng

    nRand = MathRandom(1, 10000);
    local tbRate = {5000,3000,1200,500,3000,3000,3000,3000,3000,3000, 3000,3000,3000,3000,3000,3000};
    chú ý tổng rate phải bằng 10000 hoặc sửa số 10000 thành tổng: 5000 + 3000 + ... + 3000
    Khách viếng thăm hãy cùng vipbk xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    dianguc.vn (12-12-12)

  9. #6
    Thành Viên
    Ngày tham gia
    Dec 2012
    Bài viết
    28
    Thanks
    15
    Thanked 1 Time in 1 Post

    Ðề: Cách chỉnh thêm vật phẩm ở Event đập trứng

    Các anh cho em hỏi em muốn đập 1 phát nó mất luôn quả trứng với 1 cái búa thì chỉnh ở đâu ạ? Cho em đường dẫn file event đập trứng luôn nhé . Em cảm ơn
    Khách viếng thăm hãy cùng vuagamepri xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  10. #7
    Thành Viên Tâm Huyết __Jie__'s Avatar
    Ngày tham gia
    Sep 2008
    Bài viết
    1,321
    Thanks
    256
    Thanked 740 Times in 559 Posts

    Ðề: Cách chỉnh thêm vật phẩm ở Event đập trứng

    Trích dẫn Gửi bởi vuagamepri [Only registered and activated users can see links. ]
    Các anh cho em hỏi em muốn đập 1 phát nó mất luôn quả trứng với 1 cái búa thì chỉnh ở đâu ạ? Cho em đường dẫn file event đập trứng luôn nhé . Em cảm ơn
    script\item\class\daptrung.lua
    Bác này ADM GiangLong à chuyên vào topic người ra xì spam
    Khách viếng thăm hãy cùng __Jie__ xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    vuagamepri (01-01-13)

  12. #8
    Thành Viên
    Ngày tham gia
    Dec 2012
    Bài viết
    28
    Thanks
    15
    Thanked 1 Time in 1 Post

    Ðề: Cách chỉnh thêm vật phẩm ở Event đập trứng

    Trích dẫn Gửi bởi __Jie__ [Only registered and activated users can see links. ]
    script\item\class\daptrung.lua
    Bác này ADM GiangLong à chuyên vào topic người ra xì spam
    Hic, oan quá em có xì pam đâu. Gamer tự post bài tự cãi nhau đấy chứ. Mang tiếng quá @@
    Khách viếng thăm hãy cùng vuagamepri xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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

  1. [MU] Xin giúp đỡ về các Event trong Data/Event
    Bởi 0988360058 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 11
    Bài viết cuối: 12-10-20, 10:05 PM
  2. [KT] Share event by thiencoi55
    Bởi khaicafe trong diễn đàn Releases
    Trả lời: 21
    Bài viết cuối: 25-10-12, 05:48 PM
  3. [KT] Ai giúp em về 2 cái event Euro và event tết 2010
    Bởi luumin trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 26-07-12, 12:32 PM
  4. [MU] cho hỏi về event xmas event
    Bởi supberman trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 2
    Bài viết cuối: 14-05-12, 07:28 AM
  5. [MU] Cách open Event Sự Kiện Thiên Giới (Sky Event) ?
    Bởi daovthinh trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 11-04-12, 09:05 PM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 08:38 AM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.