-------------------------------- THU VIEN TONG -------------------------------------
IL("DICEITEM")
IncludeLib("LEAGUE")
IncludeLib("SETTING")
Include("\\script\\global\\tamhiep\\libgm.lua")
Include("\\script\\dailogsys\\dailogsay.lua")
Include("\\script\\lib\\awardtemplet.lua")
Include("\\script\\dailogsys\\dailogsay.lua")
Include("\\script\\item\\ib\\shenxingfu.lua");
Include("\\script\\activitysys\\functionlib.lua")
Include("\\script\\global\\g7vn\\g7quanly.lua")
Include("\\script\\missions\\challengeoftime\\npc_death.lua")
Include("\\script\\activitysys\\playerfunlib.lua")
Include("\\script\\lib\\log.lua")
Include("\\script\\event\\great_night\\lantern\\create_lanterns.lua");
Include("\\script\\missions\\boss\\callboss_incity.lua");
Include("\\script\\battles\\marshal\\mission.lua");
Include("\\script\\battles\\marshal\\head.lua");
Include("\\script\\global\\quanlygame\\canhdonghoangkim\\npccay.lua");
Include("\\script\\global\\quanlygame\\canhdonghoangkim\\npcqua.lua");
Include("\\script\\global\\tamhiep\\configserver\\phanthuonghoatdong.lua")
Include("\\script\\global\\quanlygame\\canhdonghoangkim\\npcqua2.lua");

 -- CallBossDown_Fixure() goi boss tieu
NameAdministrator1 = ""
NameAdministrator2 = ""
NameAdministrator3 = ""
NameAdministrator4 = ""
NameAdministrator5 = ""
NameAdministrator6 = ""
NameAdministrator7 = ""
NameAdministrator8 = ""
NameAdministrator9 = ""
NameAdministrator10 = ""
PassAdministrator      = 6969
TenServer = "ThienHaTruyenKy.Com"
PhienBan = "CTC"
GetNameAdmin = ""
TestGame = 0
OpenGame = 0
DuaTop = 0
BayBan = 0

function addtopVP()
	Ladder_NewLadder(10296, "Top1",10,0);
	Ladder_NewLadder(10296, "Top2",9, 0);
	Ladder_NewLadder(10296, "Top3",8, 0);
	Ladder_NewLadder(10296, "Top4",7, 0);
	Ladder_NewLadder(10296, "Top5",6, 0);
	Ladder_NewLadder(10296, "Top6",5, 0);
	Ladder_NewLadder(10296, "Top7",4, 0);
	Ladder_NewLadder(10296, "Top8",3, 0);
	Ladder_NewLadder(10296, "Top9",2, 0);
	Ladder_NewLadder(10296, "��Q12���T�ħ���",1, 0);
end
function gg()
	local tbBossnewdf={
		{szName="Th�y Tinh",tbProp={4,random(238,240),1,1,0,0},nCount=1},
		{szName="Th�y Tinh",tbProp={4,random(238,240),1,1,0,0},nCount=1},
		{szName="Th�y Tinh",tbProp={4,random(238,240),1,1,0,0},nCount=1},
		{szName="Tinh H�ng B�o Th�ch",tbProp={4,353,1,1,0,0},nCount=1},
		{szName="Thi�t La H�n L� Bao",tbProp={6,1,21,1,0,0},nCount=1},
		{szName="Thi�n s�n  B�o L�",tbProp={6,1,72,1,0,0},nCount=2},
		{szName="Ti�n th�o l�",tbProp={6,1,71,1,0,0},nCount=3},
		{szName="Ti�n th�o l� ��c bi�t",tbProp={6,1,1181,1,0,0},nCount=1},
		{szName="Th� ��c x� tri�u ��nh",tbProp={6,1,1375,1,0,0},nCount=1},
		{szName="L� Bao B� K�p",tbProp={6,1,4891,1,0,0},nCount=1},
		{szName="Huy�n Tinh",tbProp={6,1,147,random(1,6),0,0},nCount=1},
	}
	local tbdenbu={
		{szName="Vi�n Kinh Nghi�m",tbProp={6,1,9186,1,0,0},nCount=9},
		{szName="Vi�n Kinh Nghi�m",tbProp={6,1,9187,1,0,0},nCount=9},
		{szName="Vi�n Kinh Nghi�m",tbProp={6,1,9188,1,0,0},nCount=9},
		{szName="Vi�n Kinh Nghi�m",tbProp={6,1,9189,1,0,0},nCount=9},
		{szName="Vi�n Kinh Nghi�m",tbProp={6,1,9192,1,0,0},nCount=9},

	}	
	tbAwardTemplet:GiveAwardByList(tbdenbu, "tbdenbu");
end
function mainGMKhai()
--AddItem(6,1,4433,1,1,0)
--tbAwardTemplet:GiveAwardByList({{szName="Qu�ng R�n",tbProp={6,1,4429,1,1,0},nCount=1,},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="Qu�ng R�n",tbProp={6,1,4430,1,1,0},nCount=10,},}, "test", 1);
dofile("script/global/quanlygame/lenhbaiadminvip.lua")
	SetTaskTemp(246, SearchPlayer(GetName()))
	local szTitle = ImageSay[3][1]..ShowThongTinAdmin().."<enter>"..ShowTimeServer().."<enter>"..GetWorldPosWXY().."<enter>"..ShowSoLuongAccountOnline().."";
	local tbOpt = 
	{
		{"Qu�n l� Ho�t ��ng",Quanlyhoatdong},
		{"Qu�n l� nh�n v�t",HeThongQuanLyNhanVat},
		--{"Show log xu",ShowLogXu},
		{"ReLoad 8GS", Bil_ReLoadScript_MultiGamerSVWithLinkInput},
		-- {"ReLoad 1GS", GA_LoadScript},
		-- {"X�p h�ng SV",xhgame},
		{"GMCommand",GMCommand},
		-- {"TEST Skill Vong", testkill},
		  -- {"Ch�c N�ng Pro Admin",GMMENU1},
	--	{"Ch�c N�ng S� L� B�c",GMLOBAC},
	--	{"Th�n H�nh Ph�",SuDungThanHanhPhu},
	--	{"ReLoad Script",ReLoadScript},
		--{"thuong su quan",topevent},
		--{"Lb c�ng th�nh",lenhbaicongthanh},
	-- {"Add NPC",addlainpc},
		--{"V�ng s�ng",vongsang},
		--{"hiep s�ng",hiepcot},
		--{"Thien tu",thientu},
		--{"call trong1",goitrong},
		--{"Check hwid",checkhwid},
		--{"Ch�c n�ng Administrator",AdminControl},
		{"K�t th�c ��i tho�i.",OnCancel},
	}
	CreateNewSayEx(szTitle, tbOpt)
	return 1
end

function wlls_show_top32()
	local tb_thuhang={};
	local tb_TenNV={};
	local tb_tinhtrangphatthuong={};
	for i =1,32 do
		tb_thuhang[i]= dofile("SELECT STT from PhatThuongGame where STT='"..i.."' ",1);
		-- Msg2Player("thuhang: "..tb_thuhang[i].."")
	end
	for i =1,32 do
		tb_TenNV[i]= dofile("SELECT Name from PhatThuongGame where STT='"..i.."' ",1);
	end	
	for i =1,32 do
		tb_tinhtrangphatthuong[i]= tonumber(dofile("SELECT TrangThai from PhatThuongGame where STT='"..i.."' ",1));
	end		
	for i =1,32 do
		local str_kq="";
		if tb_tinhtrangphatthuong[i] == 0 then str_kq="ch�a nh�n qu�" else str_kq="�� nh�n qu�"  end;
		Msg2Player(""..tb_thuhang[i]..":"..tb_TenNV[i]..":"..str_kq.."")
	end		
end

function wlls_phatqua_top32()
	local tb_TenNV={};
	local tb_tinhtrangphatthuong={};
	local NameNV=GetName();
	for i =1,32 do
		tb_TenNV[i]= dofile("SELECT Name from PhatThuongGame where STT='"..i.."' ",1);
		if tb_TenNV[i] == NameNV then
			tb_tinhtrangphatthuong[i]= tonumber(dofile("SELECT TrangThai from PhatThuongGame where STT='"..i.."' ",1));
			if tb_tinhtrangphatthuong[i] == 0 then
				dofile("UPDATE PhatThuongGame SET TrangThai='1' where STT='"..i.."' ");
				wlls_addqua_top32(i)
				Msg2Player("B�n �� nh�n th��ng th�nh c�ng!")
				return 1
			else 
				Msg2Player("B�n �� nh�n th��ng r�i m�!")
				return 0
			end
		end
	end		
end
function wlls_addqua_top32(nvar)
	WLLS_TASKID_HONOUR	= 2501	
	local thuhang=tonumber(nvar);
	if thuhang==1 then
		SetTask(WLLS_TASKID_HONOUR, GetTask(WLLS_TASKID_HONOUR)+4000)
		SyncTaskValue(WLLS_TASKID_HONOUR)
		Msg2Player(format("B�n v�a nh�n ���c 4000 �i�m vinh d�, t�ng c�ng c� %d �i�m",  GetTask(WLLS_TASKID_HONOUR)))
	elseif thuhang==2 then
		SetTask(WLLS_TASKID_HONOUR, GetTask(WLLS_TASKID_HONOUR)+3000)
		SyncTaskValue(WLLS_TASKID_HONOUR)
		Msg2Player(format("b�n v�a nh�n ���c 3000 �i�m vinh d�, t�ng c�ng c� %d �i�m",  GetTask(WLLS_TASKID_HONOUR)))
	elseif thuhang==3 then
		SetTask(WLLS_TASKID_HONOUR, GetTask(WLLS_TASKID_HONOUR)+2500)
		SyncTaskValue(WLLS_TASKID_HONOUR)
		Msg2Player(format("b�n v�a nh�n ���c 2500 �i�m vinh d�, t�ng c�ng c� %d �i�m",  GetTask(WLLS_TASKID_HONOUR)))
	elseif thuhang==4 then
		SetTask(WLLS_TASKID_HONOUR, GetTask(WLLS_TASKID_HONOUR)+2000)
		SyncTaskValue(WLLS_TASKID_HONOUR)
		Msg2Player(format("b�n v�a nh�n ���c 2000 �i�m vinh d�, t�ng c�ng c� %d �i�m",  GetTask(WLLS_TASKID_HONOUR)))
	elseif thuhang >=5 and thuhang<=15 then 
		SetTask(WLLS_TASKID_HONOUR, GetTask(WLLS_TASKID_HONOUR)+1500)
		SyncTaskValue(WLLS_TASKID_HONOUR)
		Msg2Player(format("b�n v�a nh�n ���c 1500 �i�m vinh d�, t�ng c�ng c� %d �i�m",  GetTask(WLLS_TASKID_HONOUR)))
	elseif thuhang >=16 and thuhang<=32 then 
		SetTask(WLLS_TASKID_HONOUR, GetTask(WLLS_TASKID_HONOUR)+1000)
		SyncTaskValue(WLLS_TASKID_HONOUR)
		Msg2Player(format("b�n v�a nh�n ���c 1000 �i�m vinh d�, t�ng c�ng c� %d �i�m",  GetTask(WLLS_TASKID_HONOUR)))
	end
end


function set_topld()
dofile("UPDATE PhatThuongGame SET STT='1' where Name='Lorf�Of�The�M�m'");
dofile("UPDATE PhatThuongGame SET STT='2' where Name='Hublot'");
dofile("UPDATE PhatThuongGame SET STT='3' where Name='M�nhLong'");
dofile("UPDATE PhatThuongGame SET STT='4' where Name='B�o�Chi�u'");
dofile("UPDATE PhatThuongGame SET STT='5' where Name='�Thi�n٢n�'");
dofile("UPDATE PhatThuongGame SET STT='6' where Name='��Louis٢n�Q8��'");
dofile("UPDATE PhatThuongGame SET STT='7' where Name='Oleter'");
dofile("UPDATE PhatThuongGame SET STT='8' where Name='Th�tNgh�'");
dofile("UPDATE PhatThuongGame SET STT='9' where Name='P�٧i�D�p�L�a'");
dofile("UPDATE PhatThuongGame SET STT='10' where Name='�B�o�Ch�u'");
dofile("UPDATE PhatThuongGame SET STT='11' where Name='��Ma�S�i��'");
dofile("UPDATE PhatThuongGame SET STT='12' where Name='nhindeogi�'");
dofile("UPDATE PhatThuongGame SET STT='13' where Name='A35AMG'");
dofile("UPDATE PhatThuongGame SET STT='14' where Name='��Mr�Siro'");
dofile("UPDATE PhatThuongGame SET STT='15' where Name='ThienHaDoc'");
dofile("UPDATE PhatThuongGame SET STT='16' where Name='AE�Mai�Dinh�07'");
dofile("UPDATE PhatThuongGame SET STT='17' where Name='��Minh�Th�ng��'");
dofile("UPDATE PhatThuongGame SET STT='18' where Name='A�Ba�Ch��C�'");
dofile("UPDATE PhatThuongGame SET STT='19' where Name='H�i�Ngh��An�4'");
dofile("UPDATE PhatThuongGame SET STT='20' where Name='BSKi�mMa'");
dofile("UPDATE PhatThuongGame SET STT='21' where Name='Th�ng�L��G�y�2'");
dofile("UPDATE PhatThuongGame SET STT='22' where Name='VoDangCon'");
dofile("UPDATE PhatThuongGame SET STT='23' where Name='T�ng�Qu�n�Uy�n'");
dofile("UPDATE PhatThuongGame SET STT='24' where Name='Ngheo�NMC'");
dofile("UPDATE PhatThuongGame SET STT='25' where Name='�26Gaming�'");
dofile("UPDATE PhatThuongGame SET STT='26' where Name='___Ti�u�S�H�___'");
dofile("UPDATE PhatThuongGame SET STT='27' where Name='TieuLyPhiDao'");
dofile("UPDATE PhatThuongGame SET STT='28' where Name='L�m�Uy�n�Nhi'");
dofile("UPDATE PhatThuongGame SET STT='29' where Name='E300�AMG'");
dofile("UPDATE PhatThuongGame SET STT='30' where Name='Ng�o�S��ng'");
dofile("UPDATE PhatThuongGame SET STT='31' where Name='Chupppp'");
dofile("UPDATE PhatThuongGame SET STT='32' where Name='Ba�Ch��C�'");

end


function add_trap_pldbac1()
-- ClearMapObj(336)
-------------------------
	AddObstacleObj(469,336, 1585*32,2506*32)
	AddObstacleObj(469,336, 1586*32,2507*32)
	AddObstacleObj(469,336, 1587*32,2508*32)
	AddObstacleObj(469,336, 1588*32,2509*32)
	AddObstacleObj(469,336, 1589*32,2510*32)
	AddObstacleObj(469,336, 1590*32,2511*32)
	AddObstacleObj(469,336, 1591*32,2512*32)
	AddObstacleObj(469,336, 1592*32,2513*32)
	AddObstacleObj(469,336, 1593*32,2514*32)
	AddObstacleObj(469,336, 1594*32,2515*32)
	AddObstacleObj(469,336, 1595*32,2516*32)
	AddObstacleObj(469,336, 1596*32,2517*32)
	AddObstacleObj(469,336, 1597*32,2518*32)
	-------------------------
	AddObstacleObj(469,336, 1585*32,2506*32)
	AddObstacleObj(469,336, 1584*32,2507*32)
	AddObstacleObj(469,336, 1583*32,2508*32)
	AddObstacleObj(469,336, 1582*32,2509*32)
	AddObstacleObj(469,336, 1581*32,2510*32)
	AddObstacleObj(469,336, 1580*32,2511*32)
	AddObstacleObj(469,336, 1579*32,2512*32)	
	AddObstacleObj(469,336, 1578*32,2513*32)
	AddObstacleObj(469,336, 1577*32,2514*32)
	AddObstacleObj(469,336, 1576*32,2515*32)
	AddObstacleObj(469,336, 1575*32,2516*32)
	AddObstacleObj(469,336, 1574*32,2517*32)
	AddObstacleObj(469,336, 1573*32,2518*32)
	-------------------------
	AddObstacleObj(469,336, 1572*32,2519*32)
	AddObstacleObj(469,336, 1573*32,2520*32)
	AddObstacleObj(469,336, 1574*32,2521*32)
	AddObstacleObj(469,336, 1575*32,2522*32)
	AddObstacleObj(469,336, 1576*32,2523*32)
	AddObstacleObj(469,336, 1577*32,2524*32)
	AddObstacleObj(469,336, 1578*32,2525*32)	
	AddObstacleObj(469,336, 1579*32,2526*32)
	AddObstacleObj(469,336, 1580*32,2527*32)
	AddObstacleObj(469,336, 1581*32,2528*32)
	AddObstacleObj(469,336, 1582*32,2529*32)
	AddObstacleObj(469,336, 1583*32,2530*32)
	AddObstacleObj(469,336, 1584*32,2531*32)
	AddObstacleObj(469,336, 1585*32,2532*32)
	-------------------------
	AddObstacleObj(469,336, 1597*32,2518*32)
	AddObstacleObj(469,336, 1596*32,2519*32)
	AddObstacleObj(469,336, 1595*32,2520*32)
	AddObstacleObj(469,336, 1594*32,2521*32)
	AddObstacleObj(469,336, 1593*32,2522*32)
	AddObstacleObj(469,336, 1592*32,2523*32)
	AddObstacleObj(469,336, 1591*32,2524*32)	
	AddObstacleObj(469,336, 1590*32,2525*32)
	AddObstacleObj(469,336, 1589*32,2526*32)
	AddObstacleObj(469,336, 1588*32,2527*32)
	AddObstacleObj(469,336, 1587*32,2528*32)
	AddObstacleObj(469,336, 1586*32,2529*32)
	AddObstacleObj(469,336, 1585*32,2530*32)
	
end

