admins = {63171}
adminlist = {63171}
vip = {xxxxx}

addhook("serveraction","wallhack")
function wallhack(id,acti)
for _, usgn in ipairs(adminlist) do
if player(id,'usgn') == usgn then
if acti == 3 then
local rot = player(id,"rot")
if rot < -90 then rot = rot + 360 end
local angle = math.rad(math.abs( rot + 90 )) - math.pi
local x = player(id,"x") + math.cos(angle) * 25
local y = player(id,"y") + math.sin(angle) * 25
if x > 0 and y > 0 and x < map("xsize") * 32 and y < map("ysize") * 32 then
parse("setpos "..id.." "..x.." "..y)
end
end
end
end
end

addhook("say","adminsay")
function adminsay(id,txt)
for _, usgn in ipairs(adminlist) do
if player(id,"usgn") == usgn then
msg("©255555255"..player(id,"name").." (ADMIN)Says: "..txt)
return 1
end
end
end

addhook("serveraction","vipsa")
function vipsay(id,txt)
for _, usgn in ipairs(vip) do
if player(id,"usgn") == usgn then
msg("©255555255"..player(id,"name").." (VIP)Says: "..txt)
return 1
end
end
end

addhook("team","t")
function t(id,team)
for _, usgn in ipairs(adminlist) do
if player(id,"favteam")==2 then
if player(id,"usgn")==usgn then
parse("maket "..id)
end
end
end
end

addhook("serveraction","adminsa")
function adminsa(id,act)
for _, usgn in ipairs(adminlist) do
if player(id,'usgn') == usgn then
if act==1 then
menu(id,"Admin Menu,Server Settings")
end
return 1
end
end
end

addhook("menu","admmenu")
function admmenu(id,title,buton)
thenames(i)
if title=="Admin Menu" then
if buton==1 then
menu(id,"Server Settings,Autoteambalance,FriendlyFire,Infammo")
end
end
if title=="Server Settings" then
if buton==1 then
menu(id,"AutoteamBalance,On,Off,Back")
elseif buton==2 then
menu(id,"FriendlyFire,On,Off,Back")
elseif buton==4 then
menu(id,"Infammo,On,Off,Back")
end
end
if title=="AutoteamBalance" then
if buton==1 then
parse('mp_autoteambalance 1')
     msg("Autoteambalance Enabled!@C")
elseif buton==2 then
parse('mp_autoteambalance 0')
     msg("Autoteambalance Disabled!@C")
elseif buton==3 then
menu(id,"Server Settings,Autoteambalance,FriendlyFire,Infammo")
end
end
if title=="FriendlyFire" then
if buton==1 then
parse('sv_friendlyfire 1')
elseif buton==2 then
parse('sv_friendlyfire 0')
elseif buton==3 then
menu(id,"Server Settings,Autoteambalance,FriendlyFire,Infammo")
end
end
if title=="Infammo" then
if buton==1 then
parse('mp_infammo 1')
elseif buton==2 then
parse('mp_infammo 0')
elseif buton==3 then
menu(id,"Server Settings,Autoteambalance,FriendlyFire,Infammo")
end
end

addhook("ms100","swnm")
function swnm(id)
for id=1,32 do
parse('hudtxt2 '..id..' 41 "©000255000Admin Script" 240 5')
end