Share Script đổi Trang Bị Pet

[kiemthett054]

[Only registered and activated users can see links. ] em choi ban nay ma em copy va lam t theo bac vipbk ma ko dc huong dan lai em voi bac oi



Lần sau nhớ viết Tiếng Việt có dấu !

[kiemthett054]

[Only registered and activated users can see links. ] em chơi bản này muốn add đc ko các bác làm thế nào ai chỉ em với thank cac bac trc

[kakaken2071]

function tbTrangBiDongHanhoiDo()
local szMsg = "<color=wheat>Xin hãy chọn vật phẩm cần đổi:<color>";
local tbOpt=
{
{"<color=yellow>Đổi lấy Đơn Tâm Chiến Y<color>",self.DoiAo,self};
{"<color=yellow>Đổi lấy Đơn Tâm Hộ Thân Phù<color>",self.DoiPhu,self};
{"<color=yellow>Đổi lấy Đơn Tâm Chi Nhẫn<color>",self.DoiVK,self};
{"<color=yellow>Đổi lấy Đan Tâm Hộ Uyển<color>",self.DoiHoUyen,self};
{"<color=yellow>Đổi lấy Đơn Tâm Giới Chỉ<color>",self.DoiNhan,self};
};
Dialog:Say(szMsg, tbOpt);
end
function tbTrangBiDongHanhoiAo()
local nMyMoney = me.nCashMoney; --GetCash();
local tbItemId2 = {18,1,943,1,0,0};
local tbItemId3 = {18,1,946,1,0,0};
local tbItemId4 = {18,1,949,1,0,0};
local tbItemId5 = {18,1,1239,1,0,0};
local tbItemId6 = {18,1,1242,1,0,0};
local nCount2 = me.GetItemCountInBags(18,1,943,1);
local nCount3 = me.GetItemCountInBags(18,1,946,1);
local nCount4 = me.GetItemCountInBags(18,1,949,1);
local nCount5 = me.GetItemCountInBags(18,1,1239,1);
local nCount6 = me.GetItemCountInBags(18,1,1242,1);

-- if (nMyMoney < 50000) then
-- Dialog:Say("Không đủ 5 Vạn Lượng, có đủ rồi hãy quay lại.");
-- return 0;
-- end
if nCount2 < 1 or nCount3 < 1 or nCount4 < 1 or nCount5 < 1 or nCount6 < 1 then
Dialog:Say("<color=wheat>Trong hành trang của bạn không có đủ vật phẩm ta cần:<color>\n<color=yellow>+Mảnh Đơn Tâm Chi Nhẫn\n+Mảnh Đơn Tâm Hộ Thân Phù\n+Mảnh Đơn Tâm Chiến Y\n+ MảnhĐan Tâm Giới Chỉ\n+Mảnh Đan Tâm Hộ Uyển<color><color>");
return 0;
else
TaskelItem(me, tbItemId2, 1);
TaskelItem(me, tbItemId3, 1);
TaskelItem(me, tbItemId4, 1);
TaskelItem(me, tbItemId5, 1);
TaskelItem(me, tbItemId6, 1);
me.AddItem(5,20,1,3).Bind(1);
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>" ..me.szName.. "<color> đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng !"});
me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName
.. "<color>] đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng");
Dialog:Say("<color=wheat>Chúc mừng ngươi đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng<color>", {"Cảm ơn !"});
-- me.CostMoney(50000,0);
end
end
function tbTrangBiDongHanhoiPhu()
local nMyMoney = me.nCashMoney; --GetCash();
local tbItemId2 = {18,1,943,1,0,0};
local tbItemId3 = {18,1,946,1,0,0};
local tbItemId4 = {18,1,949,1,0,0};
local tbItemId5 = {18,1,1239,1,0,0};
local tbItemId6 = {18,1,1242,1,0,0};
local nCount2 = me.GetItemCountInBags(18,1,943,1);
local nCount3 = me.GetItemCountInBags(18,1,946,1);
local nCount4 = me.GetItemCountInBags(18,1,949,1);
local nCount5 = me.GetItemCountInBags(18,1,1239,1);
local nCount6 = me.GetItemCountInBags(18,1,1242,1);
-- if (nMyMoney < 50000) then
-- Dialog:Say("Không đủ 5 Vạn Lượng, có đủ rồi hãy quay lại.");
-- return 0;
-- end
if nCount2 < 1 or nCount3 < 1 or nCount4 < 1 or nCount5 < 1 or nCount6 < 1 then
Dialog:Say("<color=wheat>Trong hành trang của bạn không có đủ vật phẩm ta cần:<color>\n<color=yellow>+Mảnh Đơn Tâm Chi Nhẫn\n+Mảnh Đơn Tâm Hộ Thân Phù\n+Mảnh Đơn Tâm Chiến Y\n+ MảnhĐan Tâm Giới Chỉ\n+Mảnh Đan Tâm Hộ Uyển<color><color>");
return 0;
else
TaskelItem(me, tbItemId2, 1);
TaskelItem(me, tbItemId3, 1);
TaskelItem(me, tbItemId4, 1);
TaskelItem(me, tbItemId5, 1);
TaskelItem(me, tbItemId6, 1);
me.AddItem(5,23,1,3).Bind(1);
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>" ..me.szName.. "<color> đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Hộ Thân Phù xin chúc mừng !"});
me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName
.. "<color>] đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Hộ Thân Phù xin chúc mừng !");
Dialog:Say("<color=wheat>Chúc mừng ngươi đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Hộ Thân Phù xin chúc mừng !<color>", {"Cảm ơn !"});
-- me.CostMoney(50000,0);
end
end
function tbTrangBiDongHanhoiVK()
local nMyMoney = me.nCashMoney; --GetCash();
local tbItemId2 = {18,1,943,1,0,0};
local tbItemId3 = {18,1,946,1,0,0};
local tbItemId4 = {18,1,949,1,0,0};
local tbItemId5 = {18,1,1239,1,0,0};
local tbItemId6 = {18,1,1242,1,0,0};
local nCount2 = me.GetItemCountInBags(18,1,943,1);
local nCount3 = me.GetItemCountInBags(18,1,946,1);
local nCount4 = me.GetItemCountInBags(18,1,949,1);
local nCount5 = me.GetItemCountInBags(18,1,1239,1);
local nCount6 = me.GetItemCountInBags(18,1,1242,1);