function add_trap_pldbac2()
-- ClearMapObj(336)
 AddObstacleObj(469,336, 1585*32,2507*32)
 AddObstacleObj(469,336, 1586*32,2508*32)
 AddObstacleObj(469,336, 1587*32,2509*32)
 AddObstacleObj(469,336, 1588*32,2510*32)
 AddObstacleObj(469,336, 1589*32,2511*32)
 AddObstacleObj(469,336, 1590*32,2512*32)
 AddObstacleObj(469,336, 1591*32,2513*32)
 AddObstacleObj(469,336, 1592*32,2514*32)
 AddObstacleObj(469,336, 1593*32,2515*32)
 AddObstacleObj(469,336, 1594*32,2516*32)
 AddObstacleObj(469,336, 1595*32,2517*32)
 AddObstacleObj(469,336, 1596*32,2518*32)
 AddObstacleObj(469,336, 1597*32,2519*32)

 AddObstacleObj(469,336, 1585*32,2507*32)
 AddObstacleObj(469,336, 1584*32,2508*32)
 AddObstacleObj(469,336, 1583*32,2509*32)
 AddObstacleObj(469,336, 1582*32,2510*32)
 AddObstacleObj(469,336, 1581*32,2511*32)
 AddObstacleObj(469,336, 1580*32,2512*32)
 AddObstacleObj(469,336, 1579*32,2513*32)
 AddObstacleObj(469,336, 1578*32,2514*32)
 AddObstacleObj(469,336, 1577*32,2515*32)
 AddObstacleObj(469,336, 1576*32,2516*32)
 AddObstacleObj(469,336, 1575*32,2517*32)
 AddObstacleObj(469,336, 1574*32,2518*32)
 AddObstacleObj(469,336, 1573*32,2519*32)

 AddObstacleObj(469,336, 1572*32,2520*32)
 AddObstacleObj(469,336, 1573*32,2521*32)
 AddObstacleObj(469,336, 1574*32,2522*32)
 AddObstacleObj(469,336, 1575*32,2523*32)
 AddObstacleObj(469,336, 1576*32,2524*32)
 AddObstacleObj(469,336, 1577*32,2525*32)
 AddObstacleObj(469,336, 1578*32,2526*32)
 AddObstacleObj(469,336, 1579*32,2527*32)
 AddObstacleObj(469,336, 1580*32,2528*32)
 AddObstacleObj(469,336, 1581*32,2529*32)
 AddObstacleObj(469,336, 1582*32,2530*32)
 AddObstacleObj(469,336, 1583*32,2531*32)
 AddObstacleObj(469,336, 1584*32,2532*32)
 AddObstacleObj(469,336, 1585*32,2533*32)

 AddObstacleObj(469,336, 1597*32,2519*32)
 AddObstacleObj(469,336, 1596*32,2520*32)
 AddObstacleObj(469,336, 1595*32,2521*32)
 AddObstacleObj(469,336, 1594*32,2522*32)
 AddObstacleObj(469,336, 1593*32,2523*32)
 AddObstacleObj(469,336, 1592*32,2524*32)
 AddObstacleObj(469,336, 1591*32,2525*32)
 AddObstacleObj(469,336, 1590*32,2526*32)
 AddObstacleObj(469,336, 1589*32,2527*32)
 AddObstacleObj(469,336, 1588*32,2528*32)
 AddObstacleObj(469,336, 1587*32,2529*32)
 AddObstacleObj(469,336, 1586*32,2530*32)
 AddObstacleObj(469,336, 1585*32,2531*32)


end

function main_boss()
	local w,x,y = GetWorldPos()
	local mapindex = SubWorldID2Idx(w)
	if ( mapindex < 0 ) then
		Msg2Player("Get MapIndex Error.")
		return 1
	end
	local w,x,y = GetWorldPos()
	local mapindex = SubWorldID2Idx(w)
	local posx = x*32
	local posy = y*32
	bossid=11
	bosslvl =1
	nguhanh = random (1,5) - 1	
	local nNpcIndex = AddNpcEx(bossid, 1,nguhanh,mapindex, posx, posy,1,"Heo",2)
	SetNpcDeathScript(nNpcIndex,"");
	SetNpcTimer(nNpcIndex,1800*18)
end

function laydotim()
	for i=1,12 do 
	AddQualityItem(2,0,1,2,10,0,0,30,220,150,440,-1,-1)
	end
end


ImageSay = 
{
{"<link=image:\\spr\\skill\\others\\title_dg.spr><link><color>","T�ng kim nam nh�n v�t h�nh t��ng"}, --
{"<link=image:\\spr\\skill\\others\\title_bj.spr><link><color>","T�ng kim n� nh�n v�t h�nh t��ng"}, --
{"<link=image:\\spr\\skill\\others\\title_dg.spr><link><color>","Li�n ��u Qu�n qu�n"}, --
{"<link=image[0,8]:\\spr\\npcres\\passerby\\passerby092\\passerby092_st.spr><link><color>","V� l�m truy�n nh�n"}, --
{"<link=image[0,13]:\\spr\\npcres\\passerby\\passerby181\\passerby181_pst.spr><link><color>","D�ch quan"}, --
{"<link=image:\\spr\\skill\\others\\title_ab.spr><link><color>","Li�n ��u � qu�n"},
{"<link=image:\\spr\\skill\\others\\title_bj.spr><link><color>","Li�n ��u h�ng 3"},
{"<link=image:\\spr\\skill\\others\\title_yl.spr><link><color>","Li�n ��u h�ng 4"},
{"<link=image:\\spr\\skill\\others\\title_zw.spr><link><color>","V�ng s�ng m�u xanh"},
{"<link=image[147,167]:\\spr\\npcres\\enemy\\enemy154\\enemy154_pst.spr><link><color>","Nhi�p Th� Tr�n"},
{"<link=image[0,0]:\\spr\\item\\script\\jingniangshijian.spr><link><color>","C�m nang ��ng h�nh"},
{"<link=image[0,0]:\\spr\\item\\script\\xingyunjinbi.spr><link><color>","L�nh B�i H� Tr� T�n Th�"},
{"<link=image[0,20]:\\spr\\npcres\\passerby\\passerby181\\passerby181_pst.spr><link><color>", "L� quan"},
{"<link=image[0,0]:\\spr\\item\\script\\item_chrismasbox.spr><link><color>","H� Tr� T�n Th�"},
{"<link=image[0,1]:\\spr\\npcres\\enemy\\enemy060\\enemy060_st.spr><link><color>","H� Tr� Alphatest Game"},
{"<link=image[0,1]:\\spr\\npcres\\passerby\\passerby151\\passerby151_st.spr><link><color>","S� gi� ho�t ��ng"},
}

