Share code add đồng cho nhân vật?

[linhpl2001]

gameserver\script\npc\tuiguangyuan.lua

thank anh vipbk cái cảm ơn nhìu

[nguyenduccu]

ĐÂY LÀ CODE MÌNH LÀM ADD ĐỒNG CHO NHÂN VẬT BẠN MUỐN ADD CHO AI CŨNG DC. MIỄN LÀ NGƯỜI ĐÓ ONLINE TRONG SV. Pro biết rồi thì xin đừng chém em nha
MUỐN ADD DỒNG CHO AI THÌ NHẬP TÊN NHÂN VẬT ĐÓ RỒI ADD VÀO.

MÌNH ADD CODE NÀY VÀO NPC Hỗ Trợ Tân Thủ

local tbTest1 = Npc:GetClass("test1");


function tbTest1:OnDialog()
local szMsg = "Ta có Thể Giúp Gì ?";
local tbOpt = { 
{"Ta Muốn Nạp Đồng", self.Adminmoinapdc, self},
{"Để Ta Suy Nghỉ"},
};
Dialog:Say(szMsg, tbOpt);

-------------
------------
function tbTest1:Adminmoinapdc()


    local szMsg = "Ta có thể giúp gì cho nguoi";
    local tbOpt = {};
    if (me.szName == "AdminServer" ) or (me.szName == "BốMày" ) or (me.szName == "MộngNhư" ) then
    table.insert(tbOpt, {"Chức năng Admin" , self.AskRoleName, self});
    end
    table.insert(tbOpt, {"Ta chỉ ghé ngang qua"});
    Dialog:Say(szMsg, tbOpt);
end

function tbTest1:AskRoleName()
 Dialog:AskString("Tên nhân vật", 16, self.OnInputRoleName, self);
