Share event by thiencoi55

[cfcvnbg]

Cái event này có dùng scrip 1 vật loại phẩm đổi 1 loại vật phẩm, mình lấy ví dụ scrip 5NAT đổi 5 rương du long

--------------------------------------
function tbnpctest:OnDialog()
local szMsg = "Hãy Chọn Loại Giao Dịch";
local tbOpt = { 
{"<color=yellow>Dùng Nguyệt Ảnh Thạch đổi Vật phẩm", self.ChangeItem, self, 1},
{"Để Ta Suy Nghỉ"},
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------
function tbnpctest:ChangeItem(nLevel)
    local szContent = string.format("Hãy đặt đúng <color=yellow>5 NAT <color> vào !\n5 KNB đổi lấy 5 rương Tiền Du Long");
    Dialog:OpenGift(szContent, nil, {tbnpctest.OnOpenGiftOk, tbnpctest, nLevel});
end
--------------------------------------
function tbnpctest:OnOpenGiftOk(nLevel, tbItemObj)
    --Vật phẩm dùng để đổi (nguyệt ảnh thạch)
    local vatpham = "18,1,476,1"; 
    --Đếm số lượng nguyên liệu
    local nCount = 0;
    for i = 1, #tbItemObj do
        nCount = nCount + tbItemObj[i][1].nCount;
    end
    --Check đúng 5 NAT hay không?
    if nCount ~= 5 then
        Dialog:Say("<color=pink>Chú ý : <color>Mỗi lần chỉ được đặt vào 5 NAT !", {"Ta biết rồi !"});
        return 0;
    end
    --Check có phải là NAT không!
    for i = 1, #tbItemObj do
        local pItem = tbItemObj[i][1];
        local szKey = string.format("%s,%s,%s,%s",pItem.nGenre,pItem.nDetail,pItem.nParticular,pItem.nLevel);
        if szKey ~= vatpham then
            Dialog:Say("Chỉ được dùng NAT để đổi!", {"Ta biết rồi !"});
            return 0;
        end
    end        
    --Kiểm tra ô trống trong túi
    if me.CountFreeBagCell() < 1 then
        Dialog:Say("Cần sắp xếp lại túi!",{"Ta Biết rồi !"});
        return 0;
    end
    --Nếu đúng NAT và số lượng => xóa NAT
    for i = 1, #tbItemObj do
        local pItem = tbItemObj[i][1];
        pItem.Delete(me);
    end
    --Add số lượng vật phẩm mới vào
    for i=1,5 do
    local pItemEx = me.AddItem(18, 1, 1286, 1);--nhận được 5 rương 100 tiền du long
    end
end
----------------------------- 

Có ai có thể phát triển nó lên thành 2 loại vật phẩm đổi thành 1 loại vật phẩm, hoặc ai có scrip sẵn share cho a e với, như thế viết scrip event sẽ thú vị hơn nhiều. Thân

Cho mình hỏi script này chỉnh sao để đổi 5 vật phẩm chỉ được 1 vật phẩm vậy.Giúp mình với...Thanks

Đã tìm ra được.Hi..

for i=1,5 do
local pItemEx = me.AddItem(18, 1, 1286, 1);--nhận được 5 rương 100 tiền du long
end

Thay ''5'' = 1

[nghichtu91]

Cho mình hỏi script này chỉnh sao để đổi 5 vật phẩm chỉ được 1 vật phẩm vậy.Giúp mình với...Thanks

Đã tìm ra được.Hi..




Thay ''5'' = 1

xoa dòng vòng lập for di là được