Tặng bạn script nâng cấp ngựa của mình. Bạn đọc hiểu được thì có thể xài!
function BaiBaoXiang_Give_UI1()
GiveItemUI("N©ng cÊp ngùa","§iÒu kiÖn ®Ó thuÇn phôc:<enter><enter> + 1 B¾c §Èu ThuÇn M· ThuËt<enter> + 1 Cá Xanh<enter> + 10.000 V¹n .","BaiBaoXiang_Get1","no",1)
end
function BaiBaoXiang_Get1(nItemCount)
if GetCash() < 100000000 then
Msg2Player("<color=cyan>B¹n kh«ng cã 10.000 V¹n..<color>")
return
end;
-- 0,10,8 lµ phi v©n , 0,10,6 lµ b«n tiªu , 0,10,5 lµ chiÕu d¹ (ngùa 8x)
TB_Material = {
--1.ÎïÆ·Ãû 2.ÊýÁ¿
["0,10,5"] = "Ngùa 80",
["6,1,1987"] = "B¾c §Èu ThuÇn M· ThuËt",
["6,1,3124"] = "Cá T¬i",
}
local tb_enhanceitem_count = {};
for szkey, tb_item in TB_Material do
tb_enhanceitem_count[szkey] = {};
tb_enhanceitem_count[szkey][1] = 0;
end
--¼ì²âÎïÆ·Æ¥Åä
for i = 1, nItemCount do
local nCurItemIdx = GetGiveItemUnit(i);
local nCurItemName = GetItemName(nCurItemIdx);
local nCurItemQuality = GetItemQuality(nCurItemIdx);
local tbCurItemProp = pack(GetItemProp(nCurItemIdx));
local szItemKey = tbCurItemProp[1]..","..tbCurItemProp[2]..","..tbCurItemProp[3];
if (TB_Material[szItemKey] == nil) then
Msg2Player("<color=cyan>Nguyªn liÖu bá vµo kh«ng ®óng..<color>")
return
end
tb_enhanceitem_count[szItemKey][1] = tb_enhanceitem_count[szItemKey][1] + GetItemStackCount(nCurItemIdx);
end
for szkey, tb_item in TB_Material do
if (tb_enhanceitem_count[szkey][1] ~= 1) then
Msg2Player("<color=cyan>Nguyªn liÖu bá vµo kh«ng ®óng..<color>")
return
end
end
--ɾ²ÄÁÏ
for i=1, nItemCount do
local nIdx = GetGiveItemUnit(i)
if (RemoveItemByIndex(nIdx) ~= 1) then
--WriteLog(format("[GuoQing2007_BaiBaoXiang]Date:%s\t Account:%s\t Name:%s\t DelItemFail:%s",GetLocalDate("%Y-%m-%d %H:%M:%S"),GetAccount(),GetName(),GetItemName(GetGiveItemUn it(i)) ));
return
end
end
p=random(0,6)
if p > 2 then
Msg2Player("<color=yellow>LÇn nµy thÊt b¹i råi,thËt tiÕc<pic=10><color>")
Pay(100000000)
else
Msg2Player("§¹i hiÖp <color=yellow>"..GetName().."<color> n©ng cÊp thµnh c«ng <color=gold>Phi V©n<color>");
Pay(100000000)
AddItem(0,10,9,0,0,0)
WriteLog(format("[GuoQing2007_BaiBaoXiang]\t Date:%s\t Account:%s\t Name:%s\t Effect:Get BaiBaoXiang",GetLocalDate("%y-%m-%d %H:%M:%S"),GetAccount(),GetName()));
return
end
end
function pack(...)
return arg
end