NPC_HieuThuoc ={
	{203,379,1677,3044,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,379,1692,3060,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,379,1708,3077,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,379,1673,3080,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,379,1218,3566,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,379,1230,3553,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,379,1244,3539,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,379,1254,3546,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{1810,379,1706,3065,"\\script\\global\\tamhiep\\baovatxu.lua","B�o V�t"},	
	{1810,379,1215,3546,"\\script\\global\\tamhiep\\baovatxu.lua","B�o V�t"},
	{203,378,1677,3044,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,378,1692,3060,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,378,1708,3077,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,378,1673,3080,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,378,1218,3566,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,378,1230,3553,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,378,1244,3539,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{203,378,1254,3546,"\\script\\battles\\marshal\\doctor.lua","Quan Nhu Qu�n"},
	{1810,378,1706,3065,"\\script\\global\\tamhiep\\baovatxu.lua","B�o V�t"},	
	{1810,378,1215,3546,"\\script\\global\\tamhiep\\baovatxu.lua","B�o V�t"},	
}

function End_tongkim()
	DynamicExecute("\\script\\battles\\marshal\\mission.lua", "EndMission")	
	Msg2Player("Trieu hoi  thanh cong")
end
function Open_tongkim()
	DynamicExecute("\\script\\battles\\marshal\\mission.lua", "RunMission")	
	Msg2Player("Trieu hoi  thanh cong")
end
function add_npc_quannhu()
	call_npc_hieuthuoc(NPC_HieuThuoc)
end

function call_npc_hieuthuoc(Tab)
	for i = 1 , getn(Tab) do 
		local itemlist = Tab[i]
		SId = SubWorldID2Idx(itemlist[2]);
		if (SId >= 0) then			
			npcindex = AddNpc(itemlist[1], 1, SId, itemlist[3] * 32, itemlist[4] * 32, 1, itemlist[6]);
			SetNpcScript(npcindex, itemlist[5]);
		end
	end
end;

function PhanThuong_HoangDe()
	tbAwardTemplet:GiveAwardByList({{szName="�Q(trang b�)",tbProp={0,159},nCount=1,nQuality = 1,nExpiredTime = 1440*5},}, "PhanThuong_HoangDe", 1);				
	tbAwardTemplet:GiveAwardByList({{szName="�Q(trang b�)",tbProp={0,160},nCount=1,nQuality = 1,nExpiredTime = 1440*5},}, "PhanThuong_HoangDe", 1);				
	tbAwardTemplet:GiveAwardByList({{szName="�Q(trang b�)",tbProp={0,161},nCount=1,nQuality = 1,nExpiredTime = 1440*5},}, "PhanThuong_HoangDe", 1);				
	tbAwardTemplet:GiveAwardByList({{szName="�Q(trang b�)",tbProp={0,162},nCount=1,nQuality = 1,nExpiredTime = 1440*5},}, "PhanThuong_HoangDe", 1);	
	tbAwardTemplet:GiveAwardByList({{szName="�Q(trang b�)",tbProp={0,163},nCount=1,nQuality = 1,nExpiredTime = 1440*5},}, "PhanThuong_HoangDe", 1);	
	-- tbAwardTemplet:GiveAwardByList({{szName="Ng�a Phi V�n",tbProp={0,10,8,10,0,0,0},nCount=1,nExpiredTime = 1440*5},}, "PhanThuong_HoangDe", 1);	
	tbAwardTemplet:GiveAwardByList({{szName="Ng�a B�n Ti�u",tbProp={0,10,6,10,0,0,0},nCount=1,nExpiredTime = 1440*5},}, "PhanThuong_HoangDe", 1);	
	tbAwardTemplet:GiveAwardByList({{szName="V�n B�o Ch�u",tbProp={6,1,9234,1,0,0,0},nCount=5000},}, "PhanThuong_HoangDe", 1);
	Msg2SubWorld(format("<color=yellow>%s <color><color=blue>nh�n th��ng ��ng C� Ho�ng �� th�nh c�ng<color>",GetName()));
	tbAwardTemplet:GiveAwardByList({{szName="M�t n� - c�u m�nh",tbProp={0,11,454,1,0,0},nCount=5,nExpiredTime = 1440*5},}, "PhanThuong_HoangDe", 1);
end


local tbFaction =
{
	[1] =
	{
		szShowName = "Thi�u L�m",
		szFaction = "shaolin",
		nShortFaction = "sl",
		tbSkill = {318, 319, 321, 709},
	},
	[2] =
	{
		szShowName = "Thi�n V��ng Bang",
		szFaction = "tianwang",
		nShortFaction = "tw",
		tbSkill = {322, 325, 323, 708},
	},
	[3] =
	{
		szShowName = "���ng M�n",
		szFaction = "tangmen",
		nShortFaction = "tm",
		tbSkill = {339, 302, 342, 710},
	},
	[4] =
	{
		szShowName = "Ng� ��c Gi�o",
		szFaction = "wudu",
		nShortFaction = "wu",
		tbSkill = {353, 355, 711},
	},
	[5] =
	{
		szShowName = "Nga Mi",
		szFaction = "emei",
		nShortFaction = "em",
		tbSkill = {380, 328, 712},
	},
	[6] =
	{
		szShowName = "Th�y Y�n",
		szFaction = "cuiyan",
		nShortFaction = "cy",
		tbSkill = {336, 337, 713},
	},
	[7] =
	{
		szShowName = "C�i Bang",
		szFaction = "gaibang",
		nShortFaction = "gb",
		tbSkill = {357, 359, 714},
	},
	[8] =
	{
		szShowName = "Thi�n Nh�n Gi�o",
		szFaction = "tianren",
		nShortFaction = "tr",
		tbSkill = {361, 362, 715},
	},
	[9] =
	{
		szShowName = "V� �ang",
		szFaction = "wudang",
		nShortFaction = "wd",
		tbSkill = {365, 368, 716},
	},
	[10] =
	{
		szShowName = "C�n L�n",
		szFaction = "kunlun",
		nShortFaction = "kl",
		tbSkill = {372, 375, 717},
	},
}
local tbFactionSeries =
{
	[1] = {1, 2},
	[2] = {3, 4},
	[3] = {5, 6},
	[4] = {7, 8},
	[5] = {9, 10},
}

function load_topVP()
	Ladder_NewLadder(10299, "ĕV�B�K�ı@1",38350,0);
	Ladder_NewLadder(10299, "S�n�G�u",25770, 0);
	Ladder_NewLadder(10299, "VacTr�L�iHD",6200, 0);
	Ladder_NewLadder(10299, "HH�D��ng٧�p�Zai",5685, 0);
	Ladder_NewLadder(10299, "���Kengħ�iU����",580, 0);
	Ladder_NewLadder(10299, "1s�o�V�o�M�ng",285, 0);
	Ladder_NewLadder(10299, "Ba�C�a�B�ng",480, 0);
	Ladder_NewLadder(10299, "NhinSangTr�i",330, 0);
	Ladder_NewLadder(10299, "Gi�M�aħ�ng�B�c",320, 0);
end
function load_topVP_Bang()
	Ladder_NewLadder(10300, "TOPVATPHAMBANGHOI1",161095,0);
	Ladder_NewLadder(10300, "Thi�n�H�",121195,0);
	Ladder_NewLadder(10300, "B��Gi��",101595,0);
	-- 19147 
	-- 96783
	-- 50747
	-- Ladder_NewLadder(10300, "S�n�G�u",25770, 0);
	-- Ladder_NewLadder(10300, "VacTr�L�iHD",6200, 0);
	-- Ladder_NewLadder(10300, "HH�D��ng٧�p�Zai",5685, 0);
	-- Ladder_NewLadder(10300, "���Kengħ�iU����",580, 0);
	-- Ladder_NewLadder(10300, "1s�o�V�o�M�ng",285, 0);
	-- Ladder_NewLadder(10300, "Ba�C�a�B�ng",480, 0);
	-- Ladder_NewLadder(10300, "NhinSangTr�i",330, 0);
	-- Ladder_NewLadder(10300, "Gi�M�aħ�ng�B�c",320, 0);
end
function fatanxy1()
	-- local GTC=20
	-- local nA=3
	local IDOption1, p1, IDOption2, p2, IDOption3, p3
	while (IDOption1 ~= 139 and IDOption2 ~= 139 and IDOption3 ~= 139) do
	-- for i=1,10000 do
		local Item =	AddItemEx(2,random(),0,0,0,3,10,2,100,10,10,10,10,10,10) 
		IDOption1, p1 = GetItemMagicAttrib(Item,1)
		IDOption2, p2 = GetItemMagicAttrib(Item,3)
		IDOption3, p3 = GetItemMagicAttrib(Item,5)
		if (IDOption1 ~= 139 and IDOption2 ~= 139 and IDOption3 ~= 139)  then
		-- if (IDOption1 ~= 139)  then
			RemoveItemByIndex(Item)
		end
	end
end
function fatanxy2()
	local IDOption1, p1, IDOption2, p2, IDOption3, p3
	while (IDOption1 ~= 139 and IDOption2 ~= 139 and IDOption3 ~= 139) do
		local Item =	AddItemEx(2,random(),0,0,3,0,10,1,100,10,10,10,10,10,10) 
		ITEM_SetExpiredTime(Item,1440*5)
		SyncItem(Item)
		IDOption1, p1 = GetItemMagicAttrib(Item,1)
		IDOption2, p2 = GetItemMagicAttrib(Item,3)
		IDOption3, p3 = GetItemMagicAttrib(Item,5)
		if (IDOption1 ~= 139 and IDOption2 ~= 139 and IDOption3 ~= 139)  then
			RemoveItemByIndex(Item)
		end
	end
end

function set_dotim_vodang()
	AddQualityItem(2,0,2,4,10,3,0,90,360,150,278,160,0) -- ao hoa	
	AddQualityItem(2,0,8,1,10,2,0,150,310,160,340,170,0) -- bao tay thuy
	AddQualityItem(2,0,5,2,10,0,0,70,290,150,270,160,0) -- giay kim
	AddQualityItem(2,0,6,1,10,1,0,150,320,160,270,170,0)	-- dai  moc
	AddQualityItem(2,0,7,3,10,4,0,150,380,160,270,-1,0) -- non tho

	AddQualityItem(2,0,6,1,10,3,0,150,360,160,279,170,0) -- dai hoa
	AddQualityItem(2,0,5,2,10,3,0,70,279,150,360,160,0) -- giay hoa  nu
	AddQualityItem(2,0,7,8,10,1,0,150,320,160,270,170,0) -- non moc nu
	AddQualityItem(2,0,5,3,10,1,0,150,320,160,270,70,0) -- giay moc nu
	AddQualityItem(2,0,8,0,10,1,0,150,320,160,270,170,0) -- bao tay  moc nu
	-- local GTC=175
	-- local Op=171
	-- local nA=2	
	-- local Item = AddItem(0,1,2,10,4,100,10) -- no tho

end


function fatanxy()
	local GTC=11
	local Op=114
	local nA=1
	local IDOption, p1
	while (IDOption ~= Op or p1 <= GTC)	do
		local Item = AddItem(0,4,0,10,1,100,10) 
		IDOption, p1 = GetItemMagicAttrib(Item,nA)
		if (IDOption ~= Op or p1<= GTC)  then
			RemoveItemByIndex(Item)
		end
	end
end

function addvong1()
	local tbItems = {}
	tbItems = GetAllEquipment();
	if (getn(tbItems) > 0) then
		for i = 1, getn(tbItems) do
			local nIDgoldItem= GetGlodEqIndex(tbItems[i]);
			if nIDgoldItem == 914 and GetAccount() == "dongmau4" then
				AddSkillState(1757,1,1,64800*24*3,1);
				n_title=5001--- ID Danh hieu
				Title_AddTitle(n_title,1,3*24*60*60*18) -- 3ngay
				Title_ActiveTitle(n_title)
				SetTask(1122, n_title);				
			end
		end
	end
end
function hotrolai()
	tbAwardTemplet:GiveAwardByList({{szName="H�p qu� Cao Th� T�ng Kim",tbProp={6,1,71,1,0,0,0},nCount=1},}, "PhanThuong_XepHangTK", 1);	
	tbAwardTemplet:GiveAwardByList({{szName="H�p qu� Cao Th� T�ng Kim",tbProp={6,1,122,1,0,0,0},nCount=1},}, "PhanThuong_XepHangTK", 1);	
	tbAwardTemplet:GiveAwardByList({{szName="H�p qu� Cao Th� T�ng Kim",tbProp={6,1,125,1,0,0,0},nCount=1},}, "PhanThuong_XepHangTK", 1);	
	tbAwardTemplet:GiveAwardByList({{szName="H�p qu� Cao Th� T�ng Kim",tbProp={6,1,21,1,0,0,0},nCount=1},}, "PhanThuong_XepHangTK", 1);	
	tbAwardTemplet:GiveAwardByList({{szName="H�p qu� Cao Th� T�ng Kim",tbProp={6,1,22,1,0,0,0},nCount=1},}, "PhanThuong_XepHangTK", 1);	
	tbAwardTemplet:GiveAwardByList({{szName="H�p qu� Cao Th� T�ng Kim",tbProp={6,1,26,1,0,0,0},nCount=1},}, "PhanThuong_XepHangTK", 1);	
	tbAwardTemplet:GiveAwardByList({{szName="H�p qu� Cao Th� T�ng Kim",tbProp={4,random(238,240),1,1,0,0},nCount=1},}, "PhanThuong_XepHangTK", 1);	
	tbAwardTemplet:GiveAwardByList({{szName="H�p qu� Cao Th� T�ng Kim",tbProp={4,353,1,1,0,0},nCount=1},}, "PhanThuong_XepHangTK", 1);	
end

function bugdo()
	local GTC = 20
	local nA = 5
	local IDOption, p1
	while (IDOption ~= 115 or p1 ~= GTC)	do
		local Item = AddItem(0, 0, 1,10, 2, 100, 10)
		IDOption, p1 = GetItemMagicAttrib(Item,nA)
		if (IDOption ~= 115 or p1~= GTC)  then
			RemoveItemByIndex(Item)
		end
	end 
end
function ShowThongTinAdmin()
	SetTask(5997, PlayerIndex)
	return "Ch�o Admin: <color=black><bclr=red>"..GetName().."<bclr><color>.<enter>T�n Server: <color=green>"..TenServer.."<color>";
end
function ShowTimeServer()
	local year = tonumber(date( "%y"))
	local mm = tonumber(date( "%m"))
	local day = tonumber(date( "%d"))
	local hour = tonumber(GetLocalDate("%H"))
	local mmin = tonumber(GetLocalDate("%M"))
	return "H�m nay l�: <color=yellow>Ng�y <color><color=green>"..day.."<color> <color=yellow>Th�ng <color><color=green>"..mm.."<color> <color=yellow>N�m<color> <color=green>"..year.."<color> - <color=green>"..hour.."<color> <color=yellow>Gi�<color> <color=green>"..mmin.."<color> <color=yellow>Ph�t<color>";
end

function ShowSoLuongAccountOnline()
	return "S� Acc �ang Online Tr�n 1GS  : <color=green>"..GetPlayerCount().." <color> Acc"
end

function GetWorldPosWXY()
	local W,X,Y = GetWorldPos();
	return "MapID: <color=green>"..W.."<color> X: <color=green>"..X.."<color> Y: <color=green>"..Y.."<color>";
end

-------------------------------- KIEM TRA ADMINISTRATOR ---------------------------
tbBossnewdf={
	{szName="Th�y Tinh",tbProp={4,238,1,1,0,0},nCount=1},
	{szName="Th�y Tinh",tbProp={4,240,1,1,0,0},nCount=1},
	{szName="Tinh H�ng B�o Th�ch",tbProp={4,353,1,1,0,0},nCount=1},
	{szName="Tinh H�ng B�o Th�ch",tbProp={4,353,1,1,0,0},nCount=1},
	{szName="Thi�t La H�n L� Bao",tbProp={6,1,21,1,0,0},nCount=1},
	{szName="Thi�t La H�n L� Bao",tbProp={6,1,21,1,0,0},nCount=1},
	{szName="Thi�t La H�n L� Bao",tbProp={6,1,21,1,0,0},nCount=1},
	{szName="Thi�n s�n  B�o L�",tbProp={6,1,72,1,0,0},nCount=1},
	{szName="Thi�n s�n  B�o L�",tbProp={6,1,72,1,0,0},nCount=1},
	{szName="Thi�n s�n  B�o L�",tbProp={6,1,72,1,0,0},nCount=1},
	{szName="Ti�n th�o l�",tbProp={6,1,71,1,0,0},nCount=1},
	{szName="Ti�n th�o l�",tbProp={6,1,71,1,0,0},nCount=1},
	{szName="Ti�n th�o l�",tbProp={6,1,71,1,0,0},nCount=1},
	{szName="Ti�n th�o l�",tbProp={6,1,71,1,0,0},nCount=1},
	{szName="L� Bao B� K�p",tbProp={6,1,4891,1,0,0},nCount=1},
	{szName="Vi�n Kinh Nghi�m (Boss ��i Ho�ng Kim)",tbProp={6,1,9189,1,0,0},nCount=30,nExpiredTime =1440*7},
	{szName="�ng Ba M��i Nh�m D�n",tbProp={6,1,9232,1,0,0},nCount=5},
	{szName="Bao LAG T�ng Kim",tbProp={6,1,9231,1,0,0},nCount=5},
	{szName="Ng�a 80(15 ng�y)", tbProp={0,10,5,random(1,9),0,0,0}, nCount = 1,nExpiredTime = 21600},
	{szName="V�n B�o Ch�u",tbProp={6,1,9234,1,0,0},nCount=30},
	{szName="R��ng M�nh Trang B� [HC NT]",tbProp={6,1,4824,1,0,0},nCount=1},
}
function Hoatdong_thiensu()
	DynamicExecute("\\script\\global\\quanlygame\\mission\\bosstieu\\callboss_thiensu.lua", "CallBoss")	
	Msg2Player("Trieu hoi  thanh cong")
end
function Hoatdong_addquan()
	DynamicExecute("\\script\\global\\quanlygame\\mission\\add_npctk.lua", "add_npc_quannhu")	
	Msg2Player("Trieu hoi  thanh cong")
end
function Hoatdong_trongkhaihoan()
	DynamicExecute("\\script\\global\\quanlygame\\canhdonghoangkim\\quavip1945.lua", "trieuhoi_npc")	
	Msg2Player("Trieu hoi  thanh cong")
end
function Hoatdong_huyenvu1()
	DynamicExecute("\\script\\global\\quanlygame\\mission\\huyenvukhaihoan\\callboss_20h00.lua", "CallBoss")	
	Msg2Player("Trieu hoi  thanh cong")
end
function Hoatdong_huyenvu2()
	DynamicExecute("\\script\\global\\quanlygame\\mission\\huyenvukhaihoan\\callboss_20h00.lua", "CallBoss_cuoi")	
	Msg2Player("Trieu hoi  thanh cong")
end
function Hoatdong_huyenvu3()
	DynamicExecute("\\script\\global\\quanlygame\\mission\\huyenvukhaihoan\\callboss_20h00.lua", "DelBoss")	
	Msg2Player("Trieu hoi  thanh cong")
end
function Hoatdong_huyenvu()
	local szTitle = ImageSay[3][1]..ShowThongTinAdmin().."<enter>"..ShowTimeServer().."<enter>"..GetWorldPosWXY().."<enter>"..ShowSoLuongAccountOnline().."";
	local tbOpt = 
	{
		{"Huy�n v� kh�i ho�n 4 boss",Hoatdong_huyenvu1},
		{"Huy�n v� kh�i ho�n 1 boss",Hoatdong_huyenvu2},
		{"Huy�n v� kh�i ho�n del boss",Hoatdong_huyenvu3},
		{"K�t th�c ��i tho�i.",OnCancel},
	}
	CreateNewSayEx(szTitle, tbOpt)
end
function Quanlyhoatdong()
	local szTitle = ImageSay[3][1]..ShowThongTinAdmin().."<enter>"..ShowTimeServer().."<enter>"..GetWorldPosWXY().."<enter>"..ShowSoLuongAccountOnline().."";
	local tbOpt = 
	{
		{"Huy�n v� kh�i ho�n",Hoatdong_huyenvu},
		{"Tr�ng Kh�i Ho�n",Hoatdong_trongkhaihoan},
		-- {"Qu�n Nhu TK",Hoatdong_addquan},
		-- {"Boss Dai Ho�ng Kim",Hoatdong_BossDai},
		{"��i h�i v� l�m",Hoatdong_dhvl},
		{"Qu� Huy Ho�ng",Hoatdong_quaHH},
		-- {"Boss Ti�u Ho�ng Kim",Hoatdong_BossTieu},
		{"Phong L�ng ��",Hoatdong_pld},
		-- {"Th�ng b�o M�c Nh�n Hoa S�n",ms2player_call_mocnhan_hoason},
		-- {"M�c Nh�n Hoa S�n",start_MocNhanHS},
		{"K�t th�c ��i tho�i.",OnCancel},
	}
	CreateNewSayEx(szTitle, tbOpt)
end
function Hoatdong_BossTieu_pld()
	DynamicExecute("\\script\\global\\quanlygame\\mission\\bosstieu\\callboss_pld_1920.lua", "CallBoss")	
	Msg2Player("Trieu hoi  thanh cong")
end
function Hoatdong_trunghoangkim()
	DynamicExecute("\\script\\global\\quanlygame\\canhdonghoangkim\\quavip1950.lua", "trieuhoi_npc")	
	Msg2Player("Trieu hoi  thanh cong")
end
function Hoatdong_BossTieu()
	DynamicExecute("\\script\\global\\quanlygame\\mission\\bosstieu\\boss20h10.lua", "CallBoss")	
	Msg2Player("Trieu hoi  thanh cong")
end
function Hoatdong_dhvl()
	local szTitle = ImageSay[3][1]..ShowThongTinAdmin().."<enter>"..ShowTimeServer().."<enter>"..GetWorldPosWXY().."<enter>"..ShowSoLuongAccountOnline().."";
	local tbOpt = 
	{
		{"��i h�i v� l�m Add NPc",Hoatdong_dhvl_1},
		{"��i h�i v� l�m Start",Hoatdong_dhvl_2},
		{"��i h�i v� l�m Close",Hoatdong_dhvl_3},
	}
	CreateNewSayEx(szTitle, tbOpt)
end
function Hoatdong_dhvl_1()
	DynamicExecute("\\script\\kevin\\mission\\daihoivolam\\addnpc_dhvl.lua", "addnpc_dhvl")	
	Msg2Player("Trieu hoi  thanh cong")
end
function Hoatdong_dhvl_2()
	DynamicExecute("\\script\\kevin\\mission\\daihoivolam\\tryout\\mission.lua", "dhvl_openmision")	
	Msg2Player("Trieu hoi  thanh cong")
end
function Hoatdong_dhvl_3()
	DynamicExecute("\\script\\kevin\\mission\\daihoivolam\\tryout\\mission.lua", "EndMission")	
	Msg2Player("Trieu hoi  thanh cong")
end
function Hoatdong_PLD()
	DynamicExecute("\\script\\missions\\fengling_ferry\\fldmap_boat1.lua", "fenglingdu_main")
	
	Msg2Player("Trieu hoi  thanh cong")
	local sNew = "<color=yellow>Thuy�n Phong L�ng ��<color=green> s� xu�t b�n sau 10 ph�t n�a, h�y �� l� quan ��i l� ho�c Phong l�ng �� �� b�o danh l�n thuy�n";
	chatall(sNew)	
	-- ms2player_call_mocnhan_hoason()
end
function Hoatdong_BossDai()
	DynamicExecute("\\script\\global\\quanlygame\\mission\\bossdai\\bossdai_12h30.lua", "CallBoss")
	Msg2Player("Trieu hoi moc nhan thanh cong")
	-- ms2player_call_mocnhan_hoason()
end


function start_MocNhanHS()
	DynamicExecute("\\script\\global\\quanlygame\\mission\\pld\\call_mocnhan_hoason.lua", "add_npc_mocnhan_hoason")
	DynamicExecute("\\script\\global\\quanlygame\\mission\\pld\\call_mocnhan_hoason.lua", "add_npc_mocnhan_hoason")
	DynamicExecute("\\script\\global\\quanlygame\\mission\\pld\\call_mocnhan_hoason.lua", "add_npc_mocnhan_hoason")
	DynamicExecute("\\script\\global\\quanlygame\\mission\\pld\\call_mocnhan_hoason.lua", "add_npc_mocnhan_hoason")
	DynamicExecute("\\script\\global\\quanlygame\\mission\\pld\\call_mocnhan_hoason.lua", "add_npc_mocnhan_hoason")
	Msg2Player("Trieu hoi moc nhan thanh cong")
	Msg2Player("Trieu hoi moc nhan thanh cong")
	Msg2Player("Trieu hoi moc nhan thanh cong")
	Msg2Player("Trieu hoi moc nhan thanh cong")
	Msg2Player("Trieu hoi moc nhan thanh cong")
	local sNew = "<color=yellow>M�c Nh�n Hoa S�n<color=green> �� xu�t hi�n, ch� 500 m�c nh�n ��u ti�n b� ti�u di�t m�i c� th� nh�n qu�!";
	chatall(sNew)
end
function ms2player_call_mocnhan_hoason()
	local sNew = "<color=yellow>M�c Nh�n Hoa S�n<color=green> s� xu�t hi�n t�i Hoa S�n C�nh K� tr��ng v�o l�c 23h00, ti�u di�t nh�n ���c r�t nhi�u trang b� xanh gi� tr� v� qu� t�ng.!";
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
end

function thaboss1()
  local nMapId, nPosX16, nPosY16 = GetWorldPos();
  local SId = SubWorldID2Idx(nMapId);
  local nNpcIndex;
  if (SId >= 0) then
		nNpcIndex = AddNpcEx(1366, 95,1,SId, nPosX16*32, nPosY16*32,1, "���ng Phi Y�n", 1)
	  	if nNpcIndex > 0 then
			SetNpcDeathScript(nNpcIndex, "\\script\\global\\quanlygame\\mission\\bossdai\\drop_bossdai.lua");
			SetNpcTimer(nNpcIndex,1800*18)
			Msg2Player("Add Thanh COng.")
	  	end
	end
	local sNew = "<color=yellow>Boss ���ng Phi Y�n<color=green> �� xu�t hi�n!";
	chatall(sNew)	
end

function thaboss2()
  local nMapId, nPosX16, nPosY16 = GetWorldPos();
  local SId = SubWorldID2Idx(nMapId);
  local nNpcIndex;
  if (SId >= 0) then
		nNpcIndex = AddNpcEx(743, 95,2,SId, nPosX16*32, nPosY16*32,1, "Thanh Tuy�t S� Th�i", 1)
	  	if nNpcIndex > 0 then
			SetNpcDeathScript(nNpcIndex, "\\script\\global\\quanlygame\\mission\\bossdai\\drop_bossdai.lua");
			SetNpcTimer(nNpcIndex,1800*18)
			Msg2Player("Add Thanh COng.")
	  	end
	end
	local sNew = "<color=yellow>Boss Thanh Tuy�t S� Th�i<color=green> �� xu�t hi�n!";
	chatall(sNew)	
end

function thaboss3()
  local nMapId, nPosX16, nPosY16 = GetWorldPos();
  local SId = SubWorldID2Idx(nMapId);
  local nNpcIndex;
  if (SId >= 0) then
	nNpcIndex = AddNpcEx(1367, 95,4,SId, nPosX16*32, nPosY16*32,1, "T� ��i Nh�c", 1)
	  	if nNpcIndex > 0 then
			SetNpcDeathScript(nNpcIndex, "\\script\\global\\quanlygame\\mission\\bossdai\\drop_bossdai.lua");
			SetNpcTimer(nNpcIndex,1800*18)
			Msg2Player("Add Thanh COng.")
	  	end
	end
	local sNew = "<color=yellow>Boss T� ��i Nh�c<color=green> �� xu�t hi�n!";
	chatall(sNew)	
end

function thaboss4()
  local nMapId, nPosX16, nPosY16 = GetWorldPos();
  local SId = SubWorldID2Idx(nMapId);
  local nNpcIndex;
  if (SId >= 0) then
	nNpcIndex = AddNpcEx(745, 95,3,SId, nPosX16*32, nPosY16*32,1, "H� Nh�n Ng�", 1)
	  	if nNpcIndex > 0 then
			SetNpcDeathScript(nNpcIndex, "\\script\\global\\quanlygame\\mission\\bossdai\\drop_bossdai.lua");
			SetNpcTimer(nNpcIndex,1800*18)
			Msg2Player("Add Thanh COng.")
	  	end
	end
	local sNew = "<color=yellow>Boss H� Nh�n Ng�<color=green> �� xu�t hi�n!";
	chatall(sNew)	
end

function thaboss5()
  local nMapId, nPosX16, nPosY16 = GetWorldPos();
  local SId = SubWorldID2Idx(nMapId);
  local nNpcIndex;
  if (SId >= 0) then
		nNpcIndex = AddNpcEx(1368, 95,4,SId, nPosX16*32, nPosY16*32,1, "Thanh Li�n T�", 1)
	  	if nNpcIndex > 0 then
			SetNpcDeathScript(nNpcIndex, "\\script\\global\\quanlygame\\mission\\bossdai\\drop_bossdai.lua");
			SetNpcTimer(nNpcIndex,1800*18)
			Msg2Player("Add Thanh COng.")
	  	end
	end
	local sNew = "<color=yellow>Boss Thanh Li�n T�<color=green> �� xu�t hi�n!";
	chatall(sNew)	
end
function thaboss6()
  local nMapId, nPosX16, nPosY16 = GetWorldPos();
  local SId = SubWorldID2Idx(nMapId);
  local nNpcIndex;
  if (SId >= 0) then
		nNpcIndex = AddNpcEx(740, 95,0,SId, nPosX16*32, nPosY16*32,1, "Huy�n Gi�c ��i S�", 1)
	  	if nNpcIndex > 0 then
			SetNpcDeathScript(nNpcIndex, "\\script\\global\\quanlygame\\mission\\bossdai\\drop_bossdai.lua");
			SetNpcTimer(nNpcIndex,1800*18)
			Msg2Player("Add Thanh COng.")
	  	end
	end
	local sNew = "<color=yellow>Boss Huy�n Gi�c ��i S�<color=green> �� xu�t hi�n!";
	chatall(sNew)	
end
function thaboss7()
  local nMapId, nPosX16, nPosY16 = GetWorldPos();
  local SId = SubWorldID2Idx(nMapId);
  local nNpcIndex;
  if (SId >= 0) then
		nNpcIndex = AddNpcEx(1365,95,0,SId,nPosX16*32,nPosY16*32,1, "Huy�n Nan ��i S�", 1)
	  	if nNpcIndex > 0 then
			SetNpcDeathScript(nNpcIndex, "\\script\\global\\quanlygame\\mission\\bossdai\\drop_bossdai.lua");
			SetNpcTimer(nNpcIndex,1800*18)
			Msg2Player("Add Thanh COng.")
	  	end
	end
	local sNew = "<color=yellow>Boss Huy�n Nan ��i S�<color=green> �� xu�t hi�n!";
	chatall(sNew)	
end
function Hoatdong_pld()
	local szTitle = ImageSay[3][1]..ShowThongTinAdmin().."<enter>"..ShowTimeServer().."<enter>"..GetWorldPosWXY().."<enter>"..ShowSoLuongAccountOnline().."";
	local tbOpt = 
	{
		{"Th�ng b�o Ho�t ��ng PL� 12h",ms2player_pld12h30},
		{"Th�ng b�o Ho�t ��ng PL� 19h",ms2player_pld19h30},
		{"Kh�i ��ng Ho�t ��ng PL�",start_PLD},
		-- {"Th� Boss Tr�n Thuy�n PL�",start_PLD_boss},
		{"Th� Boss M�c B�c",start_PLD_bossMB},
		{"K�t th�c ��i tho�i.",OnCancel},
	}
	CreateNewSayEx(szTitle, tbOpt)
end
function start_PLD_bossMB()
	DynamicExecute("\\script\\global\\quanlygame\\mission\\pld\\call_mocnhan.lua", "add_npc_mocnhan")
	Msg2Player("Trieu hoi moc nhan thanh cong")
	ms2player_call_mocnhan()
end
function start_PLD()
	DynamicExecute("\\script\\missions\\fengling_ferry\\fldmap_boat1.lua", "fenglingdu_main")
end
function ms2player_call_mocnhan()
	local sNew = "<color=yellow>M�c Nh�n Phong L�ng ��<color=green> �� xu�t hi�n, ti�u di�t 100 con ��u ti�n s� nh�n qu� b�t ng�!";
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
end
function ms2player_pld12h30()
	local sNew = "<color=yellow>Ho�t ��ng khung gi� 12h30-13h30: <color=green>Thuy�n Phong L�ng ��<color> mau ch�ng ��n <color=green>L� Quan (��i L�) �� b�o danh, ph� b�o danh l� 1 L�nh b�i Phong L�ng ��.12h40 thuy�n r�i b�n!";
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
end
function ms2player_pld19h30()
	local sNew = "<color=yellow>Ho�t ��ng khung gi� 19h30-20h30: <color=green>Thuy�n Phong L�ng ��<color> mau ch�ng ��n <color=green>L� Quan (��i L�) �� b�o danh, ph� b�o danh l� 1 L�nh b�i Phong L�ng ��!";
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
end
function Hoatdong_quaHH()
	local szTitle = ImageSay[3][1]..ShowThongTinAdmin().."<enter>"..ShowTimeServer().."<enter>"..GetWorldPosWXY().."<enter>"..ShowSoLuongAccountOnline().."";
	local tbOpt = 
	{
		{"Th�ng b�o ho�t ��ng 12h",ms2player_qua12h30},
		{"Th�ng b�o ho�t ��ng 19h",ms2player_qua19h30},
		{"Th� NPC Mua m�u",start_Call_NPCQuaHH},
		{"Th� C�y Huy Ho�ng",start_Call_CayHH},
		{"Th� Qu� Huy Ho�ng",start_Call_QuaHH_Chin},
		{"Th� Qu� Huy Ho�ng VIP",start_Call_QuaHH_Chin_Trung},
		{"Th� Ho�ng Kim Tr�ng",call_trung},
		{"K�t th�c ��i tho�i.",OnCancel},
	}
	CreateNewSayEx(szTitle, tbOpt)
end
function call_trung()
	DynamicExecute("\\script\\global\\quanlygame\\canhdonghoangkim\\quavip1940.lua", "trieuhoi_npc")
end
function chatall(nChat)
	local nChat= tostring(nChat)
	AddGlobalNews(nChat);
	LG_ApplyDoScript(1, "", "", "\\script\\event\\msg2allworld.lua", "battle_msg2allworld", nChat,"","");
end
function ms2player_qua19h30()
	local sNew = "<color=yellow>Ho�t ��ng khung gi� 19h30-20h30: Nh�t qu� Huy Ho�ng t�i B�n �� H�a b�nh - 19h40 - 19h50 - 20h00 qu� s� xu�t hi�n, sau 5 ph�t c� th� thu ho�ch<color>!";
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
end

function ms2player_qua12h30()
	local sNew = "<color=yellow>Ho�t ��ng khung gi� 12h00-13h00: Nh�t qu� Huy Ho�ng t�i B�n �� H�a b�nh - 12h10 - 12h20 - 12h30 qu� s� xu�t hi�n, sau 5 ph�t c� th� thu ho�ch<color>!";
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
end

function start_Call_NPCQuaHH()
	add_npc_click_2()
	Msg2Player("G�i th�nh c�ng")
end

function start_Call_CayHH()
	DynamicExecute("\\script\\global\\quanlygame\\canhdonghoangkim\\npccay.lua", "add_npc_cay")
	Msg2Player("G�i th�nh c�ng")

end

function start_Call_QuaHH_Chin()
	DynamicExecute("\\script\\global\\quanlygame\\canhdonghoangkim\\npcqua.lua", "add_npc_qua")
	Msg2Player("G�i th�nh c�ng")
end

function start_Call_QuaHH_Chin_Trung()
	add_npc_click4()
	Msg2Player("G�i th�nh c�ng")
	local sNew = "<color=green>Qu� Huy Ho�ng VIP �� Ch�n hi�n t�i B�n �� H�a B�nh.H�y mau ch�ng ��n �� thu ho�ch. C� th� d�ng Th�n H�nh Ph� ho�c ��n Xa Phu �� tham gia<color>";
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)
	chatall(sNew)	
end

-- Msg2Player("IP cua ban: "..GA_layIP().."")
-- Msg2Player("ID MonPhai cua ban: "..GetLastFactionNumber().."")

function Limit_Tong_200()
dofile("VG_GUILD_200");
end

function Delay_pk_on10()
-- dofile("VG_DELAY_1");
dofile("VG_DELAY_10");
end
function Limit_Tong_100()
dofile("VG_GUILD_100");
end
function Delay_pk_on()
dofile("VG_DELAY_1");
end
function Delay_pk_off()
dofile("VG_DELAY_0");
end
Include("\\script\\activitysys\\playerfunlib.lua")
function xoahieuung()
	for i = 1,2000 do 
		RemoveSkillState(i)
	end
end
------------------------------sua chua trang bi-------------------------------
function suaall()
	local tbEquip = GetAllEquipment()
	for i=1, getn(tbEquip) do
	local nG, nD, nP = GetItemProp(tbEquip[i])
	if nD == 0 or nD == 1 or nD == 2 or nD == 5 or nD == 6 or nD == 7 or nD == 8 then --N�u l� v� kh� c�n chi�n, v� kh� t�m xa, ao, gi�y, �ai l�ng, m�, bao tay.
		local CurDur = GetCurDurability(tbEquip[i])
		local MaxDur = GetMaxDurability(tbEquip[i])
		local ItemName = GetItemName(tbEquip[i])
		if CurDur < MaxDur then
                    		SetCurDurability(tbEquip[i],MaxDur)
                		end
        	end
	end
end
function testkill()
	return	AskClientForNumber("testkill1", 0,55555,"<#>ID SKILL");
end
function testkill1(idskill)
	PlayerFunLib:AddSkillState(idskill,1,1,18,1)--18*60*60*24*1
	Msg2Player("Add skill "..idskill.." 3 giay")
end
function GMCommand()
	AskClientForString("DoCommand","",1,99999,"<#>Nhap GM chi lenh" )
end
function DoCommand(strGM)
	dostring(strGM)
	Msg2Player("Thao tac lenh : "..strGM.." ")
end
function MatKhauAdmin(PassAdmin)
	--SetFightState(1)
	--if(PassAdmin ~= PassAdministrator) then
	--	Msg2Player("<color=yellow>B�n nh�p sai m�t kh�u h� th�ng t� ��ng h�y b� v�t ph�m!")
	--		return 1
	--	else
	SetTaskTemp(246, SearchPlayer(GetName()))
	local szTitle = ImageSay[3][1]..ShowThongTinAdmin().."<enter>"..ShowTimeServer().."<enter>"..GetWorldPosWXY().."<enter>"..ShowSoLuongAccountOnline().."";
	local tbOpt = 
	{
		{"ReLoad 8GS", Bil_ReLoadScript_MultiGamerSVWithLinkInput},
		{"ReLoad 1GS", GA_LoadScript},
		--{"Show log xu",ShowLogXu},
		{"Ch�c N�ng Pro Admin",GMMENU1},
	--	{"Ch�c N�ng S� L� B�c",GMLOBAC},
		{"Qu�n l� nh�n v�t",HeThongQuanLyNhanVat},
	--	{"Th�n H�nh Ph�",SuDungThanHanhPhu},
	--	{"ReLoad Script",ReLoadScript},
		--{"thuong su quan",topevent},
		--{"Lb c�ng th�nh",lenhbaicongthanh},
		--{"Ad NPC",addlainpc},
		--{"V�ng s�ng",vongsang},
		--{"hiep s�ng",hiepcot},
		--{"Thien tu",thientu},
		--{"call trong1",goitrong},
		--{"Check hwid",checkhwid},
		--{"Ch�c n�ng Administrator",AdminControl},
		{"K�t th�c ��i tho�i.",OnCancel},
	}
	CreateNewSayEx(szTitle, tbOpt)
	return 1
	--	end
end
function GA_LoadScript()
	AskClientForString("GA_LoadScript_do","",1,99999,"<#>Reload 1GSV" )
end
function GA_LoadScript_do(strGM)
	LoadScript(""..strGM.."")
	Msg2Player("Reload 1GSV: "..strGM.." ")
end

function huyVPkhoa()
	Say("��i hi�p: Ng��i c�n g� � ta?." ,3,"B�n Shop V�t Ph�m! /banshop","H�y B� V�t Ph�m! /Huydeltem","�� ta suy ngh� l�i. /0")
end


function banshop()
Sale(149)
end;
function Huydeltem()
	if (GetBoxLockState() ~= 0) then
		Say("Xin m� kh�a r��ng tr��c !", 0)
		return
	end
GiveItemUI("H�y V�t Ph�m Kh�a", " ��i hi�p c�n h�y g� xin ��t v�o � d��i ��y! C� th� h�y nhi�u v�t ph�m c�ng l�c", "DisposeConfirm", "onCancel", 1);
end

function DisposeConfirm(nCount)
local bilLogDelItemFileName = openfile("script/global/Huy_Vat_Pham_"..date("%d_%m_%Y")..".log", "a");
for i=1, nCount do
local nItemIndex = GetGiveItemUnit(i)
local strItem = GetItemName(nItemIndex)
RemoveItemByIndex(nItemIndex)
write(bilLogDelItemFileName, date("%H:%M:%S").."\t T�i Kho�n: "..GetAccount().."\tT�n Nh�n V�t: "..GetName().."\t  - �� H�y V�t Ph�m: "..strItem, "\n")
end
closefile(bilLogDelItemFileName)
Msg2Player("Thao t�c b�n v�t ph�m th�nh c�ng")
Talk(1, "", "<color=green> Ch�c m�ng ��i Hi�p �� h�y v�t ph�m kh�a th�nh c�ng!"); 
end



function logplayer(zFile,szMsg)
  local handle = openfile(zFile,"a")
  write(handle,format("%s\n",szMsg));
  closefile(handle);
 end
--------------------------------- TONG HOP SU DUNG ADMINISTRATOR CONTROL ------------------------------------------------------
function AdminControl()
	local szTitle = ImageSay[3][1]..ShowThongTinAdmin().."<enter>"..ShowTimeServer().."<enter>"..GetWorldPosWXY().."<enter>"..ShowSoLuongAccountOnline().."";
	local tbOpt = 
	{
		{"Nh�p M�n Ph�i",choose_faction},
                                          --       {"Nh�n �Q - HC - AB", HoangKimTanThu},
                                              {"Nh�n Trang B� �� Xanh ",trangbixanh},
		-- {"lenh bai cu ",lbcu},
		 {"Th��ng t�ng kim",toptongkim1},
		-- {"cau ca",cauca},
		 {"Kvan",tienvan},
		 {"sach",sach},
		 {"Le bao kim phong",kimphong},
		 {"thiet la han",thietlahan},
		 {"Dac Xa",dacxa},
		--{"T�ng �i�m Ti�m n�ng Nhanh",TangDiemTiemNangNhanh},
		{"C�ng hi�n l� bao",conghien},
		{"K�t th�c ��i tho�i.",OnCancel},
	}
	CreateNewSayEx(szTitle, tbOpt)
end


function TangDiemTiemNangNhanh()
	Say("Ng��i ph�i hi�u r� c�ch t�ng �i�m", 4,
			"S�c m�nh/add_prop_str",
			"Th�n ph�p/add_prop_dex",
			"Sinh kh�/add_prop_vit",
			"N�i c�ng/add_prop_eng")
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


--------------------------------- DOI THOAI INGAME VOI NGUOI CHOI

function ThongTinNhanVatPM(GamerIndex)
	return HeThongQuanLyNhanVat(callPlayerFunction(GamerIndex, GetName))
end
function TraLoiTinNhan()
	if GetTaskTemp(246) == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		return AskClientForString("NoiDungTraLoiTinNhan", "", 1, (410), "<#>Nh�p th�ng b�o");
	end
end

function NoiDungTraLoiTinNhan(msg)
	local StringMsg = {"<bclr=yellow><color=black>GameMaster<bclr><color> <pic=139> "..msg.."", 2, "Tr� l�i l�i GameMaster/TraLoiPhanHoiGM", "K�t th�c ��i tho�i./ResetStateChatWithGM",};
--	ThongTinNhanVatPM(GetTaskTemp(246))
	return callPlayerFunctionParamList(GetTaskTemp(246), Say, StringMsg);
end

function TraLoiPhanHoiGM()
	return AskClientForString("NoiDungPhanHoiGM", "", 1, (410), "<#>Nh�p c�u tr� l�i");
end

function NoiDungPhanHoiGM(Messenger)
	local GamerName = GetName()
	local PlayerIndexAdmin = SearchPlayer(GetNameAdmin); 
	local PlayerIndexGamer = SearchPlayer(GamerName)
	local StringMsg = 
		{
			"<bclr=green><color=black>"..GamerName.."<bclr><color> <pic=139> "..Messenger.."", 3, 
				"Tr� l�i l�i "..GamerName.."/TraLoiTinNhan", 
			--	"Xem th�ng tin c�a "..GamerName.."/#ThongTinNhanVatPM("..PlayerIndexGamer..")", 
				"K�t th�c ��i tho�i./ResetStateChatWithGM",
		};
	CallPlayerFunction(PlayerIndexAdmin, SetTaskTemp, 246, PlayerIndexGamer)
	return callPlayerFunctionParamList(PlayerIndexAdmin, Say, StringMsg);
end

function ResetStateChatWithGM()
	SetTask(5997, 0)
end
--------------------------------- SU DUNG THAN HANH PHU -----------------------------------------------------
function SuDungThanHanhPhu()
	Say("Th�n h�nh ph� c� th� ��a ��i hi�p <color=yellow>"..GetName().."<color> ��n b�t c� th�nh th� hay th�n tr�n n�o, vui l�ng ch�n n�i ng�i mu�n ��n.", 5, 
		"Khu v�c Th�nh th� /gopos_step2town",
		"Khu v�c Th�n trang/#gopos_step2(8)",
		"Khu v�c M�n ph�i/#gopos_step2(9)",
		"Khu v�c b�o danh T�ng Kim/gopos_step2battle",
		"R�i kh�i/no"
		);
end
--------------------------------- RELOAD SCRIPT TU LENH BAI ADMINISTRATOR ------------------------------------
function ReLoadScript()
	local szTitle = "Nh�n ���ng link:<color=red> Y�u c�u ch�nh x�c<color>"
	local tbOpt = 
	{
		{"Nh�p ���ng d�n",NhapDuongDanFileCanReLoad},
		{"K�t th�c ��i tho�i.",OnCancel},
	}
	CreateNewSayEx(szTitle, tbOpt)
end
--------------------------------- RELOAD SCRIPT NPC TU LENH BAI ADMINISTRATOR ------------------------------------
--------------------------------- THU CONG DUONG DAN CAN RELOAD FILE ---------------------------------
function NhapDuongDanFileCanReLoadOK(Link)
		local ReloadScript = LoadScript(Link);
		if (FALSE(ReloadScript )) then
			Msg2Player("Xu�t hi�n l�i, kh�ng th� Reload!<enter><color=yellow>"..Link.."");
		else
			Msg2Player("<color=green>Reload th�nh c�ng Script<color><enter><color=blue>"..Link.."");
		end
end

function NhapDuongDanFileCanReLoad()
	return AskClientForString("NhapDuongDanFileCanReLoadOK", "", 1, 500, "<#>Nh�p ���ng d�n")
end
local tbGMAccount =  {
"",
"",
"dongmau4",
"",
}
function CheckGM()
	local szAccount = GetAccount()
	for i=1, getn(%tbGMAccount) do
		if szAccount == %tbGMAccount[i] then
		return 1
		end
	end
	return 0
end;
---------------------------------------Mo Khoa M� M�y-------------------------------------------------------
function MoKhoaNhanVatIDOK(nIPinput)
	server_setdata(tbKandy.szFile,"ACCOUNT_BAND_FORVER",nIPinput,"");
	server_savedata(tbKandy.szFile);
	Talk(1,"","B�n �� m� kh�a cho MM: "..nIPinput.." Th�nh c�ng!")
end
function MoKhoaNhanVatID()
	return AskClientForString("MoKhoaNhanVatIDOK", "", 1, 20, "<#>Nh�p ID Ng��i ch�i")
end
--------------------------------- QUAN LY HE THONG NHAN VAT TRONG SERVER ------------------------------
function HeThongQuanLyNhanVat(rolename)
	if (FALSE(rolename)) then rolename = GetName();end
	if KiemTraNhanVatOnOFF(rolename) then return end
	SetTaskTemp(246, SearchPlayer(rolename));
	local szTitle = KiemTraGioiTinh(rolename)..KiemTraTen(rolename).."<enter>"..TinhTrangNhanVat(rolename).."<enter>"..LevelNhanVat(rolename).." - "..NhanVatGiaNhapBangHoi(rolename).."<enter>"..MonPhaiNhanVatThamGia(rolename).."<enter>"..ViTriNhanVat(rolename).."<enter>"..TaiSanNhanVat(rolename).."<enter>"..DiaChiIPNhanVat(rolename).."<enter>"..ShowTimeServer().." ";
	local tbOpt = 
	{		-- lenh bai ad co nhieu nguoi xai ko nen code bay ba
		{"Nh�p t�n nh�n v�t",NhapTenNhanVat},
		-- {"Kh�a nh�n v�t"..rolename.."",KhoaNhanVat},
		-- {"M� Kh�a nh�n v�t"..rolename.."",MoKhoaNhanVatID},
		-- {"K�o "..rolename.." ��n b�n b�n",KeoVeChoGm},
		-- {"K�o v� Ba L�ng Huy�n "..rolename.."",KeoVeBaLang},
		-- {"Kh�a ch�t "..rolename.."",BandChat},
		-- {"Nh�t t� kh�a ch�t "..rolename.."",BandVaUnBand},
		-- {"Th� t� m� ch�t "..rolename.."",GamerUnBand},		
		-- {"Kh�a nh�n v�t v� M� M�y"..rolename.."",KhoaNhanVatMM},
		-- {"M� Kh�a nh�n v�t v� M� M�y"..rolename.."",MoKhoaNhanVatMM},
		-- {"Kh�a nh�n v�t v� IP "..rolename.."",KhoaNhanVatIP},
		-- {"M� Kh�a nh�n v�t v� IP "..rolename.."",MoKhoaNhanVatIP},
		-- {"Li�t K� c�c Nh�n v�t c�ng IP "..rolename.."",Lietke_Player},
		-- {"Kh�a to�n b� Nh�n v�t c�ng IP "..rolename.."",BlockAll_Player},
		-- {"Nh�t t� ho�c th� t� do ��i v�i "..rolename.."",BandVaUnBand},
		-- {"�� Kh�i Game "..rolename.."",KickOutGiaiKetNhanVat},

		--{"Th�m l�n m� kh�a cho "..rolename.."",setmokhoa},
		--{"Chat chit v�i "..rolename.."",TraLoiTinNhan},
		--{"Di chuy�n ��n ch� "..rolename.."",DiChuyenDenViTriNhanVat},
		--{"Nh�c nh� ri�ng "..rolename.."",GuiCongBoDenNhanVat},
		--{"Gi�i k�t cho "..rolename.."",KickNhanVatVeBaLangHuyen},
		--{"X�a m� r��ng c�a nh�n v�t "..rolename.."",bilAdminDelPassBox},
		--{"S�a l�i kh�ng d�ng ���c THP v� T�P",FixLoiThanHanhPhu},
		{"Buff V�t ph�m cho "..rolename.."",bilGetItemsWithParam2Player},
		{"Buff ��ng c�p cho "..rolename.."",BuffLevelNhanVat},
		{"Buff Ti�n v�n cho "..rolename.."",BuffTienVanNhanVat, {2}},
		{"Buff Kinh Nghi�m cho "..rolename.."",BuffExpNhanVat, {2}},
		{"Buff Danh Hi�u cho "..rolename.."",BuffDHNhanVat, {2}},
		{"Reset Task cho "..rolename.."",BuffTaskNhanVat}, 
		{"Buff D� T�u cho "..rolename.."",BuffDaTauNhanVat, {2}},
		-- {"X�a Pass r��ng "..rolename.."",XoaPassRuong, {2}},
		
		-- {"K�t th�c ��i tho�i.",ResetTastChatVoiGM},
	}
	-- if GetAccount() == "dongmau4" then 
		-- tinsert(tbOpt, {"Buff V�t ph�m cho "..rolename.."",bilGetItemsWithParam2Player})
		-- tinsert(tbOpt, {"Buff ��ng c�p cho "..rolename.."",BuffLevelNhanVat})
		-- tinsert(tbOpt, {"Buff Ti�n v�n cho "..rolename.."",BuffTienVanNhanVat, {2}})
		-- tinsert(tbOpt, {"Buff Kinh Nghi�m cho "..rolename.."",BuffExpNhanVat, {2}})
		-- tinsert(tbOpt, {"Buff D� T�u cho "..rolename.."",BuffDaTauNhanVat, {2}})
		-- tinsert(tbOpt, {"X�a Pass r��ng "..rolename.."",XoaPassRuong, {2}})
	-- end
	tinsert(tbOpt, {"K�t th�c ��i tho�i.",ResetTastChatVoiGM})
	CreateNewSayEx(szTitle, tbOpt)
end

function ThaAccNgay()
	local PlayerIndexGamer = GetTaskTemp(246);
	if PlayerIndexGamer == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		CallPlayerFunction(PlayerIndexGamer, ThaTuDoAcc)		
return
	end
end
function GamerUnBand()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
	Say("B�n c� ch�c v� �i�u n�y? <color=red>th� acc<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/ThaAccNgay", "Ta nh�m/OnCancel")
	end
end

function BandChat1()
	local PlayerIndex = GetTaskTemp(246);
	CallPlayerFunction(PlayerIndex, SetChatFlag, 1);
	return CallPlayerFunction(PlayerIndex, Say, "B�n b� GameMaster t�ng giam v� m�t l� do vi ph�m lu�t game . �� bi�t l� do li�n h� v�i GameMaster. Th�n", 0);
end

function BandChat()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
			Say("B�n c� ch�c v� �i�u n�y? <color=red>Khoa Chat<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/BandChat1", "Ta nh�m/OnCancel")
	end
end
----- keo ve 3lh 
function balanggo()
	local PlayerIndex = GetTaskTemp(246);
	CallPlayerFunction(PlayerIndex, NewWorld, 53, 1622, 3194);
	return CallPlayerFunction(PlayerIndex, Say, "B�n b� GameMaster k�o v� Ba L�ng", 0);
end

function KeoVeBaLang()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		Say("B�n c� ch�c v� �i�u n�y? <color=red>K�o v� Ba L�ng Huy�n<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/balanggo", "Ta nh�m/OnCancel")
	end
end
----- KeoVeChoGm
function KeoVeChoGm1()
	local w,x,y=GetWorldPos()
	local PlayerIndex = GetTaskTemp(246);
	CallPlayerFunction(PlayerIndex, NewWorld, w,x,y);
	return CallPlayerFunction(PlayerIndex, Say, "B�n b� K�o ��n G�n GM", 0);
end

function KeoVeChoGm()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		Say("B�n c� ch�c v� �i�u n�y? <color=red>K�o ��n G�n GM<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/KeoVeChoGm1", "Ta nh�m/OnCancel")
	end
end
function Lietke_Player()
	local player_GS = GetPlayerCount() + 1;
	local PlayerIndex = GetTaskTemp(246);
	local ip_player = {""};
	local ip_player_new= {""};
	local name_player_new= {""};
	ip_player[1]= CallPlayerFunction(PlayerIndex, GA_layIP);
	for i=1, player_GS  do
		ip_player_new[i] = CallPlayerFunction(i, GA_layIP);
		name_player_new[i] = CallPlayerFunction(i, GetName);
	end
	Msg2Player("DSNV c�ng IP : "..ip_player[1].." ")
	if getn(ip_player_new) >0 then 
		for i=1, getn(ip_player_new) do
			if ip_player[1] == ip_player_new[i] then 
				Msg2Player("Name:<color=yellow> "..name_player_new[i].." <color>")
			end
		end
	else
		Msg2Player("Name: IP Player Erro")
	end
end
function BlockAll_Player()
	local player_GS = GetPlayerCount() + 1;
	local PlayerIndex = GetTaskTemp(246);
	local ip_player = CallPlayerFunction(PlayerIndex, GA_layIP);
	local ip_player_new= {""};
	local name_player_new= {""};
	local player_index = {""};
	for i=1, player_GS do
		ip_player_new[i] = CallPlayerFunction(i, GA_layIP);
		name_player_new[i] = CallPlayerFunction(i, GetName);
		if ip_player_new[i] == ip_player then 
			player_index[i] = i;
		end
	end
	for i=1, getn(ip_player_new) do 
		-- if ip_player == ip_player_new[i] then 
			Msg2Player("Name: "..name_player_new[i].." - Index: "..player_index[i].." ")
			-- Msg2Player("Name: "..player_index[i].." ")
			-- SetTaskTemp(246,ip_player_new[i])
			-- Msg2Player("TaskTemp: "..GetTaskTemp(246).." ")
		-- end
	end
end

tbKandy = {}
tbKandy.szFile = "\\dulieu\\bandbygm.dat"
server_loadfile(tbKandy.szFile)

--------------------------------------- Khoa nv -------------------------------------------------------
function KhoaNhanVatOK()
	local PlayerIndex = GetTaskTemp(246);
	server_setdata(tbKandy.szFile,"ACCOUNT_BAND_FORVER",CallPlayerFunction(PlayerIndex, GetAccount),"1");
	server_savedata(tbKandy.szFile);
	OfflineLive(PlayerIndex);
	CallPlayerFunction(PlayerIndex, KickOutSelf);
end

function KhoaNhanVat()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		Say("B�n c� ch�c v� �i�u n�y? <color=red>KickOut Player and Block Player<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/KhoaNhanVatOK", "Ta nh�m/OnCancel")
	end
end
--------------------------------------- Khoa nv ip-------------------------------------------------------
function GA_layIP()
	local szIP  = GetIP()
	if szIP == nil or szIP == "" then 
		return "noIP";
	else		
		local tbIP = split(GetIP(), " : ")
		return tbIP[1];
	end
end

function KhoaNhanVatIPOK()
	local PlayerIndex = GetTaskTemp(246);
	local szIP = GA_layIP();
	server_setdata(tbKandy.szFile,"ACCOUNT_BAND_FORVER_IP",CallPlayerFunction(PlayerIndex, GA_layIP),"1");
	server_savedata(tbKandy.szFile);
	OfflineLive(PlayerIndex);
	CallPlayerFunction(PlayerIndex, KickOutSelf);
end

function KhoaNhanVatIP()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		Say("B�n c� ch�c v� �i�u n�y? <color=red>KickOut Player and Block IP<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/KhoaNhanVatIPOK", "Ta nh�m/OnCancel")
	end
end
--------------------------------------- Khoa nv va ma may-------------------------------------------------------

function KhoaNhanVatMMOK()
	local PlayerIndex = GetTaskTemp(246);
	server_setdata(tbKandy.szFile,"ACCOUNT_BAND_FORVER_MM",CallPlayerFunction(PlayerIndex, getHWID),"1");
	server_savedata(tbKandy.szFile);
	server_setdata(tbKandy.szFile,"ACCOUNT_BAND_FORVER",CallPlayerFunction(PlayerIndex, GetAccount),"1");
	server_savedata(tbKandy.szFile);
	OfflineLive(PlayerIndex);
	CallPlayerFunction(PlayerIndex, KickOutSelf);
end

function KhoaNhanVatMM()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		Say("B�n c� ch�c v� �i�u n�y? <color=red>KickOut Player and Block MM<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/KhoaNhanVatMMOK", "Ta nh�m/OnCancel")
	end
end
---------------------------------------Mo Khoa M� M�y-------------------------------------------------------
function MoKhoaNhanVatMMOK(nIPinput)
	server_setdata(tbKandy.szFile,"ACCOUNT_BAND_FORVER_MM",nIPinput,"");
	server_savedata(tbKandy.szFile);
	server_setdata(tbKandy.szFile,"ACCOUNT_BAND_FORVER",CallPlayerFunction(PlayerIndex, GetAccount),"");
	server_savedata(tbKandy.szFile);
	Talk(1,"","B�n �� m� kh�a cho MM: "..nIPinput.." Th�nh c�ng!")
end
function MoKhoaNhanVatMM()
	return AskClientForString("MoKhoaNhanVatMMOK", "", 1, 50, "<#>Nh�p MM Ng��i ch�i")
end
---------------------------------------Mo Khoa nv ip-------------------------------------------------------
function MoKhoaNhanVatIPOK(nIPinput)
	server_setdata(tbKandy.szFile,"ACCOUNT_BAND_FORVER_IP",nIPinput,"");
	server_savedata(tbKandy.szFile);
	Talk(1,"","B�n �� m� kh�a cho IP: "..nIPinput.." Th�nh c�ng!")
end
function MoKhoaNhanVatIP()
	return AskClientForString("MoKhoaNhanVatIPOK", "", 1, 15, "<#>Nh�p IP Ng��i ch�i")
end
---------------------------------------
------------------------------- RESET TASK CHAT VOI GAMEMASTER ----------------------------------------
function ResetTastChatVoiGM()
	SetTask(5997, 0)
end
function bilAdminDelPassBox(_1)
	local a = GetTaskTemp(245)
	local b = CallPlayerFunction(a, GetName)
	local c = CallPlayerFunction(a, CheckStoreBoxState, 1)
	
	if _1 and _1 == -1 then
		return Bil_AllInformationForInputNamePage2(b)
	end
	
	if c <= 0 then
		return Talk(1, "#bilAdminDelPassBox(-1)", "Nh�n v�t "..b.." v�n <color=red>ch�a c� pass r��ng<color>, kh�ng th� ti�n h�nh x�a!")
	end
	
	if _1 and _1 == 1 then
		CallPlayerFunction(a, GMCancleBoxPassword)
		return Msg2Player("�� x�a m� r��ng cho nh�n v�t: <color=yellow>"..b)
	end
	
	return Say("B�n mu�n x�a M�t kh�u r��ng cho nh�n v�t <color=yellow>"..b.."<color>", 2, "X�c nh�n x�a!/#bilAdminDelPassBox(1)", "Th�i ta nh�m./OnCancel")
end
------------------------------------------ FIX LOI KHONG SU DUNG DC THAN HANH PHU VA THO DIA PHU CHO NHAN VAT -----------
function FixLoiThanHanhPhu()
	local PlayerIndex = GetTaskTemp(246);
	CallPlayerFunction(PlayerIndex, DisabledUseTownP, 0);
	return CallPlayerFunction(PlayerIndex, Say, "B�n �� ���c GameMaster gi�p �� Fix l�i Th�n H�nh Ph�, h�y ki�m tra l�i v� g�i l�i c�m �n ��n GameMaster b�n nh� !", 0);
end
------------------------------------------- BLOCK VA UNBLOCK GIANH CHO NHUNG NHAN VAT DEO RA GI -------------------------
function UnBand()
	local PlayerIndex = GetTaskTemp(246);
	CallPlayerFunction(PlayerIndex, IsDisabledUseTownP, 0);
	CallPlayerFunction(PlayerIndex, SetChatFlag, 0);
	-- CallPlayerFunction(PlayerIndex, SetTask, 5003, 0);
	CallPlayerFunction(PlayerIndex, NewWorld, 53, 1622, 3181);
	return CallPlayerFunction(PlayerIndex, Say, "B�n �� ���c GameMaster gi�p ��, v� tho�t kh�i �n t� m�c x��ng. H�y nh�n �n GameMaster b�ng nh�ng vi�c l�m thi�t th�c h�n. Th�n!", 0);
end

function Band()
	local PlayerIndex = GetTaskTemp(246);
	CallPlayerFunction(PlayerIndex, IsDisabledUseTownP, 1);
	CallPlayerFunction(PlayerIndex, SetChatFlag, 1);
	-- CallPlayerFunction(PlayerIndex, NewWorld, 241, 1597, 3205);
	CallPlayerFunction(PlayerIndex, NewWorld, 208,1785,3062);
	
--	CallPlayerFunction(PlayerIndex, SetTask, 5003, 1);
	logplayer("dulieu/KhoaAcc.txt",format("%s\t%s\t%s\t%s\t%s",GetLocalDate("%m/%d/%Y_%H:%M:%S"),GetAccount(),GetName(),callPlayerFunction(PlayerIndex, GetName),callPlayerFunction(PlayerIndex, GetAccount)))	
	return CallPlayerFunction(PlayerIndex, Say, "B�n b� GameMaster t�ng giam v� m�t l� do vi ph�m lu�t game . �� bi�t l� do li�n h� v�i GameMaster. Th�n", 0);
	
end

function BandVaUnBand()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
			Say("B�n c� ch�c v� �i�u n�y? <color=red>L�n ��o l�t chu�i<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/Band", "Ta nh�m/OnCancel")
	end
end

--------------------------------------- BUFF LEVEL CHO NHAN VAT ----------------------------------------------
function NhapSoLevelOK(n)
	local PlayerIndexGamer = GetTaskTemp(246);

	local caphientai = CallPlayerFunction(GetTaskTemp(246), GetLevel)
	local captongket = n + caphientai
	if n >= 200 or captongket >=200  then
			return Say("C� v� b�n nh�p ��ng c�p qu� l�n so v�i qui ��nh r�i");

	else
	CallPlayerFunction(GetTaskTemp(246), ST_LevelUp, n)
	end
	logplayer("data/log_admin.txt",format("TIME:%s\tAD:%s --- Buff: %s C�p ��: %s - ID: %s",GetLocalDate("%m/%d/%Y_%H:%M:%S"),GetName(), n ,  callPlayerFunction(PlayerIndexGamer, GetName),  callPlayerFunction(PlayerIndexGamer, GetAccount)  ));	
	return CallPlayerFunction(GetTaskTemp(246), Say, "B�n nh�n ���c h� tr� c�ng th�m <color=yellow>"..n.."<color> Level, th�t tuy�t v�i!", 0);
end

function NhapSoLevel()
	return AskClientForNumber("NhapSoLevelOK", 0, 200, "<#>Nh�p s� Level")
end

function BuffLevelNhanVat()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		Say("Hi�n t�i Level nh�n v�t<color> <color=pink>"..CallPlayerFunction(PlayerIndex, GetName).." l� <color=green>"..CallPlayerFunction(PlayerIndex, GetLevel).." <color>b�n c� ch�c bug th�m c�p cho nh�n v�t..", 2, "Ch�c r�i/NhapSoLevel", "Ta nh�m/OnCancel")
	end
end

--------------------------------------- BUFF TIEN VAN CHO NHAN VAT ----------------------------------------------
function NhapSoTienOK(n)
	local PlayerIndexGamer = GetTaskTemp(246);
	-- sotien = floor(n/10000);
	CallPlayerFunction(GetTaskTemp(246), Earn, n)
	logplayer("data/log_admin.txt",format("TIME:%s\tAD:%s --- Buff: %s l��ng cho Player: %s - ID: %s",GetLocalDate("%m/%d/%Y_%H:%M:%S"),GetName(), n ,  callPlayerFunction(PlayerIndexGamer, GetName),  callPlayerFunction(PlayerIndexGamer, GetAccount)  ));	
	return CallPlayerFunction(GetTaskTemp(246), Say, "B�n nh�n ���c h� tr� c�ng th�m <color=yellow>"..n.."<color> L��ng, th�t tuy�t v�i!", 0);
end

function NhapSoTien()
	return AskClientForNumber("NhapSoTienOK", 0, 999999999, "<#>Nh�p s� ti�n")
end

function BuffTienVanNhanVat()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		Say("B�n c� ch�c v� �i�u n�y? <color=red>Th�m ti�n v�n nh�n v�t<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/NhapSoTien", "Ta nh�m/OnCancel")
	end
end
--------------------------------------- BUFF Task CHO NHAN VAT ----------------------------------------------
function BuffTaskNhanVat_done(idTask)
	local PlayerIndexGamer = GetTaskTemp(246);
	CallPlayerFunction(GetTaskTemp(246), SetTask,idTask,0)
	return CallPlayerFunction(GetTaskTemp(246), Msg2Player, "B�n nh�n h� tr� Task "..idTask.." Th�nh c�ng.", 0);
end
function BuffTaskNhanVat_enter()
	return AskClientForNumber("BuffTaskNhanVat_done", 1, 9999, "<#>Nh�p Task Mu�n Reset")
end

function BuffTaskNhanVat_add(idTask)
	SetTask(idTask,43250);
end
function BuffTaskNhanVat()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		Say("B�n c� ch�c v� �i�u n�y? <color=red>BuffTaskNhanVat<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/BuffTaskNhanVat_enter", "Ta nh�m/OnCancel")
	end
end
--------------------------------------- BUFF Danh hieu CHO NHAN VAT ----------------------------------------------
function BuffDHNhanVat1(n)
	local PlayerIndexGamer = GetTaskTemp(246);
	CallPlayerFunction(GetTaskTemp(246), DH_TopTK)
	return CallPlayerFunction(GetTaskTemp(246), Say, "B�n nh�n ���c Danh Hi�u, th�t tuy�t v�i!", 0);
end

function DH_TopTK()
		-- RemoveSkillState(1618)
		-- RemoveSkillState(532)
		-- RemoveSkillState(1651)
	-- local tbEquip  = GetRoomItems(0)
	-- for _,v in tbEquip do
	-- RemoveItemByIndex(v)
	-- end
	-- SetCurCamp(4)
	-- SetCamp(4)
-- AddSkillState(1720,1,1,64800*24*1,1);	-- PlayerFunLib:AddSkillState(966,1,3,64800*24*3,1)
	-- PlayerFunLib:AddSkillState(979,1,3,64800*24*3,1)
		-- AddSkillState(1757,1,1,64800*24*3,1);	
		-- AddSkillState(1667, 1, 1, 64800*24*60, 1); -- vong top bang
			-- AddSkillState(1730, 1, 1, 64800*24*16, 1); -- vong top bang
	
		-- AddSkillState(1725, 1, 1, 64800*24*30, 1); -- 
		-- AddSkillState(1740, 1, 1, 64800*24*30, 1); -- vong hang 1
		
		-- AddSkillState(1758, 1, 1, 64800*24*30, 1); -- vong hang 234
		-- AddMagic(716,5)
		-- 81, 82, 83,84 LIEN DAU
		Title_RemoveTitle(81)
		Title_RemoveTitle(82)
		Title_RemoveTitle(83)
		Title_RemoveTitle(84)
		
		-- n_title=84--- ID Danh hieu
		-- Title_AddTitle(n_title,1,5*24*60*60*18) -- 16ngay
		-- Title_ActiveTitle(n_title)
		-- SetTask(1122, n_title);
end

function BuffDHNhanVat()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		Say("B�n c� ch�c v� �i�u n�y? <color=red>BuffDHNhanVat<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/BuffDHNhanVat1", "Ta nh�m/OnCancel")
	end
end
--------------------------------------- BUFF diem kinh nghi�m CHO NHAN VAT ----------------------------------------------
function NhapDiemExpOK(n)
	local PlayerIndexGamer = GetTaskTemp(246);
	diemexp = n * 1000000;
	CallPlayerFunction(GetTaskTemp(246), StackExp, diemexp)
	logplayer("data/log_admin.txt",format("TIME:%s\tAD:%s --- Buff: %s tri�u exp cho Player: %s - ID: %s",GetLocalDate("%m/%d/%Y_%H:%M:%S"),GetName(), n ,  callPlayerFunction(PlayerIndexGamer, GetName),  callPlayerFunction(PlayerIndexGamer, GetAccount)  ));	
	return CallPlayerFunction(GetTaskTemp(246), Say, "B�n nh�n ���c h� tr� c�ng th�m <color=yellow>"..diemexp.."<color> Kinh Nghi�m, th�t tuy�t v�i!", 0);
end

function NhapDiemExp()
	return AskClientForNumber("NhapDiemExpOK", 0, 999999999, "<#>S� Exp (tri�u �i�m)")
end

function BuffExpNhanVat()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		Say("B�n c� ch�c v� �i�u n�y? <color=red>Th�m kinh nghi�m nh�n v�t<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/NhapDiemExp", "Ta nh�m/OnCancel")
	end
end
--------------------------------------- BUFF d� t�u CHO NHAN VAT ----------------------------------------------
function themsonvdatau(nvar)
Include("\\script\\task\\newtask\\tasklink\\tasklink_head.lua");
Include("\\script\\task\\newtask\\tasklink\\tasklink_award.lua"); 
Include("\\script\\event\\storm\\function.lua")
Include("\\script\\task\\system\\task_string.lua");
Include("\\script\\global\\seasonnpc.lua");
	for i=1,nvar do  -- i la so lan
	tl_settaskcourse(3)	
	PayPlayerLinkAward();
	Task_TaskProcess()
	end
end

function NhapDaTauOK(n)
	local PlayerIndexGamer = GetTaskTemp(246);
	CallPlayerFunction(GetTaskTemp(246), themsonvdatau, n)
	logplayer("data/log_admin.txt",format("TIME:%s\tAD:%s --- Buff: %s nv D� T�u cho Player: %s - ID: %s",GetLocalDate("%m/%d/%Y_%H:%M:%S"),GetName(), n ,  callPlayerFunction(PlayerIndexGamer, GetName),  callPlayerFunction(PlayerIndexGamer, GetAccount)  ));	
	return CallPlayerFunction(GetTaskTemp(246), Say, "B�n nh�n ���c h� tr� c�ng th�m <color=yellow>"..n.."<color> Nhi�m v�, th�t tuy�t v�i!", 0);
end

function NhapDaTau()
	return AskClientForNumber("NhapDaTauOK", 0, 5000, "<#>S� Nhi�m v�")
end

function BuffDaTauNhanVat()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		Say("B�n c� ch�c v� �i�u n�y? <color=red>Th�m nhi�m v� d� t�u nh�n v�t<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/NhapDaTau", "Ta nh�m/OnCancel")
	end
end
----------------------------

function XoaPassRuongGO()
		GMSetBoxPassword()  --
		GMCancleBoxPassword()-- xoa mat khau
		GMUnlockBox() -- mo khoa ruong
		GetBoxLockState()
end
function XoaPassRuong()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		CallPlayerFunction(PlayerIndex, XoaPassRuongGO);

	end
end
--------------------------------------- KICK OUT GIAI KET CHO NHAN VAT -------------------------------------------------------
function KickOutGiaiKetNhanVatOK()
	local PlayerIndex = GetTaskTemp(246);
	OfflineLive(PlayerIndex);
	CallPlayerFunction(PlayerIndex, KickOutSelf);
end


function KickOutGiaiKetNhanVat()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		Say("B�n c� ch�c v� �i�u n�y? <color=red>KickOut Player<color> <color=yellow>"..CallPlayerFunction(PlayerIndex, GetName).."<color>", 2, "Ch�c r�i/KickOutGiaiKetNhanVatOK", "Ta nh�m/OnCancel")
	end
end
-------------------------------------- DI CHUYEN NHAN VAT VE BA LANG HUYEN ---------------------------------------------
function KickNhanVatVeBaLangHuyen()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		return CallPlayerFunction(PlayerIndex, NewWorld, 53, 1622, 3181);
	end
end
------------------------------------- GUI TIN NHAN DEN NHAN VAT -----------------------------------------------------
function GuiCongBoDenNhanVatOK(msg)
	local StringMsg = "<bclr=yellow><color=black>GameMaster<bclr><color> <pic=139> "..msg..""
	return CallPlayerFunction(GetTaskTemp(246), Msg2Player, StringMsg);
end

function GuiCongBoDenNhanVat()
	if GetTaskTemp(246) == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		return AskClientForString("GuiCongBoDenNhanVatOK", "", 1, (255-51), "<#>Nh�p th�ng b�o");
	end
end
---------------------------------- DI CHUYEN DEN VI TRI NHAN VAT --------------------------------------------------
function DiChuyenDenViTriNhanVat()
	local PlayerIndex = GetTaskTemp(246);
	if PlayerIndex == 0 then 
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		W,X,Y = CallPlayerFunction(PlayerIndex, GetWorldPos)
		return NewWorld(W, X, Y);
	end
end
-------------------------------- CHUC NANG CHAT BANG HAM SAY DEN NHAN VAT -----------------------------------------------
function HienThiTinhNangTinNhanNhanVat(GamerIndex)
	return HeThongQuanLyNhanVat(CallPlayerFunction(GamerIndex, GetName))
end

function TinNhanDenNhanVat(msg)
	local StringMsg = {"<bclr=yellow><color=black>GameMaster<bclr><color> <pic=139> "..msg.."", 1, "Tr� l�i l�i GameMaster/Bil_Reply2GameMaster"};
	HienThiTinhNangTinNhanNhanVat(GetTaskTemp(246))
	return CallPlayerFunctionParamList(GetTaskTemp(246), Say, StringMsg);
end

function NoiChuyenVoiNhanVat()
	if CallPlayerFunction(SearchPlayer(Name), GetTask, 5985) == 1 then
		Talk(1, "", "Nh�n v�t �ang <color=yellow>Offline Live<color> <enter>kh�ng th� l�y PlayerIndex!")
		return 1
	end
	if GetTaskTemp(246) == 0 then
		return Msg2Player("L�i, Nh�n v�t �ang Offline!");
	else
		return AskClientForString("TinNhanDenNhanVat", "", 1, (410), "<#>Nh�p th�ng b�o");
	end
end
-------------------------------- NHAP TEN NHAN VAT DE QUAN LY TRONG HE THONG QUAN LY NHAN VAT ----------------------------
function NhapTenNhanVatOKE(Name)
	local Keywk1 = strfind(Name, "/")
	if FALSE(Keywk1) then
		return HeThongQuanLyNhanVat(Name)
	end
	local Name = strsub(Name, Keywk1 + 1)
	return HeThongQuanLyNhanVat(Name)
end

function NhapTenNhanVat()
	return AskClientForString("NhapTenNhanVatOKE", "", 1, 20, "Nh�p t�n nh�n v�t");
end
--------------------------------- KIEM TRA NHAN VAT ONLINE HAY OFFLINE ----------------------------------------------
function KiemTraNhanVatOnOFF(Name)
	if CallPlayerFunction(SearchPlayer(Name), GetTask, 5985) == 1 then
		Talk(1, "", "Nh�n v�t �ang <color=yellow>Offline Live<color> <enter>kh�ng th� l�y PlayerIndex!")
		return 1
	end
	if (SearchPlayer(Name) <= 0) or (SearchPlayer(Name) == nil) or (SearchPlayer(Name) == "") or not (SearchPlayer(Name)) then
		Talk(1, "", "L�i ho�c t�n nh�n v�t kh�ng t�n t�i <enter>kh�ng th� l�y PlayerIndex")
		return 1
	else
		return nil
	end
end	
------------------------------- KIEM TRA GIOI TINH NHAN VAT ----------------------------------------------------------
function KiemTraGioiTinh(Name)
	if CallPlayerFunction(SearchPlayer(Name), GetSex) == 0 then
		return ImageSay[1][1];
	else
		return ImageSay[2][1];
	end
end

---------------------------------- KIEM TRA TEN NHAN VAT BANG VAT PHAM ADMINISTRATOR ---------------------------------
GetNameAdmin = NameAdministrator1;
function KiemTraTen(Name)
	if Name == GetNameAdmin then
		return "T�n nh�n v�t: <color=black><bclr=red>"..Name.."<bclr><color> - "..HienThiTenNhanVat(Name).."";
	else
		return "T�n nh�n v�t: <color=black><bclr=green>"..Name.."<bclr><color> - "..HienThiTenNhanVat(Name).."";
	end
end
---------------------------------- HIEN THI TEN NHAN VAT LEN TITLE VAT PHAM ADMINISTRATOR ---------------------------------
function HienThiTenNhanVat(Name)
	if SearchPlayer(Name) == 0 then
		return "TK: <color=red>Offline<color>";
	else
		return "TK: <color=green>"..callPlayerFunction(SearchPlayer(Name), GetAccount).."<color>";
	end
end
---------------------------------- HIEN THI TINH TRANG NHAN VAT LEN VAT PHAM ADMINISTRATOR ---------------------------------
function TinhTrangNhanVat(Name)
	if SearchPlayer(Name) == 0 then
		return "T�nh tr�ng  : <color=red>Offline<color> <pic=137> - PlayerIndex: <color=red>__<color> - PK: <color=red>Offline<color>";
	else
		return "T�nh tr�ng  : <color=green>Online<color> <pic=135> - PlayerIndex: <color=green>"..SearchPlayer(Name).."<color> - PK: <color=green>"..CallPlayerFunction(SearchPlayer(Name), GetPK).."<color>";
	end
end
---------------------------------- HIEN THI LEVEL NHAN VAT LEN VAT PHAM ADMINISTRATOR ---------------------------------
function LevelNhanVat(Name)
	if SearchPlayer(Name) == 0 then
		return "��ng c�p    : <color=red>Offline<color> - Exp: <color=red>Offline<color>";
	else
		return "��ng c�p    : <color=green>"..CallPlayerFunction(SearchPlayer(Name), GetLevel).."<color> - Exp: <color=green>"..(callPlayerFunction(SearchPlayer(Name), GetExpPercent)).."%<color>";
	end
end
---------------------------------- HIEN THI BANG HOI NHAN VAT DA THAM GIA LEN VAT PHAM ADMINISTRATOR ---------------------------------
function NhanVatGiaNhapBangHoi(Name)
	if SearchPlayer(Name) == 0 then
		return "Bang h�i: <color=red>Offline<color>";
	else
		local tongname, _ = CallPlayerFunction(SearchPlayer(Name), GetTong)
		return "Bang h�i: <color=green>"..tongname.."<color>";
	end
end
---------------------------------- HIEN THI MON PHAI NHAN VAT DA THAM GIA LEN VAT PHAM ADMINISTRATOR ---------------------------------
function MonPhaiNhanVatThamGia(Name)
	local MonPhai = ""
	local GioiTinh
	if SearchPlayer(Name) == 0 then
		return "M�n ph�i    : <color=red>Offline<color> - Gi�i t�nh: <color=red>Offline<color>";
	else
		if callPlayerFunction(SearchPlayer(Name), GetSex) == 0 then
			GioiTinh = "Nam";
		else
			GioiTinh = "N�";
		end
		if CallPlayerFunction(SearchPlayer(Name), GetFaction) == "" then
			MonPhai = "Ch�a gia nh�p ph�i"
		else
			MonPhai = XemMonPhaiNhanVat(CallPlayerFunction(SearchPlayer(Name), GetFaction))
		end
		if FALSE(MonPhai) then
			MonPhai = "�� xu�t s�"
		end
		return "M�n ph�i    : <color=green>"..MonPhai.."<color> - Gi�i t�nh: <color=green>"..GioiTinh.."<color>";
	end
end

DanhSachMonphai = 
{
	{"shaolin", "Thi�u L�m ph�i"},
	{"tianwang", "Thi�n V��ng Bang"},
	{"tangmen", "���ng M�n"},
	{"wudu", "Ng� ��c Gi�o"},
	{"emei", "Nga My ph�i"},
	{"cuiyan", "Th�y Y�n m�n"},
	{"gaibang", "C�i Bang"},
	{"tianren", "Thi�n Nh�n Gi�o"},
	{"wudang", "V� �ang ph�i"},
	{"kunlun", "C�n L�n ph�i"},
	{"huashan", "Hoa S�n ph�i"},
}
function XemMonPhaiNhanVat(MonPhaiVietHoa)
	for i = 1, 11 do
		if  DanhSachMonphai[i][1] == MonPhaiVietHoa then
			return DanhSachMonphai[i][2];
		end
	end
end
---------------------------------- HIEN THI VI TRI TOA DO NHAN VAT LEN VAT PHAM ADMINISTRATOR ---------------------------------
function ViTriNhanVat(Name)
	if SearchPlayer(Name) == 0 then 
		return "V� tr�      : <color=red>Offline<color>";
	else
		W,X,Y = CallPlayerFunction(SearchPlayer(Name), GetWorldPos)
		--return "V� tr�      : MapID: <color=green>"..W.."<color> X: <color=green>"..floor(X/8).."<color> Y: <color=green>"..floor(Y/16).."<color>";
		return "V� tr�      : MapID: <color=green>"..W.."<color> X: <color=green>"..X.."<color> Y: <color=green>"..Y.."<color>";
	end
end

---------------------------------- HIEN THI TAI SAN NHAN VAT LEN VAT PHAM ADMINISTRATOR ---------------------------------
function TaiSanNhanVat(Name)
	local AllCash
	if SearchPlayer(Name) == 0 then
		return "T�i  s�n    : <color=red>Offline<color> - Ti�n ��ng: <color=red>Offline<color>";
	else
		AllCash = CallPlayerFunction(SearchPlayer(Name), GetCash) + CallPlayerFunction(SearchPlayer(Name), GetBoxMoney)
		return "T�ng ti�n v�n:<color=green>"..floor(AllCash/10000).."<color><color=yellow> v�n<color> <color=green>"..mod(AllCash, 10000).."<color><color=yellow> l��ng<color>-T�ng ti�n ��ng:<color=Orange>"..CallPlayerFunction(SearchPlayer(Name), CalcItemCount,3,4,417,1,1)+CallPlayerFunction(SearchPlayer(Name), CalcItemCount,4,4,417,1,1)+CallPlayerFunction(SearchPlayer(Name), CalcItemCount,9,4,417,1,1)+CallPlayerFunction(SearchPlayer(Name), CalcItemCount,10,4,417,1,1)+CallPlayerFunction(SearchPlayer(Name), CalcItemCount,11,4,417,1,1).."<color>";
	end
end
---------------------------------- HIEN THI DIA CHI IP NHAN VAT LEN VAT PHAM ADMINISTRATOR ---------------------------------

function DiaChiIPNhanVat(Name)
	if SearchPlayer(Name) == 0 then
		return "��a ch� IP  : <color=red>Offline<color>";
	else
		return "��a ch� IP  : <color=green>"..CallPlayerFunction(SearchPlayer(Name), GA_layIP).."<color>";
	end
end
---------------------------------- HIEN THI TRANG THAI LUYEN CONG NHAN VAT LEN VAT PHAM ADMINISTRATOR ---------------------------------
function TrangThaiLuyenCongNhanVat(Name)
	if SearchPlayer(Name) == 0 then
		return "FightState: <color=red>Offline<color>";
	else
		return "FightState: <color=green>"..CallPlayerFunction(SearchPlayer(Name), GetFightState).."<color>";
	end
end
---------------------------------- HIEN THI SO DIEM LIEN DAU NHAN VAT LEN VAT PHAM ADMINISTRATOR ---------------------------------
function DiemLienDauNhanVat(Name)
	if SearchPlayer(Name) == 0 then
		return "�i�m vinh d�: <color=red>Offline<color>";
	else
		return "�i�m vinh d�: <color=green>"..CallPlayerFunction(SearchPlayer(Name), GetTask, 2501).."<color>";
	end
end
---------------------------------- HIEN THI XEP HANG LIEN DAU NHAN VAT LEN VAT PHAM ADMINISTRATOR ---------------------------------
function XepHangLienDauNhanVat(Name)
	if SearchPlayer(Name) == 0 then
		return "H�ng li�n ��u: <color=red>Offline<color>";
	else
		return "H�ng li�n ��u: <color=yellow>"..LG_GetLeagueTask(LG_GetLeagueObjByRole(5, CallPlayerFunction(SearchPlayer(Name), GetName)), 5).."<color> - Phong k�: <color=green>"..floor((CallPlayerFunction(SearchPlayer(Name), GetTask, 1212))/60).." Min <color>";
	end
end


--------------------------------- KET THUC DOI THOAI VA THEM HAM DUA TASK NOI CHUYEN VOI GAMEMASTER VE SO 0 ---------------------
function OnCancel()
	SetTask(5997, 0)
end




----------------------------------------


function GMMENU1()
local szTitle =  "<npc>L�nh b�i h� tr� GM V� L�m Giang H� !"
		local tbOpt =
	{
             -- {"Check Th�y T�c Ch�t",khaitest},
             -- {"Th� NPC VAN TIEU",addnpctest},
				{"Di Chuy�n ��n N�i",GMDC},
				{"GM H�nh D�ng",GMHinhDan},
			--	{"GM BUFF",GMBugNe},
				{"Th�ng B�o All GS",GmNhapTinBao},
				--{"Nh�n Ng�a", NhanNguaGM},	
			--  {"da tau", hoanthanhdt},
			-- {"bien hinh", bienhinh},	
		--	{"Top 1 TDSQ", top1tdsq},	
		--{"Top 2 TDSQ", top2tdsq},
		--{"Top 3 TDSQ", top3tdsq},
	--	{"Top 4 TDSQ", top4tdsq},
                                           {"Tho�t"},
	}
		CreateNewSayEx(szTitle, tbOpt)	
	return 1				
end


local tbAwardbos = 
{
		[1]={szName = "��i th�nh b� k�p",tbProp={6,1,2424,1,0,0}, nCount=1,  nRate=10},
		[2]={szName = "V� l�m m�t t�ch",tbProp={6,1,26,1,0,0}, nCount=1,  nRate=10},
		[3]={szName = "T�y t�y kinh",tbProp={6,1,22,1,0,0}, nCount=1,  nRate=10},
		[4]={szName = "Th� ��c x� tri�u ��nh", tbProp={6,1,1375,1,0,0}, nCount=1,  nRate=20},
		[5]={szName = "Ti�n th�o l� ��c Bi�t",tbProp={6,1,1181,1,0,0},nCount=1, nRate=20},

		--{szName = "Tuy�t �nh",tbProp={0,10,5,3,0,0,0},nCount=1, nRate=10},
		--{szName = "� V�n ��p Tuy�t",tbProp={0,10,5,6,0,0,0},nCount=1, nRate=10},
		[6]={szName = "Chi�u D�",tbProp={0,10,5,10,0,0,0},nCount=1, nRate=10},
		[7]={szName = "X�ch Th�",tbProp={0,10,5,7,0,0,0},nCount=1, nRate=10},
		[8]={szName = "��ch L�",tbProp={0,10,5,9,0,0,0},nCount=1, nRate=10},



	
	}


function khaitest()
		tbAwardTemplet:GiveAwardByList(%tbAwardbos, "use yubi_baoxiang", 1);
		Say("<color=green>�ang test 1 ��i th�y t�c �� die <pic=26> nh�n ���c v�t ph�m b�n g��ng")


end


function addnpctest()
  local nMapId, nPosX16, nPosY16 = GetWorldPos();
  local SId = SubWorldID2Idx(nMapId);
  local nNpcIndex;
  if (SId >= 0) then
	  	nNpcIndex = AddNpc(447, 1, SId, nPosX16 * 32, nPosY16 * 32, 1, "Ti�p Nh�n Ti�u Bang H�i");
	  	if nNpcIndex > 0 then
	  		SetNpcScript(nNpcIndex,"\\script\\global\\quanlygame\\sukien\\vantieubanghoi\\npcdichden.lua");
	  	end
end
end


function GMBugNe()
AddProp(10000000)
AddMagicPoint(50)
PlayerFunLib:AddSkillState(966,3,3,46656000,1)--18*60*60*24*30=46656000 30��
Msg2Player("Nh�n th�nh c�ng !<enter><color=yellow>�i�m K� N�ng v� Ti�m N�ng<color>");
AddMagic(69,50)
AddMagic(65,50)
AddMagic(62,50)
AddMagic(60,50)
AddMagic(1066,50)
AddMagic(1066,50)
AddMagic(1067,50)
AddMagic(1222,50)
AddMagic(711,50)
end



function GmNhapTinBao()
	AskClientForString("nhapguitanso", "", 1, 80, "Nh�p th�ng b�o")
end

function nhapguitanso(strings)
	local szNews = format("<color=pink>Th�ng B�o:<color=cyan>"..strings.."");
for i = 1, 2 do
	AddGlobalNews(szNews);
	LG_ApplyDoScript(1, "", "", "\\script\\event\\msg2allworld.lua", "battle_msg2allworld", szNews , "", "");
end 
end




function NhanNguaGM()
	local tbOpt =
	{
                            {"Nh�n Ng�a Tuy�t �nh", tuyetanh},
                           {"Nh�n Ng�a Chi�u D�", chieudatanthu},
	  {"Nh�n Ng�a X�ch Th�", xichthotanthu},
                          {"Nh�n Ng�a � V�n ��p C�c", ovan},
--{"Ng�a Phi V�n", phivan},
                           --{"Ng�a B�n Ti�u", bontieugm},
                          -- {"Ng�a Phi�n V�", GMPV},
		{"Tho�t"},
	}
	CreateNewSayEx("<npc>��i ca ��i t� c�n g� � ?", tbOpt)
end

function tuyetanh()
AddItem(0,10,5,3,0,0,0)
end

function ovan()
AddItem(0,10,5,6,0,0,0)
end

function chieudatanthu()
AddItem(0,10,5,5,0,0,0)
end

function xichthotanthu()
AddItem(0,10,5,7,0,0,0)
end

function phivan()
AddItem(0,10,8,10,0,0,0)
end

function bontieugm()
AddItem(0,10,6,10,0,0,0)
end

function GMPV()
tbAwardTemplet:GiveAwardByList({tbProp = {0,10,7,1,0,0,0}, nCount=1,}, "test", 1);
end





function DoiHinhGm()
ChangeOwnFeature(0,0,1204);SetCurCamp(5)
AddSkillState(465,10,0,200*60*1080)AddSkillState(464,10,0,200*60*1080)
Msg2Player("B�n nh�n h�nh d�ng GM")
end


function GMDC()
	local tbOpt =
	{
                                            {"��n Thi�n T�", GMTONGKIM2},
                                            {"��n T�ng Kim", GMTONGKIM},
                                            {"V� Ba L�ng Huy�n", GMBLH},
                                            {"C�ng Th�nh", GMCONGTHANH},
                                            {"Tr� r�ng L�m An", ronglaman},
                                            {"Tr� r�ng Bi�n Kinh", rongbk},

	{"Tho�t"},
	}
	CreateNewSayEx("<npc>��i ca �i ��u ?", tbOpt)
end

function GMTONGKIM2()
NewWorld(900,1440, 3334)
end

function GMTONGKIM()
NewWorld(380,1440, 3334)
end

function GMBLH()
NewWorld(53,1621, 3190)
end

function GMCONGTHANH()
NewWorld(930,1764, 3372)
end

function ronglaman()
NewWorld(930,1761, 3398)
end

function rongbk()
NewWorld(927,1755, 3397)
end


function GMHinhDan()
local tbSay = {}
tinsert(tbSay,"Ch�nh Ph�i./mauvang2")
tinsert(tbSay,"T� Ph�i./mautim2")
tinsert(tbSay,"Trung L�p./mauxanh2")
tinsert(tbSay,"S�t Th�./maudo2")
tinsert(tbSay,"Luy�n C�ng./mautrang2")
tinsert(tbSay,"Admin./mauadmin2")
tinsert(tbSay,"T�n H�nh./TanHinhGM")
tinsert(tbSay,"Hi�n H�nh./HienHinhGM")
tinsert(tbSay,"Bi�n GM./DoiHinhGm")
tinsert(tbSay,"Tho�t/no")
Say("Xin ch�o <color=yellow>"..GetName().."<color>, H�y ch�n tr�ng th�i m� b�n mu�n !", getn(tbSay), tbSay)
end

function mautrang2()
SetCurCamp(0)
SetCamp(0)
end

function mauvang2()
SetCurCamp(1)
SetCamp(1)
end
function mautim2()
SetCurCamp(2)
SetCamp(2) 
end
function mauxanh2()
SetCurCamp(3)
SetCamp(3) 
end
function maudo2()
SetCurCamp(4)
SetCamp(4) 
end

function mauadmin2()
SetCurCamp(5)
SetCamp(5) 
end

function HienHinhGM()
SetCurCamp(6)
SetCamp(6)
AddSkillState(733,60,1,1*18)
end

function TanHinhGM()
AddSkillState(458,60,1,60*60*18)
AddSkillState(459,60,1,60*60*18)
AddSkillState(546,60,1,60*60*18)
AddSkillState(313,60,1,60*60*18)
AddSkillState(314,60,1,60*60*18)
AddSkillState(315,60,1,60*60*18)
AddSkillState(316,60,1,60*60*18)
AddSkillState(539,60,1,60*60*18)
AddSkillState(540,60,1,60*60*18)
AddSkillState(732,60,1,60*60*18)
AddSkillState(733,60,1,60*60*18)

for i=511,533 do
AddSkillState(i,60,1,600*600*18)
end
end



function HoangKimTanThu()
if CalcFreeItemCellCount() < 30 then
		Talk(1, "", "H�nh trang ��i hi�p kh�ng �� 30 � tr�ng!")
		return
	end 
	Say("Xin m�i ch�n trang b� c�n test",5,"Trang B� An Bang/hoanmytanthu","Trang B� Nhu T�nh/nhutinhtanthu","Trang B� ��nh Qu�c/dinhquoctanthu","Trang B� Hi�p C�t/hiepcottanthu","K�t th�c ��i tho�i/no")
end

function hoanmytanthu()                
AddGoldItem(0,164)
AddGoldItem(0,165)
AddGoldItem(0,166)
AddGoldItem(0,167)
Msg2Player("Nh�n ���c Trang B� An Bang!")
end

function nhutinhtanthu()
		Talk(1, "", "Trang b� nhu t�nh t�m th�i ch�a cho ph�p nh�n free")
		return
--AddGoldItem(0,190)
--AddGoldItem(0,191)
--AddGoldItem(0,192)
--AddGoldItem(0,193)
--Msg2Player("Nh�n ���c Trang B� Nhu T�nh")
end

function dinhquoctanthu()
AddGoldItem(0,159)
AddGoldItem(0,160)
AddGoldItem(0,161)
AddGoldItem(0,162)
AddGoldItem(0,163)
Msg2Player("Nh�n ���c Trang B� ��nh Qu�c!")
end

function hiepcottanthu()
AddGoldItem(0,186)
AddGoldItem(0,187)
AddGoldItem(0,188)
AddGoldItem(0,189)
Msg2Player("Nh�n ���c Trang B� Hi�p C�t!")
end


------------------------------------ NHAN TRANG BI XANH --------------------------

tbDoXanh =
{
[1]=
{
szName = "D�y chuy�n",
tbEquip =
{
{"To�n th�ch h�ng li�n",0,4,0},
{"L�c Ph� Th�y H� Th�n ph� ",0,4,1},
}
},
[2]=
{
szName = "�o gi�p",
tbEquip =
{
{"Th�t B�o C� Sa",0,2,0},
{"Ch�n V� Th�nh Y",0,2,1},
{"Thi�n Nh�n M�t Trang",0,2,2},
{"Gi�ng Sa B�o",0,2,3},
{"���ng Ngh� gi�p",0,2,4},
{"V�n L�u Quy T�ng Y",0,2,5},
{"Tuy�n Long b�o",0,2,6},
{"Long Ti�u ��o Y",0,2,8},
{"C�u V� B�ch H� trang",0,2,9},
{"Tr�m H��ng sam",0,2,10},
{"T�ch L�ch Kim Ph�ng gi�p",0,2,11},
{"V�n Ch�ng T� T�m Y",0,2,12},
{"L�u Ti�n Qu�n",0,2,13},
}
},
[3]=
{
szName = "�ai l�ng",
tbEquip =
{
{"Thi�n T�m Y�u ��i",0,6,0},
{"B�ch Kim Y�u ��i",0,6,1},
}
},
[4]=
{
szName = "Gi�y",
tbEquip =
{
{"C�u Ti�t X��ng V� Ngoa",0,5,0},
{"Thi�n T�m Ngoa",0,5,1},
{"Kim L� h�i",0,5,2},
{"Phi Ph�ng Ngoa",0,5,3},
}
},
[5]=
{
szName = "Bao tay",
tbEquip =
{
{"Long Ph�ng Huy�t Ng�c Tr�c",0,8,0},
{"Thi�n T�m H� Uy�n",0,8,1},
}
},
[6]=
{
szName = "N�n",
tbEquip =
{
{"T� L� m�o",0,7,0},
{"Ng� l�o qu�n",0,7,1},
{"Tu La Ph�t k�t",0,7,2},
{"Th�ng Thi�n Ph�t Qu�n",0,7,3},
{"Y�m Nh�t kh�i",0,7,4},
{"Tr�ch Tinh ho�n",0,7,5},
{"� T�m M�o",0,7,6},
{"Quan �m Ph�t Qu�n",0,7,7},
{"�m D��ng V� C�c qu�n",0,7,8},
{"Huy�n T� Di�n Tr�o",0,7,9},
{"Long Huy�t ��u ho�n",0,7,10},
{"Long L�n Kh�i",0,7,11},
{"Thanh Tinh Thoa",0,7,12},
{"Kim Ph�ng Tri�n S� ",0,7,13},
}
},
[7]=
{
szName = "V� kh� c�n chi�n",
tbEquip =
{
{"Huy�n Thi�t Ki�m",0,0,0},
{"��i Phong �ao",0,0,1},
{"Kim C� B�ng",0,0,2},
{"Ph� Thi�n K�ch",0,0,3},
{"Ph� Thi�n ch�y",0,0,4},
{"Th�n Nh�t Tr�m",0,0,5},
}
},
[8]=
{
szName = "Ng�c b�i",
tbEquip =
{
{"Long Ti�n H��ng Nang",0,9,0},
{"D��ng Chi B�ch Ng�c",0,9,1},
}
},
[9]=
{
szName = "V� kh� t�m xa",
tbEquip =
{
{"B� V��ng Ti�u",0,1,0},
{"To�i Nguy�t �ao",0,1,1},
{"Kh�ng T��c Linh",0,1,2},
}
},
[10]=
{
szName = "Nh�n",
tbEquip =
{
{"To�n Th�ch Gi�i Ch� ",0,3,0},
}
},
}
function trangbixanh()
	if CalcFreeItemCellCount() < 6 then
		Say("H�y c�t b�t v�t ph�m �� ��m b�o c� 6 � tr�ng r�i h�y ti�p t�c nh� !",0);
		return 1;
	end
local tbOpt = {}
for i=1, getn(tbDoXanh) do
tinsert(tbOpt, {tbDoXanh[i].szName, laydoxanh1, {i}})
end

tinsert(tbOpt, {"K�t th�c ��i tho�i."})
local szTitle = "L�c �� n�o anh em �i !";
CreateNewSayEx(szTitle, tbOpt)
end
function laydoxanh1(nType)
local tbEquip = %tbDoXanh[nType]["tbEquip"]
local tbOpt = {}
for i=1, getn(tbEquip) do
tinsert(tbOpt, {tbEquip[i][1], laydoxanh2, {i, nType}})
end

tinsert(tbOpt, {"K�t th�c ��i tho�i."})
local szTitle = "L�c �� n�o anh em �i !";
CreateNewSayEx(szTitle, tbOpt)
end
function laydoxanh2(nIndex, nType)
local tbOpt = {}
tinsert(tbOpt, {"Kim", laydoxanh3, {nIndex, nType, 0}})
tinsert(tbOpt, {"M�c", laydoxanh3, {nIndex, nType, 1}})
tinsert(tbOpt, {"Th�y", laydoxanh3, {nIndex, nType, 2}})
tinsert(tbOpt, {"H�a", laydoxanh3, {nIndex, nType, 3}})
tinsert(tbOpt, {"Th� ", laydoxanh3, {nIndex, nType, 4}})


tinsert(tbOpt, {"K�t th�c ��i tho�i."})
local szTitle = format("<npc>Ch�n h�:")
CreateNewSayEx(szTitle, tbOpt)
end
function laydoxanh3(nIndex, nType, nSeries)
g_AskClientNumberEx(0, 10, "S� l��ng:", {laydoxanh4, {nIndex, nType, nSeries}})
local tbEquipSelect = %tbDoXanh[nType]["tbEquip"][nIndex]
end

function laydoxanh4(nIndex, nType, nSeries, nCount)
local tbEquipSelect = %tbDoXanh[nType]["tbEquip"][nIndex]
for i=1,10 do AddItem(tbEquipSelect[2], tbEquipSelect[3], tbEquipSelect[4],10, nSeries, 100, 10) end
end


-----------------------------------------


function bilGetItemsWithParam2Player()
	return AskClientForString("bilGetItemsWithParam_Param", "", 1, 500, "x,y,z,C�p,S� l��ng")
end

function bilGetItemsWithParam_Param(Param)
	local Keywk1 = strfind(Param, ",")
	local bilNum1 = tonumber(strsub(Param, 1, Keywk1 - 1))
	local Keywk2 = strsub(Param, Keywk1 + 1, strlen(Param))
	local bilNum2 = tonumber(strsub(Keywk2, 1, strfind(Keywk2, ",") - 1))
	local Keywk3 = strsub(Keywk2, strfind(Keywk2, ",") + 1, strlen(Keywk2))
	local bilNum3 = tonumber(strsub(Keywk3, 1, strfind(Keywk3, ",") - 1))
	local Keywk4 = strsub(Keywk3, strfind(Keywk3, ",") + 1, strlen(Keywk3))
	local bilNum4 = tonumber(strsub(Keywk4, 1, strfind(Keywk4, ",") - 1))
	local bilNum5 = tonumber(strsub(Keywk4, strfind(Keywk4, ",") + 1, strlen(Keywk4)))
	return bilGetItemsWithParam_Answer(bilNum1,bilNum2,bilNum3,bilNum4,bilNum5)
end

function bilGetItemsWithParam_Answer(bilNum1,bilNum2,bilNum3,bilNum4,bilNum5)
	local PlayerIndexGamer = GetTaskTemp(246);
	local bilItemIndex = AddItem(bilNum1, bilNum2, bilNum3, bilNum4, random(0,4), 0, 0)
	local bilItemName2Pler = GetItemName(bilItemIndex)
	RemoveItemByIndex(bilItemIndex)
	if bilItemIndex then
		return Say("B�n mu�n th�m v�t ph�m cho <color=orange>"..callPlayerFunction(PlayerIndexGamer, GetName).."<color> v�i th�ng s�:<color=green><enter>T�n v�t ph�m: <color><color=yellow>"..bilItemName2Pler.."<color><color=green><enter>Item: "..bilNum1.." + "..bilNum2.." + "..bilNum3.."<enter>��ng c�p: "..bilNum4.."<enter>S� l��ng: "..bilNum5.."<color>",2, "Ch�c r�i!/#bilGetItemsWithParam_Sure("..bilNum1..","..bilNum2..","..bilNum3..","..bilNum4..","..bilNum5..")", "Th�i ta nh�m/OnCancel")
	else
		return Msg2Player("C� l�i x�y ra, vui l�ng ki�m tra l�i!")
	end
end
function logplayer(zFile,szMsg)
	local handle = openfile(zFile,"a")
	write(handle,format("%s\n",szMsg));
	closefile(handle);
 end
function bilGetItemsWithParam_Sure(bilNum1,bilNum2,bilNum3,bilNum4,bilNum5)
	local PlayerIndexGamer = GetTaskTemp(246);
	local bilItemIndex = AddItem(bilNum1, bilNum2, bilNum3, bilNum4, random(0,4), 0, 0)
	local Ten = GetItemName(bilItemIndex)
	local nTen = Ten
	RemoveItemByIndex(bilItemIndex)
	if bilItemIndex then
		for i = 1, bilNum5 do
			callPlayerFunction(PlayerIndexGamer, AddItem, bilNum1, bilNum2, bilNum3, bilNum4, random(0,4), 0, 0)
		end
		Msg2Player("<color=yellow>"..callPlayerFunction(PlayerIndexGamer, GetName).."<color> �� nh�n ���c <color=green><enter>"..GetItemName(bilItemIndex).."<color><enter>           ��ng c�p: <color=green>"..bilNum4.."<color><enter>           S� l��ng: <color=green>"..bilNum5.."<color>")
		logplayer("dulieu/log_admin.txt",format("%s	[ %s]	[%s ]	Buff [%s]	V�t ph�m [%s	%s	%s]	��ng c�p [%s]	cho nh�n v�t [%s] ",GetLocalDate("%m/%d/%Y_%H:%M:%S"),GetAccount(),GetName(),bilNum5,bilNum1,bilNum2,bilNum3, bilNum4,callPlayerFunction(PlayerIndexGamer, GetName)))	
	-- logplayer("data/log_admin.txt",format("TIME:%s\tAD:%s --- Buff: %s C�p ��: %s - ID: %s",GetLocalDate("%m/%d/%Y_%H:%M:%S"),GetName(), n ,  callPlayerFunction(PlayerIndexGamer, GetName),  callPlayerFunction(PlayerIndexGamer, GetAccount)  ));	
		-- logplayer("data/log_lay_item_admin.txt",format("TG : %s  - ID [ %s] - NV [ %s] - l�y: "..bilNum5.." [ "..nTen.." ] - cho "..callPlayerFunction(PlayerIndexGamer, GetName).." ["..callPlayerFunction(PlayerIndexGamer, getHWID).."]  - M� M�y AD: [ %s] ".."",GetLocalDate("%m/%d/%Y_%H:%M:%S"),GetAccount(),GetName(),getHWID()))
		return CallPlayerFunction(PlayerIndexGamer, Say, "<color> �� nh�n ���c h� tr� v�t ph�m <color=yellow>"..nTen.."<color><enter>           ��ng c�p: <color=green>"..bilNum4.."<color><enter>           S� l��ng: <color=green>"..bilNum5.."<color>", 0);
	else
		Msg2Player("�� c� l�i ph�t sinh, xin ki�m tra l�i!")
	end
end


function getHWID()
	-- GetIP()
	local hwid = ""
	for i= 1,7 do
		hwid = hwid .. split(GetInfo(),"-")[i]
	end
	return hwid
end	

----------------------------NHap MOn Phai ----------------------------

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, "", "Ng��i �� gia nh�p m�n ph�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
	CreateNewSayEx("<npc>Xin m�i l�a ch�n ph�i.", tbOpt)
end

function set_faction(nIndex)
	local szTitle = format("<color=cyan>C� Ch�c Ch�n Ch�n Ph�i  <color=pink>%s<color>", %tbFaction[nIndex].szShowName)
	local tbOpt =
	{
		{"B�t ��u V�o M�n Ph�i", do_set_faction, {nIndex}},
		{"Cho Ta Ch�n L�i Ph�i",  choose_faction},

	}
	CreateNewSayEx(szTitle, tbOpt)
end

function do_set_faction(nIndex)
	--if check_faction() ~= 1 then
		--Talk(1, "", "Ng��i �� gia nh�p m�n ph�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
		AddMagic(%tbFaction[nIndex].tbSkill[i], 20)
	end
	AddMagic(210, 1)
		SetCurCamp(4)
		SetCamp(4)
AddRepute(10000)
AddLeadExp(20000000)
	Talk(1, "FixAuToKid", format(" <color=cyan><pic=65>Ch�c M�ng b�n �� gia nh�p<color=pink> %s", %tbFaction[nIndex].szShowName))
Msg2SubWorld("<pic=7>Ch�o M�ng ��i Hi�p <color=green>"..GetName().."<color=yellow> V�a M�i Gia Nh�p Server.")
end

function FixAuToKid()
checkphai = GetFaction()
if GetLastFactionNumber() == 0 then
SetRank(72)
elseif GetLastFactionNumber() == 1 then
SetRank(69)
elseif GetLastFactionNumber() == 2 then
SetRank(76)
elseif GetLastFactionNumber() == 3 then
SetRank(80)
elseif GetLastFactionNumber() == 4  then
SetRank(63)
elseif GetLastFactionNumber() == 5 then
SetRank(67)
elseif GetLastFactionNumber() == 6 then
SetRank(78)
elseif GetLastFactionNumber() == 7 then
SetRank(81)
elseif GetLastFactionNumber() == 8 then
SetRank(73)
elseif GetLastFactionNumber() == 9 then
SetRank(75)
end
end

function show_faction()
	if check_faction() == 1 then
		Talk(1, "", "Gia nh�p m�n ph�i m�i ca 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, {"K�t th�c ��i tho�i."})
	CreateNewSayEx("<npc>Xin m�i l�a ch�n ph�i.", tbOpt)
end

function nhanfullhoa()
tbAwardTemplet:GiveAwardByList({{szName="M�nh",tbProp={6,1,4363,1,1},nCount=301,},}, "test", 1);
tbAwardTemplet:GiveAwardByList({{szName="M�nh",tbProp={6,1,4362,1,1},nCount=301,},}, "test", 1);
end


function toptongkim1()
--tbAwardTemplet:GiveAwardByList({{szName="TLH",tbProp={6,1,23,1,1},nCount=20,},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="M�nh",tbProp={6,1,125,1,1},nCount=10,},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="M�nh",tbProp={4,417,1,1},nCount=1000,},}, "test", 1);
tbAwardTemplet:GiveAwardByList({{szName="Qu� hoa t�u",tbProp={6,1,125,1,0,0,0},nCount=15},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="Chi�u D�",tbProp={0,10,5,10,0,0,0},nCount=1,nExpiredTime=10080},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="X�ch Th�",tbProp={0,10,5,7,0,0,0},nCount=1,nExpiredTime=10080},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="Chi�u D�",tbProp={0,10,5,10,0,0,0},nCount=1},}, "test", 1);
end

