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

[Only registered and activated users can see links. ]

[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