stdvs,wormpot,myscript.lua

Deathmatch4.lua:41:    PlayIntroMovie()
Deathmatch4.lua:48:    EFMV_Terminated()
Deathmatch4.lua:53:    DoOncePerTurnFunctions()
Deathmatch4.lua:5 8:    TurnEnded()
Deathmatch4.lua:62:    DoOncePerTurnFunctions()

function RunAILogic()
  -- ovverride this function to now have AI.
  SendMessage("AI.PerformDefaultAITurn");
  -- actually called to start the AI turn.
  SendMessage("AI.ExecuteActions");
end

function lib_GetRandom(min, max)
    SendMessage("RandomNumber.Get")
    local RawRand = GetData("RandomNumber.Uint")
    local MyRand = min + math.mod(RawRand, max+1-min)
    return MyRand
end

function lib_SetupMultiplayerTeam(TeamName, NumWorms, Worm1Name, Worm2Name, Worm3Name, Worm4Name, Worm5Name, Worm6Name,
                    Skill, Grave, Flag, Speech, IsLocal, AlliedGroup, Handicap,
                    HatAttachment, GlassesAttachment, TashAttachment, GlovesAttachment,vWormSpawnIndex)

    local lock, team
    local WormSpawnIndexA
    WormSpawnIndexA=vWormSpawnIndex
    lock, team = EditContainer(lib_GetTeamContainerName(TeamIndex))  
    team.Active = true
    team.Name = TeamName
    team.TeamColour = 0
    team.Skill = Skill
    team.GraveIndex = Grave
    team.FlagGfxName = Flag
    team.AlliedGroup = AlliedGroup
    team.IsLocal = IsLocal
    team.ATT_Hat = HatAttachment
    team.ATT_Glasses = GlassesAttachment
    team.ATT_Tash = TashAttachment
    team.ATT_Gloves = GlovesAttachment
    if Skill>0 then
       team.IsAIControlled = true
    else
       team.IsAIControlled = false
    end

function lib_SetupCrate(DataId)
    local CrateContainerData = QueryContainer(DataId)
    SendMessage("GameLogic.ResetCrateParameters")
    SetData("Crate.Type", CrateContainerData.Type)
    SetData("Crate.Contents", CrateContainerData.Contents)
    SetData("Crate.NumContents", CrateContainerData.NumContents)
    SetData("Crate.Index", CrateContainerData.Index)
    SetData("Crate.LifetimeSec", CrateContainerData.LifetimeSec)
    SetData("Crate.GroundSnap", CrateContainerData.GroundSnap)
    SetData("Crate.Parachute", CrateContainerData.Parachute)
    SetData("Crate.Spawn", CrateContainerData.Spawn)
    SetData("Crate.FallSpeed", CrateContainerData.FallSpeed)
    SetData("Crate.Gravity", CrateContainerData.Gravity)
    SetData("Crate.TeamDestructible", CrateContainerData.TeamDestructible)
    SetData("Crate.TeamCollectable", CrateContainerData.TeamCollectable)
    SetData("Crate.UXB", CrateContainerData.UXB)
    SetData("Crate.Hitpoints", CrateContainerData.Hitpoints)
    SetData("Crate.Pushable", CrateContainerData.Pushable)
    SetData("Crate.RandomSpawnPos", CrateContainerData.RandomSpawnPos)
    SetData("Crate.CanDropFromChute", CrateContainerData.CanDropFromChute)
    SetData("Crate.WaitTillLanded", CrateContainerData.WaitTillLanded)
    SetData("Crate.TrackCam", CrateContainerData.TrackCam)
    SetData("Crate.Scale", CrateContainerData.Scale)
    SetData("Crate.AddToWormInventory", CrateContainerData.AddToWormInventory)
    SetData("Crate.CustomGraphic", CrateContainerData.CustomGraphic)