end
function tbTest1:OnInputRoleName(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:ViewPlayer(nPlayerId);
end

--------------
function tbTest1:ViewPlayer(nPlayerId)
 local szMsg = "Ta có thể giúp gì cho ngươi";
 local tbOpt = {
  {"Nạp Đồng Ngay", self.Napdong, self},
  {"Kết thúc đối thoại"},
 };
 Dialog:Say(szMsg, tbOpt);
end

function tbTest1:Napdong() 
me.AddJbCoin(50000) // muốn nạp bao nhiêu chỉnh ở đây
end

Thanks rất nhiều, tớ căn theo cái này làm chức năng VIP trong túi tân thủ :B:B

[babyturtle.vn7]

code này bạn test chưa.mình mạn phép chỉnh sửa một chút cho nó hoàn thiện nhé.theo mình nghĩ là code của bạn sẽ add đồng cho admin đấy

local tbTest1 = Npc:GetClass("test1");


function tbTest1:OnDialog()
local szMsg = "Ta có Thể Giúp Gì ?";
local tbOpt = { 
{"Ta Muốn Nạp Đồng", self.Adminmoinapdc, self},
{"Để Ta Suy Nghỉ"},
};
Dialog:Say(szMsg, tbOpt);

-------------
------------
function tbTest1:Adminmoinapdc()


    local szMsg = "Ta có thể giúp gì cho nguoi";
    local tbOpt = {};
    if (me.szName == "AdminServer" ) or (me.szName == "BốMày" ) or (me.szName == "MộngNhư" ) then
    table.insert(tbOpt, {"Chức năng Admin" , self.AskRoleName, self});
    end
    table.insert(tbOpt, {"Ta chỉ ghé ngang qua"});
    Dialog:Say(szMsg, tbOpt);
end

function tbTest1:AskRoleName()
Dialog:AskString("Tên nhân vật", 16, self.OnInputRoleName, self);
end
function tbTest1:OnInputRoleName(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:ViewPlayer(nPlayerId);
end

--------------
function tbTest1:ViewPlayer(nPlayerId)
local szMsg = "Ta có thể giúp gì cho ngươi";
local tbOpt = {
{"Nạp Đồng Ngay", self.Napdong, self, nPlayerId },
{"Kết thúc đối thoại"},
};
Dialog:Say(szMsg, tbOpt);
end

function tbTest1: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

end
function tbTest1:ConSo(nPlayerId,szSoDong)
    local pPlayer    = KPlayer.GetPlayerObjById(nPlayerId);
pPlayer.AddJbCoin(szSoDong);
end

Lưu ý code này chỉ dùng cho người chơi khác khi người chơi đó ở cùng sub server với mình.Tức là nếu người chơi đó ở Ba Lăng huyện còn admin ở Vân Trung Trấn add không được thì đừng hỏi tại sao nhé.Cách tốt nhất là kéo nó lại gần Admin rồi add.

bác trantoai ơi cho em xin cái code mà nhận đồng nạp thẻ đi, em làm hoài mà ko được
code em đây ạ

-------------------------------------------------------------------
local tbTuiGuangYuan = Npc:GetClass("tuiguangyuan");

--ʼԻԻ1
-- Npc.IVER_nTuiGuanYuan ֵΪ1ʾֻд½ſ
function tbTuiGuangYuan:OnDialog()
	
	local tbOpt = 
	{
		{"Nhận đồng nạp thẻ!", self.napthe,self},
   		{"Ngươi nhầm ta với ai rồi"},
	}
	
	Dialog:Say("Cổ Phong Hà: Vị đại hiệp này đã gặp qua ở đâu rồi? Rất quen, nhất thời ta không nhớ ra...",tbOpt);
end
function tbTuiGuangYuan: napthe()
	table.insert(tbOpt, 1, {"Kiểm chứng mã kích hoạt", PresendCard.MyCoinCheck, PresendCard});
	me.AddJbCoin(MycoinCheck);
end

[dknythanh]

nPlayerId.AddJbCoin cái này sai nó báo lỗi là phải rồi.bạn dùng code mình đã edit lại đi

local tbTest1 = Npc:GetClass("test1");


function tbTest1:OnDialog()
local szMsg = "Ta có Thể Giúp Gì ?";
local tbOpt = { 
{"Ta Muốn Nạp Đồng", self.Adminmoinapdc, self},
{"Để Ta Suy Nghỉ"},
};
Dialog:Say(szMsg, tbOpt);

-------------
------------
function tbTest1:Adminmoinapdc()


    local szMsg = "Ta có thể giúp gì cho nguoi";
    local tbOpt = {};
    if (me.szName == "AdminServer" ) or (me.szName == "BốMày" ) or (me.szName == "MộngNhư" ) then
    table.insert(tbOpt, {"Chức năng Admin" , self.AskRoleName, self});
    end
    table.insert(tbOpt, {"Ta chỉ ghé ngang qua"});
    Dialog:Say(szMsg, tbOpt);
end

function tbTest1:AskRoleName()
Dialog:AskString("Tên nhân vật", 16, self.OnInputRoleName, self);
end
function tbTest1:OnInputRoleName(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:ViewPlayer(nPlayerId);
end

--------------
function tbTest1:ViewPlayer(nPlayerId)
local szMsg = "Ta có thể giúp gì cho ngươi";
local tbOpt = {
{"Nạp Đồng Ngay", self.Napdong, self, nPlayerId },
{"Kết thúc đối thoại"},
};
Dialog:Say(szMsg, tbOpt);
end

function tbTest1: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

end
function tbTest1:ConSo(nPlayerId,szSoDong)
    local pPlayer    = KPlayer.GetPlayerObjById(nPlayerId);
pPlayer.AddJbCoin(szSoDong);
end

anh cho em hỏi add code này vào chỗ nào thế

[vipbk]

anh cho em hỏi add code này vào chỗ nào thế

bạn add vào NPC nào cũng dc, sau đó phải đổi tbTest1 cho đúng
ví dụ add vào Lễ Quan: gameserver\script\npc\liguan.lua

sửa lại tbTest1 thành tbLiGuan

[dknythanh]

bạn add vào NPC nào cũng dc, sau đó phải đổi tbTest1 cho đúng
ví dụ add vào Lễ Quan: gameserver\script\npc\liguan.lua

sửa lại tbTest1 thành tbLiGuan

Em muốn cho zô chức năng GM Admin thỳ bỏ zô đâu anh

[vipbk]

thẻ gm: gameserver\script\item\class\gmcard.lua

[sitachi]

tặng 1 vật phẩm cho nhân vật thì thêm ra sao vậy các pác

[vipbk]

xem code của MOD trantoai223, đổi hàm add đồng thành add vật phẩm

[ThienSauMenh]

ĐÂY LÀ CODE MÌNH LÀM ADD ĐỒNG CHO NHÂN VẬT BẠN MUỐN ADD CHO AI CŨNG DC. MIỄN LÀ NGƯỜI ĐÓ ONLINE TRONG SV. Pro biết rồi thì xin đừng chém em nha
MUỐN ADD DỒNG CHO AI THÌ NHẬP TÊN NHÂN VẬT ĐÓ RỒI ADD VÀO.

MÌNH ADD CODE NÀY VÀO NPC Hỗ Trợ Tân Thủ

local tbTest1 = Npc:GetClass("test1");


function tbTest1:OnDialog()
local szMsg = "Ta có Thể Giúp Gì ?";
local tbOpt = { 
{"Ta Muốn Nạp Đồng", self.Adminmoinapdc, self},
{"Để Ta Suy Nghỉ"},
};
Dialog:Say(szMsg, tbOpt);

-------------
------------
function tbTest1:Adminmoinapdc()


	local szMsg = "Ta có thể giúp gì cho nguoi";
	local tbOpt = {};
	if (me.szName == "AdminServer" ) or (me.szName == "BốMày" ) or (me.szName == "MộngNhư" ) then
	table.insert(tbOpt, {"Chức năng Admin" , self.AskRoleName, self});
	end
	table.insert(tbOpt, {"Ta chỉ ghé ngang qua"});
	Dialog:Say(szMsg, tbOpt);
end

function tbTest1:AskRoleName()
 Dialog:AskString("Tên nhân vật", 16, self.OnInputRoleName, self);
end
function tbTest1:OnInputRoleName(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:ViewPlayer(nPlayerId);
end

--------------
function tbTest1:ViewPlayer(nPlayerId)
 local szMsg = "Ta có thể giúp gì cho ngươi";
 local tbOpt = {
  {"Nạp Đồng Ngay", self.Napdong, self},
  {"Kết thúc đối thoại"},
 };
 Dialog:Say(szMsg, tbOpt);
end

function tbTest1:Napdong() 
me.AddJbCoin(50000) // muốn nạp bao nhiêu chỉnh ở đây
end

Mình muốn lấy tên nhân vật và số đồng từ database vào thì viết thế nào vậy bạn??