-- if (nMyMoney < 50000) then
-- Dialog:Say("Không đủ 5 Vạn Lượng, có đủ rồi hãy quay lại.");
-- return 0;
-- end
if nCount2 < 1 or nCount3 < 1 or nCount4 < 1 or nCount5 < 1 or nCount6 < 1 then
Dialog:Say("<color=wheat>Trong hành trang của bạn không có đủ vật phẩm ta cần:<color>\n<color=yellow>+Mảnh Đơn Tâm Chi Nhẫn\n+Mảnh Đơn Tâm Hộ Thân Phù\n+Mảnh Đơn Tâm Chiến Y\n+ MảnhĐan Tâm Giới Chỉ\n+Mảnh Đan Tâm Hộ Uyển<color><color>");
return 0;
else
TaskelItem(me, tbItemId2, 1);
TaskelItem(me, tbItemId3, 1);
TaskelItem(me, tbItemId4, 1);
TaskelItem(me, tbItemId5, 1);
TaskelItem(me, tbItemId6, 1);
me.AddItem(5,19,1,3).Bind(1);
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>" ..me.szName.. "<color> đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng !"});
me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName
.. "<color>] đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng");
Dialog:Say("<color=wheat>Chúc mừng ngươi đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng<color>", {"Cảm ơn !"});
-- me.CostMoney(50000,0);
end
end

function tbTrangBiDongHanhoiHoUyen()
local nMyMoney = me.nCashMoney; --GetCash();
local tbItemId2 = {18,1,943,1,0,0};
local tbItemId3 = {18,1,946,1,0,0};
local tbItemId4 = {18,1,949,1,0,0};
local tbItemId5 = {18,1,1239,1,0,0};
local tbItemId6 = {18,1,1242,1,0,0};
local nCount2 = me.GetItemCountInBags(18,1,943,1);
local nCount3 = me.GetItemCountInBags(18,1,946,1);
local nCount4 = me.GetItemCountInBags(18,1,949,1);
local nCount5 = me.GetItemCountInBags(18,1,1239,1);
local nCount6 = me.GetItemCountInBags(18,1,1242,1);

