PDA

View Full Version : [KT] Xin script nhận thưởng random vật phẩm



anhvaem_n2s
02-05-12, 08:00 PM
có ai biết viết 1 hàm nhận thưởng random 1 vật phẩm trong 2 hoặc 3 vật phẩm không vậy, chỉ giùm mình với

chaolegion01
02-05-12, 11:02 PM
me.AddRandomItem( id item 1 , id item2 , id item 3 );

Viết đại k biết dc k . :))

anhvaem_n2s
03-05-12, 12:05 AM
id item là 1 dãy số cách nhau bằng dấu phẩy đó bác, ghi xong nó hiểu không nhỉ

đã test, fail

sitachi
04-05-12, 03:41 AM
me.AddRandomItem( id item 1 , id item2 , id item 3 );

Viết đại k biết dc k . :))

nhãm nhí , bít thì chỉ còn k biết đừng spam dại [-X

Mr.QuangHuy
04-05-12, 03:59 AM
Dựa vào đoạn script của rương 6677 xem .


function tbJinxiangziItem:OnUse()

local nWeekOpen = me.GetTask(Baibaoxiang.TASK_GROUP_ID, Baibaoxiang.TASK_BAIBAOXIANG_WEEKEND);

if nWeekOpen >= 5 then
me.Msg("ÿÈËÿÖÜÖ»ÄÜ¿ªÆô 5 ¸ö¾«ÖµÄÏä×Ó£¡");
return 0;
end;

if me.CountFreeBagCell() < 1 then
me.Msg("²»ºÃÒâ˼£¬ÄúµÄ±³°ü¿Õ¼äÂúÁ Ë¡£");
return 0;
end

local i = 0;
local nAdd = 0;
local nRand = 0;
local nIndex = 0;

-- random
nRand = MathRandom(1, 10000);

-- fill 3 rate
local tbRate = {8900, 1000, 100};
local tbAward = {8 ,9, 10};

-- get index
for i = 1, 3 do
nAdd = nAdd + tbRate[i];
if nAdd >= nRand then
nIndex = i;
break;
end
end

if nIndex == 0 then
me.Msg("²»ºÃÒâ˼£¬ÄúʲôҲûÓеõ ½¡£");
return 0;
end;

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

nWeekOpen = nWeekOpen + 1;
me.SetTask(Baibaoxiang.TASK_GROUP_ID, Baibaoxiang.TASK_BAIBAOXIANG_WEEKEND, nWeekOpen);

me.Msg("Äú´ò¿ªÁ˽ðÏä×Ó£¬¾ªÏ²µÄ·¢Ï Ö£º<color=yellow>"..pItem.szName.."<color>");

me.SendMsgToFriend("ÄúµÄºÃÓÑ[<color=yellow>" .. me.szName
.. "<color>]´ò¿ªÒ»¸ö¾«ÃÀ¶ø¹óÖصÄÏä×Ó£ ¬¾ªÏ²µÄ·¢ÏÖÁËÒ»¸ö<color=yellow>"
.. pItem.szName .."<color>£¡");

return 1;
end