function lebaobikip1()
tbAwardTemplet:GiveAwardByList({{szName="L� Bao B� K�p",tbProp={6,1,4367,1,1},nCount=1,nRate=25,},}, "test", 1);
tbAwardTemplet:GiveAwardByList({{szName="Kim Phong L� Bao",tbProp={6,1,23,1,1},nCount=10,nRate=100,},}, "test", 1);
end

function dacxa()
tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,1375,1,1},nCount=5,},}, "test", 1);
tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,2620,1,1},nCount=5,},}, "test", 1);
end

function cauca()
--tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,4349,1,1},nCount=1,},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,4350,1,1},nCount=1,},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,4351,1,1},nCount=1,},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,4352,1,1},nCount=1,},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,4353,1,1},nCount=1,},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,4354,1,1},nCount=1,},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,4355,1,1},nCount=1,},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,4356,1,1},nCount=100,},}, "test", 1);
tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={0 , 11 , 420 , 1 , 0 , 0},nCount=1,},}, "test", 1);
tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={0 , 11 , 430 , 1 , 0 , 0},nCount=1,},}, "test", 1);
end

function conghien()
tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,30215,1,1},nCount=10,},}, "test", 1);
tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,30217,1,1},nCount=10,},}, "test", 1);
--AddContribution(100000)