-- if (nMyMoney < 50000) then
-- Dialog:Say("Không đủ 5 Vạn Lượng, có đủ rồi hãy quay lại.");
-- return 0;
-- end
if nCount2 < 1 or nCount3 < 1 or nCount4 < 1 or nCount5 < 1 or nCount6 < 1 then
Dialog:Say("<color=wheat>Trong hành trang của bạn không có đủ vật phẩm ta cần:<color>\n<color=yellow>+Mảnh Đơn Tâm Chi Nhẫn\n+Mảnh Đơn Tâm Hộ Thân Phù\n+Mảnh Đơn Tâm Chiến Y\n+ MảnhĐan Tâm Giới Chỉ\n+Mảnh Đan Tâm Hộ Uyển<color><color>");
return 0;
else
TaskelItem(me, tbItemId2, 1);
TaskelItem(me, tbItemId3, 1);
TaskelItem(me, tbItemId4, 1);
TaskelItem(me, tbItemId5, 1);
TaskelItem(me, tbItemId6, 1);
me.AddItem(5,22,1,3).Bind(1);
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>" ..me.szName.. "<color> đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đam Tâm Giới Chỉ xin chúc mừng !"});
me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName
.. "<color>] đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng");
Dialog:Say("<color=wheat>Chúc mừng ngươi đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng<color>", {"Cảm ơn !"});
-- me.CostMoney(50000,0);
end
end
function tbTrangBiDongHanhoiNhan()
local nMyMoney = me.nCashMoney; --GetCash();
local tbItemId2 = {18,1,943,1,0,0};
local tbItemId3 = {18,1,946,1,0,0};
local tbItemId4 = {18,1,949,1,0,0};
local tbItemId5 = {18,1,1239,1,0,0};
local tbItemId6 = {18,1,1242,1,0,0};
local nCount2 = me.GetItemCountInBags(18,1,943,1);
local nCount3 = me.GetItemCountInBags(18,1,946,1);
local nCount4 = me.GetItemCountInBags(18,1,949,1);
local nCount5 = me.GetItemCountInBags(18,1,1239,1);
local nCount6 = me.GetItemCountInBags(18,1,1242,1);

-- if (nMyMoney < 50000) then
-- Dialog:Say("Không đủ 5 Vạn Lượng, có đủ rồi hãy quay lại.");
-- return 0;
-- end
if nCount2 < 1 or nCount3 < 1 or nCount4 < 1 or nCount5 < 1 or nCount6 < 1 then
Dialog:Say("<color=wheat>Trong hành trang của bạn không có đủ vật phẩm ta cần:<color>\n<color=yellow>+Mảnh Đơn Tâm Chi Nhẫn\n+Mảnh Đơn Tâm Hộ Thân Phù\n+Mảnh Đơn Tâm Chiến Y\n+ MảnhĐan Tâm Giới Chỉ\n+Mảnh Đan Tâm Hộ Uyển<color><color>");
return 0;
else
TaskelItem(me, tbItemId2, 1);
TaskelItem(me, tbItemId3, 1);
TaskelItem(me, tbItemId4, 1);
TaskelItem(me, tbItemId5, 1);
TaskelItem(me, tbItemId6, 1);
me.AddItem(5,21,1,3).Bind(1);
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>" ..me.szName.. "<color> đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng !"});
me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName
.. "<color>] đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng");
Dialog:Say("<color=wheat>Chúc mừng ngươi đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng<color>", {"Cảm ơn !"});
-- me.CostMoney(50000,0);
end
end

Tình hình là bác nào có thể giải thích giùm mình đoạn code này được không.
bạn ý có gì là 5 mảnh đổi được vật phẩm. Nhưng khi mình cho 100 mảnh 1 loại (trong túi chỉ có 1 loại) thì báo lỗi không đủ vật phẩm.
Sau đó mình add cả 5 loại vào thì không báo lỗi nữa. Nhưng khi đổi vật phẩm thì lại trừ mỗi loại 1 mảnh ghép và không thấy đồ pet đâu

[kakaken2071]

