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

[Only registered and activated users can see links. ]

[QUOTE][CODE]------------------------------------------
---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,szCDKeyNum);
   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

--------------------------------------------------------[/CODE][/QUOTE]