addhook("say","jonzku_say")
function jonzku_say(id,t)
	if(string.sub(t,1,5) == "/kick") then
		kickedplayer = 	string.sub(t,7,string.len(t))
		parse("kick "..kickedplayer)
	end
	if(string.sub(t,1,4) == "/ban")then
		bannedplayer=string.sub(t,6,string.len(t))
		parse("ban "..bannedplayer)
	end
end

function adm_teletile_admin(p, typ, cmd) 
     cmd = split(cmd) 
     local i = cmd[1] 
     local x = cmd[2] 
     local y = cmd[3] 
     if not y then return end 
     if not player(i, "exists") then return end 
     parse(string.format("setpos %s %s %s", i, x*32+16, y*32+16)) 
end

function split(t, b) 
     return toTable(t, b) 
end 

function toTable(t, b) 
     local cmd = {} 
     local match = "[^%s]+" 
     if b then 
          match = "%w+" 
     end 
     if type(b) == "string" then match = "[^"..b.."]+" end 
     if not t then return cmd end 
     for word in string.gmatch(t, match) do 
          table.insert(cmd, word) 
     end 
     return cmd 
end 

function trim(t) 
     t = split(t) 
     s = "" 
     if not t then return end 
     for i, v in ipairs(t) do 
          s = s.." "..v 
     end 
     s = string.sub(s, 2) 
     return s 
end

function adm_getid_admin(p, cmd)
	cmd = trim(cmd)
	local names = {}
	for i =1, 32, 1 do
		if player(i, "exists") then
			names[player(i, "name")] = i
		end
	end
	if names[cmd] then msg2(p, "Player "..cmd.." is at ID: "..names[cmd]) end
	return 2
end

Initialize
init_mod("sv")

sv.var("prefix","Server echoed: ", "svar")
sv.broadcasttime = initArray(32)
--Act - Command "!echo"

function act_nextmap(p, typ, cmd)
	msg(string.format("nextmap: %s", game("nextmap")))
end

function act_broadcast(p, typ, cmd)
	if os.time() > sv.broadcasttime[p] then
		msg(Color(100, 255, 0), string.format("%s(BROADCAST): %s", player(p, "name"), cmd))
		msg2(p, Color(255, 100, 0),"You have a 60 second cool off period before the next broadcast")
		sv.broadcasttime[p] = os.time() + 60
	else
		msg2(p, Color(255, 100, 0), string.format("You may not make another broadcast for %s more seconds", sv.broadcasttime[p] - os.time()))
	end
end

function adm_echo_admin(p, typ, cmd)
	msg(Color(255, 0, 0), sv.prefix..cmd)
end

function adm_say_admin(p, typ, cmd)
	msg("?032178170"..player(p, "name") .. "(ADMIN): "..cmd)
end

function adm_sayto_admin(p, typ, cmd)
	cmd = toTable(cmd)
	local i = tonumber(cmd[1])
	local _msg = cmd[2]
	if not player(i, "exists") then return invalid(p, typ) end
	if not msg then return invalid() end
	msg2(i, Color(255, 100, 0), string.format("%s (PRIVATE): %s", player(i, "name"), _msg))
end

--Admin - Command "@echo_prefix"

function adm_echoprefix_admin(p, typ, cmd)
	sv.setvar("prefix", cmd, true)
end

function adm_guns_admin(p, typ, cmd)
	cmd = toTable(cmd)
	local ID = tonumber(cmd[1])
	local gunid = trim(tostring(cmd[2]))
	if tonumber(cmd[2]) then gunid = wpn.name[tonumber(cmd[2])] end
	if not gunid then return invalid(p, typ) end
	if not ID then
		ID = p
		gunid = trim(tostring(cmd[1]))
	end
	if not wpn.id[gunid] then return invalid(p, typ, "Wrong Weapon") end
	equip(ID, wpn.id[gunid], true)
end

function adm_teleport_admin(p, typ, cmd)
	cmd = toTable(cmd)
	local i = cmd[1]
	local x = cmd[2]
	local y = cmd[3]
	if not y then return invalid(p, typ) end
	if not player(i, "exists") then return invalid(p, typ, "Invalid Player") end
	parse(string.format("setpos %s %s %s", i, x, y))
end

function adm_teletile_admin(p, typ, cmd)
	cmd = toTable(cmd)
	local i = cmd[1]
	local x = cmd[2]
	local y = cmd[3]
	if not y then return invalid(p, typ) end
	if not player(i, "exists") then return invalid(p, typ, "Invalid Player") end
	parse(string.format("setpos %s %s %s", i, x*32, y*32))
end

function adm_getpos_admin(p, typ, cmd)
	local i = tonumber(cmd)
	if not i then i = p end
	if not player(i, "exists") then return invalid(p, typ) end
	msg2(p, Color(255, 100, 0), string.format("%s is located at (%s, %s)", player(i, "name"), math.ceil(player(i, "x")), math.ceil(player(i, "y"))))
end

function adm_gettile_admin(p, typ, cmd)
	local i = tonumber(cmd)
	if not i then i = p end
	if not player(i, "exists") then return invalid(p, typ) end
	msg2(p, Color(255, 100, 0), string.format("%s is located at (%s, %s)", player(i, "name"), player(i, "tilex"), player(i, "tiley")))
end

function adm_getid_admin(p, cmd)
     cmd = trim(cmd)
     local names = {}
     for i =1, 32, 1 do
          if player(i, "exists") then
               names[player(i, "name")] = i
          end
     end
     if names[cmd] then msg2(p, "Player "..cmd.." is at ID: "..names[cmd]) end
     return 2
end

addhook("say", "act_nextmap")
function act_nextmap(p, t)
	if split(t)[1] == "!nextmap" then
		msg(string.format("nextmap: %s", game("nextmap")))
	end
end

local timehud = 'hudtxt %s "%sTime: %s" 130 100 1'
local _time = 0
addhook("second", "changeTime")
function changeTime()
     parse(string.format(timehud, 1, "©255100000", _time))
     _time = _time + 1
end