end

     <XIntResourceDetails id='Crate.AddToWormInventory'>
       <Value>0</Value>
       <Name>Crate.AddToWormInventory</Name>
       <Flags>64</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.CanDropFromChute'>
       <Value>1</Value>
       <Name>Crate.CanDropFromChute</Name>
       <Flags>96</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.DelayMillisec'>
       <Value>0</Value>
       <Name>Crate.DelayMillisec</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.Gravity'>
       <Value>1</Value>
       <Name>Crate.Gravity</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.GroundSnap'>
       <Value>0</Value>
       <Name>Crate.GroundSnap</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.HealthInCrates'>
       <Value>25</Value>
       <Name>Crate.HealthInCrates</Name>
       <Flags>96</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.Hitpoints'>
       <Value>25</Value>
       <Name>Crate.Hitpoints</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.Index'>
       <Value>-1</Value>
       <Name>Crate.Index</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.LifetimeTurns'>
       <Value>-1</Value>
       <Name>Crate.LifetimeTurns</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.NumContents'>
       <Value>1</Value>
       <Name>Crate.NumContents</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.Parachute'>
       <Value>1</Value>
       <Name>Crate.Parachute</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.Pushable'>
       <Value>1</Value>
       <Name>Crate.Pushable</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.RandomSpawnPos'>
       <Value>0</Value>
       <Name>Crate.RandomSpawnPos</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.Showered'>
       <Value>0</Value>
       <Name>Crate.Showered</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.TeamCollectable'>
       <Value>-1</Value>
       <Name>Crate.TeamCollectable</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.TeamDestructible'>
       <Value>-1</Value>
       <Name>Crate.TeamDestructible</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.TrackCam'>
       <Value>1</Value>
       <Name>Crate.TrackCam</Name>
       <Flags>96</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.UXB'>
       <Value>0</Value>
       <Name>Crate.UXB</Name>
       <Flags>98</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='Crate.WaitTillLanded'>
       <Value>1</Value>
       <Name>Crate.WaitTillLanded</Name>
       <Flags>96</Flags>
     </XIntResourceDetails>

   <XIntResourceDetails id='User.Changed'>
       <Value>0</Value>
       <Name>User.Changed</Name>
       <Flags>96</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='User.NameCheck'>
       <Value>0</Value>
       <Name>User.NameCheck</Name>
       <Flags>96</Flags>
     </XIntResourceDetails>
     <XIntResourceDetails id='User.Room'>
       <Value>0</Value>
       <Name>User.Room</Name>
       <Flags>96</Flags>
     </XIntResourceDetails>

    lock, team = EditContainer("Team.Data00")  
     team.Active = true
     team.Name = "The Lightsiders"
     team.TeamColour = 0
     team.ATT_Glasses = "WXFE.A.Glasses.Pirate"
     team.ATT_Hat = "WXFE.A.Hat.Pirate"
     --team.ATT_Gloves = "WXFE.A.Gloves.Pirate"
     CloseContainer(lock)

-- Called at the start of a game
function StartFirstTurn()
    WaitUntilNoActivity = false
    SendMessage("Timer.StartGame")
    StartTurn()
end

function StartTurn()
    done_once_per_turn_functions = false
    SendMessage("GameLogic.ActivateNextWorm")
    -- do this after activating the worm so his details appear in the HUD
    SendMessage("Timer.StartHotSeatTimer")  
    --SendMessage("Weapon.Create")
    SetWind()
    --TurnStarted()
    SendMessage("GameLogic.Turn.Started")  
    TurnStarted() -- moved here so TeleportIn camera can override startofturn camera
    RunAILogic()
end

function RunAILogic()
  -- ovverride this function to now have AI.
  SendMessage("AI.PerformDefaultAITurn");
  -- actually called to start the AI turn.
  SendMessage("AI.ExecuteActions");
end

function Timer_HotSeatTimedOut()
    SendMessage("Timer.StartTurn")
end

function GameLogic_EndTurn_Immediate()
    -- this called by surrender and skip go  
    -- do all the work here as EndTurn() by itself would be illegal
    SendMessage("Weapon.Delete")
    SendMessage("Utility.Delete")
    SendMessage("Timer.EndTurn")  
    SendMessage("Weapon.DisableWeaponChange")
    EndTurn()
end

function Timer_RetreatTimedOut()
    EndTurn()
end

-- The worm whose turn it is has been damaged
function Worm_Damaged_Current()
    SendMessage("Weapon.Delete")
    SendMessage("Utility.Delete")
    SendMessage("Timer.EndRetreatTimer")
    SendMessage("Timer.EndTurn")   
    SendMessage("Weapon.DisableWeaponChange")
    EndTurn()
end

