PDA

View Full Version : [KT] Cho tớ hỏi script mở vật phẩm random ra đồng thường



ltasa93
30-08-13, 09:58 PM
function tbHongBaoc:OnUse()
local tbItemId3 = {18,1,1190,1};
local nState = me.GetTask(3003, 2);
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.TaskGourp, self.TaskId_Day) < nDate then
me.SetTask(self.TaskGourp, self.TaskId_Day, nDate);
me.SetTask(self.TaskGourp, self.TaskId_Count, 0);
end
local nCount = me.GetTask(self.TaskGourp, self.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(1, 10000);
-- 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 i = 1, 2 do
nAdd = nAdd + tbRate[i];
if nAdd >= nRand then
nIndex = i;
break;
end
end
local pItem = me.AddItem(unpack(tbAward[nIndex]));
pItem.Bind(1);
Task: DelItem(me, tbItemId3, 1);
me.SetTask(self.TaskGourp, self.TaskId_Count, nCount + 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

vipbk
31-08-13, 08:36 AM
đoạn này :

local pItem = me.AddItem(unpack(tbAward[nIndex]));
pItem.Bind(1);

thay bằng :

if nIndex == 1 then
me.AddJbCoin(50000);
end

if nIndex == 2 then
me.AddJbCoin(200000);
end