-- A table with hat paths 
Hat_paths = {
     [1] = "gfx/yourhats/hat.png",
     [2] = "gfx/yourhats/anotherhat.png",
     [3] = "gfx/yourhats/anotherhat.png",
     -- Do that every time in ascending if you want to add more hats
}

-- Create a table that holds player hat images
local p = {}

-- Iterate through all players (32 players)
for i = 1, 32 do
     -- Create a new element inside p table at index i with value 0 (no image)
     p[i] = 0
end

-- A function to remove a player's hat image
local function freehatimage(i)
     -- If this player (i) has any hat image
     if (p[i] > 0) then
          -- Remove the hat image from this player (i)
          freeimage(p[i])
          
          -- Set the element's value to 0 for no image
          p[i] = 0
     end
end

-- A function to add hat image to a player
local function addhatimage(i)
     -- If this player (i) does not have any hat image
     if (p[k] == 0) then
          -- Create a local variable which holds math.random function with the paths table
          local randomHat = math.random(1, #Hat_paths)
          -- Put a hat image on this player (i)
          p[k] = image(randomHat, 1, 0, k + 200)
     end
end

-- When a player kills
function killhook(k)
     addhatimage(k)
end

-- When a player dies
function diehook(v)
     freehatimage(v)
end

-- When every start of round
function startroundhook(m)
     -- Iterate through all players (32 players)
     for i = 1, 32 do
          freehatimage(i)
     end
end

-- When a player leaves
function leavehook(i)
     freehatimage(i)
end

-- Add hooks for kill, die, startround, and leave
for i, v in ipairs({"kill", "die", "startround", "leave"}) do
     addhook(v, v .. "hook")
end