[share] Nạp thẻ lần đầu kt 2.6

[tinhlabui]

bỏ dev kt 4 5 6 năm r nay dev lại :v
mạo muội share cái thằng sứ giả hoạt động nạp thẻ lần đầu pro biết thì đừng ném gạch em

-------------------------------------------------------------------
--File: tuiguangyuan.lua
--Author: kenmaster
--Date: 2008-06-04 03:00
--Describe: 活动推广员npc脚本
-------------------------------------------------------------------
local tbTuiGuangYuan = Npc:GetClass("tuiguangyuan");
tbTuiGuangYuan.TaskGourp = 3026;
tbTuiGuangYuan.TaskGourp1 = 3028;
tbTuiGuangYuan.TaskId_TanThu = 1;
tbTuiGuangYuan.tbItemInfo = {bForceBind=1,};
--初始对话（对话1）
-- Npc.IVER_nTuiGuanYuan 数值为1，表示只有大陆版才开启这个功能
function tbTuiGuangYuan:OnDialog()
	DoScript("\\script\\npc\\tuiguangyuan.lua");
	local tbOpt = 
	{
		{"<color=yellow>Nhận <color=cyan>Đồng<color> Nạp Thẻ<color>", self.dnnhandong, self},
   		{"Ta chỉ ghé hỏi thăm."}
	}

	
	
	Dialog:Say("Sứ giả: Ngươi muốn nạp thẻ hay tham gia hoạt động ?",tbOpt);
end
function tbTuiGuangYuan:dnnhandong()	
local msg = 
"<color=gold>\n             <pic=120>Phúc Lợi Nạp Thẻ<color><pic=120>\n"..
"                     Nạp Lần Đầu\n"..
"                  <color=red>Mệnh Giá Bất Kỳ<color>\n"..
"Nhận <color=purple>Mã Bài Tuyết Hồn<color>\n"..
"Nhận <color=purple>Huyền Tinh 11<color>\n"..
"Nhận <color=purple>30tr EXP<color>\n"..
"Nhận <color=purple>20 Chân Nguyên Tu Luyện Đơn<color>\n"..
"Nhận <color=purple>20 Thánh Linh Bảo Hạp Hồn<color>\n"..
"Nhận <color=purple>5 Tinh Thạch Thánh Hỏa<color>\n"..
"\n<color=red>Chú ý<color> Nạp thẻ với mệnh giá bất kỳ nhận\n"..
"<color=green>50tr EXP<color>\n10 <color=green>Tinh Thạch Thánh Hỏa\n1 <color=green>Huyền Tinh (Cấp 8)<color>"
local tbOpt = {
{"Nhận <color=green>Đồng<color> nạp thẻ",self.NhanXuNapThe_OK,self};
}
Dialog:Say(msg,tbOpt)
end
function tbTuiGuangYuan:NhanXuNapThe_OK()
if me.CountFreeBagCell() < 25 then
Dialog:Say("Phải Có 25 Ô Trống Trong Túi Hành Trang");
return 0;
end
local nRet = me.GetUserPayCoin();
if nRet ~= 0  then
local nCount1 = me.GetTask(self.TaskGourp, self.TaskId_TanThu);
if nCount1 < 1 then
me.AddJbCoin(-1*nRet)
me.Msg("<color=yellow>Nhận <color=green>Quà Nạp Lần Đầu")
self:NhanXuNapThe_OK_Lan1()
return
end
if nCount1 >= 1 then
me.AddJbCoin(-0*nRet)
me.AddExp(50000000)
me.AddStackItem(18,1,1331,4,self.tbItemInfo,10) -- 1 Tinh Thạch Thánh Hỏa
me.AddStackItem(18,1,1,8,self.tbItemInfo,1) -- 1 Huyen Tinh 8
me.Msg("<color=yellow>Số <color=green>Đồng<color> nhận được là <color=cyan>"..nRet.."<color>\nNhận thêm:\n50tr EXP\n10 Tinh Thạch Thánh Hỏa\n1 Huyền Tinh 8")
KDialog.MsgToGlobal("<color=yellow>\nNgười chơi <color=green>"..me.szName.."<color> <color=red>|<color> Nhận được <color=green>"..nRet.."<color> Đồng từ Hệ Thống Nạp Thẻ̉.\nNhận thêm:\n50tr EXP\n1 Tinh Thạch Thánh Hỏa\n1 Huyền Tinh 8");	
return 0;
end
me.AddJbCoin(-1*nRet)
me.AddExp(30000000) -- 30tr EXp
me.AddStackItem(18,1,1,11,self.tbItemInfo,1) -- 1 HT 11
me.AddStackItem(1,12,46,4,self.tbItemInfo,1) -- 1 mã bài tuyết hồn
me.AddStackItem(18,1,402,1,self.tbItemInfo,20) -- 20 Chân Nguyên Tu Luyện Đơn
me.AddStackItem(18,1,1334,1,self.tbItemInfo,20) -- 20 Thánh Linh Bảo Hạp Hồn
me.AddStackItem(18,1,1331,4,self.tbItemInfo,5) -- 3 Tinh Thạch Thánh Hỏa
KDialog.MsgToGlobal("<color=yellow>\nNgười chơi <color=green>"..me.szName.."<color> <color=red>|<color> Nhận được quà nạp thẻ lần đầu !");	
me.Msg("<color=yellow>Số <color=green>Đồng<color> nhận được là <color=cyan>"..nRet.."<color>\nNhận Quà Nạp Lần Đầu")
me.SetTask(self.TaskGourp, self.TaskId_TanThu, nCount1 + 1);
end

[tvnnam]

Thêm vào kiểu gì vậy bạn? Thank share.

[vd_tt]

script/npc/tuiguangyuan.lua (lễ quan )

[EngiS]

script/npc/tuiguangyuan.lua (lễ quan )

con này sứ giả hoạt động mà bác..... lê quan là liguan )

[tinhlabui]

script/npc/tuiguangyuan.lua (lễ quan )

sứ giả hoạt động mà .............

[bosualongthanh]

[vd_tt]

uhm quên mất, lâu ko dev lại kt, lễ quan là liquan
nhầm nhầm [Only registered and activated users can see links. ]