function InitArray(m,val)
array={}
     for i=1,m do
     array[i]=val
     end
return array
end

if(ppl==nil) then ppl={} end
if(ppl.muted) then ppl.muted={} end

addhook("serveraction","help_button")
addhook("join","show")
addhook('say', 'command')
addhook("minute","mtime")

admins = {70919}
moderators = {}
members = {}
vip = {64674,97024,93145}

site = "www.PBS-Servers.servehttp.com"

--------------------------------------
-- ServerAction                     --
--------------------------------------

function help_button(id,action)
	if action == 3 then
		for _, u in ipairs(admins) do
			if player(id, 'usgn') == u then
				AdminHelp(id)
			end
		end
		
		for _, u in ipairs(moderators) do
			if player(id, 'usgn') == u then
				ModeratorHelp(id)
			end
		end

		for _, u in ipairs(vip) do
			if player(id, 'usgn') == u then
				VIPHelp(id)
			end
		end
	end
end

--------------------------------------
-- Show                             --
--------------------------------------

function show(id)
	PlayerJoin(id)
	Privileges(id)
	ServerName()
	realtime()
end

function mtime(id)
	realtime()
	advertisment()
end
--------------------------------------
-- Privileges                       --
--------------------------------------

function Privileges(id)

usgn_id = player(id,"usgn")
privi = "Player"

	for _, u in ipairs(admins) do
	 if player(id,"usgn") == u then
			usgn_id = player(id,"usgn")
			privi = "Administrators"
			end
		end

	for _, u in ipairs(moderators) do
	 if player(id,"usgn") == u then
			usgn_id = player(id,"usgn")
			privi = "Moderators"
			end
		end

	for _, u in ipairs(members) do
	 if player(id,"usgn") == u then
			usgn_id = player(id,"usgn")
			privi = "Members"
			end
		end

	for _, u in ipairs(vip) do
	 if player(id,"usgn") == u then
			usgn_id = player(id,"usgn")
			privi = "V.i.p"

			end
		end
			parse('hudtxt2 '..id..' 10 "©000255000Your Usgn is: '..usgn_id..' Privilege: '..privi..'" 220 450')
	end

--------------------------------------
-- ServerName                       --
--------------------------------------

function ServerName()
	parse('hudtxt 12 "©255255255'..game("sv_name")..'" 255 20')
	parse('hudtxt 13 "©255255255'..site..'" 245 35')
end

--------------------------------------
-- Time                             --
--------------------------------------

function realtime()
txt = os.date("©000255000Time: %I:%M %p")
txt2 = os.date("©000255000Date: %A, %d %b %Y")
txt3 = "©000255000(GMT+8:00 Philippines)"
parse('hudtxt 14 "'..txt3..'" 15 110')
parse('hudtxt 15 "'..txt..'" 15 125')
parse('hudtxt 16 "'..txt2..'" 15 140')
end

--------------------------------------
-- Join                             --
--------------------------------------

function PlayerJoin(p)
	msg2(p,"©005116250Welcome To "..game("sv_name")..", "..player(p,"name").."!")
end

--------------------------------------
-- Ads                             --
--------------------------------------

function advertisment()
msg("©255100000This is "..game("sv_name").." Server")
msg("©255100000A Philippine Server Powered By: PBS Inc.")
msg("©255100000Were Proud to be Pilipino!")
msg("©255100000"..site)
end

--------------------------------------
-- CommandHook                      --
--------------------------------------

function command(id,txt)
	if txt:sub(0,1) == '!' then
		cmd=txt:sub(2)
		print('©255255255'..cmd..' executed by '..player(id,'name')..' IP: '..player(id,'ip'))

--------------------------------------
-- AdminCommands                    --
--------------------------------------

		for _, u in ipairs(admins) do
			if player(id, 'usgn') == u then
			
				if cmd:sub(0,8) == 'teleport' then
				teleport(id,cmd:sub(10,13),cmd:sub(15,18))
				return 1
				end

				if cmd:sub(0,6) == 'encage' then
					encage()
					return 1
				end

				if cmd:sub(0,8) == 'giveaway' then
					giveaway(cmd:sub(10,11),cmd:sub(13))
					return 1
				end
				
				if cmd:sub(0,5) == 'speed' then
					speed(id,cmd:sub(7))
					return 1
				end

				if cmd:sub(0,5) == 'equip' then
					equip(id,cmd:sub(7))
					return 1
				end
				
				if cmd:sub(0,8) == 'allequip' then
					allequip(id)
					return 1
				end
				
				if cmd:sub(0,5) == 'armor' then
					armor(id)
					return 1
				end
				
				if cmd:sub(0,4) == 'slap' then
					slap(cmd:sub(6))
					return 1
				end
				
				if cmd:sub(0,3) == 'ban' then
					ban(cmd:sub(5))
					return 1
				end
				
				if cmd:sub(1,4) == 'kick' then
					kick(cmd:sub(6))
					return 1
				end

				if cmd:sub(0,6) == 'hplist' then
					healthlist(id)
					return 1
				end

				if cmd:sub(0,4) == 'goto' then
					goto(id,cmd:sub(6))
					return 1
				end

				if cmd:sub(0,5) == 'bring' then
					bring(id,cmd:sub(7))
					return 1
				end

				if cmd:sub(0,7) == 'explode' then
					explode(id,cmd:sub(9))
					return 1
				end

				if cmd:sub(0,5) == 'quake' then
					quake(id,cmd:sub(7))
					return 1
				end
			end
		end
		
