Share cách fix âm đồng server a3pick bằng Kỳ Trân Các tại túi tân thủ

[obstinate]

Tình hình là từ ngày tham gia diễn đàn tới giờ cũng đã được 1 quãng thời gian khá dài
Những thứ học được thì nhiều, còn những thứ share được thì chưa thấy đâu... hôm nay ngồi rảnh lên viết cái script này giúp những ae dùng server a3pick khắc phục tạm tình trạng âm đồng và tạo 1 shop bán đồ dễ dàng hơn so với Kỳ Trân Các

Đây là menu danh mục shop (tôi lấy ví dụ shop ngựa nha)


function tbGift:KyTranCac2()
local szMsg = "Chọn danh mục ";
local tbOpt = {};
table.insert(tbOpt , {"Shop Ngựa", self.ShopNgua, self});
Dialog:Say(szMsg, tbOpt);
end

function tbGift:ShopNgua()
local szMsg = "Chọn danh mục ";
local tbOpt = {};
table.insert(tbOpt , {"Ngựa Ức Vân", self.NguaUcVan, self});
table.insert(tbOpt , {"Ngựa Phiến Vũ", self.NguaPhienVu, self});
Dialog:Say(szMsg, tbOpt);
end


Đây là giới thiệu chung của vật phẩm đã chọn



function tbGift:NguaUcVan()
local szMsg = "<color=blue>Ngựa Ức Vân<color> - Kháng Tất Cả <color=pink>90<color> - Kỹ Năng Phái <color=pink>+ 2 cấp<color> - Tốc Độ Di Chuyển <color=pink>120%<color> - Phản Đòn Cận Chiến <color=pink>5%<color> - Sinh Lực <color=pink>800<color> - Thể Lực <color=pink>150<color> - Né Tránh <color=pink>150<color> - Cấp Yêu Cầu <color=pink>50<color> - Cấp Trang Bị <color=pink>4<color> - Giá : <color=red>99 Vạn<color> Đồng Thường";
local tbOpt = {};
table.insert(tbOpt , {"Đồng ý", self.YNguaUcVan, self});
Dialog:Say(szMsg, tbOpt);
end

function tbGift:NguaPhienVu()
local szMsg = "<color=blue>Ngựa Phiên Vũ<color> - Kháng Tất Cả <color=pink>60<color> - Kỹ Năng <color=pink>Di Hình Hoán Ảnh 1 Cấp<color> - Tốc Độ Di Chuyển <color=pink>100%<color> - Sinh Lực <color=pink>600<color> - Thể Lực <color=pink>120<color> - Né Tránh <color=pink>100<color> - Cấp Yêu Cầu <color=pink>120<color> - Cấp Trang Bị <color=pink>4<color> - Giá : <color=red>20 Vạn<color> Đồng Thường";
local tbOpt = {};
table.insert(tbOpt , {"Đồng ý", self.YNguaPhienVu, self});
Dialog:Say(szMsg, tbOpt);
end

Đây là code kiểm tra số đồng có trong tài khoản hoặc ô trống hành trang không đủ và trừ tiền rồi add vật phẩm



function tbGift:YNguaPhienVu()
local nCoin = me.GetJbCoin()
if nCoin < 200000 or me.CountFreeBagCell() < 1 then
local szMsg = "Bạn không đủ tiền hoặc không đủ ô trống trong hành trang";
local tbOpt = {};
table.insert(tbOpt , {"Thoát"});
Dialog:Say(szMsg, tbOpt);
else if nCoin >= 200000 then
me.AddItem(1,12,33,4)
me.AddJbCoin(-200000);
end
end
end

function tbGift:YNguaUcVan()
local nCoin = me.GetJbCoin()
if nCoin < 990000 or me.CountFreeBagCell() < 1 then
local szMsg = "Bạn không đủ tiền hoặc không đủ ô trống trong hành trang";
local tbOpt = {};
table.insert(tbOpt , {"Thoát"});
Dialog:Say(szMsg, tbOpt);
else if nCoin >= 990000 then
me.AddItem(1,12,47,4)
me.AddJbCoin(-990000);
end
end
end


Không biết mình viết thế này có dễ hiểu không nữa, các thành viên mới tham gia box Kiếm Thế nếu không hiểu thì PM nick Y!H ở chữ ký nhé, mình sẽ hướng dẫn chi tiết hơn nữa

[dodt.1306]

em hiểu hàm của bác...nhưng ko hiểu cách áp dụng.....
em ko biết nói kiểu gì cho bác hiểu...............

[satthupro95]

em hiểu hàm của bác...nhưng ko hiểu cách áp dụng.....
em ko biết nói kiểu gì cho bác hiểu...............

Hàm này giống như kiểu bạn tạo ra 1 function bán đồ = đồng thường chứ không phải bán đồ = bạc hoặc bạc khóa như các shop bthg` ^^