share/hedgewars/Data/Maps/FlightJoust/map.lua
changeset 3726 5909c3c19bb1
child 3730 aecea9aa53dc
equal deleted inserted replaced
3725:5870a7d2b5c9 3726:5909c3c19bb1
       
     1 local hogs = {}
       
     2 
       
     3 function mapM_(func, tbl)
       
     4     for i,v in pairs(tbl) do
       
     5         func(v)
       
     6     end 
       
     7 end
       
     8 
       
     9 function map(func, tbl)
       
    10     local newtbl = {}
       
    11     for i,v in pairs(tbl) do
       
    12         newtbl[i] = func(v)
       
    13     end 
       
    14     return newtbl
       
    15 end
       
    16 
       
    17 function onGameInit()
       
    18     GameFlags = gfSolidLand + gfDivideTeams
       
    19     TurnTime = 10000
       
    20     CaseFreq = 0 
       
    21     LandAdds = 0 
       
    22     Explosives = 0 
       
    23     Delay = 500 
       
    24     SuddenDeathTurns = 99999 -- "disable" sudden death
       
    25     Theme = Compost
       
    26 end
       
    27 
       
    28 function setHogPositions(gear)
       
    29     if GetHogClan(gear) == 0 then
       
    30         SetGearPosition(gear, 250, 1000)
       
    31     end 
       
    32     if GetHogClan(gear) == 1 then
       
    33         SetGearPosition(gear, 3500, 1000)
       
    34     end 
       
    35 end
       
    36 
       
    37 function onGameStart()
       
    38     mapM_(setHogPositions, hogs)
       
    39 end
       
    40 
       
    41 function onAmmoStoreInit()
       
    42     SetAmmo(amRCPlane, 9, 0, 0, 0)
       
    43     SetAmmo(amSkip, 9, 0, 0, 0)
       
    44 end
       
    45 
       
    46 function onGearAdd(gear)
       
    47     if GetGearType(gear) == gtRCPlane then
       
    48         SetTimer(gear,60000)
       
    49     end 
       
    50     if GetGearType(gear) == gtHedgehog then
       
    51         table.insert(hogs, gear)
       
    52     end 
       
    53 end