--------------------------------------
-- ModeratorCommands                --
--------------------------------------

		for _, u in ipairs(moderators) do
			if player(id, 'usgn') == u then
			
				if cmd:sub(0,8) == 'teleport' then
				teleport(id,cmd:sub(10,13),cmd:sub(15,18))
				return 1
				end
				
				if cmd:sub(0,5) == 'speed' then
					speed(id,cmd:sub(7))
					return 1
				end
				
				if cmd:sub(0,5) == 'equip' then
					equip(id,cmd:sub(7))
					return 1
				end
				
				if cmd:sub(1,4) == 'kick' then
					kick(cmd:sub(6))
					return 1
				end
			end
		end

--------------------------------------
-- V.I.P Commands                   --
--------------------------------------

		for _, u in ipairs(vip) do
			if player(id, 'usgn') == u then
				if cmd:sub(0,5) == 'equip' then
					equip(id,cmd:sub(7))
					return 1
				end
			end
		end
	end
	return 1
end

--------------------------------------
-- Commands                         --
--------------------------------------
function AdminHelp(id)
	msg2(id,"©255255051!giveaway [ITEM] [MSG] -- Gives free items to all players")
	msg2(id,"©255255051!hplist -- Gives you the Health List of the players AOTS")
	msg2(id,"©255255051!speed [Value] -- Gives You a Speed with Value-XX")
	msg2(id,"©255255051!allequip -- Equip all possible weapons to you")
	msg2(id,"©255255051!bringme [ID] -- Bring yourself to Player[ID]")
	msg2(id,"©255255051!quake [LENGTH] -- Make an Haiti earthquake!")
	msg2(id,"©255255051!encage -- Kill all Players inside the cage")
	msg2(id,"©255255051!bring [ID] -- Bring Player[ID] to you")
	msg2(id,"©255255051!explode [DMG] -- Spawn explosion")
	msg2(id,"©255255051!armor -- Equip a Heavy Armor")
	msg2(id,"©255255051!equip [ID] -- Equip a Weapon")
	msg2(id,"©255255051!slap [ID] -- Slap a Player")
	msg2(id,"©255255051!kick [ID] -- Kick a Player")
	msg2(id,"©255255051!ban [ID] -- Ban a Player")
end

function ModeratorHelp(id)
	msg2(id,"©255255051!teleport [X] [Y] -- Teleports You To ..x.. ..y.. On The Map")
	msg2(id,"©255255051!speed [Value] -- Gives You a Speed with Value-XX")
	msg2(id,"©255255051!equip [ID] -- Equip a Weapon")
	msg2(id,"©255255051!kick [ID] -- Kick a Player")
end

function VIPHelp(id)
	msg2(id,"©255255051!speed [Value] -- Gives You a Speed with Value-XX")
end

function teleport(id,loc1,loc2)
	parse('setpos '..id..' '..loc1..' '..loc2)
end

function speed(id,speed)
	parse('speedmod '..id..' '..speed)
end

function equip(id,wepid)
	parse('equip '..id..' '..wepid)
end
	
function allequip(id)
	weapons = {1, 2, 3, 4, 5, 6, 10, 11, 20, 21, 22, 23, 24, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 45, 46, 47, 48, 49, 51, 52, 53, 54, 69, 72, 73, 74, 75, 76, 77, 78, 83, 85, 86, 87, 88}
	for _, wepid in ipairs(weapons) do		
		parse('equip '..id..' '..wepid)
	end
end
	
function armor(id)
	parse('equip '..id..' 81')
end

function slap(id)
	if player(id,"exists") then
	parse('slap '..id)
	end
end
	
function ban(id)
	if player(id,"exists") then
	parse('banip '..player(id,'ip')..' 10')
	end
