Xin Script Như Thế Này Ai Có Giúp Đở Với :(

[vuila9]

Xin Script Như Thế Này Ai Có Giúp Đở Với :(

<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>

[tuananhc1]

Cái này để nâng cấp ngựa Phi Vân, mấy con khác theo vậy mà làm nhé

tab_phivan = {
{"Phi V©n", 0.4, 8},
{"ThÊt B¹i", 0.6, 0},
}
------
function nangcapngua()
local tbOpt =
{
{"N©ng cÊp ngùa Phi V©n", bovaophivan},
{"Tho¸t"},
}
CreateNewSayEx("<npc>Ng­¬i cÇn g×?", tbOpt)
end

function bovaophivan()
GiveItemUI("§ãng mÆt tra phÝ .","§em m· bµi ®Æt ë phÝa d­íi ", "nangcapphivan", "no")
end

function nangcapphivan(ncount)
local tien = 10000000
local lam = 1
local tu = 1
local luc = 1
local tinhhong = 1

if (ncount == 0) then
Say("CÇn bá vµo m· bµi!", 0)
return
end

if (ncount > 1) then
Say("Ta chØ cÇn 1 m· bµi, nh÷ng thø kh¸c ta kh«ng cÇn", 0)
return
end

local nItemIdx = GetGiveItemUnit(1);
local nStackCount = GetItemStackCount(nItemIdx);

if (nStackCount > 1) then
Say("Ta chØ cÇn 1 m· bµi, nh÷ng thø kh¸c ta kh«ng cÇn", 0)
return
end

local itemgenre, detailtype, particular = GetItemProp(nItemIdx);

if (itemgenre ~= 6 or particular ~= 2332) then
Say(format("ThÈm C©u: Ta chØ cÇn 1 m· bµi ChiÕu D¹ nh÷ng thø kh¸c ta kh«ng cÇn", "M· bµi chiÕu d¹"), 2, "§Ó ta ®Æt l¹i/bovaophivan", "Tho¸t/no")
return
end

if (GetCash() < tien) then
Say("Kh«ng ®ñ tiÒn trªn ng­êi, Sè l­îng cÇn: " ..tien.. "l­îng", 0)
return
end
if (CalcEquiproomItemCount(4, 238, 1, 1) < lam) then
Say("Kh«ng ®ñ Lam Thñy Tinh trªn ng­êi, Sè l­îng cÇn: " ..lam.. "", 0)
return
end
if (CalcEquiproomItemCount(4, 239, 1, 1) < tu) then
Say("Kh«ng ®ñ Tö Thñy Tinh trªn ng­êi, Sè l­îng cÇn: " ..tu.. "", 0)
return
end
if (CalcEquiproomItemCount(4, 240, 1, 1) < luc) then
Say("Kh«ng ®ñ Lôc Thñy Tinh trªn ng­êi, Sè l­îng cÇn: " ..luc.. "", 0)
return
end
if (CalcEquiproomItemCount(4, 353, 1, 1) < tinhhong) then
Say("Kh«ng ®ñ Tinh Hång B¶o Th¹ch trªn ng­êi, Sè l­îng cÇn: " ..tinhhong.. "", 0)
return
end
---
local nSeed = random(1, 10000);
local nIdx = 1;
local nTotal = 0;
for i = 1, getn(tab_phivan) do
nTotal = nTotal + tab_phivan[i][2] * 10000;
if (nSeed <= nTotal) then
nIdx = i;
break
end;
end;
if (nIdx == 1) then
RemoveItemByIndex(nItemIdx);
Pay(tien);
ConsumeEquiproomItem(lam, 4, 238, 1, 1);
ConsumeEquiproomItem(tu, 4, 239, 1, 1);
ConsumeEquiproomItem(luc, 4, 240, 1, 1);
ConsumeEquiproomItem(tinhhong, 4, 353, 1, 1);
AddItem(0,10,8,10,0,0,0);
Msg2Player("Chóc mõng! B¹n nhËn ®­îc <color=yellow>"..tab_phivan[nIdx][1].."<color>");
else
RemoveItemByIndex(nItemIdx);
Pay(tien);
ConsumeEquiproomItem(lam, 4, 238, 1, 1);
ConsumeEquiproomItem(tu, 4, 239, 1, 1);
ConsumeEquiproomItem(luc, 4, 240, 1, 1);
ConsumeEquiproomItem(tinhhong, 4, 353, 1, 1);
Msg2Player("N©ng cÊp thÊt b¹i! ThËt ®¸ng tiÕc.");
end;
end