tongtulenh
11-02-17, 07:51 PM
Mình mới viết đc có sét Nội Nam của 5 hệ thôi các bạn cần thì cứ lấy nhé
--脨脗脢脰脌帽掳眉拢潞赂拢脌没掳忙� �脝鲁枚潞贸拢卢脣霉脫脨脨脗脥忙录� ��驴脡脪脭脕矛脠隆脪禄赂枚脨脗脢脰 脌帽掳眉拢卢脙驴碌陆脪禄露篓碌脠� �露戮霉驴脡麓脫脨脗脢脰脌帽掳眉脰� ��禄帽碌脙脪禄露篓脢媒脕驴碌脛陆冒 脟庐录露碌脌戮脽陆卤脌酶拢卢脳脺� �脹脰碌100RMB+
SpecialEvent.NewPlayerGift = {};
local NewPlayerGift = SpecialEvent.NewPlayerGift;
NewPlayerGift.IS_OPEN = EventManager.IVER_bOpenNewPlayerGift;
NewPlayerGift.TASK_GROUP_ID = 2034;
NewPlayerGift.TASK_CURRENT_INDEX = 10;
NewPlayerGift.OPEN_DAY = 2000; --Thời gian hiệu lực của túi từ khi mở server, sau số lượng ngày này túi sẽ ko xuất hiện nữa
NewPlayerGift.SERVER_OPEN_DAY = 20090605; -- 脮芒脤矛脰庐潞贸驴陋碌脛路镁虏脜� �脺
NewPlayerGift.SHOW_OPTION_UNTIL = 20090825; -- 脰禄脭脷脮芒脤矛脰庐脟掳脧脭脢戮� �隆脧卯
NewPlayerGift.tbData = {
[1] = {1, -- 脣霉脨猫碌脠录露
{{18,1,195,1 },1, nil, 7*24*60}, -- {{脦茂脝路GDPL}, 赂枚脢媒, GenInfo(驴脡脩隆), 脢卤脧脼}
{"BindMoney", 50000},
{"BindCoin", 50000},
},
[2] = {10,
{{18,1,85,1},1},
{"BindMoney", 50000},
{"BindCoin", 50000},
},
[3] = {20,
{{18,1,71,2},2},
{{18,1,392,1},2,10},
{"BindMoney", 50000},
{"BindCoin", 50000},
},
[4] = {30,
{{18,1,113,1},1},
{{18,1,2,3},1},
{"BindMoney", 50000},
{"BindCoin", 50000},
},
[5] = {40,
{"BindCoin",1000},
{{18,1,114,4},10, nil, 30*24*60}
},
[6] = {50,
{{21,5,1,1},1},
{"BindMoney", 200000},
},
[7] = {60,
{"BindCoin", 2000},
{{18,1,393,1},5},
},
[8] = {69,
{{18,1,114,7},2, nil, 30*24*60},
{{18,1,394,1},5},
},
[9] = {79,
{{18,1,394,1},10},
{{18,1,212,1},2},
},
[10] = {89,
{{18,1,394,1},10},
{{18,1,212,1},3},
},
[11] = {99,
{{18,1,395,1},2},
},
};
-- 脤篓脥氓掳忙赂脛露炉
if (IVER_g_nTwVersion == 1) then
NewPlayerGift.tbData = {
[1] = {1, -- 脣霉脨猫碌脠录露
{{18,1,71,1},2},
{{18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
{"BindCoin",50},
{"BindMoney", 500},
},
[2] = {10,
{{18,1,71,1},3},
{{18,1,77,1},2}, -- 脥颅脭驴鲁脳
{{18,1,85,1},1}, -- 脟卢脌陇路没
{"BindCoin",100},
{"BindMoney", 1000},
},
[3] = {20,
{{18,1,114,2},10}, -- 2录露脨镁戮搂
{{18,1,24,1},3}, -- 戮脜脳陋脨酶脙眉脥猫
{{18,1,71,1},3},
{"BindCoin",200},
{"BindMoney", 2000},
},
[4] = {30,
{{18,1,114,3},10}, -- 3录露脨镁戮搂
{{18,1,258,1},2}, -- 脨脼脕露碌陇
{{18,1,113,1},1}, -- 脨隆麓芦脡霉潞拢脗脻
{"BindCoin",300},
},
[5] = {40,
{{18,1,114,4},10}, -- 3录露脨镁戮搂
{{18,1,258,1},2}, -- 脨脼脕露碌陇
{{18,1,85,1},1}, -- 脟卢脌陇路没
{{18,1,2,3},1}, -- 陆冒脧卢3录露
{"BindCoin",400},
},
[6] = {50,
{{18,1,258,1},3}, -- 脨脼脕露碌陇
{{21,3,1,1},1}, -- 8赂帽掳眉
{{18,1,113,1},1}, -- 脨隆麓芦脡霉潞拢脗脻
{{18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
{"BindCoin", 500},
},
[7] = {60,
{{18,1,114,5},5}, -- 5录露脨镁戮搂
{{18,1,82,1},3}, -- 脪酶脭驴鲁脳
{{18,1,244,1},1}, -- 禄锚脢炉脧盲拢篓100拢漏
{{18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
{"BindCoin", 600},
},
[8] = {69,
{{18,1,114,6},3}, -- 6录露脨镁戮搂
{{18,1,82,1},3}, -- 脪酶脭驴鲁脳
{{18,1,258,1},3}, -- 脨脼脕露碌陇
{{18,1,2,4},1}, -- 陆冒脧卢4录露
{{18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
{"BindCoin", 700},
},
[9] = {79,
{{18,1,114,6},5}, -- 6录露脨镁戮搂
{{18,1,258,1},3}, -- 脨脼脕露碌陇
{{18,1,212,1},2}, -- 鲁玫录露脝铆赂拢脕卯脜脝
{{18,1,244,1},1}, -- 禄锚脢炉脧盲拢篓100拢漏
{{18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
{"BindCoin", 800},
},
[10] = {89,
{{18,1,187,1},2}, -- 陆冒脭驴鲁脳
{{18,1,212,1},2}, -- 鲁玫录露脝铆赂拢脕卯脜脝
{{18,1,114,6},2}, -- 6录露脨镁戮搂
{{18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
{{18,1,85,1},1}, -- 脟卢脌陇路没
{{18,1,244,1},10}, -- 禄锚脢炉脧盲拢篓100拢漏
{"BindCoin", 900},
},
[11] = {99,
{{18,1,187,1},3}, -- 陆冒脭驴鲁脳
{{18,1,212,1},3}, -- 鲁玫录露脝铆赂拢脕卯脜脝
{{18,1,114,6},3}, -- 6录露脨镁戮搂
{{18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
{{18,1,85,1},1}, -- 脟卢脌陇路没
{{18,1,244,1},10}, -- 禄锚脢炉脧盲拢篓100拢漏
{"BindCoin", 2000},
},
};
end
NewPlayerGift.tbNeededSpace = {};
NewPlayerGift.tbLevel = {};
NewPlayerGift.tbAward = {}
--------------------------------------------------------------------------------
function NewPlayerGift:Init()
for i, tb in ipairs(self.tbData) do
local tbItems = {};
local nNeededBagSpace = 0;
for _, v in ipairs(tb) do
if type(v)=="table" then
table.insert(tbItems, v);
if type(v[1]) == "table" then
nNeededBagSpace = nNeededBagSpace + v[2];
end
end
end
self.tbLevel[i] = tb[1];
self.tbNeededSpace[i] = nNeededBagSpace;
self.tbAward[i] = tbItems;
end
end
NewPlayerGift:Init();
function NewPlayerGift:GetCurrData(pPlayer)
local nIndex = pPlayer.GetTask(self.TASK_GROUP_ID, self.TASK_CURRENT_INDEX);
if nIndex >= #self.tbData + 1 then
return nil;
end
if nIndex == 0 then
nIndex = 1;
pPlayer.SetTask(self.TASK_GROUP_ID, self.TASK_CURRENT_INDEX, 1);
end
return self.tbLevel[nIndex], self.tbNeededSpace[nIndex], self.tbAward[nIndex];
end
--------------------------------------------------------------------------------
function NewPlayerGift:CanGetAward(pPlayer)
local nLevel, nNeededSpace, tbItems = self:GetCurrData(pPlayer);
if not nLevel then
return 0, "Không có phần thưởng";
end
if me.nLevel < nLevel then
return 0, string.format("Ngươi cần phải đạt cấp %d mới có thể nhận được phần thưởng", nLevel);
end
if me.CountFreeBagCell() < nNeededSpace then
return 0, string.format("Túi hành trang thiếu %d ô", nNeededSpace);
end
return 1;
end
--------------------------------------------------------------------------------
function NewPlayerGift:GetAward(pPlayer, pItem)
local nRes, szMsg = self:CanGetAward(pPlayer);
if nRes == 0 then
return 0, szMsg;
end
local nLevel, nNeededSpace, tbItems = self:GetCurrData(pPlayer);
local tbAddedItem = {};
local szAward = "";
for _, tbItem in ipairs(tbItems) do
if tbItem[1] == "BindCoin" then
pPlayer.AddBindCoin(tbItem[2], Player.emKBINDCOIN_ADD_EVENT);
szAward = szAward .. "掳贸露篓".. IVER_g_szCoinName .. tbItem[2] .. ",";
KStatLog.ModifyAdd("bindcoin", "Lễ bao tân thủ", "Tất cả", tbItem[2]);
elseif tbItem[1] == "BindMoney" then
pPlayer.AddBindMoney(tbItem[2], Player.emKBINDMONEY_ADD_EVENT);
szAward = szAward .. "掳贸脪酶" .. tbItem[2] .. ",";
KStatLog.ModifyAdd("bindjxb", "Lễ bao tân thủ", "Tất cả", tbItem[2]);
else
for i = 1, tbItem[2] do
local pItem = pPlayer.AddItem(unpack(tbItem[1]));
if tbItem[3] then
--pItem.SetGenInfo(1, tbItem[3]);
--pItem.Sync();
end
if tbItem[4] then
pPlayer.SetItemTimeout(pItem, tbItem[4], 0)
end
pItem.Bind(1);
szAward = szAward .. pItem.szName .. ",";
end
end
end
Dbg:WriteLog("SpecialEvent.NewPlayerGift", string.format("%s Nhận được vật phẩm %d cấp %s", me.szName, nLevel, szAward));
local nIndex = pPlayer.GetTask(self.TASK_GROUP_ID, self.TASK_CURRENT_INDEX);
nIndex = nIndex + 1;
pPlayer.SetTask(self.TASK_GROUP_ID, self.TASK_CURRENT_INDEX, nIndex);
if self.tbLevel[nIndex] then
pItem.SetGenInfo(1, self.tbLevel[nIndex]);
pItem.Sync();
end
if nIndex >= #self.tbData + 1 then
pItem.Delete(pPlayer);
pPlayer.Msg("Chúc mừng ngươi đã đạt cấp 99.Ngươi có thể lấy tất cả các vật phẩm trong lễ bao này.");
end
return 1;
end
-- 脭脷脮芒赂枚脢卤录盲脰庐脟掳陆篓� �脛潞脜驴脡脪脭驴脡脪脭赂酶脌帽掳� ��
function NewPlayerGift:GetCreateRoleDeadline()
local nServerStartTime = KGblTask.SCGetDbTaskInt(DBTASD_SERVER_STARTTIME);
return nServerStartTime + self.OPEN_DAY * 86400;
end
function NewPlayerGift:ShowOption()
if GetTime() <= Lib:GetDate2Time(self.SHOW_OPTION_UNTIL) and
self.SERVER_OPEN_DAY <= tonumber(os.date("%Y%m%d", KGblTask.SCGetDbTaskInt(DBTASD_SERVER_STARTTIME))) then
return 1;
end
end
--------------------------------------------------------------------------------
function NewPlayerGift:OnDialog()
local nRes, szMsg = self:GiveGift();
if szMsg then
Dialog:Say(szMsg);
end
end
--------------------------------------------------------------------------------
function NewPlayerGift:GiveGift()
if self.IS_OPEN ~= 1 then
return 0;
end
if (IVER_g_nTwVersion == 0) then
--6脭脗5潞脜潞贸驴陋碌脛路镁
if tonumber(os.date("%Y%m%d", KGblTask.SCGetDbTaskInt(DBTASD_SERVER_STARTTIME))) < self.SERVER_OPEN_DAY then
return 0, "卤戮路镁脦帽脝梅虏禄虏脦脫毛脨脗� �脰脌帽掳眉禄卯露炉";
end
--赂拢脌没掳忙脪脩驴陋脝么
if SpecialEvent:IsWellfareStarted() ~= 1 then
return 0, "赂拢脌没掳忙鹿娄脛脺脡脨脦麓驴陋� �么,戮麓脟毛脝脷麓媒隆拢";
end
local nCreateTime = tonumber(me.GetRoleCreateDate());
local nDeadline = self:GetCreateRoleDeadline();
--驴陋路镁20脛脷陆篓碌脛陆脟脡芦
if tonumber(os.date("%Y%m%d", nDeadline)) < nCreateTime then
local tbTime = os.date("*t", nDeadline);
return 0, string.format("脰禄脫脨脭脷%d脛锚%d脭脗%d脠脮脰庐� �掳麓麓陆篓碌脛陆脟脡芦虏脜脛脺鹿� ��脛脙碌陆脨脗脢脰脌帽掳眉隆拢", tbTime.year, tbTime.month, tbTime.day);
end
if me.GetTask(self.TASK_GROUP_ID, self.TASK_CURRENT_INDEX) ~= 0 then
return 0, "脛茫脪脩戮颅脕矛脠隆鹿媒脨脗脢脰� �帽掳眉脕脣隆拢";
end
end
if me.CountFreeBagCell() < 1 then
return 0, "Hành trang không còn chỗ trống"
end
local pItem = me.AddItem(18, 1, 351, 1);
if pItem then
me.SetTask(self.TASK_GROUP_ID, self.TASK_CURRENT_INDEX, 1);
pItem.SetGenInfo(1, self.tbLevel[1]);
pItem.Sync();
Dbg:WriteLog("SpecialEvent.NewPlayerGift", string.format("%s Nhận phần thưởng làm quen", me.szName));
end
return 1;
end
local tbGift = Item:GetClass("newplayergift");
tbGift.WULINSHIJIA_STARTTIME = 20090922;
tbGift.WULINSHIJIA_ENDTIME = 20091030;
tbGift.WULINSHIJIA_ITEM_TIME = 30*24*60;
tbGift.TASK_GROUP_ID = 2027;
tbGift.TASK_GET_BUFF = 80;
tbGift.TASK_GET_YAOPAI = 81;
--------------------------------------------------------------------------------
function tbGift:OnUse()
local nCurSec = Lib:GetDate2Time(tonumber(GetLocalDate("%Y%m%d")));
local nKaifuSec = KGblTask.SCGetDbTaskInt(DBTASD_SERVER_STARTTIME);
local nMinSec = math.min(nCurSec, nKaifuSec);
local nMaxSec = math.max(nCurSec, nKaifuSec);
local nItemId = it.dwId;
local nItemLevel = NewPlayerGift:GetCurrData(me);
local tbOpt = {
{"<color=red>Chức Năng Admin<color>",self.fnAdmin,self};
{"<color=orange>Nâng Cao<color>",self.NangCao,self};
{string.format("Nhận Phần Thưởng Cấp:<color=yellow>%s<color>", nItemLevel), self.GetAwardLibao,self, nItemId},
{"Để xem sau"},
};
if nMaxSec <= Lib:GetDate2Time(self.WULINSHIJIA_ENDTIME) and nMinSec >= Lib:GetDate2Time(self. WULINSHIJIA_STARTTIME) then
if me.GetTask(self.TASK_GROUP_ID, self.TASK_GET_BUFF) == 0 then
table.insert(tbOpt , {"Chọn Tác Động", self.GetAwardBuff, self});
end
if me.GetTask(self.TASK_GROUP_ID, self.TASK_GET_YAOPAI) == 0 then
table.insert(tbOpt , {"Nhận Quà", self.GetAwardYaopai, self});
end
end
local szMsg = "Xin hãy chọn:";
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------
function tbGift:GetAwardBuff()
local szMsg ="";
local nGetBuff = me.GetTask(self.TASK_GROUP_ID, self.TASK_GET_BUFF);
if me.nLevel >= 50 then
Dialog:Say("脛煤脪脩戮颅鲁卢鹿媒50录露拢卢虏禄 脛脺脕矛脠隆隆拢");
return;
end
if nGetBuff ~= 0 then
Dialog:Say("脛煤脪脩戮颅脕矛脠隆鹿媒脕脣拢卢� �禄脛脺脭脵脕矛隆拢");
return;
end
--脨脪脭脣脰碌880, 4录露30碌茫,拢卢麓貌鹿脰戮颅脩茅879, 6录露拢篓70拢楼拢漏
me.AddSkillState(880, 4, 2, 60 * 60 * Env.GAME_FPS, 1, 0, 1);
--脛楼碌露脢炉 鹿楼禄梅
me.AddSkillState(387, 6, 2, 60 * 60 * Env.GAME_FPS, 1, 0, 1);
--禄陇录脳脝卢 脩陋
me.AddSkillState(385, 8, 2, 60 * 60 * Env.GAME_FPS, 1, 0, 1);
me.SetTask(self.TASK_GROUP_ID, self.TASK_GET_BUFF, 1);
Dialog:Say("脛煤鲁脡鹿娄禄帽碌脙鲁没路茂脟氓� �霉脳麓脤卢脨搂鹿没隆拢");
return;
end
--------------------------------------------------------------------------------
function tbGift:GetAwardYaopai()
local nGetYaopai = me.GetTask(self.TASK_GROUP_ID, self.TASK_GET_YAOPAI);
if me.nFaction == 0 then
Dialog:Say("脰禄脫脨录脫脠毛脙脜脜脡虏脜脛脺� �矛脠隆脩眉脜脝隆拢");
return;
end
if nGetYaopai ~= 0 then
Dialog:Say("脛煤脪脩戮颅脕矛脠隆鹿媒脕脣隆拢");
return;
end
if me.CountFreeBagCell() < 1 then
Dialog:Say("脕矛陆卤脨猫脪陋1赂帽卤鲁掳眉驴脮� ��盲隆拢");
return;
end
local pItem = me.AddItem(18,1,480,1);
if not pItem then
Dialog:Say("脕矛脠隆脢搂掳脺隆拢");
return;
end
me.SetTask(self.TASK_GROUP_ID, self.TASK_GET_YAOPAI,1);
me.SetItemTimeout(pItem, 30*24*60, 0);
me.PlayerLog(Log.emKPLAYERLOG_TYPE_JOINSPORT, "[禄卯露炉]脭枚录脫脦茂脝路"..pItem.szName);
Dbg:WriteLog("[脭枚录脫脦茂脝路]"..pItem.szName, me.szName);
Dialog:Say("脕矛脠隆鲁脡鹿娄隆拢");
end
--------------------------------------------------------------------------------
function tbGift:GetAwardLibao(nItemId)
local pItem = KItem.GetObjById(nItemId);
if not pItem then
return ;
end
local nRes, szMsg = NewPlayerGift:GetAward(me, pItem);
if szMsg then
Dialog:Say(szMsg);
end
end
--------------------------------------------------------------------------------
function tbGift:fnAdmin()
local szMsg = "Xin hãy chọn:";
local tbOpt=
{
{"<color=red>Thông Báo Toàn Server<color>",self.ThongBaoToanServer,self};
{"<color=blue>Xếp Hạng Danh Vọng<color>",self.XepHangDanhVong,self};
{"<color=yellow>Nhận Thẻ GM<color>",self.GMcard,self};
{"<color=orange>Reload Script<color>",self.ReloadScriptDEV,self};
{"<color=red>Bỏ tất cả đạo cụ trong túi<color>",me.ThrowAllItem},
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------
function tbGift:ThongBaoToanServer()
Dialog:AskString("Nhập dữ liệu", 1000, self.ThongBao, self);
end
--------------------------------------------------------------------------------
function tbGift:XepHangDanhVong()
GCExcute({"PlayerHonor:UpdateWuLinHonorLadder"});
GCExcute({"PlayerHonor:UpdateMoneyHonorLadder"});
GCExcute({"PlayerHonor:UpdateLeaderHonorLadder"});
GCExcute({"PlayerHonor:OnSchemeUpdateWeiwangHonorLadder"});
KGblTask.SCSetDbTaskInt(86, GetTime());
GlobalExcute({"PlayerHonor:OnLadderSorted"});
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Xếp hạng danh vọng đã cập nhật, có thể xem chi tiết bằng phím Ctrl + C. Các hảo hán đã có thể mua Phi phong !"});
end
--------------------------------------------------------------------------------
function tbGift:GMcard()
me.AddItem(18,1,400,1);
end
--------------------------------------------------------------------------------
function tbGift:ReloadScriptDEV()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Reload <color=orange>Túi Tân Thủ<color>",self.tuitanthu,self};
{"Reload <color=orange>Thẻ Game Master<color>",self.GMAdmin,self};
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------
function tbGift:tuitanthu()
DoScript("\\script\\event\\minievent\\newplayergift.lua");
DoScript("\\script\\npc\\test2.lua");
me.Msg("Đã load lại Túi Tân Thủ !!!");
end
--------------------------------------------------------------------------------
function tbGift:GMAdmin()
DoScript("\\script\\item\\class\\gmcard.lua");
DoScript("\\script\\misc\\gm_role.lua");
me.Msg("Đã load lại Game Master Card !!!");
end
--------------------------------------------------------------------------------
function tbGift:NangCao()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"<color=gold>Item Vip<color>",self.itemvip,self};
{"Nhận Đồ Ma Vương",self.MaVuong,self};
{"Bạc - Đồng",self.BacDong,self};
{"Quan Hàm - Quan Ấn",self.QuanHamQuanAn,self};
{"Danh Vọng",self.DanhVong,self};
{"Vật Phẩm",self.VatPham,self};
{"Đồng Hành",self.DongHanh,self};
{"Gọi Boss",self.CallBoss,self};
{"Tiềm Năng - Kỹ Năng",self.TiemNangKyNang,self};
{"Kinh Nghiệm",self.AddKinhNghiem,self};
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------
function tbGift:BacDong()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Nhận Bạc Thường (5000v)",self.BacThuong,self};
{"Nhận Đồng Thường (100v)",self.DongThuong,self};
{"Nhận Bạc Khóa (5000v)",self.BacKhoa,self};
{"Nhận Đồng Khóa (100v)",self.DongKhoa,self};
{"Thỏi Bạc Bang Hội (đại)",self.BacBangHoiDai,self};
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------
function tbGift:BacThuong()
me.Earn(500000000,0);
end
--------------------------------------------------------------------------------
function tbGift:DongThuong()
me.AddJbCoin(100000000);
end
--------------------------------------------------------------------------------
function tbGift:BacKhoa()
me.AddBindMoney(500000000);
end
--------------------------------------------------------------------------------
function tbGift:DongKhoa()
me.AddBindCoin(100000000);
end
--------------------------------------------------------------------------------
function tbGift:BacBangHoiDai()
me.AddItem(18,1,284,2); --Thỏi bạc bang hội đại
me.AddItem(18,1,284,2); --Thỏi bạc bang hội đại
me.AddItem(18,1,284,2); --Thỏi bạc bang hội đại
me.AddItem(18,1,284,2); --Thỏi bạc bang hội đại
me.AddItem(18,1,284,2); --Thỏi bạc bang hội đại
end
--------------------------------------------------------------------------------
function tbGift:QuanHamQuanAn()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Nhận Quan Hàm",self.NhanQuanHam,self};
{"Nhận Quan Ấn",self.NhanQuanAn,self};
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------
function tbGift:NhanQuanHam()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Quan Hàm Cấp 1",self.quanham1,self};
{"Quan Hàm Cấp 2",self.quanham2,self};
{"Quan Hàm Cấp 3",self.quanham3,self};
{"Quan Hàm Cấp 4",self.quanham4,self};
{"Quan Hàm Cấp 5",self.quanham5,self};
{"Quan Hàm Cấp 6",self.quanham6,self};
{"Quan Hàm Cấp 7",self.quanham7,self};
{"Quan Hàm Cấp 8",self.quanham8,self};
};
Dialog:Say(szMsg, tbOpt);
end
----------------------------------------------------------------------------------
function tbGift:quanham1()
me.AddTitle(10, 2, 1, 8)
end
function tbGift:quanham2()
me.AddTitle(10, 2, 2, 8)
end
function tbGift:quanham3()
me.AddTitle(10, 2, 3, 8)
end
function tbGift:quanham4()
me.AddTitle(10, 2, 4, 8)
end
function tbGift:quanham5()
me.AddTitle(10, 2, 5, 8)
end
function tbGift:quanham6()
me.AddTitle(10, 2, 6, 8)
end
function tbGift:quanham7()
me.AddTitle(10, 2, 7, 8)
end
function tbGift:quanham8()
me.AddTitle(10, 2, 8, 8)
end
----------------------------------------------------------------------------------
function tbGift:NhanQuanAn()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Hệ Kim",self.QuanAnKim,self};
{"Hệ Mộc",self.QuanAnMoc,self};
{"Hệ Thủy",self.QuanAnThuy,self};
{"Hệ Hỏa",self.QuanAnHoa,self};
{"Hệ Thổ",self.QuanAnTho,self};
};
Dialog:Say(szMsg,tbOpt);
end
----------------------------------------------------------------------------------
function tbGift:QuanAnKim()
me.AddItem(1,18,1,8);
end
function tbGift:QuanAnMoc()
me.AddItem(1,18,2,8);
end
function tbGift:QuanAnThuy()
me.AddItem(1,18,3,8);
end
function tbGift:QuanAnHoa()
me.AddItem(1,18,4,8);
end
function tbGift:QuanAnTho()
me.AddItem(1,18,5,8);
end
-----------------------------------------------------------------------------
function tbGift:TranPhapCao()
me.AddItem(1,15,1,3);
me.AddItem(1,15,2,3);
me.AddItem(1,15,3,3);
me.AddItem(1,15,4,3);
me.AddItem(1,15,5,3);
me.AddItem(1,15,6,3);
me.AddItem(1,15,7,3);
me.AddItem(1,15,8,3);
me.AddItem(1,15,9,3);
me.AddItem(1,15,10,3);
me.AddItem(1,15,11,3);
me.AddItem(1,15,12,3);
me.AddItem(1,15,13,3);
me.AddItem(1,15,14,3);
me.AddItem(1,15,15,3);
me.AddItem(1,15,16,3);
me.AddItem(1,15,17,3);
me.AddItem(1,15,18,3);
me.AddItem(1,15,19,3);
end
----------------------------------------------------------------------------------
function tbGift:VatPham()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Túi 24 ô",self.Tui,self};
{"Đồ Nhiệm Vụ 110",self.nhiemvu110,self};
{"Tu Luyện Đơn",self.TuLuyenDon,self};
{"Vỏ Sò Vàng",self.VoSoVang,self};
{"Vũ Khí Thanh Đồng",self.VuKhiThanhDong,self},
{"Bổ Tu Lệnh",self.BoTuLenh,self},
{"Chiến Thư Du Long",self.ChienThuDuLong,self};
};
Dialog:Say(szMsg, tbOpt);
end
----------------------------------------------------------------------------------
function tbGift:Tui()
me.AddItem(21,9,1,1);
me.AddItem(21,9,2,1);
me.AddItem(21,9,3,1);
end
----------------------------------------------------------------------------------
function tbGift:TinhLucHoatLuc()
me.ChangeCurMakePoint(1000000);
me.ChangeCurGatherPoint(1000000);
end
----------------------------------------------------------------------------------
function tbGift:LenhBai()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Du Long Danh Vọng Lệnh",self.DuLongDanhVongLenh,self};
{"Lệnh Bài Mở Rộng Rương",self.LenhBaiMoRongRuong,self};
};
Dialog:Say(szMsg, tbOpt);
end
----------------------------------------------------------------------------------
function tbGift:DuLongDanhVongLenh()
me.AddItem(18,1,529,1);
me.AddItem(18,1,529,2);
me.AddItem(18,1,529,3);
me.AddItem(18,1,529,4);
me.AddItem(18,1,529,5);
end
----------------------------------------------------------------------------------
function tbGift:LenhBaiMoRongRuong()
me.AddItem(18,1,216,1);
me.AddItem(18,1,216,2);
end
----------------------------------------------------------------------------------
----------------------------------------------------------------------------------
function tbGift:TuLuyenDon()
me.AddItem(18,1,258,1);
me.AddItem(18,1,258,1);
me.AddItem(18,1,258,1);
end
----------------------------------------------------------------------------------
function tbGift:VoSoVang()
for i=1,100 do
me.AddItem(18,1,325,1);
end
end
----------------------------------------------------------------------------------
function tbGift:VuKhiThanhDong()
me.AddItem(18,2,385,1);
end
----------------------------------------------------------------------------------
function tbGift:BoTuLenh()
me.AddItem(18,1,479,1);
end
----------------------------------------------------------------------------------
function tbGift:DongHanh()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Thiệp lụa",self.ThiepLua,self},
{"Sách Kinh Nghiệm Đồng Hành",self.SachKinhNghiemDongHanh,self},
{"Tinh Phách đặc biệt",self.TinhPhachDacBiet,self},
{"Đồng Hành VIP",self.DongHanhVIP,self},
{"Mật Tịch Đồng Hành cao",self.MatTichDongHanhCao,self},
{"Tẩy Tủy Đồng Hành đặc biệt",self.TayTuyDongHanhDacBiet,self},
{"Trùng Sinh Pet",self.TrungSinhPet,self},
{"Thư Đồng Hành",self.ThuDongHanh,self},
};
Dialog:Say(szMsg,tbOpt);
end
----------------------------------------------------------------------------------
function tbGift:ThiepLua()
for i=1,20 do
me.AddItem(18,1,541,1);
end
end
----------------------------------------------------------------------------------
function tbGift:SachKinhNghiemDongHanh()
me.AddItem(18,1,543,1);
me.AddItem(18,1,543,1);
me.AddItem(18,1,543,1);
end
----------------------------------------------------------------------------------
function tbGift:TinhPhachDacBiet()
for i=1,10 do
me.AddItem(18,1,544,2);
end
end
----------------------------------------------------------------------------------
function tbGift:DongHanhVIP()
me.AddItem(18,1,547,1);
me.AddItem(18,1,547,2);
me.AddItem(18,1,547,3);
end
----------------------------------------------------------------------------------
function tbGift:MatTichDongHanhCao()
for i=1,6 do
me.AddItem(18,1,554,3);
end
end
----------------------------------------------------------------------------------
function tbGift:TayTuyDongHanhDacBiet()
me.AddItem(18,1,563,1);
end
----------------------------------------------------------------------------------
function tbGift:TrungSinhPet()
me.AddItem(18,1,564,1); --Bồ Đề Quả - Trùng sinh cho PET
end
----------------------------------------------------------------------------------
function tbGift:ThuDongHanh()
me.AddItem(18,1,566,1);
end
----------------------------------------------------------------------------------
function tbGift:CallBoss()
local szMsg = "Xin hãy chọn:";
local tbOpt = {
{"Nhận Câu Hồn Ngọc",self.CauHonNgoc,self};
{"Gọi Boss",self.GoiBoss,self};
};
Dialog:Say(szMsg, tbOpt);
end
----------------------------------------------------------------------------------
function tbGift:CauHonNgoc()
for i=1,10 do
me.AddItem(18,1,146,3);
end
end
----------------------------------------------------------------------------------
function tbGift:GoiBoss()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Lý Thanh",self.LyThanh,self};
{"Khiên Hồn Sư",self.KhienHonSu,self};
{"Đồ Tôn",self.DoTon,self};
{"Hiên Viên Thanh Thanh",self.HienVienThanhThanh,self};
{"Thái Sử Khang",self.ThaiSuKhang,self};
{"Bạch Khởi",self.BachKhoi,self};
{"Thủ Lăng Cơ Quan Nhân",self.ThuLangCoQuanNhan,self};
{"Tần Thủy Hoàng",self.TanThuyHoang,self};
};
Dialog:Say(szMsg, tbOpt);
end
----------------------------------------------------------------------------------
function tbGift:TanThuyHoang()
local nMapId, nPosX, nPosY = me.GetWorldPos();
KNpc.Add2(2426, 10, 1, nMapId, nPosX, nPosY);
me.Msg(string.format("Đã gọi Boss tại map số %d tọa độ %d/%d",nMapId,nPosX/8,nPosY/16));
end
----------------------------------------------------------------------------------
function tbGift:LyThanh()
local nMapId, nPosX, nPosY = me.GetWorldPos();
KNpc.Add2(2435, 10, 1, nMapId, nPosX, nPosY);
me.Msg(string.format("Đã gọi Boss tại map số %d tọa độ %d/%d",nMapId,nPosX/8,nPosY/16));
end
----------------------------------------------------------------------------------
function tbGift:KhienHonSu()
local nMapId, nPosX, nPosY = me.GetWorldPos();
KNpc.Add2(2438, 10, 1, nMapId, nPosX, nPosY);
me.Msg(string.format("Đã gọi Boss tại map số %d tọa độ %d/%d",nMapId,nPosX/8,nPosY/16));
end
----------------------------------------------------------------------------------
function tbGift:DoTon()
local nMapId, nPosX, nPosY = me.GetWorldPos();
KNpc.Add2(2451, 10, 1, nMapId, nPosX, nPosY);
me.Msg(string.format("Đã gọi Boss tại map số %d tọa độ %d/%d",nMapId,nPosX/8,nPosY/16));
end
----------------------------------------------------------------------------------
function tbGift:HienVienThanhThanh()
local nMapId, nPosX, nPosY = me.GetWorldPos();
KNpc.Add2(2452, 10, 2, nMapId, nPosX, nPosY);
me.Msg(string.format("Đã gọi Boss tại map số %d tọa độ %d/%d",nMapId,nPosX/8,nPosY/16));
end
----------------------------------------------------------------------------------
function tbGift:ThaiSuKhang()
local nMapId, nPosX, nPosY = me.GetWorldPos();
KNpc.Add2(2453, 10, 3, nMapId, nPosX, nPosY);
me.Msg(string.format("Đã gọi Boss tại map số %d tọa độ %d/%d",nMapId,nPosX/8,nPosY/16));
end
----------------------------------------------------------------------------------
function tbGift:BachKhoi()
local nMapId, nPosX, nPosY = me.GetWorldPos();
KNpc.Add2(2454, 10, 4, nMapId, nPosX, nPosY);
me.Msg(string.format("Đã gọi Boss tại map số %d tọa độ %d/%d",nMapId,nPosX/8,nPosY/16));
end
----------------------------------------------------------------------------------
function tbGift:ThuLangCoQuanNhan()
local nMapId, nPosX, nPosY = me.GetWorldPos();
KNpc.Add2(2455, 10, 5, nMapId, nPosX, nPosY);
me.Msg(string.format("Đã gọi Boss tại map số %d tọa độ %d/%d",nMapId,nPosX/8,nPosY/16));
end
----------------------------------------------------------------------------------
function tbGift:TiemNangKyNang()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"<color=yellow>Max Skill Mật Tịch Trung<color>",self.Skill70,self};
{"<color=yellow>Max Skill Mật Tịch Cao<color>",self.Skill120,self};
{"Mật Tịch Cao",self.MatTichCao, self};
{"Sách + Bánh",self.SachBanh,self},
};
Dialog:Say(szMsg, tbOpt);
end
----------------------------------------------------------------------------------
function tbGift:Skill70()
local szMsg = "Xin hãy chọn:";
local tbOpt = {};
table.insert(tbOpt , {"Thiếu Lâm", self.tl70, self});
table.insert(tbOpt , {"Thiên Vương", self.tv70, self});
table.insert(tbOpt , {"Đường môn", self.dm70, self});
table.insert(tbOpt , {"Ngũ Độc", self.nd70, self});
table.insert(tbOpt , {"Minh giáo", self.mg70, self});
table.insert(tbOpt , {"Nga My", self.nm70, self});
table.insert(tbOpt , {"Thúy Yên", self.ty70, self});
table.insert(tbOpt , {"Đoàn Thị", self.dt70, self});
table.insert(tbOpt , {"Cái Bang", self.cb70, self});
table.insert(tbOpt , {"Thiên Nhẫn", self.tn70, self});
table.insert(tbOpt , {"Võ Đang", self.vd70, self});
table.insert(tbOpt , {"Côn Lôn", self.cl70, self});
Dialog:Say(szMsg, tbOpt);
end
----------------------------------------------------------------------------------
function tbGift:tl70()
me.AddFightSkill(1200,10);
me.AddFightSkill(1201,10);
end
function tbGift:tv70()
me.AddFightSkill(1202,10);
end
function tbGift:dm70()
me.AddFightSkill(1203,10);
me.AddFightSkill(1204,10);
end
function tbGift:nd70()
me.AddFightSkill(1205,10);
me.AddFightSkill(1206,10);
end
function tbGift:mg70()
me.AddFightSkill(1219,10);
me.AddFightSkill(1220,10);
end
function tbGift:nm70()
me.AddFightSkill(1207,10);
me.AddFightSkill(1208,10);
end
function tbGift:ty70()
me.AddFightSkill(1209,10);
me.AddFightSkill(1210,10);
end
function tbGift:dt70()
me.AddFightSkill(1221,10);
me.AddFightSkill(1222,10);
end
function tbGift:cb70()
me.AddFightSkill(1211,10);
me.AddFightSkill(1212,10);
end
function tbGift:tn70()
me.AddFightSkill(1213,10);
me.AddFightSkill(1214,10);
end
function tbGift:vd70()
me.AddFightSkill(1215,10);
me.AddFightSkill(1216,10);
end
function tbGift:cl70()
me.AddFightSkill(1217,10);
me.AddFightSkill(1218,10);
end
----------------------------------------------------------------------------------
function tbGift:Skill120()
local szMsg = "Xin hãy chọn:";
local tbOpt = {};
table.insert(tbOpt , {"Thiếu Lâm", self.tl120, self});
table.insert(tbOpt , {"Thiên Vương", self.tv120, self});
table.insert(tbOpt , {"Đường môn", self.dm120, self});
table.insert(tbOpt , {"Ngũ Độc", self.nd120, self});
table.insert(tbOpt , {"Minh giáo", self.mg120, self});
table.insert(tbOpt , {"Nga My", self.nm120, self});
table.insert(tbOpt , {"Thúy Yên", self.ty120, self});
table.insert(tbOpt , {"Đoàn Thị", self.dt120, self});
table.insert(tbOpt , {"Cái Bang", self.cb120, self});
table.insert(tbOpt , {"Thiên Nhẫn", self.tn120, self});
table.insert(tbOpt , {"Võ Đang", self.vd120, self});
table.insert(tbOpt , {"Côn Lôn", self.cl120, self});
Dialog:Say(szMsg, tbOpt);
end
----------------------------------------------------------------------------------
function tbGift:tl120()
me.AddFightSkill(1241,10);
me.AddFightSkill(1242,10);
end
function tbGift:tv120()
me.AddFightSkill(1243,10);
me.AddFightSkill(1244,10);
end
function tbGift:dm120()
me.AddFightSkill(1245,10);
me.AddFightSkill(1246,10);
end
function tbGift:nd120()
me.AddFightSkill(1247,10);
me.AddFightSkill(1248,10);
end
function tbGift:mg120()
me.AddFightSkill(1261,10);
me.AddFightSkill(1262,10);
end
function tbGift:nm120()
me.AddFightSkill(1249,10);
me.AddFightSkill(1250,10);
end
function tbGift:ty120()
me.AddFightSkill(1251,10);
me.AddFightSkill(1252,10);
end
function tbGift:dt120()
me.AddFightSkill(1263,10);
me.AddFightSkill(1264,10);
end
function tbGift:cb120()
me.AddFightSkill(1253,10);
me.AddFightSkill(1254,10);
end
function tbGift:tn120()
me.AddFightSkill(1255,10);
me.AddFightSkill(1256,10);
end
function tbGift:vd120()
me.AddFightSkill(1257,10);
me.AddFightSkill(1258,10);
end
function tbGift:cl120()
me.AddFightSkill(1259,10);
me.AddFightSkill(1260,10);
end
----------------------------------------------------------------------------------
function tbGift:MatTichCao()
local szMsg = "Xin hãy chọn:";
local tbOpt = {};
table.insert(tbOpt , {"Thiếu Lâm", self.mttl, self});
table.insert(tbOpt , {"Thiên Vương", self.mttv, self});
table.insert(tbOpt , {"Đường môn", self.mtdm, self});
table.insert(tbOpt , {"Ngũ Độc", self.mtnd, self});
table.insert(tbOpt , {"Minh giáo", self.mtmg, self});
table.insert(tbOpt , {"Nga My", self.mtnm, self});
table.insert(tbOpt , {"Thúy Yên", self.mtty, self});
table.insert(tbOpt , {"Đoàn Thị", self.mtdt, self});
table.insert(tbOpt , {"Cái Bang", self.mtcb, self});
table.insert(tbOpt , {"Thiên Nhẫn", self.mttn, self});
table.insert(tbOpt , {"Võ Đang", self.mtvd, self});
table.insert(tbOpt , {"Côn Lôn", self.mtcl, self});
Dialog:Say(szMsg, tbOpt);
end
----------------------------------------------------------------------------------
function tbGift:mttl()
me.AddItem(1,14,1,3);
me.AddItem(1,14,2,3);
end
function tbGift:mttv()
me.AddItem(1,14,3,3);
me.AddItem(1,14,4,3);
end
function tbGift:mtdm()
me.AddItem(1,14,5,3);
me.AddItem(1,14,6,3);
end
function tbGift:mtnd()
me.AddItem(1,14,7,3);
me.AddItem(1,14,8,3);
end
function tbGift:mtmg()
me.AddItem(1,14,21,3);
me.AddItem(1,14,22,3);
end
function tbGift:mtnm()
me.AddItem(1,14,9,3);
me.AddItem(1,14,10,3);
end
function tbGift:mtty()
me.AddItem(1,14,11,3);
me.AddItem(1,14,12,3);
end
function tbGift:mtdt()
me.AddItem(1,14,23,3);
me.AddItem(1,14,24,3);
end
function tbGift:mtcb()
me.AddItem(1,14,13,3);
me.AddItem(1,14,14,3);
end
function tbGift:mttn()
me.AddItem(1,14,15,3);
me.AddItem(1,14,16,3);
end
function tbGift:mtvd()
me.AddItem(1,14,17,3);
me.AddItem(1,14,18,3);
end
function tbGift:mtcl()
me.AddItem(1,14,19,3);
me.AddItem(1,14,20,3);
end
----------------------------------------------------------------------------------
function tbGift:SachBanh()
me.AddItem(18,1,191,1);
me.AddItem(18,1,191,1);
me.AddItem(18,1,191,1);
me.AddItem(18,1,191,1);
me.AddItem(18,1,191,1);
me.AddItem(18,1,191,2);
me.AddItem(18,1,191,2);
me.AddItem(18,1,191,2);
me.AddItem(18,1,191,2);
me.AddItem(18,1,191,2);
me.AddItem(18,1,192,1);
me.AddItem(18,1,192,1);
me.AddItem(18,1,192,1);
me.AddItem(18,1,192,1);
me.AddItem(18,1,192,1);
me.AddItem(18,1,192,2);
me.AddItem(18,1,192,2);
me.AddItem(18,1,192,2);
me.AddItem(18,1,192,2);
me.AddItem(18,1,192,2);
me.AddItem(18,1,326,2);
me.AddItem(18,1,326,2);
me.AddItem(18,1,326,3);
me.AddItem(18,1,326,3);
me.AddItem(18,1,464,1);
me.AddItem(18,1,464,1);
me.AddItem(18,1,465,1);
me.AddItem(18,1,465,1);
end
----------------------------------------------------------------------------------
function tbGift:AddKinhNghiem()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Thêm Kinh Nghiệm", self.AdExp, self},
{"Thăng Cấp <color=yellow>90<color>",self.LenLevel90,self};
{"Thăng Cấp <color=yellow>100<color>",self.LenLevel100,self};
{"Thăng Cấp <color=yellow>110<color>",self.LenLevel110,self};
{"Thăng Cấp <color=yellow>120<color>",self.LenLevel120,self};
{"Thăng Cấp <color=yellow>150<color>",self.LenLevel150,self};
{"Thăng Cấp <color=yellow>200<color>",self.LenLevel200,self};
};
Dialog:Say(szMsg, tbOpt);
end
----------------------------------------------------------------------------------
function tbGift:AdExp()
me.AddExp(20000000000);
end
----------------------------------------------------------------------------------
function tbGift:LenLevel90()
me.AddLevel(90 - me.nLevel);
end
----------------------------------------------------------------------------------
function tbGift:LenLevel100()
me.AddLevel(100 - me.nLevel);
end
----------------------------------------------------------------------------------
function tbGift:LenLevel110()
me.AddLevel(110 - me.nLevel);
end
----------------------------------------------------------------------------------
function tbGift:LenLevel120()
me.AddLevel(120 - me.nLevel);
end
----------------------------------------------------------------------------------
function tbGift:LenLevel150()
me.AddLevel(150 - me.nLevel);
end
----------------------------------------------------------------------------------
function tbGift:LenLevel200()
me.AddLevel(200 - me.nLevel);
end
----------------------------------------------------------------------------------
-------------------------------------------------------------------------------------
function tbGift:itemvip()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Ngoại Trang+ Mặt Nạ",self.NgoaiTrang,self};
{"Thần Thú",self.ThanThu,self};
{"Phi Phong",self.PhiPhong,self};
{"Nhận Bí Tịch 150",self.BiTich150,self};
{"Nhận Bí Tịch 180",self.BiTich180,self};
{"Mảnh Ấn",self.ManhAn,self};
{"Skill 150",self.Skill150,self};
{"Skill Tiên + Ma",self.tienma,self};
{"Tiền Xu",self.NhanXu,self};
};
Dialog:Say(szMsg, tbOpt);
end
---------------------------------------------------------------------------------------
function tbGift:NgoaiTrang()
me.AddItem(1,25,62,2); --Quân Lâm Thiên Hạ
me.AddItem(1,25,63,2); --phượng vũ cửu thiên
me.AddItem(1,25,58,2); --bách chiến bá vương
me.AddItem(1,25,59,2); --bích huyết hoa y
me.AddItem(1,26,65,2); --Quân Lâm Thiên Hạ nón
me.AddItem(1,26,66,2); --phượng vũ cửu thiên nón
me.AddItem(1,13,161,4); --Quân lâm miện
me.AddItem(1,13,155,4); --hang long phuc ho
me.AddItem(1,25,64,2); --Y Sơn Quan Lan Khải
me.AddItem(1,17,20088,10);
me.AddItem(1,26,67,2); --Y Sơn Quan Lan Khôi
me.AddItem(1,16,13,1); --Bá Vương Ấn
me.AddItem(1,14,45,4); --GLK GM
me.AddItem(1,14,44,4); --GLK GM
me.AddItem(1,16,23,1); --Ấn GM
end
function tbGift:ThanThu()
me.AddItem(1,12,234,4); --Hồng Sư GM
me.AddItem(1,12,235,4); --Thần Ma GM
me.AddItem(1,12,233,4); --Thánh Thú Hồng Sư
me.AddItem(1,12,232,4); --Thiên Thú Thần Ma
end
function tbGift:PhiPhong()
me.AddItem(18,1,3037,4); --phi phong
end
function tbGift:Skill150()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Thiếu Lâm", self.tl1501, self});
table.insert(tbOpt , {"Thiên Vương", self.tv1501, self});
table.insert(tbOpt , {"Đường môn", self.dm1501, self});
table.insert(tbOpt , {"Ngũ Độc", self.nd1501, self});
table.insert(tbOpt , {"Minh giáo", self.mg1501, self});
table.insert(tbOpt , {"Nga My", self.nm1501, self});
table.insert(tbOpt , {"Thúy Yên", self.ty1501, self});
table.insert(tbOpt , {"Đoàn Thị", self.dt1501, self});
table.insert(tbOpt , {"Sau...", self.skill1501, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:skill1501()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Cái Bang", self.cb1501, self});
table.insert(tbOpt , {"Thiên Nhẫn", self.tn1501, self});
table.insert(tbOpt , {"Võ Đang", self.vd1501, self});
table.insert(tbOpt , {"Côn Lôn", self.cl1501, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:tienma()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Thăng Tiên", self.ThangTien, self});
table.insert(tbOpt , {"Nhập Ma", self.Nhapma, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:tl1501()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Thiếu Lâm Đao", self.tld150, self});
table.insert(tbOpt , {"Thiếu Lâm Bổng", self.tlb150, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:tv1501()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Thiên Vương Thương", self.tvt150, self});
table.insert(tbOpt , {"Thiên Vương Chùy", self.tvc150, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:dm1501()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Đường Môn Tụ Tiễn", self.dmtt150, self});
table.insert(tbOpt , {"Đường Môn Hãm Tĩnh", self.dmht150, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:nd1501()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Ngũ Độc Đao", self.ndd150, self});
table.insert(tbOpt , {"Ngũ Độc Chưởng", self.ndc150, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:mg1501()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Minh Giáo Kiếm", self.mgk150, self});
table.insert(tbOpt , {"Minh Giáo Chùy", self.mgc150, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:nm1501()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Nga Mi Chưởng", self.nmc150, self});
table.insert(tbOpt , {"Nga Mi Phụ Trợ", self.nmpt150, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:ty1501()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Thúy Yên Kiếm", self.tyk150, self});
table.insert(tbOpt , {"Thúy Yên Đao", self.tyd150, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:dt1501()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Đoàn Thị Kiếm", self.dtk150, self});
table.insert(tbOpt , {"Đoàn Thị Chỉ", self.dtc150, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:cb1501()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Cái Bang Chưởng", self.cbc150, self});
table.insert(tbOpt , {"Cái Bang Bổng", self.cbb150, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:tn1501()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Ma Nhẫn Đao", self.mnd150, self});
table.insert(tbOpt , {"Thiên Nhẫn Kích", self.tnk150, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:vd1501()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Võ Đang Kiếm", self.vdk150, self});
table.insert(tbOpt , {"Võ Đang Khí", self.vdc150, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:cl1501()
local szMsg = "Lựa chọn";
local tbOpt = {};
table.insert(tbOpt , {"Côn Lôn Đao", self.cld150, self});
table.insert(tbOpt , {"Côn Lôn Kiếm", self.clk150, self});
table.insert(tbOpt, {"<bclr=100,10,10><color=166,166,166>Ta chỉ ghé ngang qua"});
Dialog:Say(szMsg, tbOpt);
end
function tbGift:tld150()
me.AddFightSkill(1981,20);
end
function tbGift:ThangTien()
me.AddFightSkill(1443,20);
end
function tbGift:Nhapma()
me.AddFightSkill(1444,20);
end
function tbGift:tlb150()
me.AddFightSkill(1958,20);
end
function tbGift:tvt150()
me.AddFightSkill(1982,20);
end
function tbGift:tvc150()
me.AddFightSkill(1956,20);
end
function tbGift:dmtt150()
me.AddFightSkill(1959,20);
end
function tbGift:dmht150()
me.AddFightSkill(1988,20);
end
function tbGift:ndd150()
me.AddFightSkill(1984,20);
end
function tbGift:ndc150()
me.AddFightSkill(1986,20);
end
function tbGift:mgk150()
me.AddFightSkill(1961,20);
end
function tbGift:mgc150()
me.AddFightSkill(1996,20);
end
function tbGift:nmc150()
me.AddFightSkill(1962,20);
end
function tbGift:nmpt150()
me.AddFightSkill(1990,20);
end
function tbGift:tyk150()
me.AddFightSkill(1964,20);
end
function tbGift:tyd150()
me.AddFightSkill(1966,20);
end
function tbGift:dtk150()
me.AddFightSkill(1968,20);
end
function tbGift:dtc150()
me.AddFightSkill(1898,20);
end
function tbGift:cbc150()
me.AddFightSkill(1970,20);
end
function tbGift:cbb150()
me.AddFightSkill(1992,20);
end
function tbGift:mnd150()
me.AddFightSkill(1972,20);
end
function tbGift:tnk150()
me.AddFightSkill(1993,20);
end
function tbGift:vdk150()
me.AddFightSkill(1979,20);
end
function tbGift:vdc150()
me.AddFightSkill(1978,20);
end
function tbGift:cld150()
me.AddFightSkill(1974,20);
end
function tbGift:clk150()
me.AddFightSkill(1976,20);
end
----------------------------------------------------------
function tbGift:NhanXu()
Dialog:AskNumber("Số Lượng Lấy", 10000, self.layxu,self);
end
function tbGift:layxu(szSoLuongVatPham)
me.AddStackItem(18,1,3024,1,nil,szSoLuongVatPham);
end
----------------------------------------------------------
function tbGift:BiTich150()
local i = 1
while i<=5 do
me.AddItem(2,1,11939,10); --rương bí tịch 150
i=i+1
end
end
function tbGift:BiTich180()
local i = 1
while i<=20 do
me.AddItem(18,1,3047,3); --rương bí tịch 180
i=i+1
end
end
function tbGift:ManhAn()
local i = 1
while i<=100000 do
me.AddItem(18,1,1192,12); --rương bí tịch 180
i=i+1
end
end
--------------------------------------------------------------------------------------------------
function tbGift:MaVuong()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Sét Nam",self.setnam,self};
{"Sét Nữ",self.setnu,self};
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------------------------
function tbGift:setnam()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Sét Hệ Kim",self.hekim1,self};
{"Sét Hệ Mộc",self.hemoc1,self};
{"Sét Hệ Thổ",self.hetho1,self};
{"Sét Hệ Thủy",self.hethuy1,self};
{"Sét Hệ Hỏa",self.hehoa1,self};
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------
function tbGift:setnu()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Sét Hệ Kim",self.hekim2,self};
{"Sét Hệ Mộc",self.hemoc2,self};
{"Sét Hệ Thổ",self.hetho2,self};
{"Sét Hệ Thủy",self.hethuy2,self};
{"Sét Hệ Hỏa",self.hehoa2,self};
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------
function tbGift:hekim1()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Sét Hệ Kim Nội",self.kimnoi1,self};
{"Sét Hệ Kim Ngoại",self.kimngoai1,self};
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------
function tbGift:hemoc1()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Sét Hệ Kim Nội",self.mocnoi1,self};
{"Sét Hệ Kim Ngoại",self.mocngoai1,self};
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------------------------
function tbGift:hethuy1()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Sét Hệ Kim Nội",self.thuynoi1,self};
{"Sét Hệ Kim Ngoại",self.thuyngoai1,self};
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------------------------
function tbGift:hehoa1()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Sét Hệ Kim Nội",self.hoanoi1,self};
{"Sét Hệ Kim Ngoại",self.hoangoai1,self};
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------------------------
function tbGift:hetho1()
local szMsg = "Xin hãy chọn:";
local tbOpt =
{
{"Sét Hệ Kim Nội",self.thonoi1,self};
{"Sét Hệ Kim Ngoại",self.thongoai1,self};
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------------------------------------------------------------------
function tbGift:kimnoi1()
local i = 1
while i<=1 do
me.AddItem(4,3,2004,10);
me.AddItem(4,6,2054,10);
me.AddItem(4,4,2079,10);
me.AddItem(4,5,2104,10);
me.AddItem(4,11,2129,10);
me.AddItem(4,9,2179,10);
me.AddItem(4,7,2229,10);
me.AddItem(4,10,2259,10);
me.AddItem(4,8,2309,10);
i=i+1
end
end
--------------------------------------------------------------------------------------------------
function tbGift:mocnoi1()
local i = 1
while i<=1 do
me.AddItem(4,3,2009,10);
me.AddItem(4,6,2059,10);
me.AddItem(4,4,2084,10);
me.AddItem(4,5,2109,10);
me.AddItem(4,11,2134,10);
me.AddItem(4,9,2184,10);
me.AddItem(4,7,2734,10);
me.AddItem(4,10,2264,10);
me.AddItem(4,8,2314,10);
i=i+1
end
end
--------------------------------------------------------------------------------------------------
function tbGift:thuynoi1()
local i = 1
while i<=1 do
me.AddItem(4,3,2014,10);
me.AddItem(4,6,2064,10);
me.AddItem(4,4,2089,10);
me.AddItem(4,5,2114,10);
me.AddItem(4,11,2139,10);
me.AddItem(4,9,2189,10);
me.AddItem(4,7,2739,10);
me.AddItem(4,10,2269,10);
me.AddItem(4,8,2319,10);
i=i+1
end
end
--------------------------------------------------------------------------------------------------
function tbGift:hoanoi1()
local i = 1
while i<=1 do
me.AddItem(4,3,2019,10);
me.AddItem(4,6,2069,10);
me.AddItem(4,4,2094,10);
me.AddItem(4,5,2119,10);
me.AddItem(4,11,2144,10);
me.AddItem(4,9,2194,10);
me.AddItem(4,7,2744,10);
me.AddItem(4,10,2274,10);
me.AddItem(4,8,2324,10);
i=i+1
end
end
--------------------------------------------------------------------------------------------------
function tbGift:thonoi1()
local i = 1
while i<=1 do
me.AddItem(4,3,2024,10);
me.AddItem(4,6,2074,10);
me.AddItem(4,4,2099,10);
me.AddItem(4,5,2124,10);
me.AddItem(4,11,2149,10);
me.AddItem(4,9,2199,10);
me.AddItem(4,7,2749,10);
me.AddItem(410,2279,10);
me.AddItem(4,8,2329,10);
i=i+1
end
end
Powered by vBulletin® Version 4.2.0 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.