local hogs = {}
local spawncrate = 0

function mapM_(func, tbl)
    for i,v in pairs(tbl) do
        func(v)
    end 
end

function map(func, tbl)
    local newtbl = {}
    for i,v in pairs(tbl) do
        newtbl[i] = func(v)
    end 
    return newtbl
end

function filter(func, tbl)
    local newtbl = {}
    for i,v in pairs(tbl) do
        if func(v) then
            table.insert(newtbl, v)
        end
    end
    return newtbl
end

function onGameInit()
    GameFlags = gfSolidLand + gfDivideTeams
    TurnTime = 10000
    CaseFreq = 0 
    MinesNum = 0 
    Explosives = 0 
    Delay = 500 
    SuddenDeathTurns = 99999 -- "disable" sudden death
    Theme = Compost
end

function onGameStart()
    local offset = 50
    local team1hh = filter(function(h) return GetHogClan(h) == 0 end, hogs)
    local team2hh = filter(function(h) return GetHogClan(h) == 1 end, hogs)

    for i,h in ipairs(team1hh) do
        SetGearPosition(h, 250+(i-1)*offset, 1000)
    end
    for i,h in ipairs(team2hh) do
        SetGearPosition(h, 3500-(i-1)*offset, 1000)
    end

    SpawnHealthCrate(1800, 1150)
end

function onAmmoStoreInit()
    SetAmmo(amRCPlane, 9, 0, 0, 0)
    SetAmmo(amSkip, 9, 0, 0, 0)
end

function onGearAdd(gear)
    if GetGearType(gear) == gtRCPlane then
        SetTimer(gear,60000)
    end 
    if GetGearType(gear) == gtHedgehog then
        table.insert(hogs, gear)
    end 
end

function onGameTick()
    if (TurnTimeLeft == 9999 and spawncrate == 1) then
        SpawnHealthCrate(1800, 1150)
        spawncrate = 0
    end
end

function onGearDelete(gear)
    if GetGearType(gear) == gtCase then
        spawncrate = 1
    end
end