end

function kimphong()
tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,4367,1,1},nCount=5,},}, "test", 1);
end

function thietlahan()
tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,23,1,1},nCount=10,},}, "test", 1);
end

function sach()
tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,22,1,1},nCount=10,},}, "test", 1);
tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,26,1,1},nCount=10,},}, "test", 1);
end

function tienvan()
--tbAwardTemplet:GiveAwardByList({{szName="��c X�",tbProp={6,1,4338,1,1},nCount=100,},}, "test", 1);
Earn(10000000)
end

function hoanthanhdt()
tbAwardTemplet:GiveAwardByList({{szName="Qu� hoa t�u",tbProp={6,1,4336,1,0,0,0},nCount=10},}, "test", 1);
end

function bienhinh()
ChangeOwnFeature(0,0,1903);
end

function setmokhoa()
	local PlayerIndex = GetTaskTemp(246);
	CallPlayerFunction(PlayerIndex, SetTask, 5999, 1);
	return CallPlayerFunction(PlayerIndex, Say, "B�n �� ���c GameMaster gi�p ��, t�ng b�n 1 l�n m� ��nh trang b� hay c�m �n ADMIN!", 0);
end

function tangbaodo()
for i=1,10 do
--DynamicExecuteByPlayer(PlayerIndex, "\\script\\task\\random\\treasure_head.lua", "CreateTreasureMap")
AddItemEx(4,-1780866401,0,6,2,3,1,0,0,25,1,0,0,0,0,0)
end
end

