tuanonly
04-07-16, 07:19 AM
hiện lễ quan mình đang chạy đoạn code này
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 = "Quỷn ThiƠu L©m",
nFirstEquipId = 2285,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "C«n ThiƠu L©m",
nFirstEquipId = 2295,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "§ao ThiƠu L©m",
nFirstEquipId = 2305,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Chïy",
nFirstEquipId = 2315,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "Th¬ng",
nFirstEquipId = 2325,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "§ao",
nFirstEquipId = 2335,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Phi §ao",
nFirstEquipId = 56,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "B¹o Ṿ",
nFirstEquipId = 2415,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "BÉy",
nFirstEquipId = 2425,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Ng̣ §éc Chëng",
nFirstEquipId = 2385,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "§ao Ng̣ §éc",
nFirstEquipId = 2395,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Nga Mi KiƠm",
nFirstEquipId = 2345,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "Nga Mi Chëng",
nFirstEquipId = 2355,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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 chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "Néi Thóy yªn",
nFirstEquipId = 2375,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Chëng C¸i Bang",
nFirstEquipId = 2435,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "C«n C¸i Bang ",
nFirstEquipId = 2445,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Ngo¹i c«ng",
nFirstEquipId = 2455,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "Néi c«ng",
nFirstEquipId = 2465,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Vâ §ang KhƯ",
nFirstEquipId = 2475,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "KiƠm Vâ §ang",
nFirstEquipId = 2485,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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 chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "KiƠm C«n L«n",
nFirstEquipId = 2505,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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 = {"administrator", "", "123456", "123456", ""}
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 ®ỉ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 ®ỉ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ă ®ñ tỉ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 ®ñ tỉ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",
"Tỉ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(0,10,5,1,0,0)
elseif n == 1 then
AddItem(0,10,5,2,0,0)
Msg2Player("B¹n nhËn ®îc XƯch Thè!")
elseif n == 2 then
AddItem(0,10,5,3,0,0)
Msg2Player("B¹n nhËn ®îc TuyÖt ¶nh")
elseif n == 3 then
AddItem(0,10,5,4,0,0)
Msg2Player("B¹n nhËn ®îc §Ưch L«")
elseif n == 4 then
AddItem(0,10,5,5,0,0)
Msg2Player("B¹n nhËn ®îc ChiƠu D¹ Ngäc S Tö")
elseif n == 5 then
AddItem(0,10,6,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,"Ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ḿ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 ḿ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,1022,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 = {
"Ṿ 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 Ṿ 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",
"Tuỷ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",
"Huỷ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 Ḷ 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 tỉ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},
{"Tỉn", tien},
{"Danh väng,Phóc duyªn", danhvongphucduyen},
{"Tµi l·nh ®¹o", lanhdao},
{"§iÓm Kü N¨ng", pointkynang},
{"§iÓm Tỉ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 tỉ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 quỷ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 quỷ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
mình muốn đưa sang npc lão ăn mày để có thể dùng mật khẩu admin mới được hỗ trợ thì làm cách nào hả các bạn ?
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 = "Quỷn ThiƠu L©m",
nFirstEquipId = 2285,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "C«n ThiƠu L©m",
nFirstEquipId = 2295,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "§ao ThiƠu L©m",
nFirstEquipId = 2305,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Chïy",
nFirstEquipId = 2315,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "Th¬ng",
nFirstEquipId = 2325,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "§ao",
nFirstEquipId = 2335,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Phi §ao",
nFirstEquipId = 56,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "B¹o Ṿ",
nFirstEquipId = 2415,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "BÉy",
nFirstEquipId = 2425,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Ng̣ §éc Chëng",
nFirstEquipId = 2385,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "§ao Ng̣ §éc",
nFirstEquipId = 2395,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Nga Mi KiƠm",
nFirstEquipId = 2345,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "Nga Mi Chëng",
nFirstEquipId = 2355,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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 chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "Néi Thóy yªn",
nFirstEquipId = 2375,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Chëng C¸i Bang",
nFirstEquipId = 2435,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "C«n C¸i Bang ",
nFirstEquipId = 2445,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Ngo¹i c«ng",
nFirstEquipId = 2455,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "Néi c«ng",
nFirstEquipId = 2465,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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},
tbEquip =
{
{
szFaction = "Vâ §ang KhƯ",
nFirstEquipId = 2475,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "KiƠm Vâ §ang",
nFirstEquipId = 2485,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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 chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ khƯ", "Giµy", "Ngäc béi", "NhÉn díi",
},
},
{
szFaction = "KiƠm C«n L«n",
nFirstEquipId = 2505,
tbEquipName =
{
"D©y chuỷn´", "Năn", "NhÉn trªn", "Bao tay", "§ai lng",
"B¹ch hæ ¸o", "Ṿ 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 = {"administrator", "", "123456", "123456", ""}
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 ®ỉ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 ®ỉ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ă ®ñ tỉ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 ®ñ tỉ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",
"Tỉ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(0,10,5,1,0,0)
elseif n == 1 then
AddItem(0,10,5,2,0,0)
Msg2Player("B¹n nhËn ®îc XƯch Thè!")
elseif n == 2 then
AddItem(0,10,5,3,0,0)
Msg2Player("B¹n nhËn ®îc TuyÖt ¶nh")
elseif n == 3 then
AddItem(0,10,5,4,0,0)
Msg2Player("B¹n nhËn ®îc §Ưch L«")
elseif n == 4 then
AddItem(0,10,5,5,0,0)
Msg2Player("B¹n nhËn ®îc ChiƠu D¹ Ngäc S Tö")
elseif n == 5 then
AddItem(0,10,6,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,"Ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ṿ 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 ḿ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 ḿ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,1022,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 = {
"Ṿ 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 Ṿ 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",
"Tuỷ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",
"Huỷ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 Ḷ 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 tỉ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},
{"Tỉn", tien},
{"Danh väng,Phóc duyªn", danhvongphucduyen},
{"Tµi l·nh ®¹o", lanhdao},
{"§iÓm Kü N¨ng", pointkynang},
{"§iÓm Tỉ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 tỉ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 quỷ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 quỷ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
mình muốn đưa sang npc lão ăn mày để có thể dùng mật khẩu admin mới được hỗ trợ thì làm cách nào hả các bạn ?