Share giftcode kiếm thế

[bosualongthanh]

cái giftcode này làm cũng chỉ cho zui thôi, cha co j hot =))

Hướng dẫn sử dụng :D

<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>




------------------------------------------
---Giftcode____________________lua
------------------------------------------
local tbActivityCode = Npc:GetClass("activityCode");

tbActivityCode.TASK_MAIN_NEICE=2400
tbActivityCode.NEICE_ID=150 --TAKS Le Bao Bò sữa

function tbActivityCode:ActiveGift()

local szMsg = [[
<color=yellow>Mã kích hoạt hệ thống<color>

Giang Hồ tuy xa, có ngươi không cô đơn

1, <color=wood>*Đại Lễ Bao*: Bò sữa<color>
2, <color=wood>...<color>
3, <color=wood>...<color>
]];
local tbOpt = {

{"Bò sữa *Đại Lễ Bao* kích hoạt", self.MyGSCheck1, self},
{"Trở về trang trước", self.BackDialog, self},
{"Kết thúc đối thoại"},
};
Dialog:Say(szMsg, tbOpt);
end

function tbActivityCode:BackDialog()
local tbTuiGuangYuan = Npc:GetClass("tuiguangyuan");
tbTuiGuangYuan:OnDialog();
end

--CODE
function tbActivityCode:MyGSCheck1(nFlag, szCDKey)

local keyflag = me.GetTask(self.TASK_MAIN_NEICE,self.NEICE_ID);

local szCDKeyNum=tonumber(szCDKey);
if (keyflag ~= 0) then
Dialog:Say("Ngươi đã kích hoạt tuyên truyền phần thưởng.");
return;
end


if not nFlag then
Dialog:AskString("Xin nhập mã quà tặng: ", 12, self.MyGSCheck1, self, 1);
return 0;
end


if (nFlag ~= 1) then
return 0;
end
if (me.CountFreeBagCell() < 1) then
Dialog:Say("Hành trang không đủ trống, cần 1 ô trống.");
return;
end
if not szCDKey or szCDKey == "" or string.len(szCDKey) ~= 12 then
me.Msg(szCDKey);
Dialog:Say("Nhập vào mã quà tặng vô hiệu!");
return 0;
end

local a=self:findCdkey1(szCDKeyNum);

if a=="no" then
Dialog:Say("Mã quà tặng vô hiệu hoặc đã sử dụng, <color=red>Mã quà tặng nhận tại trang chủ<color>!");
else
if (a == szCDKeyNum) then
local GB_flag =KGblTask.SCGetDbTaskInt(a);
if (GB_flag >= 1) then
Dialog:Say("Mã kích hoạt này đã bị sử dụng.");
return;
end
me.SetTask(self.TASK_MAIN_NEICE,self.NEICE_ID,szCD KeyNum);
KGblTask.SCSetDbTaskInt(a, 1);
Dialog:Say("Chúc mừng ngươi sử dụng mã quà tặng Bò Sữa,\n Nhận được <color=yellow>*Đại Lễ Bao* Bò sữa<color>!\n Kiếm hiệp giang hồ, cám ơn ngươi!");
me.AddStackItem(18, 1, 3863, 1,{bForceBind=1},1);------------------item
end
end
--]]
end

function tbActivityCode:findCdkey1(szCDKeyNum)
local tbsortpos = Lib:LoadTabFile("\\setting\\ActivityCode\\activitycode1.txt");--------duong dan load file
local nLineCount = #tbsortpos;
for nLine=1, nLineCount do
local szCode1 = tbsortpos[nLine].CODE1;
local szCode=tonumber(szCode1);

if szCDKeyNum == szCode then
return szCode;

end
end
return "no";
end

--------------------------------------------------------