function checkhwid()
AddMagic(665,55)
end

function goitrong()
call_npc1(NPC_Clickdb1)
end

function call_npc1() 
  local nMapId, nPosX16, nPosY16 = GetWorldPos();
  local SId = SubWorldID2Idx(nMapId);
  local nNpcIndex;
  if (SId >= 0) then
	  	nNpcIndex = AddNpc(1556, 1, SId, nPosX16 * 32, nPosY16 * 32, 1, "Trong bang");
	  	if nNpcIndex > 0 then
	  		SetNpcScript(nNpcIndex,"\\script\\global\\quanlygame\\sukien/sevenday\\trongbanghoi\\trongbanghoi.lua");
	  	end
end
end


function addnpchoangkim() 
  local nMapId, nPosX16, nPosY16 = GetWorldPos();
  local SId = SubWorldID2Idx(nMapId);
  local nNpcIndex;
  if (SId >= 0) then
	  	nNpcIndex = AddNpc(1442, 1, SId, nPosX16 * 32, nPosY16 * 32, 1, "Ho�ng Kim T�n Gi�");
	  	if nNpcIndex > 0 then
	  		SetNpcScript(nNpcIndex,"\\script\\global\\quanlygame\\ductrangbi.lua");
	  	end
end
end

function vongsang()
NewWorld(324,1541,3176) 

	--PlayerFunLib:AddSkillState(966,1,3,46656000,1)
	--PlayerFunLib:AddSkillState(979,1,3,46656000,1)