function Timer_TurnTimedOut()
    SendMessage("Weapon.Delete")
    SendMessage("Utility.Delete")
    SendMessage("Weapon.DisableWeaponChange")
    EndTurn()
end

-- Everything has come stopped moving
function Timer_PostActivityTimedOut()
    SendMessage("GameLogic.AboutToApplyDamage")
    SendMessage("GameLogic.ApplyDamage")
    CheckActivity()
end
     

function CheckActivity()
    Activity = GetData("ObjectCount.Active")
    if Activity == 0 then
       DoPostActivity()
    else
       WaitUntilNoActivity = true
    end
end

function DoPostActivity()
    if done_once_per_turn_functions == true then
       SendMessage("GameLogic.Turn.Ended")  
       TurnEnded()
    else  
       -- Done only once
       SendMessage("Net.DisableAllInput")
       SendMessage("Worm.ApplyPoison")
       SendMessage("GameLogic.AboutToApplyDamage")
       SendMessage("GameLogic.ApplyDamage")
       SetData("DoubleDamage", 0)
       DoOncePerTurnFunctions()
       done_once_per_turn_functions = true
       local GameOver = GetData("FCS.GameOver")
       -- do no further processing if sudden death drew the game
       if GameOver == 0 then
          CheckActivity() -- in case an earthquake or similar was just started
       end
    end
end

-- override this
function TurnStarted()
end

-- override this
function TurnEnded()
    CheckOneTeamVictory()       
end

-- decides if the game has been won or drawn at the end of every turn
-- Note do this last in the TurnEnded function as it finishes with the StartTurn Message
function CheckOneTeamVictory()
    -- Changed to use alliances rather than teams so 2 teams vs 1 can end correctly
    SendMessage("WormManager.GetActiveAlliances")
    AllianceCount = GetData("AllianceCount")
    if AllianceCount == 0 then
       RoundOver()
       -- all the teams have just snuffed it
       SendMessage("GameLogic.Draw")
    elseif AllianceCount == 1 then
       RoundOver()
       -- only one team remains
       -- PC: changed this call to catch naughty use of GetActiveTeamIndex usage. Use the new  
       -- call to get the last team with a worm thats alive on it.
       SendMessage("WormManager.GetSurvivingTeam")
       WinningTeam = GetData("SurvivingTeamIndex")
       SendIntMessage("GameLogic.Win", WinningTeam)
    else
       StartTurn()
    end
     
end

function EndTurn()
    -- note: could this happen multiple times per turn (eg from WormDamagedCurrent)?
    -- if so does it matter?

    -- Poisoning now moved to DoPostActivity

    SendMessage("GameLogic.EndTurn")
    
    Activity = GetData("ObjectCount.Active")
    if Activity == 0 then
       SendMessage("Timer.StartPostActivity") -- pause
    else
       WaitUntilNoActivity = true
    end
end

-- If there was some activity its finished now
function GameLogic_NoActivity()
    if WaitUntilNoActivity == true then
       -- reset WaitUntilNoActivity before calling message below because zero time might
       -- cause it to call back immediately and set it true again
       WaitUntilNoActivity = false
       SendMessage("Timer.StartPostActivity")
    end
end

function SetWind()
    SelectRandomWind()
end

function SelectRandomWind()
    -- First the speed
    SendMessage("RandomNumber.Get")
    RandomNumber = GetData("RandomNumber.Float")
    MaxWind = GetData("Wind.MaxSpeed")
    WindCap = GetData("Wind.Cap")/10 -- Scheme can set the maximum value 1-10 as appears in HUD
    SetData("Wind.Speed", WindCap*RandomNumber*RandomNumber*MaxWind) -- now squared to make high winds less common

    -- Now a direction
    SendMessage("RandomNumber.Get")
    RandomNumber = GetData("RandomNumber.Float")
    Direction = RandomNumber * 2 * 3.14
    SetData("Wind.Direction", Direction)    
end

function DoOncePerTurnFunctions()
end

function RoundOver()
end

function SetWormpotModes()
end

function Weapon_Fired_Start()
   SetData("Text.TestComment", "FIRE!")  
   SetData("CommentaryPanel.Comment", "Text.TestComment")
   SendMessage("CommentaryPanel.ScriptText")
    SendMessage("Timer.EndTurn")  
    SendMessage("Weapon.DisableWeaponChange")
end