[JX] Sử dụng lệnh bài 1 lần mất luôn. Cần cao nhân chỉ giáo ạ
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 3 của 3
  1. #1
    Thành Viên
    Ngày tham gia
    Oct 2015
    Bài viết
    121
    Thanks
    4
    Thanked 5 Times in 5 Posts

    Sử dụng lệnh bài 1 lần mất luôn. Cần cao nhân chỉ giáo ạ

    Code:
    Include("\\script\\lib\\awardtemplet.lua")
    Include("\\script\\activitysys\\functionlib.lua")
    Include("\\script\\lib\\log.lua")
    IncludeLib("SETTING")
    IncludeLib("TONG")
    IncludeLib("RELAYLADDER");
    Include( "\\script\\item\\compound\\compound_header.lua" );
    Include( "\\script\\item\\compound\\atlas.lua" );
    Include("\\script\\global\\rename_head.lua")
    Include("\\script\\dailogsys\\dailogsay.lua")
    Include("\\script\\lib\\awardtemplet.lua")
    Include("\\script\\global\\fuyuan.lua")
    Include("\\script\\missions\\leaguematch\\npc\\officer.lua")
    Include("\\script\\lib\\log.lua")
    Include("\\script\\global\\pgaming\\hotrotanthu\\itemblue.lua")
    Include("\\script\\global\\pgaming\\\hotrotanthu\\duatop.lua")
    Include("\\script\\tagnewplayer\\tbitemHK.lua");
    Include("\\script\\global\\pgaming\\hotrotanthu\\hotroitem.lua")
    Include("\\script\\global\\fuyuan.lua")
    Include("\\script\\global\\pgaming\\hotrotanthu\\hotrogm.lua")
    Include("\\script\\global\\pgaming\\hotrotanthu\\nc_topall.lua")
    Include("\\script\\task\\partner\\education\\swordking_people.lua")
    Include("\\script\\global\\pgaming\\hotrotanthu\\doiraclayvk.lua")
    Include("\\script\\global\\pgaming\\hotrotanthu\\diemdanhhangngay.lua")
    Include("\\script\\global\\translife.lua")
    Include("\\script\\global\\skills_table.lua")
    Include("\\script\\task\\lv120skill\\head.lua")
    Include("\\script\\task\\150skilltask\\g_task.lua")
    Include("\\script\\misc\\daiyitoushi\\toushi_function.lua")
    szNpcName = "<color=yellow>Hç trî T©n thñ<color>: "
    szPlayer = "§¹i HiÖp"
    if GetSex() == 1 then
    	szPlayer = "N÷ HiÖp"
    end
    
    
    tbSkillBook90 = {
    	shaolin = {56,57,58},
    	tianwang = {37,38,39},
    	tangmen = {27,28,45,46},
    	wudu = {47,48,49},
    	emei = {42,43,59},
    	cuiyan = {40,41},
    	gaibang = {54,55},
    	tianren = {35,36,53},
    	wudang = {33,34},
    	kunlun = {50,51,52},
    }
    
    tbAllSkill = {
    	shaolin = {
    		[1] = {10,14},
    		[2] = {4,6,8},
    		[3] = {15},
    		[4] = {16},
    		[5] = {20},
    		[6] = {11,19,271},
    		[7] = {21,273},
    		[9] = {318,319,321},
    	},
    	tianwang = {
    		[1] = {29,30,34},
    		[2] = {23,24,26},
    		[3] = {33},
    		[4] = {31,35,37},
    		[5] = {40},
    		[6] = {42},
    		[7] = {32,36,41,324},
    		[9] = {322,323,325},
    	},
    	tangmen = {
    		[1] = {45},
    		[2] = {43,347},
    		[3] = {303},
    		[4] = {47,50,54,343},
    		[5] = {345},
    		[6] = {349},
    		[7] = {48,58,249,341},
    		[9] = {302,339,342,351},
    	},
    	wudu = {
    		[1] = {63,65},
    		[2] = {60,62,67},
    		[3] = {66,70},
    		[4] = {64,68,69,384},
    		[5] = {73,356},
    		[6] = {72},
    		[7] = {71,74,75},
    		[9] = {353,355,390},
    	},
    	emei = {
    		[1] = {80,85},
    		[2] = {77,79},
    		[3] = {93},
    		[4] = {82,89,385},
    		[5] = {86},
    		[6] = {92},
    		[7] = {88,91,252,282},
    		[9] = {328,332,380},
    	},
    	cuiyan = {
    		[1] = {99,102},
    		[2] = {95,97},
    		[3] = {269},
    		[4] = {105,113},
    		[5] = {100},
    		[6] = {109},
    		[7] = {108,111,114},
    		[9] = {336,337},
    	},
    	gaibang = {
    		[1] = {119,122},
    		[2] = {115,116},
    		[3] = {129},
    		[4] = {124,274},
    		[5] = {277},
    		[6] = {125,128},
    		[7] = {130,360},
    		[9] = {357,359},
    	},
    	tianren = {
    		[1] = {135,145},
    		[2] = {131,132,136},
    		[3] = {137},
    		[4] = {138,140,141},
    		[5] = {364},
    		[6] = {143},
    		[7] = {142,148,150},
    		[9] = {361,362,391},
    	},
    	wudang = {
    		[1] = {153,155},
    		[2] = {151,152},
    		[3] = {159},
    		[4] = {158,164},
    		[5] = {160},
    		[6] = {157},
    		[7] = {165,166,267},
    		[9] = {365,368},
    	},
    	kunlun = {
    		[1] = {169,179},
    		[2] = {167,168,171,392},
    		[3] = {174},
    		[4] = {172,173,178,393},
    		[5] = {175,181},
    		[6] = {90,176},
    		[7] = {182,275,630},
    		[9] = {372,375,394},
    	},
    }
    
    
    local tbGMAccount = {"pgaming", "pgaming2", "pgaming3", "pgaming4", "pgaming5"}
    function main()
    dofile("script/global//namcung/hotrotanthu/item/tanthulenh.lua");		
    			str = "Chµo mõng c¸c b¹n ®· tham gia thÕ giíi <color=red>Vâ L©m TruyÒn Kú<color> Hoan nghªnh c¸c anh hïng hµo kiÖt."
    		AddGlobalCountNews(str, 1)
    local szAccount = GetAccount()
    	for i=1, getn(%tbGMAccount) do
    		if szAccount == %tbGMAccount[i] then
    			local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		{"§iÓm Danh H»ng Ngµy", DailyMuster},	
    		{"Xem Danh ng­êi ch¬i ®ang Online", dkgm9},
    		{"Häc Kü N¨ng ph¸i Hoa S¬n", fix_skill_hs},
    		{"NhËn vËt phÈm hæ trî tu luyÖn", hotrotrain},
    		--{"Hæ trî Admin", dkgm2},
    		{"NhËn ThÇn Binh TrÊn Bang Chi B¶o", vkHKMP},
    		{"Gäi b¹n ®ång hµnh", Pet},
    		{"NhËn kü n¨ng hæ trî t©n thñ.", hotrotanthu},
    		{"Mua Kim Nguyªn B¶o ®Ó ®æi TiÒn §ång ë TiÒn Trang L©m An", knbshop},
    		--{"NhËn TiÒn §ång",tiendong},
    		{"NhËn Hæ trî Kü N¨ng", HoTroSkill},
    		{"Tho¸t"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)		
    	else
    			--Talk(1, "", "<color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline edit by PGaming<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! ")
    			str = "ThÕ Giíi <color=red>Vâ L©m TruyÒn Kú<color> Hoan nghªnh c¸c anh hïng hµo kiÖt."
    		AddGlobalCountNews(str, 2)
    local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		--{"Th«ng Tin cÇn biÕt cho Vâ L©m T©n Thñ", camnangtanthu},
    		{"Céng ®iÓm nhanh",add_prop},	
    		--{"Trïng Sinh cÊp tèc", cs5},
    		--{"Ta muèn chuyÓn sinh nhanh", transfer},
    		--{"Häc Kü N¨ng ph¸i Hoa S¬n", fix_skill_hs},
    		--{"NhËn vËt phÈm hæ trî tu luyÖn", hotrotrain},
    		--{"Mua Kim Nguyªn B¶o ®Ó ®æi TiÒn §ång ë TiÒn Trang L©m An", knbshop},
    		--{"NhËn ThÇn Binh TrÊn Bang Chi B¶o", vkHKMP},
    		--{"Gäi b¹n ®ång hµnh", Pet},
    		{"NhËn kü n¨ng hæ trî t©n thñ.", hotrotanthu},
    		--{"Mua Ngùa", chienma},
    		--{"NhËn §ång Xu",tiendong},
    		--{"Mua Kho¸ng Th¹ch chÕ t¹o", khoangthach},
    		{"NhËn Hæ trî Kü N¨ng M«n Ph¸i", HoTroSkill},
    		{"Tho¸t"},
    	}
    				CreateNewSayEx(szTitle, tbOpt)
    			return 1;
    		end
    	end
    end
    
    function camnangtanthu()
    local szTitle = "<npc>CÈm nang hç trî cho c¸c vÞ T©n Thñ trong viÖc hµnh tÈu giang hå!"
    		local tbOpt =
    	{
    		{"Nh÷ng ®iÒu cÇn biÕt khi S¬ NhËp Giang Hå", sonhapgiangho},
    		{"Tin Tøc Sù KiÖn", thongtinevent},	
    		{"ThËp §¹i Ph¸i", thongtinphaichinh},
    		{"T×m hiÓu ph¸i Hoa S¬n", thongtinphaihoason},
    		{"VÊn ®Ò trang bÞ", thongtintrangbi},
    		{"C¸c nh©n vËt ®æi vËt phÈm hæ trî", thongtinnpcchinh},
    		{"Th«ng tin Kú Tr©n C¸c", thongtinkytrancac},
    		{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    
    end
    	
    
    function sonhapgiangho()
    local szTitle = "<npc>HÖ thèng kinh nghiÖm vµ ng©n l­îng khi tu luyÖn ®­îc tèi ­u hãa gióp cho C¸c H¹ n©ng cÊp nhanh vµ cã thu nhËp kha kh¸ dïng ®Ó ®æi c¸c vËt phÈm cÇn thiÕt còng nh­ viÖc më réng r­¬ng khi nãi chuyÖn víi ThÈm C©u ë Ba L¨ng HuyÖn. Cã thÓ dïng Kim Nguyªn B¶o ®Ó ®æi tiÒn xu ë Chñ TiÒn Trang L©m An. Mua Kim Nguyªn B¶o ë chç nh©n vËt Hç Trî T©n Thñ!"
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    
    function thongtinevent()
    local szTitle = "<npc>Khi ®¸nh qu¸i tu luyÖn, cã c¬ héi nhËn ®­îc <color=Yellow>Hµnh HiÖp LÖnh<color>, dïng ®Ó ®æi c¸c Hoµng Kim Trang BÞ LÖnh Bµi ë chç Hµng Rong thÊt ®¹i thµnh thÞ. Cßn cã LÔ bao Trung Thu ®Ó ®æi vËt phÈm sù kiÖn t¹i NPC Trung Thu n»m ë Minh NguyÖt TrÊn. Bao L× X× khi më ra ®­îc c¸c lo¹i Ph¸o ®Ó tham gia sù kiÖn Chóc Mõng N¨m Míi t¹i chç ThÇn Tµi thÊt ®¹i thµnh thÞ chÝnh. Ph¹t ¸c vµ th­ëng thiÖn lÖnh chØ h÷u Ých khi C¸c H¹ ®· gia nhËp bang ph¸i vµ chiÕm lÜnh thµnh thÞ khi tham gia C«ng Thµnh ChiÕn. Khi ®¸nh qu¸i ë c¸c b¶n ®å cÊp 90 trë lªn, C¸c H¹ cã c¬ héi nhËn ®­îc R­¬ng Hoµng Kim cña ThËp §¹i Ph¸i. Vµo trong §¹o Cô cña Kú Tr©n C¸c, dïng tiÒn xu ®Ó mua Ch×a Khãa R­¬ng Hoµng Kim. Më ra sÏ ngÉu nhiªn nhËn ®­îc c¸c trang bÞ vµ vò khÝ Hoµng Kim M«n Ph¸i ®· tõng dËy sãng Giang Hå n¨m x­a!"
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    function thongtinphaichinh()
    local szTitle = "<npc>Khi Gia NhËp thËp ®¹i ph¸i vµ Hoa S¬n Ph¸i, C¸c H¹ sÏ cã ®­îc X­ng HiÖu Cao NhÊt cña ph¸i ®ã. Nh­ng h·y nhí lµm nhiÖm vô m«n ph¸i ®Ó chøng minh r»ng ng­¬i xøng ®¸ng víi X­ng HiÖu cña m«n ph¸i ®· gia nhËp, ®ång thêi khi hoµn thµnh nhiÖm vô cã thÓ häc ®­îc nh÷ng chiªu thøc míi cña m«n ph¸i ®ã ®Õn lóc XuÊt S­ vµ Trïng Ph¶n S­ M«n ®Ó häc ®­îc TrÊn Ph¸i Vâ Häc. C¸c Chiªu Thøc Th­îng Thõa Kü N¨ng 90, 120, 150 vµ BÝ TÞch 180 cã thÓ mua ë Kú Tr©n C¸c. Ngoµi ra, c¸c kü n¨ng cÊp 150 cã thÓ luyÖn ë §µo Hoa Nguyªn MËt §¹o khi nãi chuyÖn víi ng­êi tiÕp dÉn cã tªn lµ V« Danh T¨ng."
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    function thongtinphaihoason()
    local szTitle = "<npc>Hoa S¬n KiÕm Kh¸ch lµ nh÷ng Èn sü kh«ng ®­îc nh¾c ®Õn cïng ThËp §¹i Ph¸i v× sù hµnh hiÖp tr­îng nghÜa 1 c¸ch bÝ Èn cña hä trªn Giang Hå. Cã c¸c Kü N¨ng M«n Ph¸i lóc XuÊt S­ vµ Trïng Ph¶n S­ M«n n¨ng lùc ngang tÇm víi Chiªu Thøc Th­îng Thõa CÊp 90, ph¶i sö dông §¹i Thµnh BÝ KiÕp ®Ó t¨ng cÊp ®Ò tr¸nh bÞ TÈu Háa NhËp Ma. Hoa S¬n gia nhËp Giang Hå sau ThËp §¹i Ph¸i nªn kh«ng cã VËt PhÈm Hoµng Kim ®· tõng oai chÊn Vâ L©m. H¬n thÕ Hoa S¬n còng cã nh÷ng trang bÞ Hoµng Kim m«n ph¸i cã phÈm chÊt kh«ng thua kÐm ThËp §¹i Ph¸i sau nµy, trong ®ã cã c¶ TuyÖt ThÕ ThÇn Binh oai hïng Thiªn H¹ s¸nh vai cïng c¸c ThÇn Binh Chi B¶o cña c¸c Ph¸i kh¸c."
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    function thongtintrangbi()
    local szTitle = "<npc>Trang bÞ Hoµng Kim cña ThËp §¹i Ph¸i khi më R­¬ng Hoµng Kim cã thÓ ®­îc n©ng lªn B¹ch Kim t¹i LÔ Quan. C¸c lo¹i trang bÞ Hoµng Kim kh¸c nh­ Thanh C©u, V©n Léc, Th­¬ng Lang ®Õn cao cÊp nh­ Tinh S­¬ng vµ Minh NguyÖt cã thÓ dïng lÖnh bµi ®Ó ®æi. LÖnh Bµi dïng Hµnh HiÖp LÖnh ®æi ë Hµng Rong hoÆc mua ë Kú Tr©n DÞ B¶o. C¸c H¹ cßn cã thÓ giao chiÕn víi c¸c Cao Nh©n cña m«n ph¸i ®Ó t×m ra nh÷ng TrÊn Bang Hoµng Kim trang bÞ vµ TuyÖt ThÕ ThÇn Binh, ®ång thêi còng cã c¬ héi t×m thÊy c¸c YÕu QuyÕt Kü N¨ng 150 §¹i Thµnh cÊp 21 tíi 30. TriÖu Ho¸n Phï cña c¸c Cao Nh©n cã thÓ mua t¹i ThÇn BÝ Cao Nh©n t¹i c¸c th«n lµng."
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    function thongtinnpcchinh()
    local szTitle = "<npc>Khi Hµnh TÈu trong chèn Giang Hå, h·y nhí gÆp Hç Trî T©n Thñ vµ LÔ Quan t¹i c¸c T©n Thñ Th«n ®Ó ®æi nh÷ng vËt phÈm quý gi¸ hç trî trong viÖc tu luyÖn vµ phiªu l­u tø h¶i. Khi muèn chuyÓn ph¸i, h·y ®èi tho¹i víi Hoµnh Ba Tiªn Tö ë c¸c th«n trÊn ®Ó ®­îc trî gióp. VÊn ®Ò trïng sinh, cã thÓ ®èi tho¹i cïng B¾c §Èu L·o Nh©n ë Minh NguyÖt TrÊn, hoÆc dïng ng©n l­îng ®Ó trïng sinh khi nãi chuyÖn cïng Hç Trî T©n Thñ. Ngoµi ra, t¹i 7 thµnh thÞ lín, Hç Trî Tiªn Tö cã thÓ gióp C¸c H¹ t×m hiÓu thªm tÝnh n¨ng cña ThÕ Giíi Vâ L©m TruyÒn Kú 1 c¸ch t­êng tËn nhÊt, c« Êy ®ãng vai trß nh­ 1 tÝnh n¨ng cña GameMaster!"
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    function thongtinkytrancac()
    local szTitle = "<npc>Kú Tr©n C¸c lµ giang hµng th­¬ng m¹i chÝnh trong Vâ L©m TruyÖn Kú. HÖ thèng TiÒn Xu hay nãi c¸ch kh¸c, TiÒn §ång, cã thÓ nhËn ®­îc 1 lÇn ë chç Hç Trî T©n Thñ khi S¬ NhËp Giang Hå vµ dïng Kim Nguyªn B¶o ®Ó ®æi ë Chñ TiÒn Trang L©m An. VËt phÈm ®¸ng chó ý lµ <color=Yellow>Kim M· CÈm Nang<color>. Thu ThËp ®ñ 7 kim m· lÖnh bµi trong <color=Green>Kim M· LÔ Bao<color> mua ë Kú Tr©n C¸c cã thÓ t¨ng 1 sè l­îng lín ®iÓm kinh nghiÖm trong 1 ngµy. C¸c lo¹i M· Bµi ®­îc tèi ­u hãa cho t©n thñ khi sö dông gióp viÖc di chuyÓn khi tu luyÖn trë nªn dÔ dµng h¬n. B«n Tiªu vµ Phiªn Vò sÏ hç trî cho nh©n sÜ cÊp 100 trë lªn, chóng n»m ë phÇn §¹o Cô cña Kú Tr©n C¸c. Ngoµi ra, c¸c LÖnh Bµi ®Ó ®æi Trang BÞ Hoµng Kim còng n»m t¹i ®©y cho viÖc tiÖn lîi khi hµnh tÈu vµ sau khi chuyÓn sinh vÒ l¹i cÊp 10. Nguyªn liÖu ®óc trang bÞ n»m ë phÇn Tinh Th¹ch vµ ®­îc bæ sung ë phÇn §¹o Cô. Kho¸ng Th¹ch cã thÓ ®­îc mua t¹i ®©y hoÆc giao dÞch t¹i Hç Trî T©n Thñ b»ng ng©n l­îng."
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    
    
    function khoangthach()
    local szTitle = "<npc>Mçi 1 bé kho¸ng th¹ch theo ngò hµnh tèn 300 v¹n l­îng. Xin h·y chän ngò hµnh cña kho¸ng th¹ch cÇn mua:"
    local tbOpt =
    	{
    		{"HÖ Kim",hekim},
    		{"HÖ Méc",hemoc},
    		{"HÖ Thñy",hethuy},
    		{"HÖ Háa",hehoa},
    		{"HÖ Thæ",hetho},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    function hekim()
    if (GetCash() <= 3000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 300 v¹n míi cã thÓ mua.")
    		return
    	end
    AddItem(6,1,149,1,0,0,0) 
    AddItem(6,1,150,1,0,0,0) 
    AddItem(6,1,151,1,0,0,0) 
    AddItem(6,1,152,1,0,0,0) 
    AddItem(6,1,153,1,0,0,0) 
    AddItem(6,1,154,1,0,0,0)
    	Pay(3000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 1 bé kho¸ng th¹ch")
    end
    function hemoc()
    if (GetCash() <= 3000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 300 v¹n míi cã thÓ mua.")
    		return
    	end
    AddItem(6,1,149,1,0,0,0) 
    AddItem(6,1,150,1,1,0,0) 
    AddItem(6,1,151,1,0,0,0) 
    AddItem(6,1,152,1,1,0,0) 
    AddItem(6,1,153,1,0,0,0) 
    AddItem(6,1,154,1,1,0,0)
    	Pay(3000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 1 bé kho¸ng th¹ch")
    end
    function hethuy()
    if (GetCash() <= 3000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 300 v¹n míi cã thÓ mua.")
    		return
    	end
    AddItem(6,1,149,1,0,0,0) 
    AddItem(6,1,150,1,2,0,0) 
    AddItem(6,1,151,1,0,0,0) 
    AddItem(6,1,152,1,2,0,0) 
    AddItem(6,1,153,1,0,0,0) 
    AddItem(6,1,154,1,2,0,0)
    	Pay(3000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 1 bé kho¸ng th¹ch")
    end
    function hehoa()
    if (GetCash() <= 3000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 300 v¹n míi cã thÓ mua.")
    		return
    	end
    AddItem(6,1,149,1,0,0,0) 
    AddItem(6,1,150,1,3,0,0) 
    AddItem(6,1,151,1,0,0,0) 
    AddItem(6,1,152,1,3,0,0) 
    AddItem(6,1,153,1,0,0,0) 
    AddItem(6,1,154,1,3,0,0)
    	Pay(3000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 1 bé kho¸ng th¹ch")
    end
    function hetho()
    if (GetCash() <= 3000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 300 v¹n míi cã thÓ mua.")
    		return
    	end
    AddItem(6,1,149,1,0,0,0) 
    AddItem(6,1,150,1,4,0,0) 
    AddItem(6,1,151,1,0,0,0) 
    AddItem(6,1,152,1,4,0,0) 
    AddItem(6,1,153,1,0,0,0) 
    AddItem(6,1,154,1,4,0,0)
    	Pay(3000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 1 bé kho¸ng th¹ch")
    end
    
    function knbshop()
    local szTitle = "<npc>C¸c H¹ muèn mua bao nhiªu Kim Nguyªn B¶o?"
    		local tbOpt =
    	{
    		{"1 Kim Nguyªn B¶o gi¸ 100 v¹n l­îng",knb1},
    		{"5 Kim Nguyªn B¶o gi¸ 450 v¹n l­îng",knb2},
    		{"10 Kim Nguyªn B¶o gi¸ 950 v¹n l­îng",knb3},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    
    function knb1()
    	if (GetCash() <= 1000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 100 v¹n míi cã thÓ mua.")
    		return
    	end
    	AddEventItem(343)
    	Pay(1000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 1 Kim Nguyªn B¶o")
    end
    
    function knb2()
    	if (GetCash() <= 4500000) then
    		Talk(1, "", "Ph¶i mang ®ñ 450 v¹n míi cã thÓ mua.")
    		return
    	end
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	Pay(4500000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 5 Kim Nguyªn B¶o")
    end
    
    function knb3()
    	if (GetCash() <= 9500000) then
    		Talk(1, "", "Ph¶i mang ®ñ 950 v¹n míi cã thÓ mua.")
    		return
    	end
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	Pay(9500000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 10 Kim Nguyªn B¶o")
    end
    
    function transfer()
    	if GetLevel() < 190 then
    		Talk(1, "", "CÊp 190 trë lªn míi cã thÓ chuyÓn sinh.")
    		return
    	end
    	if (GetCash() <= 50000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 5 ngh×n v¹n míi cã thÓ chuyÓn sinh.")
    		return
    	end
    	if (CalcItemCount(2,0,-1,-1,-1) > 0) then
    		Talk(1, "", "Muèn Trïng Sinh th× C¸c H¹ cÇn ph¶i th¸o bá tÊt c¶ trang bÞ ®ang sö dông. Trang BÞ ®ang mang sÏ kh«ng phï hîp víi cÊp ®é sau khi kinh m¹ch ®­îc ®¶ th«ng.")
    		return
    	end
    	Pay(50000000)
    	ST_DoTransLife()
    end
    
    function cs5()
    ST_DoTransLife()	
    end
    
    function lv70equip()
    local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		{"ThiÕu L©m QuyÒn",setumang,{1}},
    		{"ThiÕu L©m C«n",setumang,{2}},
    		{"ThiÕu L©m §ao",setumang,{3}},
    		{"Thiªn V­¬ng Chïy",setumang,{4}},
    		{"Thiªn V­¬ng Th­¬ng",setumang,{5}},
    		{"Thiªn V­¬ng §ao",setumang,{6}},
    		{"Nga Mi KiÕm",setumang,{7}},
    		{"Nga Mi Ch­ëng",setumang,{8}},
    		{"Thóy Yªn §¬n §ao",setumang,{9}},
    		{"Thóy Yªn Song §ao",setumang,{10}},
    		{"Ngò §éc Ch­ëng Ph¸p",setumang,{11}},
    		{"Ngò §éc §ao Ph¸p",setumang,{12}},
    		{"Trang KÕ",setumangT2},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    
    function setumangT2()
    local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		{"§­êng M«n Phi §ao",setumang,{13}},
    		{"§­êng M«n Tô TiÔn",setumang,{14}},
    		{"§­êng M«n Phi Tiªu",setumang,{15}},
    		{"C¸i Bang Rång",setumang,{16}},
    		{"C¸i Bang C«n Ph¸p",setumang,{17}},
    		{"Thiªn NhÉn KÝch",setumang,{18}},
    		{"Thiªn NhÉn §ao",setumang,{19}},
    		{"Vâ §ang KhÝ",setumang,{20}},
    		{"Vâ §ang KiÕm",setumang,{21}},
    		{"C«n L«n §ao",setumang,{22}},
    		{"C«n L«n KiÕm",setumang,{23}},
    		{"Hoa S¬n KiÕm T«ng",setumanghs,{2}},
    		{"Hoa S¬n KhÝ T«ng",setumanghs,{1}},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    
    function setumang(nId)
    for i = 1825, 1834 do
    AddGoldItem(0,10*nId+i-10)
    end
    end
    function setumanghs(nId)
    for i = 4713, 4722 do
    AddGoldItem(0,10*nId+i-10)
    end
    end
    function add_prop()
    	local tbOpt = 
    	{
    		{"T¨ng søc m¹nh.", add_prop_str},
    		{"T¨ng th©n ph¸p.", add_prop_dex},
    		{"T¨ng sinh khÝ.", add_prop_vit},
    		{"T¨ng néi c«ng.", add_prop_eng},
    		{"Tho¸t."}
    	}
    	CreateNewSayEx("<npc>Xin mêi chän ti?m n¨ng cÇn t¨ng!", tbOpt)
    end
    
    function add_prop_str()
    	AskClientForNumber("enter_str_num", 0, GetProp(), "Mêi nhËp chØ sè søc m¹nh: ");
    end
    function add_prop_dex()
    	AskClientForNumber("enter_dex_num", 0, GetProp(), "Mêi nhËp chØ sè th©n ph¸p: ");
    end
    function add_prop_vit()
    	AskClientForNumber("enter_vit_num", 0, GetProp(), "Mêi nhËp chØ sè sinh kh?:");
    end
    function add_prop_eng()
    	AskClientForNumber("enter_eng_num", 0, GetProp(), "Mêi nhËp chØ sè néi c«ng: ");
    end
    
    function enter_str_num(n_key)
    	if (n_key < 0 or n_key > GetProp()) then
    		return
    	end
    	AddStrg(n_key);
    end
    function enter_dex_num(n_key)
    	if (n_key < 0 or n_key > GetProp()) then
    		return
    	end
    	AddDex(n_key);
    end
    function enter_vit_num(n_key)
    	if (n_key < 0 or n_key > GetProp()) then
    		return
    	end
    	AddVit(n_key);
    end
    function enter_eng_num(n_key)
    	if (n_key < 0 or n_key > GetProp()) then
    		return
    	end
    	AddEng(n_key);
    end
    
    function Pet()
    local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		{"Chän ®ång hµnh",Pet1},
    		{"Xãa ®ång hµnh",Pet2},
    		{"Trë L¹i", main},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    
    
    function Pet1()
    local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		{"Chu T­íc",Pet3},
    		{"Háa Kú L©n",Pet4},
    		{"Thanh Long",Pet5},
    		{"HuyÒn Vò",Pet6},
    		{"Dòng HÇu",Pet7},
    		{"Trë L¹i",Pet},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    function Pet3()
     local partneridex = PARTNER_AddFightPartner(4,4,1,5,5,5,5,5,5)
    PARTNER_CallOutCurPartner(1)
    end
    function Pet4()
     local partneridex = PARTNER_AddFightPartner(1,1,1,5,5,5,5,5,5)
    PARTNER_CallOutCurPartner(1)
    end
    function Pet5()
     local partneridex = PARTNER_AddFightPartner(2,2,1,5,5,5,5,5,5)
    PARTNER_CallOutCurPartner(1)
    end
    function Pet6()
     local partneridex = PARTNER_AddFightPartner(3,3,1,5,5,5,5,5,5)
    PARTNER_CallOutCurPartner(1)
    end
    function Pet7()
     local partneridex = PARTNER_AddFightPartner(5,0,1,5,5,5,5,5,5)
    PARTNER_CallOutCurPartner(1)
    end
    
    function Pet2()
    PARTNER_RemovePartner(1,1,1,5,5,5,5,5,5)
    end
    
    function fix_skill_hs()
    AddMagic(1347) --Skill Hoa son
    		AddMagic(1372) --Skill Hoa son
    		AddMagic(1349) --Skill Hoa son
    		AddMagic(1374) --Skill Hoa son
    		AddMagic(1350) --Skill Hoa son
    		AddMagic(1375) --Skill Hoa son
    		AddMagic(1351) --Skill Hoa son
    		AddMagic(1376) --Skill Hoa son
    		AddMagic(1354) --Skill Hoa son
    		AddMagic(1378) --Skill Hoa son
    		AddMagic(1355) --Skill Hoa son
    		AddMagic(1379) --Skill Hoa son
    		AddMagic(1358) --Skill Hoa son
    		AddMagic(1360) --Skill Hoa son
    		AddMagic(1380) --Skill Hoa son
    		AddMagic(1364,20) --Skill Hoa son 90
    		AddMagic(1382,20) --Skill Hoa son 90
    		AddMagic(1363,20) --Skill Hoa son --------Skill
    		AddMagic(1365,20) --Skill Hoa son 120
    		AddMagic(1370,20) --Skill Hoa son
    		AddMagic(1369,20) --Skill Hoa son 150
    		AddMagic(1384,20) --Skill Hoa son 150
    		AddMagic(1368,20) --Skill Hoa son --------Doc Co Cuu Kiem
    		KickOutSelf()
    end
    
    function vkHKMP()
    local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		{"ThiÕu L©m", VKTL},
    		{"Thiªn V­¬ng", VKTV},
    		{"Nga Mi", VKNM},
    		{"Thóy Yªn", VKTY},
    		{"Ngò §éc", VK5D},
    		{"§­êng M«n", VKDM},
    		{"C¸i Bang", VKCB},
    		{"Thiªn NhÉn", VKTN},
    		{"Vâ §ang", VKVD},
    		{"C«n L«n", VKCL},
    		{"Hoa S¬n", VKHSS},
    		{"Trë L¹i", main},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    function VKTL()
    AddGoldItem(0, 6265)
    AddGoldItem(0, 6266)
    AddGoldItem(0, 6267)
    end
    function VKTV()
    AddGoldItem(0, 6268)
    AddGoldItem(0, 6269)
    AddGoldItem(0, 6270)
    end
    function VKNM()
    AddGoldItem(0, 6271)
    AddGoldItem(0, 6272)
    end
    function VKTY()
    AddGoldItem(0, 6273)
    AddGoldItem(0, 6274)
    end
    function VK5D()
    AddGoldItem(0, 6275)
    AddGoldItem(0, 6276)
    end
    function VKDM()
    AddGoldItem(0, 6277)
    AddGoldItem(0, 6278)
    AddGoldItem(0, 6279)
    end
    function VKCB()
    AddGoldItem(0, 6280)
    AddGoldItem(0, 6281)
    end
    function VKTN()
    AddGoldItem(0, 6282)
    AddGoldItem(0, 6283)
    end
    function VKVD()
    AddGoldItem(0, 6284)
    AddGoldItem(0, 6285)
    end
    function VKCL()
    AddGoldItem(0, 6286)
    AddGoldItem(0, 6287)
    end
    function VKHSS()
    AddGoldItem(0, 6288)
    AddGoldItem(0, 6289)
    end
    
    function chienma()
    local szTitle = "<npc>C¸c H¹ muèn mua 5 lo¹i ThÇn M· Danh ChÊn Thiªn H¹? Chi phÝ sÏ lµ 5000 v¹n l­îng!"
    		local tbOpt =
    	{
    		{"§ång ý", muangua},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    
    function muangua()
    	if (GetCash() <= 50000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 5000 v¹n míi cã thÓ mua.")
    		return
    	end
    	AddItem(0,10,9,10,0,0,0)
    	AddItem(0,10,11,10,0,0,0)
    	AddItem(0,10,13,10,0,0,0)
    	AddItem(0,10,18,10,0,0,0)
    	AddGoldItem(0, 5933)
    	Pay(50000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 5 lo¹i Giang Hå TuyÖt ThÕ ChiÕn M·!")
    end
    
    function knb()
    AddItem(4,343,0,0,0,0)
    AddItem(4,343,0,0,0,0)
    AddItem(4,343,0,0,0,0)
    AddItem(4,343,0,0,0,0)
    AddItem(4,343,0,0,0,0)
    end
    
    function hotrotrain()
    if GetTask(5000) <=0 then
    	FuYuan_Start();
    	FuYuan_Add(1000)
    	Earn(10000000)
    	AddLeadExp(500000000)
    	AddRepute(1000)
    	AddItem(6,1,4835,0,0,0,10000)
    	AddItem(6,1,4639,0,0,0)
    	AddGoldItem(0, 3541)
    	AddGoldItem(0, 3878)
    	AddStackItem(999,4,417,1,1,0,0,0)
    SetTask(5000, GetTask(5000) +1)
    else Talk(1,"no","C¸c H¹ ®· nhËn vËt phÈm råi")
    end
    end
    
    function tiendong()
    AskClientForNumber("tiendong1",0,5000,"NhËp Sè L­îng:") 
    end;
    function tiendong1(sltiendong)
    for i = 1, sltiendong do
    AddStackItem(1,4,417,1,1,0,0,0)
    end
    Msg2Player("B¹n nhËn ®­îc <color=yellow>"..sltiendong.." <color>tiÒn ®ång.")
    end
    
    function HoTroSkill()
    if GetLastFactionNumber(10) and (HaveMagic(1347) >= 0) and (HaveMagic(1364) < 0) and GetTask(169) < 73 then
    AddMagic(1349)
    AddMagic(1374)
    AddMagic(1350)
    AddMagic(1375)
    AddMagic(1351)
    AddMagic(1376)
    AddMagic(1354)
    AddMagic(1378)
    AddMagic(1355)
    AddMagic(1379)
    AddMagic(1358)
    AddMagic(1360)
    AddMagic(1380)
    AddMagic(1364,20)
    AddMagic(1382,20)
    Talk(1,"",szNpcName.."Vâ häc ®· ®­îc truyÒn thô, "..szPlayer .." h·y thö vËn c«ng n©ng thµnh xem sao.")
    elseif (HaveMagic(1364) > 0) then
    Talk(1,"",szNpcName.."Vâ häc ®· ®­îc truyÒn thô, "..szPlayer .." h·y thö vËn c«ng n©ng thµnh xem sao.")
    end
    	local nIndex = floor(GetLevel()/10)
    	local szFaction = GetFaction()
    	if tbAllSkill[szFaction] == nil then
    		return
    	end
    	if nIndex >= 1 then
    		for i=1, min(9,nIndex) do
    			if tbAllSkill[szFaction][i] ~= nil then
    				for j=1, getn(tbAllSkill[szFaction][i]) do
    					if i ==9 then
    						if HaveMagic(tbAllSkill[szFaction][i][j]) == -1 then
    							AddMagic(tbAllSkill[szFaction][i][j],20)
    						end
    					else
    						if HaveMagic(tbAllSkill[szFaction][i][j]) == -1 then
    							AddMagic(tbAllSkill[szFaction][i][j])
    						end
    					end
    				end
    			end
    		end
    	end
    	Talk(1,"",szNpcName.."Vâ häc ®· ®­îc truyÒn thô, "..szPlayer .." h·y thö vËn c«ng n©ng thµnh xem sao.")
    end
    
    
    
    
    function dkgm9()
    Msg2Player("<color=yellow>HiÖn t¹i ®ang cã<color><color=green> "..GetPlayerCount().."<color> Ng­­êi Online !.")
    end
    
    function dkgm4()
    	LoadFromFile()
    	tbTop10:Regist()
    	tbTop10:UpdateTopList()
    	tbTop10:hangcanhan()
    	tbTop10:ShowTopList()
    end
    
    function dkgm3()
    hoason()
    
    end
    
    function dkgm2()
    namcung2()
    end
    
    function phanthuong()
    if CalcFreeItemCellCount() < 10 then
    		Say("H·y cÊt bít vËt phÈm ®Ó ®¶m b¶o cã 10 « trèng råi h·y më.",0);
    		return 1;
    end
    AskClientForString("checkcode", "", 1, 100, "Xin nhËp code");
    end
    tbitem  =
    	{
    		[1]	={szName = "Tiªn th¶o lé", tbProp = {6, 1, 71, 1,0,0}, nCount = 5, nExpiredTime = 10080, nBindState = -2},
    		[2]	={szName = "Håi thµnh phï (nhá)", tbProp = {6, 1, 1082,1,0,0}, nCount = 1, nExpiredTime = 43200, nBindState = -2},
    		[3]	={szName="Kim M· CÈm Nang",tbProp={6,1,4088,1,0,0},nCount=1,nExpiredTime=43200,nBindState = -2},
    		[4]	={szName = "M¶nh b¶n ®å s¬n hµ x· t¾c (1000 m¶nh)", tbProp = {6, 1, 2514,1,0,0}, nCount = 1, nExpiredTime = 10080, nBindState = -2},
    		[5]	={szName="ThÇn Hµnh Phï",tbProp={6,1,1266,1,0,0},nCount=1,nExpiredTime=43200,nBindState = -2},
    		[6]	={szName="T©n Thñ LÖnh",tbProp={6,1,4265,1,0,0},nCount=1,nExpiredTime=14400,nBindState = -2},
    		[7]	={szName="Phông NguyÖt Qu¶ Dung",tbProp={6,1,127,1,0,0},nCount=2,nBindState = -2},
    		[8]	={szName="Cèng NguyÖt Phï Dung",tbProp={6,1,128,1,0,0},nCount=2,nBindState = -2},
    	}
    function checkcode(strings)
    		if GetTask(3000)==1 then
    		Talk(1, "", "B¹n ®· nhËn råi mµ ");
    		return
    	end
    	if (strings=="PGAMING6" or strings=="PGAMING" or strings=="PGAMING1" or strings=="PGAMING2" or strings=="PGAMING3" or strings=="PGAMING4" or strings=="PGMAING5")then
    		tbAwardTemplet:GiveAwardByList(tbitem, "PhÇn th­ëng t©n thñ");
    		SetTask(3000,1)
    		str = "Tin chÊn ®éng giang hå, Cao thñ<color=red>"..GetName().."<color> Ch¨m chØ luyÖn tËp ®· nhËn ®­îc <color=green>phÇn th­ëng T©n Thñ<color> x­ng b¸ thiªn h¹ kh«ng ®Þch thñ !."
    		AddGlobalCountNews(str, 1)
    		Msg2Player( "Chóc mõng b¹n ®· nhËn ®­îc phÇn th­¬ng T©n Thñ" );
    	else
    		Talk(1, "", "Code sai");
    	end
    end
    
    
    function hotrotanthu()
    	if GetLevel()<150 then
    		AddSkillState(512,20,1,1440*1440*18)  	--Bao toc hoang ky nang
    		AddSkillState(527,5,1,1440*1440*18)  	--Truong menh hoang
    		AddSkillState(1618,15,1,1440*1440*18)
    		AddSkillState(1619,15,1,1440*1440*18)
    		AddSkillState(1620,15,1,1440*1440*18)
    		AddSkillState(1621,15,1,1440*1440*18)
    		AddSkillState(451, 20, 1,1440*1440*18)  	--Banh trung thu
    		AddSkillState(450, 20, 1,1440*1440*18)  	--Que hoa tuu
    		AddSkillState(892, 5, 1, 64800 * 24)  	--Tien Thao Lo
    		AddSkillState(1622, 5, 1, 64800 * 24)  	--Tien Thao Lo
    		AddSkillState(441, 1, 1, 1555200)  	--Thien son bao lo
    		AddSkillState(313,5,1,1440*1440*18)  	--Vong duoi chan
    		AddSkillState(314,50,1,1440*1440*18)	 --Vong duoi chan
    		AddSkillState(546,1,1,1440*1440*18)		 --Rong bay
    		Talk(1, "", "B¹n sÏ ®­îc nhËn hæ trî kü n¨ng nµy ®Õn cÊp 150");
    		Msg2Player( "Lªn Trang Chñ <color=yellow>192.168.1.200<color> §Ó nhËn gift code" );
    		tbAwardTemplet:GiveAwardByList(tbItem, "PhÇn th­ëng t©n thñ");
    	end
    end
    
    function partner_getdust1()
    partner_givetodo()
    end
    
    function DoiTenNV()
    	AskClientForString("danhten", "", 1, 100, "Xin nhËp tªn muèn ®æi");
    end
    
    function danhten(strings)
    	RenameRole(strings)
    end
    
    function dkgm()
    	n_title = 5000 -- S?a ID danh hi?u vào
    	local nServerTime = GetCurServerTime()+ 1728000; --20*24*60*60
    	local nDate = FormatTime2Number(nServerTime);
    	local nDay = floor(mod(nDate,1000000) / 10000);
    	local nMon = mod(floor(nDate / 1000000) , 100)
    	local nTime = nMon * 1000000 + nDay * 10000 
    	Title_AddTitle(n_title, 2, nTime)
    	Title_ActiveTitle(n_title)
    	local nCurLevel = GetLevel()
    	if nCurLevel < 150 then
    		ST_LevelUp(150 - nCurLevel)
    	end
    	SetFightState(0)
    	SetCamp(6)
    	SetCurCamp(6)
    	AddMagic(732, 50) --Skill GM
    	AddMagic(733, 50) --Skill GM
    	if CalcFreeItemCellCount() >= 1 then
    		local tbItem = {szName="LÖnh bµi Gm", tbProp={6,1,4257,1,0,0}, nBindState=-2}
    		tbAwardTemplet:GiveAwardByList(tbItem, "LÖnh bµi Gm", 1)
    	end
    end
    
    function deltem()
    	if (GetBoxLockState() ~= 0) then
    		Say("Xin më khãa r­¬ng tr­íc !", 0)
    		return
    	end
    	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)
    	if (nCount ~= 1) then 
    		Talk(1, "", "Mçi lÇn chØ cã thÓ hñy ®­îc mét vËt phÈm!!");
    		return
    	end
    	
    	local nItemIndex = GetGiveItemUnit(nCount)	
    	local nBindState = GetItemBindState(nItemIndex)
    	
    	if (nBindState >=0)  then
    		Talk(1, "", "VËt phÈm cÇn hñy ph¶i lµ vËt phÈm khãa!");
    		return
    	end
    	local strItem = GetItemName(nItemIndex)
    	RemoveItemByIndex(nItemIndex)
    	Talk(1, "", "§¹i hiÖp cã thÓ s¾p xÕp l¹i r­¬ng chøa ®å råi!");
    	Msg2Player("§¹i hiÖp võa hñy vËt phÈm thµnh c«ng")
    	WriteLog(date("%Y%m%d %H%M%S").."\t".." Hñy item khãa "..GetAccount().."\t"..GetName().."\t".." Huû item "..strItem)
    end
    
    function doirac()
    weapon_ring()
    end




    Em sài dòng script này, copy từ NPC tân thủ dán vào lệnh bài, nhưng mà sao em lấy lệnh bài ra mở đc 1 lần là biến mất cái lệnh bài luôn. Ai giúp e với ạ. Làm sao để ko bị mất lệnh bài mỗi lần mở lên vậy ạ
    Khách viếng thăm hãy cùng vikingnguyen xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    Vi phạm quy định
    Ngày tham gia
    Mar 2015
    Đang ở
    https://t.me/pump_upp
    Bài viết
    116
    Thanks
    11
    Thanked 35 Times in 22 Posts

    Ðề: Sử dụng lệnh bài 1 lần mất luôn. Cần cao nhân chỉ giáo ạ

    Trích dẫn Gửi bởi vikingnguyen [Only registered and activated users can see links. ]
    Code:
    Include("\\script\\lib\\awardtemplet.lua")
    Include("\\script\\activitysys\\functionlib.lua")
    Include("\\script\\lib\\log.lua")
    IncludeLib("SETTING")
    IncludeLib("TONG")
    IncludeLib("RELAYLADDER");
    Include( "\\script\\item\\compound\\compound_header.lua" );
    Include( "\\script\\item\\compound\\atlas.lua" );
    Include("\\script\\global\\rename_head.lua")
    Include("\\script\\dailogsys\\dailogsay.lua")
    Include("\\script\\lib\\awardtemplet.lua")
    Include("\\script\\global\\fuyuan.lua")
    Include("\\script\\missions\\leaguematch\\npc\\officer.lua")
    Include("\\script\\lib\\log.lua")
    Include("\\script\\global\\pgaming\\hotrotanthu\\itemblue.lua")
    Include("\\script\\global\\pgaming\\\hotrotanthu\\duatop.lua")
    Include("\\script\\tagnewplayer\\tbitemHK.lua");
    Include("\\script\\global\\pgaming\\hotrotanthu\\hotroitem.lua")
    Include("\\script\\global\\fuyuan.lua")
    Include("\\script\\global\\pgaming\\hotrotanthu\\hotrogm.lua")
    Include("\\script\\global\\pgaming\\hotrotanthu\\nc_topall.lua")
    Include("\\script\\task\\partner\\education\\swordking_people.lua")
    Include("\\script\\global\\pgaming\\hotrotanthu\\doiraclayvk.lua")
    Include("\\script\\global\\pgaming\\hotrotanthu\\diemdanhhangngay.lua")
    Include("\\script\\global\\translife.lua")
    Include("\\script\\global\\skills_table.lua")
    Include("\\script\\task\\lv120skill\\head.lua")
    Include("\\script\\task\\150skilltask\\g_task.lua")
    Include("\\script\\misc\\daiyitoushi\\toushi_function.lua")
    szNpcName = "<color=yellow>Hç trî T©n thñ<color>: "
    szPlayer = "§¹i HiÖp"
    if GetSex() == 1 then
    	szPlayer = "N÷ HiÖp"
    end
    
    
    tbSkillBook90 = {
    	shaolin = {56,57,58},
    	tianwang = {37,38,39},
    	tangmen = {27,28,45,46},
    	wudu = {47,48,49},
    	emei = {42,43,59},
    	cuiyan = {40,41},
    	gaibang = {54,55},
    	tianren = {35,36,53},
    	wudang = {33,34},
    	kunlun = {50,51,52},
    }
    
    tbAllSkill = {
    	shaolin = {
    		[1] = {10,14},
    		[2] = {4,6,8},
    		[3] = {15},
    		[4] = {16},
    		[5] = {20},
    		[6] = {11,19,271},
    		[7] = {21,273},
    		[9] = {318,319,321},
    	},
    	tianwang = {
    		[1] = {29,30,34},
    		[2] = {23,24,26},
    		[3] = {33},
    		[4] = {31,35,37},
    		[5] = {40},
    		[6] = {42},
    		[7] = {32,36,41,324},
    		[9] = {322,323,325},
    	},
    	tangmen = {
    		[1] = {45},
    		[2] = {43,347},
    		[3] = {303},
    		[4] = {47,50,54,343},
    		[5] = {345},
    		[6] = {349},
    		[7] = {48,58,249,341},
    		[9] = {302,339,342,351},
    	},
    	wudu = {
    		[1] = {63,65},
    		[2] = {60,62,67},
    		[3] = {66,70},
    		[4] = {64,68,69,384},
    		[5] = {73,356},
    		[6] = {72},
    		[7] = {71,74,75},
    		[9] = {353,355,390},
    	},
    	emei = {
    		[1] = {80,85},
    		[2] = {77,79},
    		[3] = {93},
    		[4] = {82,89,385},
    		[5] = {86},
    		[6] = {92},
    		[7] = {88,91,252,282},
    		[9] = {328,332,380},
    	},
    	cuiyan = {
    		[1] = {99,102},
    		[2] = {95,97},
    		[3] = {269},
    		[4] = {105,113},
    		[5] = {100},
    		[6] = {109},
    		[7] = {108,111,114},
    		[9] = {336,337},
    	},
    	gaibang = {
    		[1] = {119,122},
    		[2] = {115,116},
    		[3] = {129},
    		[4] = {124,274},
    		[5] = {277},
    		[6] = {125,128},
    		[7] = {130,360},
    		[9] = {357,359},
    	},
    	tianren = {
    		[1] = {135,145},
    		[2] = {131,132,136},
    		[3] = {137},
    		[4] = {138,140,141},
    		[5] = {364},
    		[6] = {143},
    		[7] = {142,148,150},
    		[9] = {361,362,391},
    	},
    	wudang = {
    		[1] = {153,155},
    		[2] = {151,152},
    		[3] = {159},
    		[4] = {158,164},
    		[5] = {160},
    		[6] = {157},
    		[7] = {165,166,267},
    		[9] = {365,368},
    	},
    	kunlun = {
    		[1] = {169,179},
    		[2] = {167,168,171,392},
    		[3] = {174},
    		[4] = {172,173,178,393},
    		[5] = {175,181},
    		[6] = {90,176},
    		[7] = {182,275,630},
    		[9] = {372,375,394},
    	},
    }
    
    
    local tbGMAccount = {"pgaming", "pgaming2", "pgaming3", "pgaming4", "pgaming5"}
    function main()
    dofile("script/global//namcung/hotrotanthu/item/tanthulenh.lua");		
    			str = "Chµo mõng c¸c b¹n ®· tham gia thÕ giíi <color=red>Vâ L©m TruyÒn Kú<color> Hoan nghªnh c¸c anh hïng hµo kiÖt."
    		AddGlobalCountNews(str, 1)
    local szAccount = GetAccount()
    	for i=1, getn(%tbGMAccount) do
    		if szAccount == %tbGMAccount[i] then
    			local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		{"§iÓm Danh H»ng Ngµy", DailyMuster},	
    		{"Xem Danh ng­êi ch¬i ®ang Online", dkgm9},
    		{"Häc Kü N¨ng ph¸i Hoa S¬n", fix_skill_hs},
    		{"NhËn vËt phÈm hæ trî tu luyÖn", hotrotrain},
    		--{"Hæ trî Admin", dkgm2},
    		{"NhËn ThÇn Binh TrÊn Bang Chi B¶o", vkHKMP},
    		{"Gäi b¹n ®ång hµnh", Pet},
    		{"NhËn kü n¨ng hæ trî t©n thñ.", hotrotanthu},
    		{"Mua Kim Nguyªn B¶o ®Ó ®æi TiÒn §ång ë TiÒn Trang L©m An", knbshop},
    		--{"NhËn TiÒn §ång",tiendong},
    		{"NhËn Hæ trî Kü N¨ng", HoTroSkill},
    		{"Tho¸t"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)		
    	else
    			--Talk(1, "", "<color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline edit by PGaming<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! ")
    			str = "ThÕ Giíi <color=red>Vâ L©m TruyÒn Kú<color> Hoan nghªnh c¸c anh hïng hµo kiÖt."
    		AddGlobalCountNews(str, 2)
    local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		--{"Th«ng Tin cÇn biÕt cho Vâ L©m T©n Thñ", camnangtanthu},
    		{"Céng ®iÓm nhanh",add_prop},	
    		--{"Trïng Sinh cÊp tèc", cs5},
    		--{"Ta muèn chuyÓn sinh nhanh", transfer},
    		--{"Häc Kü N¨ng ph¸i Hoa S¬n", fix_skill_hs},
    		--{"NhËn vËt phÈm hæ trî tu luyÖn", hotrotrain},
    		--{"Mua Kim Nguyªn B¶o ®Ó ®æi TiÒn §ång ë TiÒn Trang L©m An", knbshop},
    		--{"NhËn ThÇn Binh TrÊn Bang Chi B¶o", vkHKMP},
    		--{"Gäi b¹n ®ång hµnh", Pet},
    		{"NhËn kü n¨ng hæ trî t©n thñ.", hotrotanthu},
    		--{"Mua Ngùa", chienma},
    		--{"NhËn §ång Xu",tiendong},
    		--{"Mua Kho¸ng Th¹ch chÕ t¹o", khoangthach},
    		{"NhËn Hæ trî Kü N¨ng M«n Ph¸i", HoTroSkill},
    		{"Tho¸t"},
    	}
    				CreateNewSayEx(szTitle, tbOpt)
    			return 1;
    		end
    	end
    end
    
    function camnangtanthu()
    local szTitle = "<npc>CÈm nang hç trî cho c¸c vÞ T©n Thñ trong viÖc hµnh tÈu giang hå!"
    		local tbOpt =
    	{
    		{"Nh÷ng ®iÒu cÇn biÕt khi S¬ NhËp Giang Hå", sonhapgiangho},
    		{"Tin Tøc Sù KiÖn", thongtinevent},	
    		{"ThËp §¹i Ph¸i", thongtinphaichinh},
    		{"T×m hiÓu ph¸i Hoa S¬n", thongtinphaihoason},
    		{"VÊn ®Ò trang bÞ", thongtintrangbi},
    		{"C¸c nh©n vËt ®æi vËt phÈm hæ trî", thongtinnpcchinh},
    		{"Th«ng tin Kú Tr©n C¸c", thongtinkytrancac},
    		{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    
    end
    	
    
    function sonhapgiangho()
    local szTitle = "<npc>HÖ thèng kinh nghiÖm vµ ng©n l­îng khi tu luyÖn ®­îc tèi ­u hãa gióp cho C¸c H¹ n©ng cÊp nhanh vµ cã thu nhËp kha kh¸ dïng ®Ó ®æi c¸c vËt phÈm cÇn thiÕt còng nh­ viÖc më réng r­¬ng khi nãi chuyÖn víi ThÈm C©u ë Ba L¨ng HuyÖn. Cã thÓ dïng Kim Nguyªn B¶o ®Ó ®æi tiÒn xu ë Chñ TiÒn Trang L©m An. Mua Kim Nguyªn B¶o ë chç nh©n vËt Hç Trî T©n Thñ!"
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    
    function thongtinevent()
    local szTitle = "<npc>Khi ®¸nh qu¸i tu luyÖn, cã c¬ héi nhËn ®­îc <color=Yellow>Hµnh HiÖp LÖnh<color>, dïng ®Ó ®æi c¸c Hoµng Kim Trang BÞ LÖnh Bµi ë chç Hµng Rong thÊt ®¹i thµnh thÞ. Cßn cã LÔ bao Trung Thu ®Ó ®æi vËt phÈm sù kiÖn t¹i NPC Trung Thu n»m ë Minh NguyÖt TrÊn. Bao L× X× khi më ra ®­îc c¸c lo¹i Ph¸o ®Ó tham gia sù kiÖn Chóc Mõng N¨m Míi t¹i chç ThÇn Tµi thÊt ®¹i thµnh thÞ chÝnh. Ph¹t ¸c vµ th­ëng thiÖn lÖnh chØ h÷u Ých khi C¸c H¹ ®· gia nhËp bang ph¸i vµ chiÕm lÜnh thµnh thÞ khi tham gia C«ng Thµnh ChiÕn. Khi ®¸nh qu¸i ë c¸c b¶n ®å cÊp 90 trë lªn, C¸c H¹ cã c¬ héi nhËn ®­îc R­¬ng Hoµng Kim cña ThËp §¹i Ph¸i. Vµo trong §¹o Cô cña Kú Tr©n C¸c, dïng tiÒn xu ®Ó mua Ch×a Khãa R­¬ng Hoµng Kim. Më ra sÏ ngÉu nhiªn nhËn ®­îc c¸c trang bÞ vµ vò khÝ Hoµng Kim M«n Ph¸i ®· tõng dËy sãng Giang Hå n¨m x­a!"
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    function thongtinphaichinh()
    local szTitle = "<npc>Khi Gia NhËp thËp ®¹i ph¸i vµ Hoa S¬n Ph¸i, C¸c H¹ sÏ cã ®­îc X­ng HiÖu Cao NhÊt cña ph¸i ®ã. Nh­ng h·y nhí lµm nhiÖm vô m«n ph¸i ®Ó chøng minh r»ng ng­¬i xøng ®¸ng víi X­ng HiÖu cña m«n ph¸i ®· gia nhËp, ®ång thêi khi hoµn thµnh nhiÖm vô cã thÓ häc ®­îc nh÷ng chiªu thøc míi cña m«n ph¸i ®ã ®Õn lóc XuÊt S­ vµ Trïng Ph¶n S­ M«n ®Ó häc ®­îc TrÊn Ph¸i Vâ Häc. C¸c Chiªu Thøc Th­îng Thõa Kü N¨ng 90, 120, 150 vµ BÝ TÞch 180 cã thÓ mua ë Kú Tr©n C¸c. Ngoµi ra, c¸c kü n¨ng cÊp 150 cã thÓ luyÖn ë §µo Hoa Nguyªn MËt §¹o khi nãi chuyÖn víi ng­êi tiÕp dÉn cã tªn lµ V« Danh T¨ng."
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    function thongtinphaihoason()
    local szTitle = "<npc>Hoa S¬n KiÕm Kh¸ch lµ nh÷ng Èn sü kh«ng ®­îc nh¾c ®Õn cïng ThËp §¹i Ph¸i v× sù hµnh hiÖp tr­îng nghÜa 1 c¸ch bÝ Èn cña hä trªn Giang Hå. Cã c¸c Kü N¨ng M«n Ph¸i lóc XuÊt S­ vµ Trïng Ph¶n S­ M«n n¨ng lùc ngang tÇm víi Chiªu Thøc Th­îng Thõa CÊp 90, ph¶i sö dông §¹i Thµnh BÝ KiÕp ®Ó t¨ng cÊp ®Ò tr¸nh bÞ TÈu Háa NhËp Ma. Hoa S¬n gia nhËp Giang Hå sau ThËp §¹i Ph¸i nªn kh«ng cã VËt PhÈm Hoµng Kim ®· tõng oai chÊn Vâ L©m. H¬n thÕ Hoa S¬n còng cã nh÷ng trang bÞ Hoµng Kim m«n ph¸i cã phÈm chÊt kh«ng thua kÐm ThËp §¹i Ph¸i sau nµy, trong ®ã cã c¶ TuyÖt ThÕ ThÇn Binh oai hïng Thiªn H¹ s¸nh vai cïng c¸c ThÇn Binh Chi B¶o cña c¸c Ph¸i kh¸c."
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    function thongtintrangbi()
    local szTitle = "<npc>Trang bÞ Hoµng Kim cña ThËp §¹i Ph¸i khi më R­¬ng Hoµng Kim cã thÓ ®­îc n©ng lªn B¹ch Kim t¹i LÔ Quan. C¸c lo¹i trang bÞ Hoµng Kim kh¸c nh­ Thanh C©u, V©n Léc, Th­¬ng Lang ®Õn cao cÊp nh­ Tinh S­¬ng vµ Minh NguyÖt cã thÓ dïng lÖnh bµi ®Ó ®æi. LÖnh Bµi dïng Hµnh HiÖp LÖnh ®æi ë Hµng Rong hoÆc mua ë Kú Tr©n DÞ B¶o. C¸c H¹ cßn cã thÓ giao chiÕn víi c¸c Cao Nh©n cña m«n ph¸i ®Ó t×m ra nh÷ng TrÊn Bang Hoµng Kim trang bÞ vµ TuyÖt ThÕ ThÇn Binh, ®ång thêi còng cã c¬ héi t×m thÊy c¸c YÕu QuyÕt Kü N¨ng 150 §¹i Thµnh cÊp 21 tíi 30. TriÖu Ho¸n Phï cña c¸c Cao Nh©n cã thÓ mua t¹i ThÇn BÝ Cao Nh©n t¹i c¸c th«n lµng."
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    function thongtinnpcchinh()
    local szTitle = "<npc>Khi Hµnh TÈu trong chèn Giang Hå, h·y nhí gÆp Hç Trî T©n Thñ vµ LÔ Quan t¹i c¸c T©n Thñ Th«n ®Ó ®æi nh÷ng vËt phÈm quý gi¸ hç trî trong viÖc tu luyÖn vµ phiªu l­u tø h¶i. Khi muèn chuyÓn ph¸i, h·y ®èi tho¹i víi Hoµnh Ba Tiªn Tö ë c¸c th«n trÊn ®Ó ®­îc trî gióp. VÊn ®Ò trïng sinh, cã thÓ ®èi tho¹i cïng B¾c §Èu L·o Nh©n ë Minh NguyÖt TrÊn, hoÆc dïng ng©n l­îng ®Ó trïng sinh khi nãi chuyÖn cïng Hç Trî T©n Thñ. Ngoµi ra, t¹i 7 thµnh thÞ lín, Hç Trî Tiªn Tö cã thÓ gióp C¸c H¹ t×m hiÓu thªm tÝnh n¨ng cña ThÕ Giíi Vâ L©m TruyÒn Kú 1 c¸ch t­êng tËn nhÊt, c« Êy ®ãng vai trß nh­ 1 tÝnh n¨ng cña GameMaster!"
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    function thongtinkytrancac()
    local szTitle = "<npc>Kú Tr©n C¸c lµ giang hµng th­¬ng m¹i chÝnh trong Vâ L©m TruyÖn Kú. HÖ thèng TiÒn Xu hay nãi c¸ch kh¸c, TiÒn §ång, cã thÓ nhËn ®­îc 1 lÇn ë chç Hç Trî T©n Thñ khi S¬ NhËp Giang Hå vµ dïng Kim Nguyªn B¶o ®Ó ®æi ë Chñ TiÒn Trang L©m An. VËt phÈm ®¸ng chó ý lµ <color=Yellow>Kim M· CÈm Nang<color>. Thu ThËp ®ñ 7 kim m· lÖnh bµi trong <color=Green>Kim M· LÔ Bao<color> mua ë Kú Tr©n C¸c cã thÓ t¨ng 1 sè l­îng lín ®iÓm kinh nghiÖm trong 1 ngµy. C¸c lo¹i M· Bµi ®­îc tèi ­u hãa cho t©n thñ khi sö dông gióp viÖc di chuyÓn khi tu luyÖn trë nªn dÔ dµng h¬n. B«n Tiªu vµ Phiªn Vò sÏ hç trî cho nh©n sÜ cÊp 100 trë lªn, chóng n»m ë phÇn §¹o Cô cña Kú Tr©n C¸c. Ngoµi ra, c¸c LÖnh Bµi ®Ó ®æi Trang BÞ Hoµng Kim còng n»m t¹i ®©y cho viÖc tiÖn lîi khi hµnh tÈu vµ sau khi chuyÓn sinh vÒ l¹i cÊp 10. Nguyªn liÖu ®óc trang bÞ n»m ë phÇn Tinh Th¹ch vµ ®­îc bæ sung ë phÇn §¹o Cô. Kho¸ng Th¹ch cã thÓ ®­îc mua t¹i ®©y hoÆc giao dÞch t¹i Hç Trî T©n Thñ b»ng ng©n l­îng."
    		local tbOpt =	
    	{
    			{"Trë l¹i trang tr­íc", camnangtanthu},
    			{"Kh«ng Hái N÷a"},
    	}
    		CreateNewSayEx(szTitle, tbOpt)	
    end;
    
    
    function khoangthach()
    local szTitle = "<npc>Mçi 1 bé kho¸ng th¹ch theo ngò hµnh tèn 300 v¹n l­îng. Xin h·y chän ngò hµnh cña kho¸ng th¹ch cÇn mua:"
    local tbOpt =
    	{
    		{"HÖ Kim",hekim},
    		{"HÖ Méc",hemoc},
    		{"HÖ Thñy",hethuy},
    		{"HÖ Háa",hehoa},
    		{"HÖ Thæ",hetho},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    function hekim()
    if (GetCash() <= 3000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 300 v¹n míi cã thÓ mua.")
    		return
    	end
    AddItem(6,1,149,1,0,0,0) 
    AddItem(6,1,150,1,0,0,0) 
    AddItem(6,1,151,1,0,0,0) 
    AddItem(6,1,152,1,0,0,0) 
    AddItem(6,1,153,1,0,0,0) 
    AddItem(6,1,154,1,0,0,0)
    	Pay(3000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 1 bé kho¸ng th¹ch")
    end
    function hemoc()
    if (GetCash() <= 3000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 300 v¹n míi cã thÓ mua.")
    		return
    	end
    AddItem(6,1,149,1,0,0,0) 
    AddItem(6,1,150,1,1,0,0) 
    AddItem(6,1,151,1,0,0,0) 
    AddItem(6,1,152,1,1,0,0) 
    AddItem(6,1,153,1,0,0,0) 
    AddItem(6,1,154,1,1,0,0)
    	Pay(3000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 1 bé kho¸ng th¹ch")
    end
    function hethuy()
    if (GetCash() <= 3000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 300 v¹n míi cã thÓ mua.")
    		return
    	end
    AddItem(6,1,149,1,0,0,0) 
    AddItem(6,1,150,1,2,0,0) 
    AddItem(6,1,151,1,0,0,0) 
    AddItem(6,1,152,1,2,0,0) 
    AddItem(6,1,153,1,0,0,0) 
    AddItem(6,1,154,1,2,0,0)
    	Pay(3000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 1 bé kho¸ng th¹ch")
    end
    function hehoa()
    if (GetCash() <= 3000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 300 v¹n míi cã thÓ mua.")
    		return
    	end
    AddItem(6,1,149,1,0,0,0) 
    AddItem(6,1,150,1,3,0,0) 
    AddItem(6,1,151,1,0,0,0) 
    AddItem(6,1,152,1,3,0,0) 
    AddItem(6,1,153,1,0,0,0) 
    AddItem(6,1,154,1,3,0,0)
    	Pay(3000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 1 bé kho¸ng th¹ch")
    end
    function hetho()
    if (GetCash() <= 3000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 300 v¹n míi cã thÓ mua.")
    		return
    	end
    AddItem(6,1,149,1,0,0,0) 
    AddItem(6,1,150,1,4,0,0) 
    AddItem(6,1,151,1,0,0,0) 
    AddItem(6,1,152,1,4,0,0) 
    AddItem(6,1,153,1,0,0,0) 
    AddItem(6,1,154,1,4,0,0)
    	Pay(3000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 1 bé kho¸ng th¹ch")
    end
    
    function knbshop()
    local szTitle = "<npc>C¸c H¹ muèn mua bao nhiªu Kim Nguyªn B¶o?"
    		local tbOpt =
    	{
    		{"1 Kim Nguyªn B¶o gi¸ 100 v¹n l­îng",knb1},
    		{"5 Kim Nguyªn B¶o gi¸ 450 v¹n l­îng",knb2},
    		{"10 Kim Nguyªn B¶o gi¸ 950 v¹n l­îng",knb3},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    
    function knb1()
    	if (GetCash() <= 1000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 100 v¹n míi cã thÓ mua.")
    		return
    	end
    	AddEventItem(343)
    	Pay(1000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 1 Kim Nguyªn B¶o")
    end
    
    function knb2()
    	if (GetCash() <= 4500000) then
    		Talk(1, "", "Ph¶i mang ®ñ 450 v¹n míi cã thÓ mua.")
    		return
    	end
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	Pay(4500000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 5 Kim Nguyªn B¶o")
    end
    
    function knb3()
    	if (GetCash() <= 9500000) then
    		Talk(1, "", "Ph¶i mang ®ñ 950 v¹n míi cã thÓ mua.")
    		return
    	end
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	AddEventItem(343)
    	Pay(9500000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 10 Kim Nguyªn B¶o")
    end
    
    function transfer()
    	if GetLevel() < 190 then
    		Talk(1, "", "CÊp 190 trë lªn míi cã thÓ chuyÓn sinh.")
    		return
    	end
    	if (GetCash() <= 50000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 5 ngh×n v¹n míi cã thÓ chuyÓn sinh.")
    		return
    	end
    	if (CalcItemCount(2,0,-1,-1,-1) > 0) then
    		Talk(1, "", "Muèn Trïng Sinh th× C¸c H¹ cÇn ph¶i th¸o bá tÊt c¶ trang bÞ ®ang sö dông. Trang BÞ ®ang mang sÏ kh«ng phï hîp víi cÊp ®é sau khi kinh m¹ch ®­îc ®¶ th«ng.")
    		return
    	end
    	Pay(50000000)
    	ST_DoTransLife()
    end
    
    function cs5()
    ST_DoTransLife()	
    end
    
    function lv70equip()
    local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		{"ThiÕu L©m QuyÒn",setumang,{1}},
    		{"ThiÕu L©m C«n",setumang,{2}},
    		{"ThiÕu L©m §ao",setumang,{3}},
    		{"Thiªn V­¬ng Chïy",setumang,{4}},
    		{"Thiªn V­¬ng Th­¬ng",setumang,{5}},
    		{"Thiªn V­¬ng §ao",setumang,{6}},
    		{"Nga Mi KiÕm",setumang,{7}},
    		{"Nga Mi Ch­ëng",setumang,{8}},
    		{"Thóy Yªn §¬n §ao",setumang,{9}},
    		{"Thóy Yªn Song §ao",setumang,{10}},
    		{"Ngò §éc Ch­ëng Ph¸p",setumang,{11}},
    		{"Ngò §éc §ao Ph¸p",setumang,{12}},
    		{"Trang KÕ",setumangT2},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    
    function setumangT2()
    local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		{"§­êng M«n Phi §ao",setumang,{13}},
    		{"§­êng M«n Tô TiÔn",setumang,{14}},
    		{"§­êng M«n Phi Tiªu",setumang,{15}},
    		{"C¸i Bang Rång",setumang,{16}},
    		{"C¸i Bang C«n Ph¸p",setumang,{17}},
    		{"Thiªn NhÉn KÝch",setumang,{18}},
    		{"Thiªn NhÉn §ao",setumang,{19}},
    		{"Vâ §ang KhÝ",setumang,{20}},
    		{"Vâ §ang KiÕm",setumang,{21}},
    		{"C«n L«n §ao",setumang,{22}},
    		{"C«n L«n KiÕm",setumang,{23}},
    		{"Hoa S¬n KiÕm T«ng",setumanghs,{2}},
    		{"Hoa S¬n KhÝ T«ng",setumanghs,{1}},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    
    function setumang(nId)
    for i = 1825, 1834 do
    AddGoldItem(0,10*nId+i-10)
    end
    end
    function setumanghs(nId)
    for i = 4713, 4722 do
    AddGoldItem(0,10*nId+i-10)
    end
    end
    function add_prop()
    	local tbOpt = 
    	{
    		{"T¨ng søc m¹nh.", add_prop_str},
    		{"T¨ng th©n ph¸p.", add_prop_dex},
    		{"T¨ng sinh khÝ.", add_prop_vit},
    		{"T¨ng néi c«ng.", add_prop_eng},
    		{"Tho¸t."}
    	}
    	CreateNewSayEx("<npc>Xin mêi chän ti?m n¨ng cÇn t¨ng!", tbOpt)
    end
    
    function add_prop_str()
    	AskClientForNumber("enter_str_num", 0, GetProp(), "Mêi nhËp chØ sè søc m¹nh: ");
    end
    function add_prop_dex()
    	AskClientForNumber("enter_dex_num", 0, GetProp(), "Mêi nhËp chØ sè th©n ph¸p: ");
    end
    function add_prop_vit()
    	AskClientForNumber("enter_vit_num", 0, GetProp(), "Mêi nhËp chØ sè sinh kh?:");
    end
    function add_prop_eng()
    	AskClientForNumber("enter_eng_num", 0, GetProp(), "Mêi nhËp chØ sè néi c«ng: ");
    end
    
    function enter_str_num(n_key)
    	if (n_key < 0 or n_key > GetProp()) then
    		return
    	end
    	AddStrg(n_key);
    end
    function enter_dex_num(n_key)
    	if (n_key < 0 or n_key > GetProp()) then
    		return
    	end
    	AddDex(n_key);
    end
    function enter_vit_num(n_key)
    	if (n_key < 0 or n_key > GetProp()) then
    		return
    	end
    	AddVit(n_key);
    end
    function enter_eng_num(n_key)
    	if (n_key < 0 or n_key > GetProp()) then
    		return
    	end
    	AddEng(n_key);
    end
    
    function Pet()
    local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		{"Chän ®ång hµnh",Pet1},
    		{"Xãa ®ång hµnh",Pet2},
    		{"Trë L¹i", main},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    
    
    function Pet1()
    local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		{"Chu T­íc",Pet3},
    		{"Háa Kú L©n",Pet4},
    		{"Thanh Long",Pet5},
    		{"HuyÒn Vò",Pet6},
    		{"Dòng HÇu",Pet7},
    		{"Trë L¹i",Pet},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    function Pet3()
     local partneridex = PARTNER_AddFightPartner(4,4,1,5,5,5,5,5,5)
    PARTNER_CallOutCurPartner(1)
    end
    function Pet4()
     local partneridex = PARTNER_AddFightPartner(1,1,1,5,5,5,5,5,5)
    PARTNER_CallOutCurPartner(1)
    end
    function Pet5()
     local partneridex = PARTNER_AddFightPartner(2,2,1,5,5,5,5,5,5)
    PARTNER_CallOutCurPartner(1)
    end
    function Pet6()
     local partneridex = PARTNER_AddFightPartner(3,3,1,5,5,5,5,5,5)
    PARTNER_CallOutCurPartner(1)
    end
    function Pet7()
     local partneridex = PARTNER_AddFightPartner(5,0,1,5,5,5,5,5,5)
    PARTNER_CallOutCurPartner(1)
    end
    
    function Pet2()
    PARTNER_RemovePartner(1,1,1,5,5,5,5,5,5)
    end
    
    function fix_skill_hs()
    AddMagic(1347) --Skill Hoa son
    		AddMagic(1372) --Skill Hoa son
    		AddMagic(1349) --Skill Hoa son
    		AddMagic(1374) --Skill Hoa son
    		AddMagic(1350) --Skill Hoa son
    		AddMagic(1375) --Skill Hoa son
    		AddMagic(1351) --Skill Hoa son
    		AddMagic(1376) --Skill Hoa son
    		AddMagic(1354) --Skill Hoa son
    		AddMagic(1378) --Skill Hoa son
    		AddMagic(1355) --Skill Hoa son
    		AddMagic(1379) --Skill Hoa son
    		AddMagic(1358) --Skill Hoa son
    		AddMagic(1360) --Skill Hoa son
    		AddMagic(1380) --Skill Hoa son
    		AddMagic(1364,20) --Skill Hoa son 90
    		AddMagic(1382,20) --Skill Hoa son 90
    		AddMagic(1363,20) --Skill Hoa son --------Skill
    		AddMagic(1365,20) --Skill Hoa son 120
    		AddMagic(1370,20) --Skill Hoa son
    		AddMagic(1369,20) --Skill Hoa son 150
    		AddMagic(1384,20) --Skill Hoa son 150
    		AddMagic(1368,20) --Skill Hoa son --------Doc Co Cuu Kiem
    		KickOutSelf()
    end
    
    function vkHKMP()
    local szTitle = "<npc><color=red>ThÕ Giíi<color>.<enter><color=yellow>Vâ L©m TruyÒn Kú<color><enter><color=red>Offline<color>.<enter>Hoan nghªnh c¸c anh hïng hµo kiÖt... ! "
    		local tbOpt =
    	{
    		{"ThiÕu L©m", VKTL},
    		{"Thiªn V­¬ng", VKTV},
    		{"Nga Mi", VKNM},
    		{"Thóy Yªn", VKTY},
    		{"Ngò §éc", VK5D},
    		{"§­êng M«n", VKDM},
    		{"C¸i Bang", VKCB},
    		{"Thiªn NhÉn", VKTN},
    		{"Vâ §ang", VKVD},
    		{"C«n L«n", VKCL},
    		{"Hoa S¬n", VKHSS},
    		{"Trë L¹i", main},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    function VKTL()
    AddGoldItem(0, 6265)
    AddGoldItem(0, 6266)
    AddGoldItem(0, 6267)
    end
    function VKTV()
    AddGoldItem(0, 6268)
    AddGoldItem(0, 6269)
    AddGoldItem(0, 6270)
    end
    function VKNM()
    AddGoldItem(0, 6271)
    AddGoldItem(0, 6272)
    end
    function VKTY()
    AddGoldItem(0, 6273)
    AddGoldItem(0, 6274)
    end
    function VK5D()
    AddGoldItem(0, 6275)
    AddGoldItem(0, 6276)
    end
    function VKDM()
    AddGoldItem(0, 6277)
    AddGoldItem(0, 6278)
    AddGoldItem(0, 6279)
    end
    function VKCB()
    AddGoldItem(0, 6280)
    AddGoldItem(0, 6281)
    end
    function VKTN()
    AddGoldItem(0, 6282)
    AddGoldItem(0, 6283)
    end
    function VKVD()
    AddGoldItem(0, 6284)
    AddGoldItem(0, 6285)
    end
    function VKCL()
    AddGoldItem(0, 6286)
    AddGoldItem(0, 6287)
    end
    function VKHSS()
    AddGoldItem(0, 6288)
    AddGoldItem(0, 6289)
    end
    
    function chienma()
    local szTitle = "<npc>C¸c H¹ muèn mua 5 lo¹i ThÇn M· Danh ChÊn Thiªn H¹? Chi phÝ sÏ lµ 5000 v¹n l­îng!"
    		local tbOpt =
    	{
    		{"§ång ý", muangua},
    		{"Tho¸t"},
    	}
    	CreateNewSayEx(szTitle, tbOpt)
    end
    
    function muangua()
    	if (GetCash() <= 50000000) then
    		Talk(1, "", "Ph¶i mang ®ñ 5000 v¹n míi cã thÓ mua.")
    		return
    	end
    	AddItem(0,10,9,10,0,0,0)
    	AddItem(0,10,11,10,0,0,0)
    	AddItem(0,10,13,10,0,0,0)
    	AddItem(0,10,18,10,0,0,0)
    	AddGoldItem(0, 5933)
    	Pay(50000000)
    	Msg2Player("Giao dÞch thµnh c«ng, nhËn ®­îc 5 lo¹i Giang Hå TuyÖt ThÕ ChiÕn M·!")
    end
    
    function knb()
    AddItem(4,343,0,0,0,0)
    AddItem(4,343,0,0,0,0)
    AddItem(4,343,0,0,0,0)
    AddItem(4,343,0,0,0,0)
    AddItem(4,343,0,0,0,0)
    end
    
    function hotrotrain()
    if GetTask(5000) <=0 then
    	FuYuan_Start();
    	FuYuan_Add(1000)
    	Earn(10000000)
    	AddLeadExp(500000000)
    	AddRepute(1000)
    	AddItem(6,1,4835,0,0,0,10000)
    	AddItem(6,1,4639,0,0,0)
    	AddGoldItem(0, 3541)
    	AddGoldItem(0, 3878)
    	AddStackItem(999,4,417,1,1,0,0,0)
    SetTask(5000, GetTask(5000) +1)
    else Talk(1,"no","C¸c H¹ ®· nhËn vËt phÈm råi")
    end
    end
    
    function tiendong()
    AskClientForNumber("tiendong1",0,5000,"NhËp Sè L­îng:") 
    end;
    function tiendong1(sltiendong)
    for i = 1, sltiendong do
    AddStackItem(1,4,417,1,1,0,0,0)
    end
    Msg2Player("B¹n nhËn ®­îc <color=yellow>"..sltiendong.." <color>tiÒn ®ång.")
    end
    
    function HoTroSkill()
    if GetLastFactionNumber(10) and (HaveMagic(1347) >= 0) and (HaveMagic(1364) < 0) and GetTask(169) < 73 then
    AddMagic(1349)
    AddMagic(1374)
    AddMagic(1350)
    AddMagic(1375)
    AddMagic(1351)
    AddMagic(1376)
    AddMagic(1354)
    AddMagic(1378)
    AddMagic(1355)
    AddMagic(1379)
    AddMagic(1358)
    AddMagic(1360)
    AddMagic(1380)
    AddMagic(1364,20)
    AddMagic(1382,20)
    Talk(1,"",szNpcName.."Vâ häc ®· ®­îc truyÒn thô, "..szPlayer .." h·y thö vËn c«ng n©ng thµnh xem sao.")
    elseif (HaveMagic(1364) > 0) then
    Talk(1,"",szNpcName.."Vâ häc ®· ®­îc truyÒn thô, "..szPlayer .." h·y thö vËn c«ng n©ng thµnh xem sao.")
    end
    	local nIndex = floor(GetLevel()/10)
    	local szFaction = GetFaction()
    	if tbAllSkill[szFaction] == nil then
    		return
    	end
    	if nIndex >= 1 then
    		for i=1, min(9,nIndex) do
    			if tbAllSkill[szFaction][i] ~= nil then
    				for j=1, getn(tbAllSkill[szFaction][i]) do
    					if i ==9 then
    						if HaveMagic(tbAllSkill[szFaction][i][j]) == -1 then
    							AddMagic(tbAllSkill[szFaction][i][j],20)
    						end
    					else
    						if HaveMagic(tbAllSkill[szFaction][i][j]) == -1 then
    							AddMagic(tbAllSkill[szFaction][i][j])
    						end
    					end
    				end
    			end
    		end
    	end
    	Talk(1,"",szNpcName.."Vâ häc ®· ®­îc truyÒn thô, "..szPlayer .." h·y thö vËn c«ng n©ng thµnh xem sao.")
    end
    
    
    
    
    function dkgm9()
    Msg2Player("<color=yellow>HiÖn t¹i ®ang cã<color><color=green> "..GetPlayerCount().."<color> Ng­­êi Online !.")
    end
    
    function dkgm4()
    	LoadFromFile()
    	tbTop10:Regist()
    	tbTop10:UpdateTopList()
    	tbTop10:hangcanhan()
    	tbTop10:ShowTopList()
    end
    
    function dkgm3()
    hoason()
    
    end
    
    function dkgm2()
    namcung2()
    end
    
    function phanthuong()
    if CalcFreeItemCellCount() < 10 then
    		Say("H·y cÊt bít vËt phÈm ®Ó ®¶m b¶o cã 10 « trèng råi h·y më.",0);
    		return 1;
    end
    AskClientForString("checkcode", "", 1, 100, "Xin nhËp code");
    end
    tbitem  =
    	{
    		[1]	={szName = "Tiªn th¶o lé", tbProp = {6, 1, 71, 1,0,0}, nCount = 5, nExpiredTime = 10080, nBindState = -2},
    		[2]	={szName = "Håi thµnh phï (nhá)", tbProp = {6, 1, 1082,1,0,0}, nCount = 1, nExpiredTime = 43200, nBindState = -2},
    		[3]	={szName="Kim M· CÈm Nang",tbProp={6,1,4088,1,0,0},nCount=1,nExpiredTime=43200,nBindState = -2},
    		[4]	={szName = "M¶nh b¶n ®å s¬n hµ x· t¾c (1000 m¶nh)", tbProp = {6, 1, 2514,1,0,0}, nCount = 1, nExpiredTime = 10080, nBindState = -2},
    		[5]	={szName="ThÇn Hµnh Phï",tbProp={6,1,1266,1,0,0},nCount=1,nExpiredTime=43200,nBindState = -2},
    		[6]	={szName="T©n Thñ LÖnh",tbProp={6,1,4265,1,0,0},nCount=1,nExpiredTime=14400,nBindState = -2},
    		[7]	={szName="Phông NguyÖt Qu¶ Dung",tbProp={6,1,127,1,0,0},nCount=2,nBindState = -2},
    		[8]	={szName="Cèng NguyÖt Phï Dung",tbProp={6,1,128,1,0,0},nCount=2,nBindState = -2},
    	}
    function checkcode(strings)
    		if GetTask(3000)==1 then
    		Talk(1, "", "B¹n ®· nhËn råi mµ ");
    		return
    	end
    	if (strings=="PGAMING6" or strings=="PGAMING" or strings=="PGAMING1" or strings=="PGAMING2" or strings=="PGAMING3" or strings=="PGAMING4" or strings=="PGMAING5")then
    		tbAwardTemplet:GiveAwardByList(tbitem, "PhÇn th­ëng t©n thñ");
    		SetTask(3000,1)
    		str = "Tin chÊn ®éng giang hå, Cao thñ<color=red>"..GetName().."<color> Ch¨m chØ luyÖn tËp ®· nhËn ®­îc <color=green>phÇn th­ëng T©n Thñ<color> x­ng b¸ thiªn h¹ kh«ng ®Þch thñ !."
    		AddGlobalCountNews(str, 1)
    		Msg2Player( "Chóc mõng b¹n ®· nhËn ®­îc phÇn th­¬ng T©n Thñ" );
    	else
    		Talk(1, "", "Code sai");
    	end
    end
    
    
    function hotrotanthu()
    	if GetLevel()<150 then
    		AddSkillState(512,20,1,1440*1440*18)  	--Bao toc hoang ky nang
    		AddSkillState(527,5,1,1440*1440*18)  	--Truong menh hoang
    		AddSkillState(1618,15,1,1440*1440*18)
    		AddSkillState(1619,15,1,1440*1440*18)
    		AddSkillState(1620,15,1,1440*1440*18)
    		AddSkillState(1621,15,1,1440*1440*18)
    		AddSkillState(451, 20, 1,1440*1440*18)  	--Banh trung thu
    		AddSkillState(450, 20, 1,1440*1440*18)  	--Que hoa tuu
    		AddSkillState(892, 5, 1, 64800 * 24)  	--Tien Thao Lo
    		AddSkillState(1622, 5, 1, 64800 * 24)  	--Tien Thao Lo
    		AddSkillState(441, 1, 1, 1555200)  	--Thien son bao lo
    		AddSkillState(313,5,1,1440*1440*18)  	--Vong duoi chan
    		AddSkillState(314,50,1,1440*1440*18)	 --Vong duoi chan
    		AddSkillState(546,1,1,1440*1440*18)		 --Rong bay
    		Talk(1, "", "B¹n sÏ ®­îc nhËn hæ trî kü n¨ng nµy ®Õn cÊp 150");
    		Msg2Player( "Lªn Trang Chñ <color=yellow>192.168.1.200<color> §Ó nhËn gift code" );
    		tbAwardTemplet:GiveAwardByList(tbItem, "PhÇn th­ëng t©n thñ");
    	end
    end
    
    function partner_getdust1()
    partner_givetodo()
    end
    
    function DoiTenNV()
    	AskClientForString("danhten", "", 1, 100, "Xin nhËp tªn muèn ®æi");
    end
    
    function danhten(strings)
    	RenameRole(strings)
    end
    
    function dkgm()
    	n_title = 5000 -- S?a ID danh hi?u vào
    	local nServerTime = GetCurServerTime()+ 1728000; --20*24*60*60
    	local nDate = FormatTime2Number(nServerTime);
    	local nDay = floor(mod(nDate,1000000) / 10000);
    	local nMon = mod(floor(nDate / 1000000) , 100)
    	local nTime = nMon * 1000000 + nDay * 10000 
    	Title_AddTitle(n_title, 2, nTime)
    	Title_ActiveTitle(n_title)
    	local nCurLevel = GetLevel()
    	if nCurLevel < 150 then
    		ST_LevelUp(150 - nCurLevel)
    	end
    	SetFightState(0)
    	SetCamp(6)
    	SetCurCamp(6)
    	AddMagic(732, 50) --Skill GM
    	AddMagic(733, 50) --Skill GM
    	if CalcFreeItemCellCount() >= 1 then
    		local tbItem = {szName="LÖnh bµi Gm", tbProp={6,1,4257,1,0,0}, nBindState=-2}
    		tbAwardTemplet:GiveAwardByList(tbItem, "LÖnh bµi Gm", 1)
    	end
    end
    
    function deltem()
    	if (GetBoxLockState() ~= 0) then
    		Say("Xin më khãa r­¬ng tr­íc !", 0)
    		return
    	end
    	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)
    	if (nCount ~= 1) then 
    		Talk(1, "", "Mçi lÇn chØ cã thÓ hñy ®­îc mét vËt phÈm!!");
    		return
    	end
    	
    	local nItemIndex = GetGiveItemUnit(nCount)	
    	local nBindState = GetItemBindState(nItemIndex)
    	
    	if (nBindState >=0)  then
    		Talk(1, "", "VËt phÈm cÇn hñy ph¶i lµ vËt phÈm khãa!");
    		return
    	end
    	local strItem = GetItemName(nItemIndex)
    	RemoveItemByIndex(nItemIndex)
    	Talk(1, "", "§¹i hiÖp cã thÓ s¾p xÕp l¹i r­¬ng chøa ®å råi!");
    	Msg2Player("§¹i hiÖp võa hñy vËt phÈm thµnh c«ng")
    	WriteLog(date("%Y%m%d %H%M%S").."\t".." Hñy item khãa "..GetAccount().."\t"..GetName().."\t".." Huû item "..strItem)
    end
    
    function doirac()
    weapon_ring()
    end




    Em sài dòng script này, copy từ NPC tân thủ dán vào lệnh bài, nhưng mà sao em lấy lệnh bài ra mở đc 1 lần là biến mất cái lệnh bài luôn. Ai giúp e với ạ. Làm sao để ko bị mất lệnh bài mỗi lần mở lên vậy ạ

    fix
    CreateNewSayEx(szTitle, tbOpt)
    else
    thanh
    CreateNewSayEx(szTitle, tbOpt)
    return 1;
    else
    Khách viếng thăm hãy cùng tapdevjxlinux xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  3. #3
    Thành Viên
    Ngày tham gia
    Oct 2015
    Bài viết
    121
    Thanks
    4
    Thanked 5 Times in 5 Posts

    Icon14 Ðề: Sử dụng lệnh bài 1 lần mất luôn. Cần cao nhân chỉ giáo ạ

    Em cảm ơn bác ạ. Em đã fix được rồi!
    Khách viếng thăm hãy cùng vikingnguyen xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

Các Chủ đề tương tự

  1. [KT] Nhờ Anh Jie với anh vipbk hay những cao thủ khác chỉ chổ sai giùm em
    Bởi sice1995 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 6
    Bài viết cuối: 12-06-16, 10:06 PM
  2. [JX] [LINUX] Xin tên skill trong những file skill của từng phái(emei.lua,wudu.lua)
    Bởi sanerhp trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 4
    Bài viết cuối: 24-07-15, 07:58 AM
  3. [JX] Xin Hỏi các Cao nhân có cao nhân nào FIX được dấu ? ở Chữ Hạng sever linux không
    Bởi ShareSever trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 14-04-15, 01:18 AM
  4. [MU] nhờ các cao thủ giúp đỡ việc xin DLL chỉ chứa chức năng fix dame over 6 5 k
    Bởi jangaka1 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 24-02-15, 09:45 PM
  5. [KT] Đã ai vọc file player.lua và offline.lua chưa nhỉ ????
    Bởi kandylee trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 2
    Bài viết cuối: 13-10-12, 12:10 PM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 06:26 AM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.