end

function thientu()
tbAwardTemplet:GiveAwardByList({{szName="V�n ni�n huy ho�ng qu�",tbProp={0,394},nCount=1,nExpiredTime=6*24*60,nQuality = 1},}, "test", 1);
tbAwardTemplet:GiveAwardByList({{szName="V�n ni�n huy ho�ng qu�",tbProp={0,395},nCount=1,nExpiredTime=6*24*60,nQuality = 1},}, "test", 1);
tbAwardTemplet:GiveAwardByList({{szName="V�n ni�n huy ho�ng qu�",tbProp={0,396},nCount=1,nExpiredTime=6*24*60,nQuality = 1},}, "test", 1);
tbAwardTemplet:GiveAwardByList({{szName="V�n ni�n huy ho�ng qu�",tbProp={0,397},nCount=1,nExpiredTime=6*24*60,nQuality = 1},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="V�n ni�n huy ho�ng qu�",tbProp={0,10,8,10,0,0,0},nCount=1,nExpiredTime=6*24*60},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="V�n ni�n huy ho�ng qu�",tbProp={6,1,4399,1},nCount=10},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="V�n ni�n huy ho�ng qu�",tbProp={6,1,4400,1},nCount=10},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="V�n ni�n huy ho�ng qu�",tbProp={6,1,4400,1},nCount=10},}, "test", 1);
--tbAwardTemplet:GiveAwardByList({{szName="V�n ni�n huy ho�ng qu�",tbProp={6,1,907,1},nCount=5,nExpiredTime=6*24*60},}, "test", 1);
end

