[KT] Lỗi này khó hiểu pro nào vào giúp phát
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 3 của 3
  1. #1
    Thành Viên anhnhianh's Avatar
    Ngày tham gia
    Jan 2014
    Bài viết
    625
    Thanks
    134
    Thanked 91 Times in 73 Posts

    Lỗi này khó hiểu pro nào vào giúp phát

    lúc đầu e viết script cho item đèn kéo quân click phải vào đc VP rồi item đèn kéo quân đó mất đi (như ev siro ngũ sắc). Nhưng chỉ đc lúc đầu thì nó còn mất item nhưng lúc sau cũng cùng script đó nhưng click phải vào lại ko mất đi item đó
    CÒN ĐÂY LÀ FILE.LUA CỦA NÓ:
    Code:
    local tbItem = Item:GetClass("denkeoquan");
    tbItem.tbItemInfo = {
    bForceBind=1,
    };
    function tbItem:OnUse()
    DoScript("\\script\\item\\class\\denkeoquan.lua") -- Reload Đèn Kéo Quân
    local nCount = me.GetItemCountInBags(18,1,1337,4) -- Đèn Kéo Quân
    if nCount < 1 then
    Dialog:SendBlackBoardMsg(me, string.format("Trong người không có <color=yellow>Đèn Kéo Quân<color> !"));
    return
    end
     self:OnUse1();
    end
    function tbItem:OnUse1()
    if me.CountFreeBagCell() < 10 then
    		Dialog:Say("Phải Có 10 Ô Trống Trong Túi Hành Trang!");
    		return 0;
    	end
    local nCount = me.GetItemCountInBags(18,1,1337,4) -- Đèn Kéo Quân
    local tbItemId1	= {18,1,1337,0,0,0}; -- Đèn Kéo Quân
    	local i = 0;
    	local nAdd = 0;
    	local nRand = 0;
    	local nIndex = 0;
    	nRand = MathRandom(1, 100);
    	local tbRate = {50, 30, 15, 5}; -- Rate Item
    	local tbAward = {1 ,2, 3, 4}; -- Rate 4 con số
    	for i = 1, 4 do
    		nAdd = nAdd + tbRate[i];
    		if nAdd >= nRand then
    			nIndex = i;
    			break;
    		end
    	end
    if (tbAward[nIndex]==1) then -- Xác xuất ra số 1 là 50/100 (50%)
    me.AddExp(10000000) -- 10tr Exp
    me.AddStackItem(18,1,1,7,self.tbItemInfo,2) -- (18,1,1,7) là Huyền Tinh (Cấp 7) , 2 là số lượng Huyền Tinh (Cấp 7) người chơi nhận được
    Dialog:SendBlackBoardMsg(me, string.format("Nhận được 10tr EXP và 2 Huyền Tinh (Cấp 7)!"));
    Task:DelItem(me, tbItemId1, 1); -- Xóa 1 Item tbItemId1 được khai báo ở trên là Đèn Kéo Quân
    me.CastSkill(307, 1, -1, me.GetNpc().nIndex);
    end
    if (tbAward[nIndex]==2) then -- Xác xuất ra số 2 là 30/10000 (30%)
    me.AddExp(20000000) -- 20tr Exp
    me.AddStackItem(18,1,1,8,self.tbItemInfo,1) -- (18,1,1,8) là Huyền Tinh (Cấp 8) , 1 là số lượng Huyền Tinh (Cấp 8) người chơi nhận được
    Dialog:SendBlackBoardMsg(me, string.format("Nhận được 20tr EXP và 1 Huyền Tinh (Cấp 8)!"));
    Task:DelItem(me, tbItemId1, 1); -- Xóa 1 Item tbItemId1 được khai báo ở trên là Đèn Kéo Quân
    me.CastSkill(307, 1, -1, me.GetNpc().nIndex);
    end
    if (tbAward[nIndex]==3) then -- Xác xuất ra số 3 là 15/100 (15%)
    me.AddExp(400000000) -- 40tr Exp
    me.AddStackItem(18,1,1,8,self.tbItemInfo,3) -- (18,1,1,8) là Huyền Tinh (Cấp 8) , 2 là số lượng Huyền Tinh (Cấp 8) người chơi nhận được
    Dialog:SendBlackBoardMsg(me, string.format("Nhận được 40tr EXP và 3 Huyền Tinh (Cấp 8)!"));
    Task:DelItem(me, tbItemId1, 1); -- Xóa 1 Item tbItemId1 được khai báo ở trên là Đèn Kéo Quân
    me.CastSkill(307, 1, -1, me.GetNpc().nIndex);
    end
    if (tbAward[nIndex]==4) then -- Xác xuất ra số 4 là 5/100 (5%)
    me.AddExp(150000000) -- 100tr Exp
    me.AddStackItem(18,1,1,10,self.tbItemInfo,2) -- (18,1,1,12) là Huyền Tinh (Cấp 10) , 2 là số lượng Huyền Tinh (Cấp 10) người chơi nhận được
    Dialog:SendBlackBoardMsg(me, string.format("Nhận được 100tr EXP và 2 Huyền Tinh (Cấp 10)!"));
    Task:DelItem(me, tbItemId1, 1); -- Xóa 1 Item tbItemId1 được khai báo ở trên là Đèn Kéo Quân
    GlobalExcute({"Dialog:GlobalNewsMsg_GS","<color=yellow>Người chơi <color=green>["..me.szName.."]<color> sử dụng <color=yellow>Đèn Kéo Quân<color> nhận được <color=green>2 Huyền Tinh Hoàn Mỹ (Cấp 10)<color> !<color>"});
    KDialog.NewsMsg(1, Env.NEWSMSG_COUNT,"<color=yellow>Người chơi <color=green>["..me.szName.."]<color> sử dụng <color=yellow>Đèn Kéo Quân<color> nhận được <color=green>2 Huyền Tinh Hoàn Mỹ (Cấp 10)<color> !<color>");
    KDialog.MsgToGlobal("<color=yellow>Người chơi <color=green>["..me.szName.."]<color> sử dụng <color=yellow>Đèn Kéo Quân<color> nhận được <color=green>2 Huyền Tinh Hoàn Mỹ (Cấp 10)<color> !<color>");	
    me.CastSkill(307, 1, -1, me.GetNpc().nIndex);
    end
    end
    Mong có pro giúp đỡ. tks
    Khách viếng thăm hãy cùng anhnhianh xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    ✎﹏ Nà Ní Team ❖ ︻╦╤─ ҉ - na.ilusm89's Avatar
    Ngày tham gia
    May 2012
    Bài viết
    1,084
    Thanks
    99
    Thanked 707 Times in 402 Posts

    Ðề: Lỗi này khó hiểu pro nào vào giúp phát

    PHP Code:
    local tbItemId1    = {18,1,1337,0,0,0}; -- Đèn Kéo Quân 
    -- Lỗi ở đây bạn nha
    ℵóα

  3. #3
    Thành Viên anhnhianh's Avatar
    Ngày tham gia
    Jan 2014
    Bài viết
    625
    Thanks
    134
    Thanked 91 Times in 73 Posts

    Ðề: Lỗi này khó hiểu pro nào vào giúp phát

    Trích dẫn Gửi bởi na.ilusm89 [Only registered and activated users can see links. ]
    PHP Code:
    local tbItemId1    = {18,1,1337,0,0,0}; -- Đèn Kéo Quân 
    -- Lỗi ở đây bạn nha
    đc rồi tks pro nhá


    Một với một là bao nhiêu ? (viết trả lời bằng số)
    Khách viếng thăm hãy cùng anhnhianh xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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à 07:17 PM.
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ệ.