function Worm_Died()

deadworm = GetData("DeadWorm.Id")

if deadworm == 0 or deadworm == 1 or deadworm == 2 or deadworm == 3 then
  kNumberOfRedTeam = kNumberOfRedTeam - 1
  
  if kNumberOfRedTeam == 0 then
  TeamIDName1 = lib_GetTeamName(0)
  TextToDisplay = {"Comment.TeamDeath.1","Comment.TeamDeath.2","Comment.TeamDeath.3","Comment.TeamDeath.4","Comment.TeamDeath.5","Comment.TeamDeath.6","Comment.TeamDeath.7","Comment.TeamDeath.8","Comment.TeamDeath.9","Comment.TeamDeath.10"}
  local myRandomInteger = lib_GetRandom(1, 10)
  TeamDead_Display = TextToDisplay[myRandomInteger]
  lib_SubString(TeamDead_Display, "Text.TestComment", "%s", TeamIDName1)
  lib_Comment("Text.TestComment")
  end
elseif deadworm == 4 or deadworm == 5 or deadworm == 6 or deadworm == 7 then
  kNumberOfBlueTeam = kNumberOfBlueTeam - 1
  
  if kNumberOfBlueTeam == 0 then
  TeamIDName2 = lib_GetTeamName(1)
  TextToDisplay = {"Comment.TeamDeath.1","Comment.TeamDeath.2","Comment.TeamDeath.3","Comment.TeamDeath.4","Comment.TeamDeath.5","Comment.TeamDeath.6","Comment.TeamDeath.7","Comment.TeamDeath.8","Comment.TeamDeath.9","Comment.TeamDeath.10"}
  local myRandomInteger = lib_GetRandom(1, 10)
  TeamDead_Display = TextToDisplay[myRandomInteger]
  lib_SubString(TeamDead_Display, "Text.TestComment", "%s", TeamIDName2)
  lib_Comment("Text.TestComment")
  end
elseif deadworm == 8 or deadworm == 9 or deadworm == 10 or deadworm == 11 then
  kNumberOfGreenTeam = kNumberOfGreenTeam - 1
  
  if kNumberOfGreenTeam == 0 then
  TeamIDName3 = lib_GetTeamName(2)
  TextToDisplay = {"Comment.TeamDeath.1","Comment.TeamDeath.2","Comment.TeamDeath.3","Comment.TeamDeath.4","Comment.TeamDeath.5","Comment.TeamDeath.6","Comment.TeamDeath.7","Comment.TeamDeath.8","Comment.TeamDeath.9","Comment.TeamDeath.10"}
  local myRandomInteger = lib_GetRandom(1, 10)
  TeamDead_Display = TextToDisplay[myRandomInteger]
  lib_SubString(TeamDead_Display, "Text.TestComment", "%s", TeamIDName3)
  lib_Comment("Text.TestComment")
  end
elseif deadworm == 12 or deadworm == 13 or deadworm == 14 or deadworm == 15 then
  kNumberOfYellowTeam = kNumberOfYellowTeam - 1
  
  if kNumberOfYellowTeam == 0 then
  TeamIDName4 = lib_GetTeamName(3)
  TextToDisplay = {"Comment.TeamDeath.1","Comment.TeamDeath.2","Comment.TeamDeath.3","Comment.TeamDeath.4","Comment.TeamDeath.5","Comment.TeamDeath.6","Comment.TeamDeath.7","Comment.TeamDeath.8","Comment.TeamDeath.9","Comment.TeamDeath.10"}
  local myRandomInteger = lib_GetRandom(1, 10)
  TeamDead_Display = TextToDisplay[myRandomInteger]
  lib_SubString(TeamDead_Display, "Text.TestComment", "%s", TeamIDName4)
  lib_Comment("Text.TestComment")
  end
end

function Initialise()
   StartedSuddenDeath = false
   
   SetupScheme()

   lib_SetupMultiplayerWormsAndTeams()
   SendMessage("WormManager.Reinitialise")

   lib_SetupMinesAndOildrums() -- do this after worms are set up to get correct worm collision

   local scheme = QueryContainer("GM.SchemeData")
   if scheme.RoundTime == 0 then
      StartSuddenDeath() -- do this after worms are set up to readjust health
      local GameOver = GetData("FCS.GameOver")
      -- do no further processing if sudden death drew the game
      if GameOver ~= 0 then
         return
      end
   end
   
   if scheme.MineFactoryOn == true then
      SendMessage("GameLogic.CreateRandMineFactory")
   end
   
   if scheme.TelepadsOn == true then
       SendMessage("GameLogic.PlaceTelepads")       
   end
   
   SetData("Camera.StartOfTurnCamera","Default")
   
   SetWormpotModes()
   
    kNumberOfRedTeam = 4
    kNumberOfBlueTeam = 4
        kNumberOfGreenTeam = 4
        kNumberOfYellowTeam = 4
   

   WaitingForStartFirstTurn = false
   StartFirstTurn()
--   Activity = GetData("ObjectCount.Active")
--   if Activity == 0 then
--  WaitingForStartFirstTurn = false
--        StartFirstTurn()
--    else
--  WaitingForStartFirstTurn = true
--    end
end

function LowTime()

local LowRoundTime = GetData("RoundTimeRemaining")

if LowRoundTime > 0 and LowRoundTime < 180000 then
TextToDisplay = {"Comment.LowTime.1","Comment.LowTime.2","Comment.LowTime.3","Comment.LowTime.4","Comment.LowTime.5","Comment.LowTime.6"}
local myRandomInteger = lib_GetRandom(1, 6)
lib_Comment(TextToDisplay[myRandomInteger])
end
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
   LowTime()
   RunAILogic()
end