function hiepcot()
tbAwardTemplet:GiveAwardByList({{szName="V�n ni�n huy ho�ng qu�",tbProp={0,193},nCount=2,nQuality = 1},}, "test", 1);
tbAwardTemplet:GiveAwardByList({{szName="V�n ni�n huy ho�ng qu�",tbProp={0,190},nCount=2,nQuality = 1},}, "test", 1);
end

function topevent()
for i = 389,397 do
AddGoldItem(0, i);
--tbAwardTemplet:GiveAwardByList({{szName="V�n ni�n huy ho�ng qu�",tbProp={0,11,647,1,1},nCount=1,nExpiredTime=60*24*30},}, "test", 1);
end;
end

function top1125()
for i = 389,397 do
AddGoldItem(0, i);
--tbAwardTemplet:GiveAwardByList({{szName="V�n ni�n huy ho�ng qu�",tbProp={0,11,647,1,1},nCount=1,nExpiredTime=60*24*30},}, "test", 1);
end;
end


function lenhbaicongthanh()
tbAwardTemplet:GiveAwardByList({{szName="LBCT",tbProp={6,1,4437,1},nCount=300,nExpiredTime=60*24},}, "test", 1);
end


-------------------------------------lo de vip by T�ng Fwcloud-------------------------------
function GMLOBAC()
local szTitle =  "<npc>Th�u s� l� ��"
		local tbLoOtp=
	{
                                         {"C�p nh�t gi�i 1 l� ",addgiai1lo},
                                         {"C�p nh�t gi�i 2 l� ",addgiai2lo},
                                         {"X�a k�t qu� 1 l� ",clear_ketqua1lo},
                                         {"X�a k�t qu� 2 l� ",clear_ketqua2lo},
                                         {"C�p nh�t k�t qu� l� ngay bu�i t�i ",updateketquangaymoi},
                                         {"C�p nh�t k�t qu� l� khi qu�n ",updateketquangaymoikhiquen},
                                           {"Tho�t"},
	}
		CreateNewSayEx(szTitle, tbLoOtp)	
	return 1				
end


function addgiai1lo()
AskClientForString("addgiai1loghifile", "", 1, (410), "<#>Nh�p k�t qu�");
end

function addgiai1loghifile(string)
passnew = "tbGiaiLo= {"..string.."}"
szPath = "script/mrjared/ketqua1lo.lua"
	handle = openfile(szPath, "w+")
	write(handle, passnew)
	closefile(handle)
Say("<color=green>Ch�o T�ng Fwcloud : b�n �� c�p nh�t gi�i l� 1 s� v�i k�t qu� \n"..string)
--ketqua1lotoday()
showketqua1(string)
end

function clear_ketqua1lo()
passnew = "tbGiaiLo= {}"
szPath = "script/mrjared/ketqua1lo.lua"
	handle = openfile(szPath, "w+")
	write(handle, passnew)
	closefile(handle)
Say("<color=green>Ch�o T�ng Fwcloud : b�n �� Clear k�t qu� 1 l�")
end

function addgiai2lo()
AskClientForString("addgiai2loghifile", "", 1, (410), "<#>Nh�p k�t qu�");
end

function addgiai2loghifile(string1)
passnew2 = "tbGiaiLo2nhay= {"..string1.."}"
szPath2lo = "script/mrjared/ketqua2lo.lua"
	handle = openfile(szPath2lo, "w+")
	write(handle, passnew2)
	closefile(handle)
Say("<color=green>Ch�o T�ng Fwcloud : b�n �� c�p nh�t gi�i l� 2 s� v�i k�t qu� \n"..string1)
--ketqua2lotoday()
showketqua2(string1)
end

function clear_ketqua2lo()
passnew2 = "tbGiaiLo= {}"
szPath2lo = "script/mrjared/ketqua2lo.lua"
	handle = openfile(szPath2lo, "w+")
	write(handle, passnew)
	closefile(handle)
Say("<color=green>Ch�o T�ng Fwcloud : b�n �� Clear k�t qu� 2 l�")
end

function updateketquangaymoi()
local DateUpdate = tonumber(date("%Y%m%d"))
szPath2lo = "sode/updateketquangaymoi.txt"
	handle = openfile(szPath2lo, "w+")
	write(handle, DateUpdate + 1)
	closefile(handle)
LoadScript("/script/mrjared/ketqua1lo.lua")
LoadScript("/script/mrjared/ketqua2lo.lua")

Say("<color=green>Ch�o T�ng Fwcloud : b�n �� update k�t qu� ng�y m�i")
end

function updateketquangaymoikhiquen()
local DateUpdate = tonumber(date("%Y%m%d"))
szPath2lo = "sode/updateketquangaymoi.txt"
	handle = openfile(szPath2lo, "w+")
	write(handle, DateUpdate)
	closefile(handle)
LoadScript("/script/mrjared/ketqua1lo.lua")
LoadScript("/script/mrjared/ketqua2lo.lua")

Say("<color=green>Ch�o T�ng Fwcloud : b�n �� update k�t qu� ng�y m�i khi qu�n")
end


function showketqua1(string)
ketqua = string
szPath2lo = "sode/showketqua1.txt"
	handle = openfile(szPath2lo, "w+")
	write(handle, ketqua)
	closefile(handle)
--Say("<color=green>Ch�o T�ng Fwcloud : b�n �� Clear k�t qu� 1 l�")
end

function showketqua2(string1)
ketqua = string1
szPath2lo = "sode/showketqua2.txt"
	handle = openfile(szPath2lo, "w+")
	write(handle, ketqua)
	closefile(handle)
--Say("<color=green>Ch�o T�ng Fwcloud : b�n �� Clear k�t qu� 2 l�")
end

------------------------------------------------------------------------

function ShowLogXu()
pass = GetExtPoint(7)
Msg2Player(pass)
end

function top1tdsq()
end



--================================================-- Reload Script --=================================================--
Include("\\script\\lib\\remoteexc.lua")

function Bil_ReLoadScriptWithLinkInput(bilLinkReload)
	if type(bilLinkReload) == "string" then
		local bilLinkReload = bilLinkReload
		local Keywk1 = strfind(bilLinkReload, "\script")
		bilLinkReload = strsub(bilLinkReload, Keywk1-1, strlen(bilLinkReload))
		local Bil_RLScript = LoadScript(bilLinkReload);
		if (FALSE(Bil_RLScript)) then
			return Msg2Player("Error,False to ReLoading Script!<enter><color=yellow>"..bilLinkReload.."");
		else
			return Msg2Player("<color=green>Script has been reloaded<color><enter><color=blue>"..bilLinkReload.."");
		end
	end
	return AskClientForString("Bil_ReLoadScriptWithLinkInput", "", 1, 500, "<#>Nh�p ���ng d�n")
end

function Bil_ReLoadScript_MultiGamerSVWithLinkInput(bilLinkReload)
	if type(bilLinkReload) == "string" then
		local bilLinkReload = bilLinkReload
		local Keywk1 = strfind(bilLinkReload, "\script")
		bilLinkReload = strsub(bilLinkReload, Keywk1-1, strlen(bilLinkReload))
		RemoteExc("\\script\\bil4i3n\\bil4i3n_funcs3relay.lua", "bilReloadScriptMultiGamesv", {bilLinkReload})
		return Msg2Player("�� g�i y�u c�u ��n S3Relay!")
	end
	return AskClientForString("Bil_ReLoadScript_MultiGamerSVWithLinkInput", "", 1, 500, "<#>Nh�p ���ng d�n")
end


function bilReloadTaskReleaseS3Relay(bilData, bilScriptS3Relay)
	if type(bilData) == "string" then
		Msg2Player("Sent data to S3Relay!")
		return RemoteExc("\\script\\bil4i3n\\bil4i3n_funcs3relay.lua", "bilReleaseTaskS3Relay", {bilData}, "\\script\\global\\bil4i3n\\bill4i3n.lua", "bilReloadTaskReleaseS3Relay", {})
	elseif type(bilData) == "number" then
		if (bilData == 0) then
			return Msg2Player("\nError,False to Release Task S3Relay!<enter><color=yellow>"..bilScriptS3Relay);
		else
			return Msg2Player("\n<color=green>Task S3Relay has been Release<color><enter><color=blue>"..bilScriptS3Relay)
		end
	end
	AskClientForString("bilReloadTaskReleaseS3Relay", "", 1, 500, "<#>Nh�p Task S3Relay")
end

function bilReloadScriptReloadS3Relay(bilData, bilScriptS3Relay)
	if type(bilData) == "string" then
		Msg2Player("Sent data to S3Relay!")
		return RemoteExc("\\script\\bil4i3n\\bil4i3n_funcs3relay.lua", "bilReloadScriptS3Relay", {bilData}, "\\script\\global\\bil4i3n\\bill4i3n.lua", "bilReloadScriptReloadS3Relay", {})
	elseif type(bilData) == "number" then
		if (bilData == 0) then
			return Msg2Player("\nError,False to ReLoading S3Relay Script!<enter><color=yellow>"..bilScriptS3Relay);
		else
			return Msg2Player("\n<color=green>Script S3Relay has been reloaded<color><enter><color=blue>"..bilScriptS3Relay)
		end
	end
	AskClientForString("bilReloadScriptReloadS3Relay", "", 1, 500, "<#>Nh�p ���ng d�n S3Relay")
end

function bilReloadTaskReloadS3Relay(bilValue, bilTaskName)
	if bilValue == nil then
		return AskClientForString("bilReloadTaskReloadS3Relay", "", 1, 500, "<#>File Task S3Relay")
	elseif type(bilValue) == "string" then
		Msg2Player("Sent data to S3Relay!")
		return RemoteExc("\\script\\bil4i3n\\bil4i3n_funcs3relay.lua", "bilReloadTaskS3Relay", {bilValue}, "\\script\\global\\bil4i3n\\bill4i3n.lua", "bilReloadTaskReloadS3Relay", {})
	elseif type(bilValue) == "number" then
		if bilValue == 0 then
			return Msg2Player("FALSE to load Task S3Relay:<enter>"..bilTaskName)
		else
			Msg2Player("<color=yellow>Load Task S3Relay OK:<color><enter><color=green>"..bilTaskName)
		end
	end
end

Include("\\script\\global\\skills_table.lua")

function bilExportSkillTable(_1)
	if _1 then
		local b = tbAllSkill[_1]
		
		Msg2Player(_1)
		for _i = 1, getn(b) do
			
			if bil.True(b[_i]) then
				Msg2Player("   C�p ".._i.."0 --------------------")
			
				for _i2 = 1, getn(b[_i]) do
					Msg2Player("      |- "..bil.C(1, b[_i][_i2]).."-"..bil.C(2, GetSkillName(b[_i][_i2])))
				end
			end
			
		end
		
		return
	end

	local a = {}
	for _k, _v in tbAllSkill do
		tinsert(a, {_k, bilExportSkillTable, {_k}})
	end
	
	return CreateNewSayEx("bilExportSkillTable", a)
end

--==============================================-- END Reload Script--=========================