end

function kick(id)
	if player(id,"exists") then
	parse('kick '..id)
	end
end

function goto(id,target)
	parse('setpos '..id..' '..player(target,"x")..' '..player(target,"y"))
	parse('effect "colorsmoke" '..player(target,"x")..' '..player(target,"y")..' 0 0 000 255 000')
end

function bring(id,target)	
	parse('setpos '..target..' '..player(id,"x")..' '..player(id,"y"))
	parse('effect "colorsmoke" '..player(id,"x")..' '..player(id,"y")..' 0 0 000 255 000')
end

function explode(id,dmg)
	parse('explosion '..player(id,'x')..' '..player(id,'y')..' '..dmg..' '..dmg..' '..id)
end

function quake(id,length)
		if length then
			length = math.min(length*50,250)
			for _, id in ipairs(player(0,'table')) do
				parse('shake '..id..' '..length)
			end
		for i = 1, 6 do
			if math.random(0,1) == 1 then
				parse('sv_sound weapons/explode'..i..'.wav')
			end
		end
	end
end

function healthlist(id)
	for i=1,32 do
		if (player(i,"exists")) then
			hp=player(i,"health")
			if (hp>90) then
				msg2(id,"©000255000"..player(i,"name").." -> HP: "..hp)
			elseif (hp>60) then
				msg2(id,"©255255000"..player(i,"name").." -> HP: "..hp)
			elseif (hp>30) then
				msg2(id,"©255128000"..player(i,"name").." -> HP: "..hp)
			else
				msg2(id,"©255000000"..player(i,"name").." -> HP: "..hp)
			end
		end
	end
	return 2
end

function encage()
	parse("sv_msg ©255000000ENCAGING ALL PLAYERS!!!@C")
	a=player(0,"table")
	for i=1,#a do
		if (player(a[i],"team")>0) then
			if (player(a[i],"health")>0) then
				x=player(a[i],"tilex")
				y=player(a[i],"tiley")
				parse ("spawnobject 3 "..(x-1).." "..(y-1))
				parse ("spawnobject 3 "..(x).." "..(y-1))
				parse ("spawnobject 3 "..(x+1).." "..(y-1))
				parse ("spawnobject 8 "..(x-1).." "..(y))
				parse ("spawnobject 8 "..(x+1).." "..(y))
				parse ("spawnobject 3 "..(x-1).." "..(y+1))
				parse ("spawnobject 3 "..(x).." "..(y+1))
				parse ("spawnobject 3 "..(x+1).." "..(y+1))
			end
		end
	end
	return 2
end
	
function giveaway(item,msg)
	parse("sv_msg ©255000000FREE "..msg.." !!!@C")
	a=player(0,"table")
	for i=1,#a do
		if (player(a[i],"team")>0) then
			if (player(a[i],"health")>0) then
				x=player(a[i],"tilex")
				y=player(a[i],"tiley")
				parse ("spawnitem "..item.." "..(x-1).." "..(y))
			end
		end
	end
	return 2
end

addhook("join","show")
addhook('say', 'command')
addhook("minute","mtime")

admins = {70919}
moderators = {}
members = {}
vip = {64674,97024,93145}

site = "www.PBS-Servers.servehttp.com"

--------------------------------------
-- ServerAction                     --
--------------------------------------

function help_button(id,action)
     if action == 3 then
          for _, u in ipairs(admins) do
               if player(id, 'usgn') == u then
                    AdminHelp(id)
               end
          end
          
          for _, u in ipairs(moderators) do
               if player(id, 'usgn') == u then
                    ModeratorHelp(id)
               end
          end

          for _, u in ipairs(vip) do
               if player(id, 'usgn') == u then
                    VIPHelp(id)
               end
          end
     end
end

--------------------------------------
-- Show                             --
--------------------------------------

function show(id)
     PlayerJoin(id)
     Privileges(id)
     ServerName()
     realtime()
end

function mtime(id)
     realtime()
     advertisment()
end

function show(id)
     PlayerJoin(id)
     Privileges(id)
     ServerName()
     realtime()
print("©255200200Join hook executed!")
end

function startfunc1()
	print("Start function 1")
end

function startfunc2()
	print("Start function 2")
end

addhook("join","startfunc1") -- add a hook to the first function
startfunc2() -- call the function from the script body

addhook("join","show")

--------------------------------------
-- Show                             --
--------------------------------------

function show(id) -- function 1

     PlayerJoin(id) -- function 2
     Privileges(id) -- function 2
     ServerName() -- function 2
     realtime() -- function 2

end