duongto
07-01-17, 07:11 PM
IncludeLib("SETTING")
Include("\\script\\dailogsys\\dailogsay.lua")
Include("\\script\\lib\\awardtemplet.lua")
--Include("\\script\\global\\writeaddressdialog.lua")
Include("\\script\\vng_feature\\top10\\vngtop10.lua")
local tbFaction =
{
[1] =
{
szShowName = "ThiÕu L©m Ph¸i",
szFaction = "shaolin",
nShortFaction = "sl",
tbSkill = {318, 319, 321, 709, 1055, 1056, 1057},
tbEquip =
{
{
szFaction = "QuyÒn ThiÕu L©m",
nFirstEquipId = 2285,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "C«n ThiÕu L©m",
nFirstEquipId = 2295,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "§ao ThiÕu L©m",
nFirstEquipId = 2305,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
},
},
[2] =
{
szShowName = "Thiªn v¬ng bang",
szFaction = "tianwang",
nShortFaction = "tw",
tbSkill = {322, 325, 323, 708, 1058, 1059, 1060, 69, 72, 73, 75, 356, 711, 70, 64, 390, 171, 392, 177, 275, 394, 630, 717, 160, 716, 269, 136, 131, 148, 150, 1076, 362},
tbEquip =
{
{
szFaction = "Chïy",
nFirstEquipId = 2315,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "Th¬ng",
nFirstEquipId = 2325,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "§ao",
nFirstEquipId = 2335,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
},
},
[3] =
{
szShowName = "§êng m«n",
szFaction = "tangmen",
nShortFaction = "tm",
tbSkill = {339, 302, 342, 710, 1069, 1070, 1071,, 69, 72, 73, 75, 356, 711, 70, 64, 390, 171, 392, 177, 275, 394, 630, 717, 36, 160, 716, 269, 136, 131, 148, 150, 1076, 362},
tbEquip =
{
{
szFaction = "Phi §ao",
nFirstEquipId = 56,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "B¹o Vò",
nFirstEquipId = 2415,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "BÉy",
nFirstEquipId = 2425,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
},
},
[4] =
{
szShowName = "Ngò §éc gi¸o",
szFaction = "wudu",
nShortFaction = "wu",
tbSkill = {353, 355, 711, 1066, 1067, 171, 392, 177, 275, 394, 630, 717, 36, 160, 716, 269, 136, 131, 148, 150, 1076, 362},
tbEquip =
{
{
szFaction = "Ngò §éc Chëng",
nFirstEquipId = 2385,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "§ao Ngò §éc",
nFirstEquipId = 2395,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
},
},
[5] =
{
szShowName = "Ph¸i Nga Mi",
szFaction = "emei",
nShortFaction = "em",
tbSkill = {380, 328, 712, 1061, 1062, 1114, 69, 72, 73, 75, 356, 711, 70, 64, 390, 171, 392, 177, 275, 394, 630, 717, 36, 160, 716, 269, 136, 131, 148, 150, 1076, 362},
tbEquip =
{
{
szFaction = "Nga Mi KiÕm",
nFirstEquipId = 2345,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "Nga Mi Chëng",
nFirstEquipId = 2355,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
},
},
[6] =
{
szShowName = "Thóy yªn m«n",
szFaction = "cuiyan",
nShortFaction = "cy",
tbSkill = {336, 337, 713, 1063, 1065},
tbEquip =
{
{
szFaction = "§ao Thóy yªn",
nFirstEquipId = 2365,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "Néi Thóy yªn",
nFirstEquipId = 2375,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
},
},
[7] =
{
szShowName = "C¸i Bang",
szFaction = "gaibang",
nShortFaction = "gb",
tbSkill = {357, 359, 714, 1073, 1074, 69, 72, 73, 75, 356, 711, 70, 64, 390, 171, 392, 177, 275, 394, 630, 717, 36, 160, 716, 269, 136, 131, 148, 150, 1076, 362},
tbEquip =
{
{
szFaction = "Chëng C¸i Bang",
nFirstEquipId = 2435,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "C«n C¸i Bang ",
nFirstEquipId = 2445,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
},
},
[8] =
{
szShowName = "Thiªn nhÉn gi¸o",
szFaction = "tianren",
nShortFaction = "tr",
tbSkill = {361, 362, 715, 1075, 1076,69,72,73,75,356,711,171,392,177,36,160},
tbEquip =
{
{
szFaction = "Ngo¹i c«ng",
nFirstEquipId = 2455,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "Néi c«ng",
nFirstEquipId = 2465,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
},
},
[9] =
{
szShowName = "Ph¸i Vâ §ang",
szFaction = "wudang",
nShortFaction = "wd",
tbSkill = {365, 368, 716, 1078, 1079, 69, 72, 73, 75, 356, 711, 70, 64, 390, 171, 392, 177, 275, 394, 630, 717, 36, 269, 136, 131, 148, 150, 1076, 362},
tbEquip =
{
{
szFaction = "Vâ §ang KhÝ",
nFirstEquipId = 2475,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "KiÕm Vâ §ang",
nFirstEquipId = 2485,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
},
},
[10] =
{
szShowName = "C«n L«n ph¸i",
szFaction = "kunlun",
nShortFaction = "kl",
tbSkill = {372, 375, 717, 1080, 1081},
tbEquip =
{
{
szFaction = "§ao C«n L«n",
nFirstEquipId = 2495,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "KiÕm C«n L«n",
nFirstEquipId = 2505,
tbEquipName =
{
"D©y chuyÒn´", "Nãn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Vò khÝ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
},
},
}
local tbEquipFreeCell =
{
{2, 1}, {2, 2}, {1, 1}, {1, 2}, {2, 1}, --¾±´ø£¬¶¥´÷£¬ÉϽ䣬»¤Íó£¬Ñ ü´ø
{2, 3}, {2, 4}, {2, 2}, {1, 2}, {1, 1}, --Ò¢ÎÎäÆ÷£¬Ñ¥×Ó£¬Ñü×¹£¬Ï ¢½ä
}
local tbFactionSeries =
{
[1] = {1, 2},
[2] = {3, 4},
[3] = {5, 6},
[4] = {7, 8},
[5] = {9, 10},
}
local tbFreeItem =
{
{szName="CÈm nang t¸i t¹o lÔ bao", tbProp={6,1,1781,1,0,0}, tbParam={60}},
--{szName="§å phæ Hoµng Kim - U Lung MÆc Thï NhuyÔn Lý ", tbProp={6,1,298,1,0,0}},
{szName="Hép lÖ vËt [qu¶ Huy Hoµng]", tbProp={6,1,1075,1,0,0}},
{szName="Khiªu chiÕn lÔ bao", tbProp={6,1,2006,1,0,0}},
{szName="ThËp toµn ®¹i bæ thÇn ®an", tbProp={6,1,1399,1,0,0}},
{szName="Viªm §Õ BÝ B¶o", tbProp={6,1,2805,1,0,0}},
{szName="Vâ L©m MËt Th", tbProp={6,1,1477,1,0,0}},
--{szName="Lùc m¹nh", tbProp={6,1,2517,1,0,0}},
{szName="H¹t Thiªn TuÕ", tbProp={6,1,30109,1,0,0}},
{szName="Vßng Hoa Tù Do", tbProp={6,1,30035,1,0,0}},
{szName="H·n HuyÕt Long C©u", tbProp={0,10,18,1,0,0}, nWidth=2, nHeigth=3},
}
local tbGMAccount = {""}
function main()
dofile("script/global/·ÈË_Àñ¹Ù.lua");
dialog_main()
end
--================================================== ========================================
Include("\\script\\global\\repute_head.lua")
Include("\\script\\misc\\league_cityinfo.lua")
function dmcreattongtest()
local strTongName = GetTongName()
local tszTitle = "HÖ thèng <color=yellow>Bang Héi<color>"
if (strTongName == nil or strTongName == "") then
Say(tszTitle,4,"T¹o ®iÒu kiÖn lËp bang/dmcreatetong","Tham gia bang/dmjointong","T¹o bang/dmcreateit","KÕt thóc ®èi tho¹i")
else
Say(tszTitle,0)
end
end
function dmcreatetong()
if GetCamp() ~= 4 then
SetCamp(4)
SetCurCamp(4)
AddRepute(100000)
AddLeadExp(1000000)
AddLeadExp(1000000)
AddLeadExp(1000000)
AddEventItem(195)
Earn(1000000)
if GetLevel() <= 100 then
for i=1,100 do
AddOwnExp(100000000)
end
end
Msg2Player("<color=yellow>Thao t¸c thµnh c«ng<color>")
else
end
end
function dmjointong()
if GetCamp() ~= 4 then
if GetLevel() <= 100 then
for i=1,100 do
AddOwnExp(100000000)
end
end
SetCamp(4)
SetCurCamp(4)
Msg2Player("<color=yellow>Thao t¸c thµnh c«ng<color>")
else
end
end
function dmcreateit()
Tong_name,oper = GetTong()
if (oper == 0) and (GetTask(99) == 1) then
Say("TiÕp tôc t¹o bang." ,2,"T¹o bang/Direct_CreateTong","Chß mét phót/wait_a_moment")
elseif (oper == 0) and (GetCamp() == 4) and (GetLevel() >= 50) and (GetReputeLevel(GetRepute()) >= 6) and (GetLeadLevel() >= 30) and (HaveItem(195) == 1) then
Talk(6,"create_pay", "Ngêi ch¬i: KiÕm hiÖp chëng m«n nh©n, xin hái ta ph¶i lµm nh thÕ nµo míi ca thÓ khai t«ng lËp ph¸i trë thµnh Bang chñ ®©y?", "KiÕm hiÖp chëng m«n nh©n: §Çu tiªn ng¬i ph¶i ca ®ñ n¨ng lùc l·nh ®¹o, ca 16 ngêi cïng chU híng cïng ng¬i lËp bang, tr¶i qua 3 ngµy Kh¶o NghiÖm Kú ", "Chëng m«n nh©n: NOu trong 3 ngµy ca ngêi rêi bang th× néi trong 3 ngµy ®a ngêi ph¶i t×m ngêi kh¸c thay thO.", "Chëng m«n nh©n: Ng¬i ph¶i ca ®ñ tµi l·nh ®¹o vµ tUn vËt ®a lµ Nh¹c V¬ng KiOm", "Ngêi ch¬i: Nh¹c V¬ng KiOm ? Ngêi nai lµ thanh kiOm nµy µ ? ", "KiOm hiÖp chëng m«n nh©n : Th× ra lµ ng¬i ®· ca na... Kh«ng tÖ, qu¶ nhiªn tuæi trÎ tµi cao!!! ")
else
i = random(0,1)
if (i == 0) then
Talk(1,"", "KiÕm hiÖp chëng m«n nh©n: nÕu nh tëng thµnh lËp chÝnh ®Ých bang héi, sÏ v× tha nç lùc ®¹i lîng thêi gian tinh lùc d÷ t©m huyÕt, thiÕt bÊt kh¶ bá vë nöa chõng")
else
Talk(6,"", "KiÕm hiÖp chëng m«n nh©n: ng¬i vÊn thµnh lËp bang héi h÷u ®iÒu kiÖn g×, ta lai chËm r·i ®Ých gi¶ng cho ng¬i nghe", "KiÕm hiÖp chëng m«n nh©n: ®Çu tiªn ng¬i ph¶i ®· xuÊt s ®éc lËp míi bíc ch©n vµo giang hå; thø nh× ng¬i kh«ng thÓ t¹i bÊt luËn c¸i g× bang héi trung; lÇn thø hai ng¬i yÕu cã nhÊt ®Þnh ®Ých giang hå danh väng; tèi hËu cña ng¬i chØ huy lùc bÊt n¨ng nhá 30 cÊp")
end
end
end
function create_pay()
Say("B¹n cã ®ñ tiÒn ®Ó tiÕp tôc kh«ng?" ,2,"Kh«ng thµnh vÊn ®Ò, ta ®· cã 100 v¹n lîng ®©y råi/create_pay_yes","§¾t qu¸, ta kh«ng tr¶ ®©u/create_pay_no")
-- Say("½£ÏÀÕÆÃÅÈË£ºÄÇô£¬ÄãÖ»ÒªÓ Ð×ã¹»µÄ×ʽðÈðïÅÉÄܹ»ÔËת ÆðÀ´¾Í¿ÉÒÔÁË£¬±ÈÈç˵Óиö10 0ÍòÁ½Á½×Ó°É¡£" ,2,"ûÎÊî}£¬?ÒÒѾÓ?00ÍòÁ½Á½×ÓÁ� �/create_pay_yes","Ì«·ÑÇ®?Ë£¬ÉÙÒ»µãÐв»Ð?create_p ay_no")
end
function create_pay_yes()
if (GetCash() >= 1000000) then
Pay(1000000) -- ÊÕ·Ñ
DelItem(195) -- ɾ³ýϵ¹ØµÀ¾ß
SetTask(99,1) -- ²¢´òÉϱê¼Ç£¨Í¬Ê±¶¨ÒåΪ°ïÅ ÉÖеĵÚÒ»¸öÈË£¨¼´°ïÖ÷±¾ÈË £©£©
Direct_CreateTong() -- ¿ªÊ¼½¨°ï
else
Talk(1,"", "Kh«ng ®ñ tiÒn ®Ó t¹o bang") end
end
function Direct_CreateTong()
CreateTong(1) -- µ¯³ö½¨°ï¶Ô»°¿ò£¬½áÊø½Å±¾¿ ØÖÆ
end
--================================================== ========================================
function menu_opentest()
Say("Ta lµ ngêi phô tr¸ch c¸c sù kiÖn quang träng trong n¨m, cã viÖc g× cø ®Õn t×m ta \n HiÖn nay <color=red>Nam Cung NhÊt Thiªn <color> ®ang cho test c¸c chøc n¨ng cña Server, b¹n h·y chän chøc n¨ng cÇn Test.",30,
"Trang bÞ/zitem",
"NhËn Bé Kim Phong/nhan_kimphong",
"NhËn Trang bÞ tÝm/dotim",
--"Mét sè Trang bÞ/moreitem",
"TiÒn ®ång /nhan_td",
"LÖnh bµi Boss /gm_functionboss",
"Mµu PK/trangthai",
"§æi N÷ Thiªn V¬ng Bang/nukim",
"Mét sè vËt phÈm kh¸c/moreitemvay",
"NhËn ®iÓm/hotro",
"Trang bÞ hiÕm/trangbihiem",
--"LËp bang héi/create_pay_yes",
"Up Level ®Õn 190/level_up_to190",
"Chän m«n ph¸i cÇn gia nhËp/choose_faction",
--"NhËn TÝn vËt Bang héi/dmcreatetong",
"KÕt thóc ®èi tho¹i/no")
end
----------------------------------------------------------------------
function no()
Talk(1,"","Chóc b¹n vui vÎ, nÕu ph¸t hiÖn ra bug h·y b¸o ngay víi GM ®Ó nhËn thëng vµ cïng x©y dùng Server hoµn thiÖn!")
end
function level_up_to190()
local nCurLevel = GetLevel()
Earn(1000000)
if nCurLevel >= 190 then
if ST_IsTransLife() == 1 then
Talk(1, "", "Chóc b¹n test vui vÏ")
else
Talk(1, "", "Cïng chung tay x©y dùng mét server hoµn thiÖn!")
end
return
end
local nAddLevel = 190 - nCurLevel
ST_LevelUp(nAddLevel)
end
function zitem()
Say("Xin mêi chän trang bÞ cÇn test",4,"Trang bÞ hoµng kim/golditem","Trang BÞ xanh/item","C¸c lo¹i chiÕn m·/horse","KÕt thóc ®èi tho¹i/no")
end
function item()
Say("Xin mêi chän trang bÞ cÇn test",7,"MÆt N¹/mask","Nãn/helm","Bao tay/cuff","D©y Lng/belt","Giµy/boot","¸o/armor","KÕt thóc ®èi tho¹i/no")
end
function armor()
Say("Xin mêi chän trang bÞ cÇn test",6,"¸o hÖ kim/addarmor","¸o hÖ méc/addarmor","¸o hÖ thñy/addarmor","¸o hÖ háa/addarmor","¸o hÖ thæ/addarmor","KÕt thóc ®èi tho¹i/no")
end
function addarmor(n)
Sex=GetSex()
if Sex==0 then
AddItem(0,2,4,10,n,10,10)
Msg2Player("b¹n nhËn ®îc mét §êng Nghª gi¸p!")
else
AddItem(0,2,23,10,n,10,10)
Msg2Player("b¹n nhËn ®îc mét Cöu VÜ B¹ch Hå trang")
end
end
function boot()
Say("Xin mêi chän trang bÞ cÇn test",6,"Giµy hÖ kim/addboot","Giµy hÖ méc/addboot","Giµy hÖ thñy/addboot","Giµy hÖ háa/addboot","Giµy hÖ thæ/addboot","KÕt thóc ®èi tho¹i/no")
end
function addboot(n)
Sex=GetSex()
if Sex==0 then
AddItem(0,5,0,10,n,10,10)
Msg2Player("b¹n nhËn ®îc mét Cöu TiÕt X¬ng VÜ Ngoa!")
else
AddItem(0,5,3,10,n,10,10)
Msg2Player("b¹n nhËn ®îc mét Phi Phông Ngoa!")
end
end
function belt()
Say("Xin mêi chän trang bÞ cÇn test",6,"D©y Lng hÖ kim/addbelt","D©y Lng hÖ méc/addbelt","D©y Lng hÖ thñy/addbelt","D©y Lng hÖ háa/addbelt","D©y Lng hÖ thæ/addbelt","KÕt thóc ®èi tho¹i/no")
end
function addbelt(n)
Sex=GetSex()
AddItem(0,6,0,10,n,10,10)
Msg2Player("b¹n nhËn ®îc mét D©y Lng!!")
end
function cuff()
Say("Xin mêi chän trang bÞ cÇn test",6,"Bao tay hÖ kim/addcuff","Bao tay hÖ méc/addcuff","Bao tay hÖ thñy/addcuff","Bao tay hÖ háa/addcuff","Bao tay hÖ thæ/addcuff","KÕt thóc ®èi tho¹i/no")
end
function addcuff(n)
Sex=GetSex()
if Sex==0 then
AddItem(0,8,1,10,n,10,10)
Msg2Player("b¹n nhËn ®îc mét bao tay!")
else
AddItem(0,8,0,10,n,10,10)
Msg2Player("b¹n nhËn ®îc mét bao tay!")
end
end
function mask()
i=random(209,217)
AddItem(0,11,i,0,0,0,0)
Msg2Player("b¹n nhËn ®îc mét mÆt n¹!")
end
function helm()
Say("Xin mêi chän trang bÞ cÇn test",6,"Nãn hÖ kim/addhelm","Nãn hÖ méc/addhelm","Nãn hÖ thñy/addhelm","Nãn hÖ háa/addhelm","Nãn hÖ thæ/addhelm","KÕt thóc ®èi tho¹i/no")
end
function addhelm(n)
Sex=GetSex()
if Sex==0 then
AddItem(0,7,2,10,n,10,10)
else
AddItem(0,7,10,10,n,10,10)
end
end
function horse()
Say("Xin mêi chän trang bÞ cÇn test",7,"¤ V©n §¹p TuyÕt/addhorse","XÝch Thè/addhorse","TuyÖt ¶nh/addhorse","§Ých L«/addhorse","ChiÕu D¹ Ngäc S Tö/addhorse","B«n Tiªu/addhorse","KÕt thóc ®èi tho¹i/no")
end
function addhorse(n)
if n == 0 then
Msg2Player("B¹n nhËn ®îc ¤ V©n §¹p TuyÕt!")
AddItem(6,1,1675,0,0,0)
elseif n == 1 then
AddItem(6,1,2268,0,0,0)
Msg2Player("B¹n nhËn ®îc XÝch Thè!")
elseif n == 2 then
AddItem(6,1,2163,0,0,0)
Msg2Player("B¹n nhËn ®îc TuyÖt ¶nh")
elseif n == 3 then
AddItem(6,1,1309,0,0,0)
Msg2Player("B¹n nhËn ®îc §Ých L«")
elseif n == 4 then
AddItem(6,1,2409,0,0,0)
Msg2Player("B¹n nhËn ®îc ChiÕu D¹ Ngäc S Tö")
elseif n == 5 then
AddItem(6,1,1254,1,0,0)
Msg2Player("B¹n nhËn ®îc B«n Tiªu")
end
end
function golditem()
Say("Xin mêi chän trang bÞ cÇn test",6,"Vò khÝ hoµng kim m«n ph¸i/addgold","Trang bÞ an bang/addgold","Trang bÞ nhu t×nh/addgold","Trang bÞ ®Þnh quèc/addgold","Trang bÞ Hång ¶nh/addgold","KÕt thóc ®èi tho¹i/no")
end
function addgold(n)
if n==0 then
player_Faction = GetFaction()
if (player_Faction == "emei") then
AddGoldItem(0,31)
AddGoldItem(0,39)
AddGoldItem(0,40)
AddGoldItem(0,42)
Msg2Player("NhËn ®îc vò khÝ Hoµng Kim M«n Ph¸i Nga My")
elseif (player_Faction == "cuiyan") then
AddGoldItem(0,46)
AddGoldItem(0,51)
Msg2Player("NhËn ®îc vò khÝ Hoµng Kim M«n Ph¸i Thóy Yªn")
elseif (player_Faction == "tangmen") then
AddGoldItem(0,71)
AddGoldItem(0,76)
AddGoldItem(0,87)
AddGoldItem(0,81)
Msg2Player("NhËn ®îc vò khÝ Hoµng Kim M«n Ph¸i §êng M«n")
elseif (player_Faction == "wudu") then
AddGoldItem(0,60)
AddGoldItem(0,61)
AddGoldItem(0,67)
Msg2Player("NhËn ®îc vò khÝ Hoµng Kim M«n Ph¸i Ngò §éc")
elseif (player_Faction == "tianwang") then
AddGoldItem(0,16)
AddGoldItem(0,21)
AddGoldItem(0,26)
Msg2Player("NhËn ®îc vò khÝ Hoµng Kim M«n Ph¸i")
elseif (player_Faction == "shaolin") then
AddGoldItem(0,2)
AddGoldItem(0,6)
AddGoldItem(0,11)
Msg2Player("NhËn ®îc vò khÝ Hoµng Kim M«n Ph¸i")
elseif (player_Faction == "wudang") then
AddGoldItem(0,119)
AddGoldItem(0,121)
AddGoldItem(0,116)
Msg2Player("NhËn ®îc vò khÝ Hoµng Kim M«n Ph¸i")
elseif (player_Faction == "kunlun") then
AddGoldItem(0,126)
AddGoldItem(0,132)
AddGoldItem(0,136)
Msg2Player("NhËn ®îc vò khÝ Hoµng Kim M«n Ph¸i")
elseif (player_Faction == "tianren") then
AddGoldItem(0,101)
AddGoldItem(0,107)
AddGoldItem(0,115)
Msg2Player("NhËn ®îc vò khÝ Hoµng Kim M«n Ph¸i Thiªn NhÉn")
elseif (player_Faction == "gaibang") then
AddGoldItem(0,94)
AddGoldItem(0,96)
Msg2Player("NhËn ®îc vò khÝ Hoµng Kim M«n Ph¸i C¸i Bang")
else
Talk(1,"","b¹n cÇn gia nhËp m«n ph¸i míi cã thÓ sö dông chøc n¨ng nµy!")
end
elseif n==1 then
AddGoldItem(0,164)
AddGoldItem(0,165)
AddGoldItem(0,166)
AddGoldItem(0,167)
Msg2Player("NhËn ®îc Trang BÞ An Bang!")
elseif n==2 then
AddGoldItem(0,190)
AddGoldItem(0,191)
AddGoldItem(0,192)
AddGoldItem(0,193)
Msg2Player("NhËn ®îc Trang BÞ Nhu T×nh")
elseif n==3 then
AddGoldItem(0,159)
AddGoldItem(0,160)
AddGoldItem(0,161)
AddGoldItem(0,162)
AddGoldItem(0,163)
Msg2Player("NhËn ®îc Trang BÞ §Þnh quèc!")
elseif n==4 then
AddGoldItem(0,204)
AddGoldItem(0,205)
AddGoldItem(0,206)
AddGoldItem(0,207)
Msg2Player("NhËn ®îc Trang BÞ Hång ¶nh!")
end
end
function goipet()
PARTNER_SetCallOutSwitch(1) --cái này t?m h?u là d? th?c thi du?c hàm CallOutCurParner ? du?i là fai d? 1 , 0: là xóa pet.
local partneridex = PARTNER_AddFightPartner(3,3,4,5,5,5,5,5,5) --dây là lo?i pet mình chua tìm h?u k? m?i coi so so ai mún h?u k? hon cú vào partner folder mà tìm h?u.
PARTNER_CallOutCurPartner(1) --hàm g?i pet. 1: g?i , 0 : là ko thì fai
end
---------------------------------------------------------------------------------
function xoapet()
PARTNER_SetCallOutSwitch(0) --cái này t?m h?u là d? th?c thi du?c hàm CallOutCurParner ? du?i là fai d? 1 , 0: là xóa pet.
local partneridex = PARTNER_AddFightPartner(3,3,4,5,5,5,5,5,5) --dây là lo?i pet mình chua tìm h?u k? m?i coi so so ai mún h?u k? hon cú vào partner folder mà tìm h?u.
PARTNER_CallOutCurPartner(0) --hàm g?i pet. 1: g?i , 0 : là ko thì fai
end
---------------------------------
function Hoasonskill()
for i=5290,5299 do
AddGoldItem(0,i)
AddMagic(1384,15)
AddMagic(1380,15)
end
end
---------------------------
function dialog_main()
local szTitle = "<npc>LÔ quan"
local tbOpt =
{
{"Menu chøc n¨ng Thö NghiÖm", menu_opentest},
{"NhËn LB Admin", lbadmin},
{"n©ng cÊp b¹ch kim", wantt_upgoldeq},
{"Qu¶n lý Top", tbTop10.MainDialog, {tbTop10}},
-- {"Test Skill Hoa S¬n", Hoasonskill},
-- {"Xoa Pet", xoapet},
--{"NhËn §Òn Bï - Hç Trî Trang BÞ Hoµng Kim", tbHotroTrangBiHK2014.GetAward},
-- {"NhËn trao gi¶i sù kiÖn §ua Top", tbTraoGiaiTop10.GetAward},
--{"NhËn trao gi¶i sù kiÖn §ua Top (M«n Ph¸i)", tbTraoGiaiTop10_MonPhai.GetAward},
-- {"NhËn Hç Trî §iÓm Kinh NghiÖm", tbHoTroExp.GetAward},
--{"NhËn Hç Trî T©n Thñ ", tbHoTroTanThuThang5.GetAward},
--{"NhËn Hç Trî §¹i BCH", tbHoTroTanDenBuDaiBCH.GetAward},
{"T«i muèn kiÓm tra hÖ thèng Bang Héi", dmcreattongtest},
-- {"T«i muèn th»ng cÊp lªn 190", level_up_to190},
{"T«i muèn trïng sinh", transfer},
-- {"T«i muèn chän m«n ph¸i cïng kÜ n¨ng n¨ng 150", choose_faction},
-- {"T«i muèn nhËn trang bÞ B¹ch Hæ", show_faction},
{"T«i muèn mét sè vËt phÈm", show_item},
{"T«i muèn tÈy tñy", clear_attibute_point},
{"Hñy vËt phÈm", DisposeItem},
{"KÕt thóc ®èi tho¹i"},
}
local szAccount = GetAccount()
for i=1, getn(%tbGMAccount) do
if szAccount == %tbGMAccount[i] then
tinsert(tbOpt, 1, {"ChuyÓn thµnh tµi kho¶n GM", gm_function})
--tinsert(tbOpt, 1, {"NhËn lÖnh bµi BOSS", gm_functionboss})
--tinsert(tbOpt, 1, {"T«i muèn th»ng cÊp lªn 190", level_up_to190})
--tinsert(tbOpt, 1, {"T«i muèn nhËn trang bÞ", show_item})
--tinsert(tbOpt, 1, {"T«i muèn nhËn trang bÞ B¹ch Hæ", show_faction})
--tinsert(tbOpt, 1, {"T«i muèn tÈy tñy", clear_attibute_point})
break
end
end
CreateNewSayEx(szTitle, tbOpt)
end
function wantt_upgoldeq()
GiveItemUI("N©ng CÊp Trang BÞ HKMP "," Thµnh Trang bÞ B¹ch Kim", "doo_upgoldeq_process",1);
end
function doo_upgoldeq_process()
UpgradePlatinaFromGoldItem(GetGiveItemUnit(1)) --> hàm up t? trang b? HKMP thành BK
for i = 1,10 do -->> nâng c?p thì trang b? HKMP thành BK s? t? lên +10 , n?u ai k thích mu?n +7 +8 thì d?i cái s? 10 thành 7 ho?c 8
UpgradePlatinaItem(GetGiveItemUnit(1)) ---> dây là hàm up trang b? bk lên +10
end
end
function gm_functionboss()
for i =1,10 do
AddItem(6,1,1481,0,0,0)
end
end
function lbadmin()
local index = AddItem(6,1,4633,0,0,0,0)
SetItemBindState(index,-2)
Msg2Player("B¹n nhËn ®îc LÖnh Bµi ADMIN.")
end
function wantt_upgoldeq()
GiveItemUI("N©ng CÊp Trang BÞ HKMP "," Thµnh Trang bÞ B¹ch Kim", "doo_upgoldeq_process",1);
end
function doo_upgoldeq_process()
UpgradePlatinaFromGoldItem(GetGiveItemUnit(1)) --> hàm up t? trang b? HKMP thành BK
for i = 1,10 do -->> nâng c?p thì trang b? HKMP thành BK s? t? lên +10 , n?u ai k thích mu?n +7 +8 thì d?i cái s? 10 thành 7 ho?c 8
UpgradePlatinaItem(GetGiveItemUnit(1)) ---> dây là hàm up trang b? bk lên +10
end
end
function gm_function()
local nCurLevel = GetLevel()
if nCurLevel < 150 then
ST_LevelUp(150 - nCurLevel)
end
SetFightState(0)
SetCamp(6)
SetCurCamp(6)
AddMagic(732, 1)--˲ÒÆ
AddMagic(733, 1)--ÒþÉí
if CalcFreeItemCellCount() >= 1 then
local tbItem = {szName="´«ËÝȨÕÈ", tbProp={6,1,2766,1,0,0}, nBindState=-2}
tbAwardTemplet:GiveAwardByList(tbItem, "gmÕ˺ŸìÈ¡µµ¾ß", 1)
end
end
function level_up_to150()
local nCurLevel = GetLevel()
if nCurLevel >= 150 then
if ST_IsTransLife() == 1 then
Talk(1, "", "Ng¬i ®· ®¹t cÊp 150 råi.")
else
Talk(1, "", "§i chuyÓn sinh tríc ®i råi trë l¹i th¨ng cÊp.")
end
return
end
local nAddLevel = 150 - nCurLevel
ST_LevelUp(nAddLevel)
end
function level_up_to190()
local nCurLevel = GetLevel()
if nCurLevel >= 190 then
if ST_IsTransLife() == 1 then
Talk(1, "", "Ng¬i ®· ®¹t cÊp 190 råi.")
else
Talk(1, "", "§i chuyÓn sinh tríc ®i råi trë l¹i th¨ng cÊp.")
end
return
end
local nAddLevel = 190 - nCurLevel
ST_LevelUp(nAddLevel)
end
function transfer()
if GetLevel() < 190 then
Talk(1, "", "CÊp 190 trë lªn míi ca thÓ chuyÓn sinh.")
return
end
if (GetCash() <= 100000000) then
Talk(1, "", "Ph¶i ca ®ñ 10k v¹n míi ca thÓ chuyÓn sinh.")
return
end
Pay(100000000)
ST_DoTransLife()
end
function check_faction()
local szCurFaction = GetFaction()
if szCurFaction ~= nil and szCurFaction ~= "" then
return
end
return 1
end
function choose_faction()
if check_faction() ~= 1 then
Talk(1, "", "B¹n ®· gia nhËp m«n ph¸i råi!")
return
end
local nSeries = GetSeries() + 1
local tbOpt = {}
for i=1, getn(%tbFactionSeries[nSeries]) do
local nIndex = %tbFactionSeries[nSeries][i]
tinsert(tbOpt, {%tbFaction[nIndex].szShowName, set_faction, {nIndex}})
end
tinsert(tbOpt, {"Trë l¹i trang tríc ®ã", dialog_main})
tinsert(tbOpt, {"KÕt thóc ®èi tho¹i"})
CreateNewSayEx("<npc>Kh«ng thÓ thay ®æi m«n ph¸i khi ®· gia nhËp, b¹n h·y suy nghÜ kÜ cµng", tbOpt)
end
function set_faction(nIndex)
local szTitle = format("<npc>X¸c nh¹n muèn gia nhËp <color=yellow>%s<color> ?", %tbFaction[nIndex].szShowName)
local tbOpt =
{
{"X¸c nhËn", do_set_faction, {nIndex}},
{"Trë l¹i trang tríc ®ã", choose_faction},
{"Ta cÇn suy nghÜ thªm"},
}
CreateNewSayEx(szTitle, tbOpt)
end
function do_set_faction(nIndex)
if check_faction() ~= 1 then
Talk(1, "", "B¹n ®· gia nhËp m«n ph¸i råi!")
return
end
local nResult = SetFaction(%tbFaction[nIndex].szFaction)
if nResult == 0 then
return
end
DynamicExecuteByPlayer(PlayerIndex, "\\script\\gmscript.lua", "AddSkills", %tbFaction[nIndex].nShortFaction, 0)
for i=1, getn(%tbFaction[nIndex].tbSkill) do--90£¬120£¬150¼¶¼¼ÄÜ
AddMagic(%tbFaction[nIndex].tbSkill[i], 20)
end
AddMagic(210, 1)--Ò»¼¶ÇṦ
Talk(1, "KickOutSelf", format("Gia nhËp m«n ph¸i %s", %tbFaction[nIndex].szShowName))
end
function show_faction()
if check_faction() == 1 then
Talk(1, "", "Ph¶i gia nhËp m«n ph¸i míi cã thÓ nhËn trang bÞ")
return
end
local nFactionId = GetLastFactionNumber() + 1
local tbOpt = {}
local tbSubFaction = %tbFaction[nFactionId].tbEquip
for i=1, getn(tbSubFaction) do
tinsert(tbOpt, {tbSubFaction[i].szFaction, show_equip, {nFactionId, i}})
end
tinsert(tbOpt, {"Trë l¹i trang tríc ®ã", dialog_main})
-- tinsert(tbOpt, {" áÊø¶Ô»?})
tinsert(tbOpt, {"KÕt thóc ®èi tho¹i"})
CreateNewSayEx("<npc>Xin mêi lùa chän m«n ph¸i", tbOpt)
end
function show_equip(nFactionId, nSubFactionId)
local tbEquip = %tbFaction[nFactionId]["tbEquip"][nSubFactionId]
local tbEquipName = tbEquip["tbEquipName"]
local nFirstEquipId = tbEquip["nFirstEquipId"]
local tbOpt = {}
for i=1, getn(tbEquipName) do
tinsert(tbOpt, {tbEquipName[i], get_equip, {i, nFirstEquipId + i - 1}})
end
tinsert(tbOpt, {"Trë l¹i trang tríc ®ã", show_faction})
tinsert(tbOpt, {"KÕt thóc ®èi tho¹i"})
local szTitle = format("<npc>LÊy ®å %s B¹ch Hæ", tbEquip.szFaction)
CreateNewSayEx(szTitle, tbOpt)
end
function get_equip(nIndex, nEquipId)
local nWidth = %tbEquipFreeCell[nIndex][1]
local nHeigth = %tbEquipFreeCell[nIndex][2]
if CountFreeRoomByWH(nWidth, nHeigth) < 1 then
Talk(1, "", format("CÇn Ýt nhÊt 1 c¸i %dx%d tói ®eo lng", nWidth, nHeigth))
return
end
AddGoldItem(0, nEquipId)
end
function show_item()
local tbOpt = {}
local nCount = getn(%tbFreeItem)
local szOption = ""
for i=1, nCount-1 do
szOption = format("NhËn %s", %tbFreeItem[i].szName)
tinsert(tbOpt, {szOption, get_item, {i}})
end
szOption = format("NhËn %s", %tbFreeItem[nCount].szName)
tinsert(tbOpt, {szOption, get_single_item, {nCount}})
tinsert(tbOpt, {"NhËn cùc phÈm giíi chØ...", get_normal_item})
tinsert(tbOpt, {"Trë vÒ.", dialog_main})
tinsert(tbOpt, {"KÕt thóc ®èi tho¹i."})
CreateNewSayEx("<npc>l·o phu n¬i nµy cã h¬i thë nhãm vËt phÈm nhng nhËn lÊy", tbOpt)
end
function get_normal_item()
local tbOpt =
{
{"NhËn 5 viªn KNB.", cszb},
{"Hng Bang Chi Giíi", xb_jz},
{"TrÊn Nh¹c Chi Giíi", zy_jz},
{"Thîng Ph¬ng Chi Giíi", sf_jz},
{"Thiªn Hµ Giíi", sh_jz},
{"§Õ Hoµng Chi Giíi", dh_jz},
{"Thiªn Tö Chi Giíi", tz_jz},
{"ThÕ Tóc Toµn Giíi", sz_jz},
{"Cµn Kh«n Giíi ChØ (Cùc phÈm)", jz08},
{"L·nh B¸ Nguyªn Méng Chi Giíi (Míi)", jz08x},
{"Trë vÒ.", dialog_main},
{"KÕt thóc ®èi tho¹i."},
}
CreateNewSayEx("<npc>L·o phu cã mét sè mãn cùc phÈm, ngêi cÇn thøc g× ?", tbOpt)
end
function cszb()
AddEventItem(343)
AddEventItem(343)
AddEventItem(343)
AddEventItem(343)
AddEventItem(343)
end
function xb_jz()
AddGoldItem(0, 508)
end
function zy_jz()
AddGoldItem(0, 509)
end
function sf_jz()
AddGoldItem(0, 510)
end
function sh_jz()
AddGoldItem(0, 511)
end
function dh_jz()
AddGoldItem(0, 530)
end
function tz_jz()
AddGoldItem(0, 531)
end
function sz_jz()
AddGoldItem(0, 498)
end
function jz08()
AddGoldItem(0, 428)
end
function jz08x()
AddGoldItem(0, 3541)
end
function get_item(nIndex)
local nMaxCount = CalcFreeItemCellCount()
g_AskClientNumberEx(0, nMaxCount, "Xin mêi ®a vµo nhËn lÊy", {get_item_back, {nIndex}})
end
function get_item_back(nIndex, nCount)
if nCount <= 0 then
return
end
if CalcFreeItemCellCount() < nCount then
Talk(1, "", format("CÇn Ýt nhÊt <color=yellow>%d<color> tói kh«ng gian...", nCount))
return
end
local szLogTitle = format("[liguan]get_free_item_%s", %tbFreeItem[nIndex].szName)
tbAwardTemplet:GiveAwardByList(%tbFreeItem[nIndex], szLogTitle, nCount)
end
function get_single_item(nIndex)
local tbItem = %tbFreeItem[nIndex]
if CountFreeRoomByWH(tbItem.nWidth, tbItem.nHeigth) < 1 then
Talk(1, "", format("CÇn Ýt nhÊt 1 %d .....", tbItem.nWidth, tbItem.nHeigth))
return
end
local szLogTitle = format("[liguan]get_free_item_%s", tbItem.szName)
tbAwardTemplet:GiveAwardByList(tbItem, szLogTitle)
end
function clear_attibute_point()
local tbOpt =
{
{"TÈy ®iÓm kü n¨ng", clear_skill},
{"TÈy ®iÓm t×m n¨ng", clear_prop},
{"Trë l¹i trang tríc ®ã", dialog_main},
{"KÕt thóc ®èi tho¹i"},
}
CreateNewSayEx("<npc>Ng¬i quyÕt ý muèn tÈy tñy?", tbOpt)
end
function clear_skill()
local tbOpt =
{
{"X¸c nhËn", do_clear_skill},
{"§Ó ta suy nghÜ thªm"},
{"Trë l¹i trang tríc ®ã", clear_attibute_point},
}
CreateNewSayEx("<npc>B¹n cã quyÕt ®Þnh tÈy tñy kh«ng?", tbOpt)
end
function do_clear_skill()
local i = HaveMagic(210) -- ÇṦÁíÍâ²Ù×÷
local j = HaveMagic(400) -- ¡°½Ù¸»¼Ãƶ¡±ÁíÍâ²Ù×÷
local n = RollbackSkill() -- Çå³ý¼¼Äܲ¢·µ»ØËùÓм¼ÄÜ?ã£� �°üÀ¨ÇṦµÈÌØÊâ¼¼ÄÜ£?
local x = 0
if (i ~= -1) then i = 1; x = x + i end -- ÕâÁ½¾äÅжÏÊÇÅųý´Óδѧ¹ýÇ á¹¦µÄÈË·µ»Ø-1´Ó¶øµ¼Ö¢µãÊý¼ÆËã´íÎóÇé¿ö
if (j ~= -1) then x = x + j end
local rollback_point = n - x -- °Ñ¼¼Äܵ㵱×ö¿ÕÏеãÊý·µ»¹£ ¬µ«ÏÈ?Û³ýÇṦµ?
if (rollback_point + GetMagicPoint() < 0) then -- Èç¹ûÏ´³ÉÁ˸ºÊý£¬Ôòµ±×÷0£¨� �ªÒԺ󶵴ÎÏ´µã±£?ô£?
rollback_point = -1 * GetMagicPoint()
end
AddMagicPoint(rollback_point)
if (i ~= -1) then AddMagic(210, i) end -- Èç¹ûѧ¹ýÇṦÔò¼Ó»ØÔÓеȼ ¶
if (j ~= -1) then AddMagic(400, j) end -- Èç¹ûѧ¹ý¡°½Ù¸»¼Ãƶ¡±Í¬Ñù´ ¦Àí
Msg2Player("TÈy tñy thµnh c«ng! Ng¬i cã "..rollback_point.." ®iÓm kü n¨ng ®Ó ph©n phèi l¹i.")
KickOutSelf()
end
function clear_prop()
local tbOpt =
{
{"X¸c nhËn", do_clear_prop},
{"§Ó ta suy nghÜ thªm"},
{"Trë l¹i trang tríc ®ã", clear_attibute_point},
}
CreateNewSayEx("<npc>B¹n cã quyÕt ®Þnh tÈy ®iÓm t×m n¨ng kh«ng?", tbOpt)
end
function do_clear_prop()
local base_str = {35,20,25,30,20} -- ÎåÐÐÈËÎïµÄÌìÉúÊôÐÔÖµ
local base_dex = {25,35,25,20,15}
local base_vit = {25,20,25,30,25}
local base_eng = {15,25,25,20,40}
local player_series = GetSeries() + 1
local Utask88 = GetTask(88)
AddStrg(base_str[player_series] - GetStrg(1) + GetByte(Utask88, 1)) -- ½«ÒÑ·ÖÅäDZÄÜÖØÖã¨task(88)ÊÇÈ ÎÎñÖÐÖ±½Ó½±ÀøµÄÁ¦Á¿¡¢Éí·¨ µÈ£©
AddDex(base_dex[player_series] - GetDex(1) + GetByte(Utask88, 2))
AddVit(base_vit[player_series] - GetVit(1) + GetByte(Utask88, 3))
AddEng(base_eng[player_series] - GetEng(1) + GetByte(Utask88, 4))
end
function write_info()
tbInputDialog:InputServer()
end
function nhan_td()
AddStackItem(100,4,417,1,1,0,0,0)
end
function nhan_kimphong()
AddGoldItem(0,177)
AddGoldItem(0,178)
AddGoldItem(0,179)
AddGoldItem(0,180)
AddGoldItem(0,181)
AddGoldItem(0,182)
AddGoldItem(0,183)
AddGoldItem(0,184)
AddGoldItem(0,185)
Msg2Player("B¹n nhËn ®îc Bé Kim Phong!")
end
function dotim()
local tab_Content = {
"Vò KhÝ/weapon",
"Y Phôc/shirt",
"§Ønh M¹o/hat",
"Hæ UyÓn/glove",
"Yªu §¸i/belt",
"Hµi Tö/shoe",
"KÕt thóc ®èi tho¹i."
}
Say(" Muèn lÊy thªm c¸i g× nµo ? ", getn(tab_Content), tab_Content);
end;
function weapon()
local tab_Content = {
"KiÕm/kiem",
"§ao/dao",
"Bæng/bong",
"Th¬ng/kick",
"Chïy/chuy",
"Song §ao/songdao",
"Phi Tiªu/phitieu",
"Phi §ao/phidao",
"Tô TiÔn/tutien",
"KÕt thóc ®èi tho¹i."
}
Say(" Muèn lÊy thªm c¸i g× nµo ? ", getn(tab_Content), tab_Content);
end;
function kiem()
AddQualityItem(2,0,0,0,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,0,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,0,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,0,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,0,10,4,0,-1,-1,-1,-1,-1,-1)
end
function dao()
AddQualityItem(2,0,0,1,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,1,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,1,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,1,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,1,10,4,0,-1,-1,-1,-1,-1,-1)
end
function bong()
AddQualityItem(2,0,0,2,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,2,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,2,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,2,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,2,10,4,0,-1,-1,-1,-1,-1,-1)
end
function kick()
AddQualityItem(2,0,0,3,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,3,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,3,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,3,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,3,10,4,0,-1,-1,-1,-1,-1,-1)
end
function chuy()
AddQualityItem(2,0,0,4,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,4,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,4,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,4,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,4,10,4,0,-1,-1,-1,-1,-1,-1)
end
function songdao()
AddQualityItem(2,0,0,5,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,5,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,5,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,5,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,0,5,10,4,0,-1,-1,-1,-1,-1,-1)
end
function phitieu()
AddQualityItem(2,0,1,0,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,1,0,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,1,0,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,1,0,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,1,0,10,4,0,-1,-1,-1,-1,-1,-1)
end
function phidao()
AddQualityItem(2,0,1,1,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,1,1,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,1,1,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,1,1,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,1,1,10,4,0,-1,-1,-1,-1,-1,-1)
end
function tutien()
AddQualityItem(2,0,1,2,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,1,2,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,1,2,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,1,2,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,1,2,10,4,0,-1,-1,-1,-1,-1,-1)
end
function shirt()
local tab_Content = {
"ThÊt B¶o Cµ Sa/aothieulam",
"Ch©n Vò Th¸nh Y/aovodang",
"Thiªn NhÉn MËt Trang/aothiennhan",
"Gi¸ng Sa Bµo/sabao",
"§êng Nghª Gi¸p/dng",
"V¹n Lu Quy T«ng Y/aocaibang",
"TuyÒn Long Bµo/longbao",
"Long Tiªu §¹o Y/daoy",
"Cöu VÜ B¹ch Hå Trang/hotrang",
"TrÇm H¬ng Sam/huongsam",
"TÝch LÞch Kim Phông Gi¸p/kimphung",
"V¹n Chóng TÒ T©m Y/tamy",
"Lu Tiªn QuÇn/tienquan",
"KÕt thóc ®èi tho¹i."
}
Say(" Muèn lÊy thªm c¸i g× nµo ? ", getn(tab_Content), tab_Content);
end;
function aothieulam()
AddQualityItem(2,0,2,0,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,0,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,0,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,0,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,0,10,4,0,-1,-1,-1,-1,-1,-1)
end
function aovodang()
AddQualityItem(2,0,2,1,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,1,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,1,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,1,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,1,10,4,0,-1,-1,-1,-1,-1,-1)
end
function aothiennhan()
AddQualityItem(2,0,2,2,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,2,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,2,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,2,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,2,10,4,0,-1,-1,-1,-1,-1,-1)
end
function sabao()
AddQualityItem(2,0,2,3,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,3,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,3,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,3,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,3,10,4,0,-1,-1,-1,-1,-1,-1)
end
function dng()
AddQualityItem(2,0,2,4,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,4,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,4,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,4,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,4,10,4,0,-1,-1,-1,-1,-1,-1)
end
function aocaibang()
AddQualityItem(2,0,2,5,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,5,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,5,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,5,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,5,10,4,0,-1,-1,-1,-1,-1,-1)
end
function longbao()
AddQualityItem(2,0,2,6,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,6,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,6,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,6,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,6,10,4,0,-1,-1,-1,-1,-1,-1)
end
function daoy()
AddQualityItem(2,0,2,8,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,8,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,8,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,8,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,8,10,4,0,-1,-1,-1,-1,-1,-1)
end
function hotrang()
AddQualityItem(2,0,2,9,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,9,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,9,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,9,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,9,10,4,0,-1,-1,-1,-1,-1,-1)
end
function huongsam()
AddQualityItem(2,0,2,10,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,10,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,10,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,10,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,10,10,4,0,-1,-1,-1,-1,-1,-1)
end
function kimphung()
AddQualityItem(2,0,2,11,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,11,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,11,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,11,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,11,10,4,0,-1,-1,-1,-1,-1,-1)
end
function tamy()
AddQualityItem(2,0,2,12,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,12,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,12,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,12,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,12,10,4,0,-1,-1,-1,-1,-1,-1)
end
function tienquan()
AddQualityItem(2,0,2,13,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,13,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,13,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,13,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,2,13,10,4,0,-1,-1,-1,-1,-1,-1)
end
function hat()
local tab_Content = {
"Tú L« M·o/lomao",
"Ngò L·o Qu¸n/laoquan",
"Tu La Ph¸t KÕt/phatket",
"Th«ng Thiªn Ph¸t Qu¸n/phatquan",
"YÓm NhËt Kh«i/nhatkhoi",
"TrÝch Tinh Hoµn/tinhhoan",
"¤ Tµm M·o/tammao",
"Quan ¢m Ph¸t Qu¸n/quanam",
"¢m D¬ng V« Cùc Qu¸n/amduong",
"HuyÒn Tª DiÖn Tr¸o/dientrao",
"Long HuyÕt §Çu Hoµn/longhuyet",
"Long L©n Kh«i/lankhoi",
"Thanh Tinh Thoa/tinhthoa",
"Kim Phông TriÓn SÝ/triensi",
"KÕt thóc ®èi tho¹i."
}
Say(" Muèn lÊy thªm c¸i g× nµo ? ", getn(tab_Content), tab_Content);
end;
function lomao()
AddQualityItem(2,0,7,0,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,0,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,0,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,0,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,0,10,4,0,-1,-1,-1,-1,-1,-1)
end
function laoquan()
AddQualityItem(2,0,7,1,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,1,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,1,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,1,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,1,10,4,0,-1,-1,-1,-1,-1,-1)
end
function phatket()
AddQualityItem(2,0,7,2,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,2,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,2,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,2,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,2,10,4,0,-1,-1,-1,-1,-1,-1)
end
function phatquan()
AddQualityItem(2,0,7,3,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,3,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,3,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,3,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,3,10,4,0,-1,-1,-1,-1,-1,-1)
end
function nhatkhoi()
AddQualityItem(2,0,7,4,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,4,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,4,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,4,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,4,10,4,0,-1,-1,-1,-1,-1,-1)
end
function tinhhoan()
AddQualityItem(2,0,7,5,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,5,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,5,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,5,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,5,10,4,0,-1,-1,-1,-1,-1,-1)
end
function tammao()
AddQualityItem(2,0,7,6,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,6,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,6,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,6,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,6,10,4,0,-1,-1,-1,-1,-1,-1)
end
function quanam()
AddQualityItem(2,0,7,7,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,7,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,7,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,7,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,7,10,4,0,-1,-1,-1,-1,-1,-1)
end
function amduong()
AddQualityItem(2,0,7,8,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,8,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,8,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,8,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,8,10,4,0,-1,-1,-1,-1,-1,-1)
end
function dientrao()
AddQualityItem(2,0,7,9,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,9,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,9,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,9,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,9,10,4,0,-1,-1,-1,-1,-1,-1)
end
function longhuyet()
AddQualityItem(2,0,7,10,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,10,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,10,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,10,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,10,10,4,0,-1,-1,-1,-1,-1,-1)
end
function lankhoi()
AddQualityItem(2,0,7,11,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,11,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,11,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,11,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,11,10,4,0,-1,-1,-1,-1,-1,-1)
end
function tinhthoa()
AddQualityItem(2,0,7,12,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,12,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,12,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,12,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,12,10,4,0,-1,-1,-1,-1,-1,-1)
end
function triensi()
AddQualityItem(2,0,7,13,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,13,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,13,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,13,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,7,13,10,4,0,-1,-1,-1,-1,-1,-1)
end
function glove()
local tab_Content = {
"Long Phông HuyÕt Ngäc Tr¹c/ngoctrac",
"Thiªn Tµm Hé UyÓn/houyen",
"KÕt thóc ®èi tho¹i."
}
Say(" Muèn lÊy thªm c¸i g× nµo ? ", getn(tab_Content), tab_Content);
end;
function ngoctrac()
AddQualityItem(2,0,8,0,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,8,0,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,8,0,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,8,0,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,8,0,10,4,0,-1,-1,-1,-1,-1,-1)
end
function houyen()
AddQualityItem(2,0,8,1,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,8,1,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,8,1,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,8,1,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,8,1,10,4,0,-1,-1,-1,-1,-1,-1)
end
function belt()
local tab_Content = {
"Thiªn Tµm Yªu §¸i/thientamyeu",
"B¹ch Kim Yªu §¸i/bachkim",
"KÕt thóc ®èi tho¹i."
}
Say(" Muèn lÊy thªm c¸i g× nµo ? ", getn(tab_Content), tab_Content);
end;
function thientamyeu()
AddQualityItem(2,0,6,0,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,6,0,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,6,0,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,6,0,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,6,0,10,4,0,-1,-1,-1,-1,-1,-1)
end
function bachkim()
AddQualityItem(2,0,6,1,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,6,1,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,6,1,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,6,1,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,6,1,10,4,0,-1,-1,-1,-1,-1,-1)
end
function shoe()
local tab_Content = {
"Cöu TiÕt X¬ng VÜ Ngoa/cuutien",
"Thiªn Tµm Ngoa/thientam",
"Kim Lò Hµi/kimlu",
"Phi Phông Ngoa/phiphung",
"KÕt thóc ®èi tho¹i."
}
Say(" Muèn lÊy thªm c¸i g× nµo ? ", getn(tab_Content), tab_Content);
end;
function cuutien()
AddQualityItem(2,0,5,0,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,0,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,0,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,0,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,0,10,4,0,-1,-1,-1,-1,-1,-1)
end
function thientam()
AddQualityItem(2,0,5,1,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,1,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,1,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,1,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,1,10,4,0,-1,-1,-1,-1,-1,-1)
end
function kimlu()
AddQualityItem(2,0,5,2,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,2,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,2,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,2,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,2,10,4,0,-1,-1,-1,-1,-1,-1)
end
function phiphung()
AddQualityItem(2,0,5,3,10,0,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,3,10,1,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,3,10,2,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,3,10,3,0,-1,-1,-1,-1,-1,-1)
AddQualityItem(2,0,5,3,10,4,0,-1,-1,-1,-1,-1,-1)
end
function trangthai()
local tbOpt =
{
{"ChÝnh ph¸i", mauvang},
{"Tµ ph¸i", mautim},
{"Trung lËp", mauxanh},
{"S¸t Thñ", maudo},
{"Trë l¹i", dialog_main},
{"Tho¸t"},
}
CreateNewSayEx("<npc>Chän mµu", tbOpt)
end
function mauvang()
SetCurCamp(1)
SetCamp(1)
CreateNewSayEx("<npc>B¹n ®æi mµu PK ChÝnh Ph¸i thµnh c«ng.", tbOpt)
end
function mautim()
SetCurCamp(2)
SetCamp(2)
CreateNewSayEx("<npc>B¹n ®æi mµu PK Tµ Ph¸i thµnh c«ng.", tbOpt)
end
function mauxanh()
SetCurCamp(3)
SetCamp(3)
CreateNewSayEx("<npc>B¹n ®æi mµu PK Trung LËp thµnh c«ng.", tbOpt)
end
function maudo()
SetCurCamp(4)
SetCamp(4)
CreateNewSayEx("<npc>B¹n ®æi mµu PK S¸t Thñ thµnh c«ng.", tbOpt)
end
function nukim()
if GetSex() == 1 then
SetSeries(0)
KickOutSelf()
else
Talk(1,"","Ng¬i lµ gay µ ?")
end
end
function moreitemvay()
local tab_Content = {
" LÊy 100 tiÒn ®ång /tiendong",
" LÊy VK HKMP /bachkim",
" LÊy 1000v lîng /tienvan",
" Th«i kh«ng lÊy g× n÷a "
}
Say(" Muèn lÊy thªm c¸i g× nµo ? ", getn(tab_Content), tab_Content);
end;
function tienvan()
Earn(10000000)
end;
function tiendong()
AddStackItem(100,4,417,1,1,0,0,0) -- nhan 100 tien dong
end;
function bachkim()
local tbOpt =
{
{"ThiÕu l©m", bktl},
{"Thiªn v¬ng", bktv},
{"®êng m«n", bkdm},
{"Ngò ®éc", bk5d},
{"Nga mi", bknm},
{"Thuý yªn", bkty},
{"C¸i bang", bkcb},
{"Thiªn nhÉn", bktn},
{"Vâ ®ang", bkvd},
{"C«n l«n", bkcl},
{"Trë l¹i", dialog_main},
{"Tho¸t"},
}
CreateNewSayEx("<npc>Chän m«n ph¸i?", tbOpt)
end
function bktl()
AddGoldItem(0, 11)
AddGoldItem(0, 6)
end
function bktv()
AddGoldItem(0, 16)
AddGoldItem(0, 21)
AddGoldItem(0, 26)
end
function bknm()
AddGoldItem(0, 31)
end
function bkty()
AddGoldItem(0, 46)
end
function bk5d()
AddGoldItem(0, 61)
end
function bkdm()
AddGoldItem(0, 71)
AddGoldItem(0, 76)
AddGoldItem(0, 81)
end
function bkcb()
AddGoldItem(0, 96)
end
function bktn()
AddGoldItem(0, 101)
end
function bkvd()
for i=4346,4355 do
AddPlatinaItem(3, i)
end
end
function bkcl()
AddGoldItem(0, 126)
end
function hotro()
local tbOpt =
{
{"T¨ng kinh nghiÖm", kn},
{"TiÒn", tien},
{"Danh väng,Phóc duyªn", danhvongphucduyen},
{"Tµi l·nh ®¹o", lanhdao},
{"§iÓm Kü N¨ng", pointkynang},
{"§iÓm TiÒm N¨ng", pointtiemnang},
{"Trë l¹i", dialog_main},
{"Tho¸t"},
}
CreateNewSayEx("<npc>Anh cÇn g×?", tbOpt)
end
function pointkynang()
AddMagicPoint(100)
CreateNewSayEx("<npc>B¹n nhËn ®îc 100 ®iÓm kü n¨ng", tbOpt)
KickOutSelf()
end;
function pointtiemnang()
AddProp(100000)
CreateNewSayEx("<npc>B¹n nhËn ®îc 100000 ®iÓm tiÒm n¨ng", tbOpt)
end;
function lanhdao()
for i=1,20 do
AddLeadExp(10000000)
end
end
function kn()
for i=1,80 do
AddOwnExp(1000000000)
end
end
function tien()
Earn(100000000)
end
function danhvongphucduyen()
AddRepute(100000);
FuYuan_Start();
FuYuan_Add(100000);
CreateNewSayEx("<npc>B¹n nhËn ®îc 10000 ®iÓm", tbOpt)
end
function trangbihiem()
local tbOpt =
{
--{"Phi phong", phiphong},
-- {"Ên", an},
--{"Trang søc", trangsuc},
{"Trang bÞ §éng S¸t", dongsat},
{"Trë l¹i", dialog_main},
{"Tho¸t"},
}
CreateNewSayEx("<npc>Chän item", tbOpt)
end
function trangsuc()
local tbOpt =
{
{"Trang søc 1", trangsuc1},
{"Trang søc 2", trangsuc2},
{"Trang søc 3", trangsuc3},
{"Trë l¹i", dialog_main},
{"Tho¸t"},
}
CreateNewSayEx("<npc>Chän item", tbOpt)
end
function an23()
local tbOpt =
{
{"Ên 1", an1},
{"Ên 2", an2},
{"Ên 3", an3},
{"Ên 4", an4},
{"Trë l¹i", dialog_main},
{"Tho¸t"},
}
CreateNewSayEx("<npc>Chän item", tbOpt)
end
function matna()
local tbOpt =
{
{"MÆt n¹ 1", matna1},
{"MÆt n¹ 2", matna2},
{"MÆt n¹ 3", matna3},
{"MÆt n¹ 4", matna4},
{"MÆt n¹ 5", matna5},
{"Trë l¹i", dialog_main},
{"Tho¸t"},
}
CreateNewSayEx("<npc>Chän item", tbOpt)
end
function phiphong()
for i=3465,3490 do
AddGoldItem(0, i)
end
end
function an()
for i=3205,3234 do
AddGoldItem(0, i)
end
end
function trangsuc1()
for i=3542,3554 do
AddGoldItem(0, i)
end
for i=3491,3506 do
AddGoldItem(0, i)
end
end
function trangsuc2()
for i=5241,5261 do
AddGoldItem(0, i)
end
end
function trangsuc3()
for i=5262,5289 do
AddGoldItem(0, i)
end
end
function dongsat()
for i=494,497 do
AddGoldItem(0, i)
end
for i=378,379 do
AddGoldItem(0, i)
end
end
--------------------------------------------
function moreitem()
local tab_Content = {
"Set Hoµng Kim M«n Ph¸i /sethkmp",
"Set XÝch L©n /setxl",
--"MÆt N¹ GM /matnagm",
"Set Minh Phîng /setmp",
--"Set Song Long /setsonglo",
"Phi Phong /phip",
---"Trang Søc /trangs",
"Kim Ên /kiman",
"Trang søc/tongh",
"Th«i kh«ng lÊy g× n÷a hÕt."
}
Say(" Muèn lÊy thªm c¸i g× nµo ? ", getn(tab_Content), tab_Content);
end;
function kiman()
AddGoldItem(0,3214)
AddGoldItem(0,3224)
AddGoldItem(0,3234)
end
function tongh()
AddGoldItem(0,3506)
AddGoldItem(0,3530)
AddGoldItem(0,3541)
AddGoldItem(0,3880)
AddGoldItem(0,3881)
AddGoldItem(0,3882)
AddGoldItem(0,3883)
AddGoldItem(0,3884)
AddGoldItem(0,3885)
AddGoldItem(0,3886)
AddGoldItem(0,3887)
AddGoldItem(0,3888)
end
function phip()
AddGoldItem(0,3466)
AddGoldItem(0,3467)
AddGoldItem(0,3468)
AddGoldItem(0,3469)
AddGoldItem(0,3470)
AddGoldItem(0,3471)
AddGoldItem(0,3472)
AddGoldItem(0,3473)
AddGoldItem(0,3474)
AddGoldItem(0,3475)
AddGoldItem(0,3476)
AddGoldItem(0,3477)
AddGoldItem(0,3478)
AddGoldItem(0,3479)
AddGoldItem(0,3480)
AddGoldItem(0,3481)
AddGoldItem(0,3482)
AddGoldItem(0,3483)
AddGoldItem(0,3484)
AddGoldItem(0,3485)
AddGoldItem(0,3486)
AddGoldItem(0,3487)
AddGoldItem(0,3488)
AddGoldItem(0,3489)
AddGoldItem(0,3490)
end
function trangs()
AddGoldItem(0,3507)
AddGoldItem(0,3508)
AddGoldItem(0,3509)
AddGoldItem(0,3510)
AddGoldItem(0,3511)
AddGoldItem(0,3512)
AddGoldItem(0,3513)
AddGoldItem(0,3514)
AddGoldItem(0,3515)
AddGoldItem(0,3516)
AddGoldItem(0,3517)
AddGoldItem(0,3518)
AddGoldItem(0,3519)
AddGoldItem(0,3520)
end
function matnagm()
--AddItem(0,11,2,1,0,10,10,10,10,10,10,10,gio,day,mo nth,nam)
AddItem(0,11,0,367,0,10,10,10,10,10,10,10,gio,day, month,nam)
AddItem(0,11,0,368,0,10,10,10,10,10,10,10,gio,day, month,nam)
end
function setsonglo()
local tab_Content = {
"Rêi khái/no",
"ThiÕu L©m quyÒn/#setsonglo1(1)",
"ThiÕu L©m c«n/#setsonglo1(2)",
"ThiÕu L©m ®ao/#setsonglo1(3)",
"Thiªn V¬ng chïy/#setsonglo1(4)",
"Thiªn V¬ng th¬ng/#setsonglo1(5)",
"Thiªn V¬ng ®ao/#setsonglo1(6)",
"Nga My kiÕm/#setsonglo1(7)",
"Nga My chëng/#setsonglo1(8)",
"Nga My buff/#setsonglo1(9)",
"Thóy Yªn ®ao/#setsonglo1(10)",
"Thóy Yªn song ®ao/#setsonglo1(11)",
"Ngò §éc chëng/#setsonglo1(12)",
"Ngò §éc ®ao/#setsonglo1(13)",
"Ngò §éc bïa/#setsonglo1(14)",
"Trang sau/setsonglo2",
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y chän chøc n¨ng mµ b¹n muèn", getn(tab_Content), tab_Content);
end
function setsonglo2()
local tab_Content = {
"Rêi khái/no",
"§êng M«n phi ®ao/#setsonglo1(15)",
"§êng M«n tô tiÔn/#setsonglo1(16)",
"§êng M«n phi tiªu/#setsonglo1(17)",
"§êng M«n bÉy/#setsonglo1(18)",
"C¸i Bang rång/#setsonglo1(19)",
"C¸i Bang bæng/#setsonglo1(20)",
"Thiªn NhÉn kÝch/#setsonglo1(21)",
"Thiªn NhÉn ®ao/#setsonglo1(22)",
"Thiªn NhÉn bïa/#setsonglo1(23)",
"Vâ §ang khÝ /#setsonglo1(24)",
"Vâ §ang kiÕm/#setsonglo1(25)",
"C«n L«n ®ao/#setsonglo1(26)",
"C«n L«n kiÕm/#setsonglo1(27)",
"C«n L«n bïa/#setsonglo1(28)",
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y chän chøc n¨ng mµ b¹n muèn", getn(tab_Content), tab_Content);
end
function setsonglo1(nId)
for i=2975,2985 do AddGoldItem(0,10*nId+i-10) end
end
function sethkmp()
local tab_Content = {
"Rêi khái/no",
"ThiÕu L©m quyÒn/#sethkmp1(1)",
"ThiÕu L©m c«n/#sethkmp1(2)",
"ThiÕu L©m ®ao/#sethkmp1(3)",
"Thiªn V¬ng chïy/#sethkmp1(4)",
"Thiªn V¬ng th¬ng/#sethkmp1(5)",
"Thiªn V¬ng ®ao/#sethkmp1(6)",
"Nga My kiÕm/#sethkmp1(7)",
"Nga My chëng/#sethkmp1(8)",
"Nga My buff/#sethkmp1(9)",
"Thóy Yªn ®ao/#sethkmp1(10)",
"Thóy Yªn song ®ao/#sethkmp1(11)",
"Ngò §éc chëng/#sethkmp1(12)",
"Ngò §éc ®ao/#sethkmp1(13)",
"Ngò §éc bïa/#sethkmp1(14)",
"Trang sau/sethkmp2",
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y chän chøc n¨ng mµ b¹n muèn", getn(tab_Content), tab_Content);
end
function sethkmp2()
local tab_Content = {
"Rêi khái/no",
"§êng M«n phi ®ao/#sethkmp1(15)",
"§êng M«n tô tiÔn/#sethkmp1(16)",
"§êng M«n phi tiªu/#sethkmp1(17)",
"§êng M«n bÉy/#sethkmp1(18)",
"C¸i Bang rång/#sethkmp1(19)",
"C¸i Bang bæng/#sethkmp1(20)",
"Thiªn NhÉn kÝch/#sethkmp1(21)",
"Thiªn NhÉn ®ao/#sethkmp1(22)",
"Thiªn NhÉn bïa/#sethkmp1(23)",
"Vâ §ang khÝ /#sethkmp1(24)",
"Vâ §ang kiÕm/#sethkmp1(25)",
"C«n L«n ®ao/#sethkmp1(26)",
"C«n L«n kiÕm/#sethkmp1(27)",
"C«n L«n bïa/#sethkmp1(28)",
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y chän chøc n¨ng mµ b¹n muèn", getn(tab_Content), tab_Content);
end
function sethkmp1(nId)
for i=1,5 do AddGoldItem(0,5*nId+i-5) end
end
function setxl()
local tab_Content = {
"Roi Khoi/no",
"Thieu Lam Quyen/#setxl1(1)",
"Thieu Lam Bong/#setxl1(2)",
"Thieu Lam Dao/#setxl1(3)",
"Thien Vuong Chuy/#setxl1(4)",
"Thien Vuong Thuong/#setxl1(5)",
"Thien Vuong Dao/#setxl1(6)",
"Nga My kiem/#setxl1(7)",
"Nga My chuong/#setxl1(8)",
"Thuy Yen Dao/#setxl1(9)",
"Thuy yen Song Dao/#setxl1(10)",
"Ngu Doc Chuong/#setxl1(11)",
"Ngu Doc Dao/#setxl1(12)",
"Duong Mon Phi Dao/#setxl1(13)",
"Duong Mon No/#setxl1(14)",
"Trang sau/setxl2",
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y chän chøc n¨ng mµ b¹n muèn", getn(tab_Content), tab_Content);
end
function setxl2()
local tab_Content = {
"Roi Khoi/no",
"Duong Mon Phi Tieu/#setxl1(15)",
"Cai Bang Rong/#setxl1(16)",
"Cai Bang Bong/#setxl1(17)",
"Thien Nhan Kich/#setxl1(18)",
"Thien Nhan Dao/#setxl1(19)",
"Vo Dang Kiem/#setxl1(20)",
"Vo Dang Quyen/#setxl1(21)",
"Con Lon Dao/#setxl1(22)",
"Con Lon Kiem/#setxl1(23)",
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y chän chøc n¨ng mµ b¹n muèn", getn(tab_Content), tab_Content);
end
function setxl1(nId)
for i=2515,2525 do AddGoldItem(0,10*nId+i-10) end
end
function setmp()
local tab_Content = {
"Roi Khoi/no",
"Thieu Lam Quyen/#setmp1(1)",
"Thieu Lam Bong/#setmp1(2)",
"Thieu Lam Dao/#setmp1(3)",
"Thien Vuong Chuy/#setmp1(4)",
"Thien Vuong Thuong/#setmp1(5)",
"Thien Vuong Dao/#setmp1(6)",
"Nga My kiem/#setmp1(7)",
"Nga My chuong/#setmp1(8)",
"Thuy Yen Dao/#setmp1(9)",
"Thuy yen Song Dao/#setmp1(10)",
"Ngu Doc Chuong/#setmp1(11)",
"Ngu Doc Dao/#setmp1(12)",
"Duong Mon Phi Dao/#setmp1(13)",
"Duong Mon No/#setmp1(14)",
"Trang sau/setmp2",
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y chän chøc n¨ng mµ b¹n muèn", getn(tab_Content), tab_Content);
end
function setmp2()
local tab_Content = {
"Roi Khoi/no",
"Duong Mon Phi Tieu/#setmp1(15)",
"Cai Bang Rong/#setmp1(16)",
"Cai Bang Bong/#setmp1(17)",
"Thien Nhan Kich/#setmp1(18)",
"Thien Nhan Dao/#setmp1(19)",
"Vo Dang Kiem/#setmp1(20)",
"Vo Dang Quyen/#setmp1(21)",
"Con Lon Dao/#setmp1(22)",
"Con Lon Kiem/#setmp1(23)",
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y chän chøc n¨ng mµ b¹n muèn", getn(tab_Content), tab_Content);
end
function setmp1(nId)
for i=2745,2755 do AddGoldItem(0,10*nId+i-10) end
end
function DisposeItem()
GiveItemUI("Hñy vËt phÈm", "§¹i hiÖp h·y cÈn träng trong viÖc hñy vËt phÈm!", "DisposeConfirm", "onCancel", 1);
end
function DisposeConfirm(nCount)
for i=1, nCount do
local nItemIndex = GetGiveItemUnit(i)
local strItem = GetItemName(nItemIndex)
RemoveItemByIndex(nItemIndex)
WriteLog(date("%Y%m%d %H%M%S").."\t".." GM Hñy Item "..GetAccount().."\t"..GetName().."\t".." Huû item "..strItem)
end--for
Msg2Player("Thao t¸c hñy vËt phÈm thµnh c«ng")
Talk(1, "", "Thao t¸c thµnh c«ng, kiÓm tra l¹i!");
end
Powered by vBulletin® Version 4.2.0 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.