Share Script đổi item bẳng nhập số liệu

[anhnhianh]

từ khi gia nhập clbgamesvn e chưa share bao giờ. có 1 ít thời gian nghiên cứu kiếm thế nên e share script đổi item bằng nhập số liệu cho những người chưa biết.
Ưu điểm: nhanh gọn lẹ đỡ cực
Nhược điểm: khi ko đủ item thì nó bị treo chút nhưng ko bị sao cả (cái này e cũng chả biết làm sao)

function tbNpc:nhapsolieu()
Dialog:AskNumber("Nhập số liệu",200,self.ghepdo,self, nSoLuong);
end
function tbNpc:ghepdo(nSoLuong)    
if me.CountFreeBagCell() < nSoLuong then
        Dialog:Say("Không đủ " .. nSoLuong .. " Ô Trống Trong Túi Hành Trang");
        return 0;
    end
-------------------------------------------------
local tbItemId1    = {18,1,558,1,0,0};
local nCount1 = me.GetItemCountInBags(18,1,558,1);
-------------------------------------------------
if nCount1 < nSoLuong then
Dialog:Say("Thích ghi gì thì nhập vào");
return 0;
else
Task:DelItem(me, tbItemId1, nSoLuong);
-------------------------------------------------
me.AddStackItem(18,1,561,1,{bForceBind=1},nSoLuong);
end
end 

trình ko đc cao nên share đc có thế e ko muốn gạch xây nhà đâu ạ

ngoài lề tí có ai dự định mở sever 2.6 thì cho tớ tham gia với nhá buồn quá code thì đc nhưng ko đủ điều kiện mở sever

xem nhớ để lại thanks nhá

[nobitajx2]

script add vật phẩm theo id hình như đã có ở SV nào đó nhưng không nhớ, k biết phải thớt viết script cho SV đó k?

[anhnhianh]

script add vật phẩm theo id hình như đã có ở SV nào đó nhưng không nhớ, k biết phải thớt viết script cho SV đó k?

ở sv nào đó thì tôi ko biết nhưng sv tôi và đa số các sever 2.6 share đều ko có nên mới share cho ae. Còn sv mà bác nói có thì cái đấy tôi ko biết và cũng chả viết cho sv nào cả

[__Jie__]

Lười lập topc góp thêm 1 script .
Code dưới sẽ giải quyết được vấn đề treo máy của chủ topic khi đổi số lượng lớn

function tbNpc:OnDialog()
    local szMsg = "Nhà ngươi muốn cần gì ? ";
    local tbOpt = 
    {

        {"Nộp Tuyết Thảo Đan", self.TuyetThaoDan, self,1},
        {"Nộp 10 Tuyết Thảo Đan", self.TuyetThaoDan, self,10},
        
        {"Kết thúc đối thoại"},
    }

    
    Dialog:Say(szMsg, tbOpt);
end
local tbTuyetThaoDan = {18,1,20392,1};
local tbHuyetThanhLo = {18,1,20392,2};
local tbHoLo = {18,1,20392,3};
function tbNpc:TuyetThaoDan(nValue)
    local nNeedBag = 10;

    if me.CountFreeBagCell() < nNeedBag then
        local szAnnouce = "Hành trang yêu cầu "..nNeedBag.." ô trống";
        Dialog:Say(szAnnouce);
        return 0;    
    end
    Dialog:OpenGift("Hãy đặt vào <color=yellow>" ..(nValue*10).. " Tuyết Thảo Đan và "..nValue.." Hồ Lô<color>", nil ,{self.OnOpenOK, self, nValue});
