share/hedgewars/Data/Missions/Challenge/ClimbHome.lua
changeset 11968 1de4d6b35748
parent 11889 c8979eeb73fa
child 12586 7510fe66bfbb
equal deleted inserted replaced
11967:7dd85fe00de3 11968:1de4d6b35748
       
     1 HedgewarsScriptLoad("/Scripts/Locale.lua")
       
     2 
       
     3 isSinglePlayer = true
       
     4 
       
     5 -- trying to allow random theme, but fixed theme objects...
       
     6 -- Also skip some ugly themes, or ones where the sky is "meh"
       
     7 --local themes = { "Art","Cake","City","EarthRise","Halloween","Olympics","Underwater","Bamboo","Castle","Compost","Eyes","Hell","Planes","Bath","Cave","CrazyMission","Freeway","Island","Sheep","Blox","Cheese","Deepspace","Fruit","Jungle","Snow","Brick","Christmas","Desert","Golf","Nature","Stage" }
       
     8 local themes = {"Christmas","Hell","Bamboo","City","Island","Bath","Compost","Jungle","Desert","Nature","Olympics","Brick","EarthRise","Sheep","Cake","Freeway","Snow","Castle","Fruit","Stage","Cave","Golf","Cheese","Halloween"}
       
     9 local totalHedgehogs = 0
       
    10 local HH = {}
       
    11 local teams = {}
       
    12 local dummyHog = nil
       
    13 
       
    14 
       
    15 function onGameInit()
       
    16     -- Ensure people get same map for same theme
       
    17     Theme = themes[GetRandom(#themes)+1]
       
    18     Seed = ClimbHome
       
    19     TurnTime = 999999999
       
    20     EnableGameFlags(gfOneClanMode)
       
    21     DisableGameFlags(gfBottomBorder+gfBorder)
       
    22     CaseFreq = 0
       
    23     Explosives = 0
       
    24     MineDudPercent = 0
       
    25     Map = "ClimbHome"
       
    26     AddTeam(loc("Lonely Hog"), 0xDD0000, "Simple", "Island", "Default")
       
    27     player = AddHog(loc("Climber"), 0, 1, "NoHat")
       
    28     if showWaterStats then
       
    29         dummyHog = AddHog(" ", 0, 1, "NoHat")
       
    30         HH[dummyHog] = nil
       
    31         totalHedgehogs = totalHedgehogs - 1
       
    32         SendStat(siClanHealth, tostring(32640), " ")
       
    33     end
       
    34 end