Worms Forts Under Siege\data\frontend\Local.xom

XResourceDetails::XContainerResourceDetails [241] "FE.Level.Attract1"
LevelDetails [1387]
LevelName = FE.B.Name.G.Mission3
ScriptName = G3multi
LevelType = 4
Brief =
Image = SS.Greek3
LevelNumber = 47
Lock =
LongestWins = False
AIPathNodeStartYOffset = 0.00
AIPathNodeCollisionStep = 20.00
80

0-Medieval
1-Oriental
2-Egypt
3-Greek

0-Medieval(Day)
1-Medieval(Evening)
2-Medieval(Night)
3-Greek(Evening)
4-Greek(Day)
5-Greek(Night)
6-Oriental(Day)
7-Oriental(Evening)
8-Oriental(Night)
9-Egypt(Day)
10-Egypt(Evening)
11-Egypt(Night)
12-Coliseum of Doom Sky (day)
13-Unused Red Sky,Water Sky (evening)
14-Mordred And Morgana (Hell)
15-A Quest (Day)
16-Pahraoh enough! Sky (day)
17-The Kingdom is Born (Night)
18-Tower of Power Sky (evening)
19-Chess Mate Sky (evening)

WormName,0,1,2,3

function splithat(name)    
    local result = {"name","0","0","0","0"}
    local delimiter = ","
    local from = 1
    local ind = 1
    local delim_from, delim_to = string.find( name, delimiter, from )
    if delim_from ~= nil then
   while delim_from do
    result[ind] = string.sub( name, from , delim_from-1 )   
    from = delim_to + 1
    ind = ind + 1
    delim_from, delim_to = string.find( name, delimiter, from )
   end
   result[ind] = string.sub( name, from )   
    end
    return result
end

function SetHat(PlayerIndex,hatindex,index)
   WFHats = {   
     "Hat.Medieval1","Hat.Medieval2","Hat.Medieval3","Hat.Medieval4",
     "Hat.Egyptian1","Hat.Egyptian2","Hat.Egyptian3","Hat.Egyptian4",
     "Hat.Roman1","Hat.Roman2","Hat.Roman3","Hat.Roman4",
     "Hat.Oriental1","Hat.Oriental2","Hat.Oriental3","Hat.Oriental4",
     "Hat.Witch","Hat.Wizard","Hat.Guinevere","Hat.Helen" }
      local Worm = GetWormData(PlayerIndex,index)   
   Worm.HatOverride = WFHats[tonumber(hatindex)+1]
end

function SetDifficulty()

      local Worm
   local hats
   local indexplayer = 0
   local player = GetPlayerData(indexplayer)
   while player.PlayerIndex ~= -1 do      
    Worm = GetWormData(player.PlayerIndex,3)    
    if string.find(Worm.Name,",") ~= nil then
     hats = splithat(Worm.Name)
     Worm.Name = hats[1]
     SetHat(player.PlayerIndex,hats[2],0)
     SetHat(player.PlayerIndex,hats[3],1)
     SetHat(player.PlayerIndex,hats[4],2)
     SetHat(player.PlayerIndex,hats[5],3)
    end
    indexplayer = indexplayer+1
       player = GetPlayerData(indexplayer)
   end
end

function InitialiseLevel()
        LoadLevel("landscapes/MP/DM03.xom",true)   
end