end
function tbNpc:OnOpenOK(nValue,tbItemObj)
    local bForbidItem = 0;
    local nCount = 0;
    local nCountHL = 0;

    
    for i, pItem in pairs(tbItemObj) do
        if (pItem[1].nGenre == tbTuyetThaoDan[1] and
            pItem[1].nDetail == tbTuyetThaoDan[2] and
            pItem[1].nParticular == tbTuyetThaoDan[3] and
            pItem[1].nLevel == tbTuyetThaoDan[4]) then
            nCount = nCount + pItem[1].nCount;    
        elseif     (pItem[1].nGenre == tbHoLo[1] and
            pItem[1].nDetail == tbHoLo[2] and
            pItem[1].nParticular == tbHoLo[3] and
            pItem[1].nLevel == tbHoLo[4]) then
            nCountHL = nCountHL + pItem[1].nCount;            
        else
            bForbidItem = 1;
            break;
        end
    end
    if (bForbidItem > 0) then
        Dialog:Say("Nguyên liệu đưa vào không phải nguyên liêu sự kiện");
        return 0;
    end
    if (nCount ~= (nValue*10)) or (nCountHL ~= nValue)  then
        Dialog:Say("Hãy đặt vào <color=yellow>" ..(nValue*10).. " Tuyết Thảo Đan và "..nValue.." Hồ Lô<color>");
        return 0;    
    end
    for _, pItem in pairs(tbItemObj) do
        if me.DelItem(pItem[1]) ~= 1 then
            return 0;
        end
    end
    me.AddStackItem(18,1,20392,4,nil,nValue);
        return 1;
end 

[anhnhianh]

Lười lập topc góp thêm 1 script .
Code dưới sẽ giải quyết được vấn đề treo máy của chủ topic khi đổi số lượng lớn

code của pro hơi phức tạp tí nhỉ

[__Jie__]

code của pro hơi phức tạp tí nhỉ

uhm nhìn cũng khá phức tạp nhưng làm quen rồi nó cũng dể thôi

[anhnhianh]

uhm nhìn cũng khá phức tạp nhưng làm quen rồi nó cũng dể thôi

cái này tbItemObj với bForbidItem nghĩa là gì vậy?

[NhanVT]

bForbidItem chỉ là check Nguyên liệu đưa vào có phải là nguyên liêu sự kiện sự kiện hay ko thui, đặt cho dễ quản lý, ncheck, bCheckOK,...
Mấy cái srcript dạng này có nhiều trong \script\event

[thuannd203]

từ khi gia nhập clbgamesvn e chưa share bao giờ. có 1 ít thời gian nghiên cứu kiếm thế nên e share script đổi item bằng nhập số liệu cho những người chưa biết.
Ưu điểm: nhanh gọn lẹ đỡ cực
Nhược điểm: khi ko đủ item thì nó bị treo chút nhưng ko bị sao cả (cái này e cũng chả biết làm sao)

function tbNpc:nhapsolieu()
Dialog:AskNumber("Nhập số liệu",200,self.ghepdo,self, nSoLuong);
end
function tbNpc:ghepdo(nSoLuong)    
if me.CountFreeBagCell() < nSoLuong then
        Dialog:Say("Không đủ " .. nSoLuong .. " Ô Trống Trong Túi Hành Trang");
        return 0;
    end
-------------------------------------------------
local tbItemId1    = {18,1,558,1,0,0};
local nCount1 = me.GetItemCountInBags(18,1,558,1);
-------------------------------------------------
if nCount1 < nSoLuong then
Dialog:Say("Thích ghi gì thì nhập vào");
return 0;
else
Task:DelItem(me, tbItemId1, nSoLuong);
-------------------------------------------------
me.AddStackItem(18,1,561,1,{bForceBind=1},nSoLuong);
end
end 

trình ko đc cao nên share đc có thế e ko muốn gạch xây nhà đâu ạ

ngoài lề tí có ai dự định mở sever 2.6 thì cho tớ tham gia với nhá buồn quá code thì đc nhưng ko đủ điều kiện mở sever

xem nhớ để lại thanks nhá

Không biết có phải ko, nhưng hình như những code nhập số liệu, nếu đang mở auto pk sẽ nhập full số

[satthupro95]

Dùng autoPk sẽ nhập full số nhé :3