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