[KT] Cho tớ hỏi script mở vật phẩm random ra đồng thườ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 2 của 2
  1. #1
    Thành Viên
    Ngày tham gia
    Jul 2012
    Bài viết
    240
    Thanks
    158
    Thanked 5 Times in 5 Posts

    Cho tớ hỏi script mở vật phẩm random ra đồng thường

    PHP Code:
    function tbHongBaoc:OnUse()
    local tbItemId3    = {18,1,1190,1};
    local nState    me.GetTask(30032);
        
    tbHongBaoc.TaskGourp 3003;
        
    tbHongBaoc.TaskId_Day 1;
        
    tbHongBaoc.TaskId_Count 2;
        
    tbHongBaoc.TaskId_Last 3;
        
    tbHongBaoc.Use_Max 20;
    local nDate tonumber(GetLocalDate("%Y%m%d"));
    local nCurTime GetTime();
    local nWeekDay    tonumber(os.date("%w"nCurTime));
        if 
    me.GetTask(self.TaskGourpself.TaskId_Day) < nDate then
            me
    .SetTask(self.TaskGourpself.TaskId_DaynDate);
            
    me.SetTask(self.TaskGourpself.TaskId_Count0);
        
    end 
        local nCount 
    me.GetTask(self.TaskGourpself.TaskId_Count)
        if 
    nCount >= self.Use_Max then
            Dialog
    :Say(string.format("Bạn đã sử dụng %d lần.Hãy nghỉ ngơi , mai sử dụng tiếp !."tbHongBaoc.Use_Max));
            return 
    0;
        
    end
    local tbItemId3    
    = {18,1,1190,1};
        
    local nCount3 me.GetItemCountInBags(18,1,1190,1); -- Búa
        local i 
    0;
        
    local nAdd 0;
        
    local nRand 0;
        
    local nIndex 0;
        -- 
    random
        nRand 
    MathRandom(110000);
        -- 
    fill 3 rate    
        local tbRate 
    = {3000,7000};
        
    local tbAward 
    {
        [
    1] = {18,1,114,8};
        [
    2] = {18,1,114,9};
        }
    if 
    me.CountFreeBagCell() < 3 then
            Dialog
    :Say("Phải có 3 ô trống !");
            return 
    0;
        
    end
        
    if nCount3 1 then
        Dialog
    :Say("<color=yellow>Trong hành trang không có rương anh hùng<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);
    TaskDelItem(metbItemId31);
    me.SetTask(self.TaskGourpself.TaskId_CountnCount 1);
    me.Msg(string.format("Bạn đã sử dụng <color=yellow>%s <color> lần.Bạn còn có thể sử dụng <color=yellow>%s <color> lần nữa.",nCount 1,tbNpc.Use_Max nCount 1));
        
        return 
    1;
    end 
    Cho tớ hỏi script mở vật phẩm random ra đồng thường .vd: random ra 5v or 20v ...Như đoạn code trên thì sửa sao ạ . Cảm Ơn
    Khách viếng thăm hãy cùng ltasa93 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    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

    Ðề: Cho tớ hỏi script mở vật phẩm random ra đồng thường

    đoạn này :
    Code:
    local pItem = me.AddItem(unpack(tbAward[nIndex]));
        pItem.Bind(1);
    thay bằng :
    Code:
    if nIndex == 1 then
    me.AddJbCoin(50000);
    end
    	
    if nIndex == 2 then
    me.AddJbCoin(200000);
    end
    Khách viếng thăm hãy cùng vipbk xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    ltasa93 (31-08-13)

 

 

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

  1. [KT] Hỏi Random của Rương Đồng Bị Khóa
    Bởi lythaotta trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 19
    Bài viết cuối: 05-12-12, 08:13 AM
  2. [JX] AE nhận xét xem giúp cái Script random NPC
    Bởi heocon246 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 6
    Bài viết cuối: 21-07-12, 03:20 PM
  3. [JX] Giúp Về Vấn Đề Random
    Bởi DMC.NeZo trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 3
    Bài viết cuối: 02-06-12, 07:55 PM
  4. [KT] Xin script nhận thưởng random vật phẩm
    Bởi anhvaem_n2s trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 4
    Bài viết cuối: 04-05-12, 03:59 AM

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à 06:45 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ệ.