function tbTrangBiDongHanhoiVK()
local nMyMoney = me.nCashMoney; --GetCash();
local tbItemId2 = {18,1,943,1,0,0};
local nCount2 = me.GetItemCountInBags(18,1,943,1);
-- if (nMyMoney < 50000) then
-- Dialog:Say("Không đủ 5 Vạn Lượng, có đủ rồi hãy quay lại.");
-- return 0;
-- end
if nCount2 < 5 then
Dialog:Say("<color=wheat>Trong hành trang của bạn không có đủ vật phẩm ta cần:<color>\n<color=yellow>+Mảnh Đơn Tâm Chi Nhẫn\n+Mảnh Đơn Tâm Hộ Thân Phù\n+Mảnh Đơn Tâm Chiến Y\n+ MảnhĐan Tâm Giới Chỉ\n+Mảnh Đan Tâm Hộ Uyển<color><color>");
return 0;
else
TaskelItem(me, tbItemId2, 5);
me.AddItem(5,19,1,3).Bind(1);
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>" ..me.szName.. "<color> đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng !"});
me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName
.. "<color>] đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng");
Dialog:Say("<color=wheat>Chúc mừng ngươi đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng<color>", {"Cảm ơn !"});
-- me.CostMoney(50000,0);
end
end

Tình hình là mình đã sửa lại đoạn đổi vũ khí của bạn í thành như thế này
Khi đổi đã trừ đúng 5 mảnh vũ khí. Nhưng vẫn không thấy vật phẩm đâu, Cũng chẳng thấy thông báo gì.
Có phải nó chạy tới TaskelItem(me, tbItemId2, 5); thì dừng lại không?
Cho mình hỏi ID của Đơn Tâm Chiến Nhẫn có phải là 5,19,1,3 không và Bind(1) có nghĩa là gì.
Không biết code có vấn đề hay tại sv của mình chưa có vật phẩm đó

[kiemthett054]

ai cho em hỏi em dùng sever của bac Satthupro95 em muốn add trang bị pet nhứng mà ko biết làm bác nào chỉ dẫn giùm em với

[vipbk]

ai cho em hỏi em dùng sever của bac Satthupro95 em muốn add trang bị pet nhứng mà ko biết làm bác nào chỉ dẫn giùm em với

dùng hàm me.AddItem như bt, mà gs server đó không hỗ trợ trang bị pet

[kakaken2071]

dùng hàm me.AddItem như bt, mà gs server đó không hỗ trợ trang bị pet

Cho mình hỏi là mấy cái server bản 2.4 hay 2.5 2.6 gì đấy có ai share miễn phí không vậy.

[lordpotter]

AI có cái server nào có trang bị pet k.share mình với.

[vipbk]

AI có cái server nào có trang bị pet k.share mình với.

[Only registered and activated users can see links. ]
hoặc
[Only registered and activated users can see links. ]

[linhpl2001]

function tbTrangBiDongHanhoiVK()
local nMyMoney = me.nCashMoney; --GetCash();
local tbItemId2 = {18,1,943,1,0,0};
local nCount2 = me.GetItemCountInBags(18,1,943,1);
-- if (nMyMoney < 50000) then
-- Dialog:Say("Không đủ 5 Vạn Lượng, có đủ rồi hãy quay lại.");
-- return 0;
-- end
if nCount2 < 5 then
Dialog:Say("<color=wheat>Trong hành trang của bạn không có đủ vật phẩm ta cần:<color>\n<color=yellow>+Mảnh Đơn Tâm Chi Nhẫn\n+Mảnh Đơn Tâm Hộ Thân Phù\n+Mảnh Đơn Tâm Chiến Y\n+ MảnhĐan Tâm Giới Chỉ\n+Mảnh Đan Tâm Hộ Uyển<color><color>");
return 0;
else
TaskelItem(me, tbItemId2, 5);
me.AddItem(5,19,1,3).Bind(1);
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>" ..me.szName.. "<color> đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng !"});
me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName
.. "<color>] đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng");
Dialog:Say("<color=wheat>Chúc mừng ngươi đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng<color>", {"Cảm ơn !"});
-- me.CostMoney(50000,0);
end
end

Tình hình là mình đã sửa lại đoạn đổi vũ khí của bạn í thành như thế này
Khi đổi đã trừ đúng 5 mảnh vũ khí. Nhưng vẫn không thấy vật phẩm đâu, Cũng chẳng thấy thông báo gì.
Có phải nó chạy tới TaskelItem(me, tbItemId2, 5); thì dừng lại không?
Cho mình hỏi ID của Đơn Tâm Chiến Nhẫn có phải là 5,19,1,3 không và Bind(1) có nghĩa là gì.
Không biết code có vấn đề hay tại sv của mình chưa có vật phẩm đó

Bind(1) là khóa vật phẩm đó bạn