Kết quả 1 đến 4 của 4
Chủ đề: mong giúp đỡ
-
04-07-16, 07:19 AM #1
- Ngày tham gia
- Dec 2008
- Bài viết
- 38
- Thanks
- 9
- Thanked 1 Time in 1 Post
mong giúp đỡ
hiện lễ quan mình đang chạy đoạn code này
Code: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("½£ÏÀƠÆĂÅÈË£ºÄÇĂ´£¬ÄăÖ»̉ªÓĐ×ă¹»µÄ×ʽđÈĂ°ïÅÉÄܹ»ÔËתÆđÀ´¾Í¿É̉ÔÁË£¬±ÈÈç˵Óиö100Ị́Á½Á½×Ó°É¡£" ,2,"Ă»ÎÊî}£¬?̉̉ѾÓ?00Ị́Á½Á½×ÓÁË/create_pay_yes","̀«·ÑÇ®?Ë£¬ÉÙ̉»µăĐĐ²»Đ?create_pay_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,month,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
Khách viếng thăm hãy cùng tuanonly xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
04-07-16, 08:08 AM #2
- Ngày tham gia
- Apr 2013
- Bài viết
- 1,237
- Thanks
- 315
- Thanked 500 Times in 292 Posts
Ðề: mong giúp đỡ
Thì bốc hết đoan code bỏ qua bên lão ăn mày.
Nếu muốn kiểm tra điều kiện mới có thể sử dụng thì lập điều kiện
if GetName = "tênadmin" then
hoặc nếu sử dụng mật khẩu thì phải lập điều kiện. mở bảng String lên nhập số vào !!!Khách viếng thăm hãy cùngbthhhzxây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
04-07-16, 09:15 AM #3
- Ngày tham gia
- Oct 2014
- Bài viết
- 227
- Thanks
- 159
- Thanked 27 Times in 25 Posts
Ðề: mong giúp đỡ
Khách viếng thăm hãy cùng xomnhalalop12 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
08-07-16, 11:27 AM #4
- Ngày tham gia
- Dec 2008
- Bài viết
- 38
- Thanks
- 9
- Thanked 1 Time in 1 Post
Ðề: mong giúp đỡ
Khách viếng thăm hãy cùng tuanonly xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
Các Chủ đề tương tự
-
Mong các bác pro help em phát
Bởi nguyentienvnn1 trong diễn đàn Chinh ĐồTrả lời: 1Bài viết cuối: 07-02-15, 10:28 PM -
[Gunny] Mong mọi người giúp em lỗi như hình
Bởi gunnyoff trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 3Bài viết cuối: 22-12-14, 08:37 PM -
[KT] Mong các pro chỉ giáo giúp mình,mình rất cảm ơn!!!
Bởi daicango00 trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 4Bài viết cuối: 21-12-14, 08:02 PM -
Hỏi vài thứ, mong được giải đáp ! [Thank]
Bởi f52512 trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 6Bài viết cuối: 24-05-14, 06:05 PM -
Mong anh chị giúp đỡ!!!
Bởi nttrung93 trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 3Bài viết cuối: 18-12-11, 03:22 PM