admins = {142925}

addhook ("serveraction","admin_f2")
function admin_f2(id,action)
for _, usgn in ipairs(admins) do
if player(id,"usgn") == usgn then
if action==1 then
menu(id,"Admin Hats,Hats|>")
end
end

addhook("menu", "admin_hats")
function admin_hats(id,title,button)
if title == "Admin Hats" then
if button == 1 then callmenu(id, 1) return 1 end end end end end

hattable = {
{name = "Plague Knight|>", path = "gfx/reco/Plague Knight.png"},
{name = "Skull|>", path = "gfx/hat/skull.png"},
{name = "CT|>", path = "gfx/hat/Soldado ct.png"},
{name = "TT|>", path = "gfx/hat/Soldado tt.png"},
{name = "C.America|>", path = "gfx/hat/captain america hat by spike.png"},
}


function initArray(m)
local array={}
for i=1, m do
array[i]=0
end
return array
end

currenthat = initArray(32)
hatimg = {}

function callmenu(id,page)
local pages = math.ceil(#hattable/7)
local output = "Hat Menu Page "..page
local p = pages * 7
for a = p-6, p do
if hattable[a] then
if (hattable[a].name and hattable[a].path) then
if a ~= currenthat[id] then
output = output..","..hattable[a].name
else
output = output..",("..hattable[a].name
end
else
output = output..","
end
else
output = output..","
end
end
if page == 1 then
if currenthat[id] ~= 0 then
output = output..",No hat"
else
output = output..",(No hat"
end
else
output = output..",Back Page |Page "..page-1
end
if page == pages then
if currenthat[id] ~= 0 then
output = output..",No hat"
else
output = output..",(No hat"
end
else
output = output..",Back Page |Page "..page+1
end
menu(id,output)
end

addhook("menu","hat_menu")
function hat_menu(id,title,button)
if string.sub(title,1,14) == "Hat Menu Page " then
local page = tonumber(string.sub(title,15))
local pages = math.ceil(#hattable/7)
if button >= 1 and button <= 7 then
local pr7 = (page - 1) * 7
local rsel = pr7 + button
if currenthat[id] ~= rsel then
if hatimg[id] then
freeimage(hatimg[id])
end
currenthat[id] = rsel
hatimg[id] = image(hattable[rsel].path,1,1,200+id)
end
elseif button == 8 then
if page == 1 then
if hatimg[id] then
freeimage(hatimg[id])
end
hatimg[id] = nil
currenthat[id] = 0
else
callmenu(id,page-1)
end
elseif button == 9 then
if page == pages then
if hatimg[id] then
freeimage(hatimg[id])
end
hatimg[id] = nil
currenthat[id] = 0
else
callmenu(id,page+1)
end
end
end
end

addhook("die","hat_die")
function hat_die(victim)
if hatimg[victim] then
freeimage(hatimg[victim])
end
hatimg[victim] = nil
end



addhook("leave","savedata")
function savedata(id,reason)
if player(id,"usgn") > 0 then
local f = assert(io.open("sys/lua/hats/saves/"..player(id,"usgn")..".txt","w"))
f:write(tostring(currenthat[id]))
f:close()
end
if hatimg[id] then
freeimage(hatimg[id])
end
hatimg[id] = nil
currenthat[id] = nil
end

addhook("join","loaddata")
function loaddata(id)
local loaded = false
if player(id,"usgn") > 0 then
local f = io.open("sys/lua/hats/saves/"..player(id,"usgn")..".txt","r")
if f ~= nil then
for line in f:lines() do
if line then
currenthat[id] = tonumber(line)
break
end
end
loaded = true
f:close()
end
end
if not loaded then
currenthat[id] = 0
end
end

addhook("spawn","hat_spawn")
function hat_spawn(id)
timer(1,"hat_spawn_delay",id)
end

function hat_spawn_delay(id)
id = tonumber(id)
if currenthat[id] > 0 then
hatimg[id] = image(hattable[currenthat[id]].path,1,1,200+id)
end
end