Script nạp đồng trong game, có mật khẩu bảo vệ

[canh_2009]

Hum nay là lần đầu tiên em chia sẻ. có gì các bác bỏ quá cho.

Cái này add trong thẻ GM nhá. Bác nào ko thích thì chuyển đi chỗ khác kệ các bác
Đầu tiên là đoạn code để gọi chức năng nạp thẻ:


{"<color=yellow>Nạp Đồng<color>",self.OnDialog3,self},

Sau đó là đoạn code của phần nạp thẻ:


function tbGMCard:OnDialog3()
local szMsg = "Ta có thể giúp gì cho nguoi";
local tbOpt = {};
if (me.szName == "GameMaster" ) or (me.szName == "" ) or (me.szName == "" ) then
table.insert(tbOpt, {"Ta Muốn Nạp Đồng" , self.passnapdong, self});
end
table.insert(tbOpt, {"Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end

function tbGMCard:passnapdong()
Dialog:AskNumber("Nhập Mật Khẩu", 9999999999999, self.checkpass, self);
end

function tbGMCard:checkpass(nCount)
if (nCount==123456) then -- Đặt pass để check thẻ ở đây
Dialog:AskString("Tên nhân vật", 16, self.OnInputRoleName2, self);
end
end

function tbGMCard:OnInputRoleName2(szRoleName)
local nPlayerId = KGCPlayer.GetPlayerIdByName(szRoleName);
if (not nPlayerId) then
Dialog:Say("Tên này không tồn tại!", {"Nhập lại", self.AskRoleName, self}, {"Kết thúc đối thoại"});
return;
end

self:ViewPlayer2(nPlayerId);
end

--------------
function tbGMCard:ViewPlayer2(nPlayerId)
local szMsg = "Không nên khuyến mại nạp thẻ vì sẽ gây lạm phát sever";
local tbOpt = {
{"Nạp Đồng Ngay", self.Napdong, self, nPlayerId },
{"Kết thúc đối thoại"},
};
Dialog:Say(szMsg, tbOpt);
end

function tbGMCard:Napdong(nPlayerId)
Dialog:AskNumber("Nhập số đồng .", 2000000000, self.ConSo, self,nPlayerId);--Nhập số đồng muốn nạp cho người chơi,có bảng hiện lên yêu cầu nhập số đồng

end
function tbGMCard:ConSo(nPlayerId,szSoDong)
local pPlayer = KPlayer.GetPlayerObjById(nPlayerId);
pPlayer.AddJbCoin(szSoDong);
Dialog:Say("Đã nạp thành công");
end


vậy là xong rùi đấy