Tweak Default Messages in Worms 4

https://www.youtube.com/v/n6-uNHj5Plc
https://www.youtube.com/v/jxF9kSmPLw0

Fixed:
Low Time - 0-3 minutes left round time.
Team Death - Team is out of all dead worms.

SendIntMessage("GameLogic.Win",0) -- blanked message team name
SendMessage("GameLogic.Draw") -- blanked message
SendMessage("Weapon.Selected") -- default weapon
SendMessage("Weapon.FuseBounceChanged") -- default weapon
SendIntMessage("Worm.ApplyLightside",0) -- missing languages worm name
SendMessage("Commentary.Clear") -- clear all messages
SendMessage("Commentary.NoDefault") -- commentary default disabled
SendMessage("Commentary.EnableDefault") -- commentary default enabled
SendMessage("CommentaryPanel.TimedText") -- commentary time on text
SendIntMessage("Comment.NewWeaponAvail",0) -- team name
SendMessage("Comment.WeaponCrateSpawn") -- myself worm death no message crate drop
SendMessage("Comment.MysteryCrateSpawn") -- myself worm death no message crate drop
SendMessage("Comment.UtilityCrateSpawn") -- myself worm death no message crate drop
SendMessage("Comment.HealthCrateSpawn") -- myself worm death no message crate drop
SendMessage("GameLogic.Turn.Started") -- default worm name on started turn
SendIntMessage("Worm.LandDeath",0) -- worm name, missing team out (team name)
SendIntMessage("Worm.WaterDeath",0) -- worm name, missing team out (team name)
SendMessage("Comment.SuddenDeath") -- used big message sudden death enabled
SendMessage("GameLogic.ActivateSuddenDeath") -- unused messages
SendIntMessage("Comment.Poison",0) -- worm name
SendMessage("Comment.Radiation") -- unused messages
SendMessage("GameLogic.Turn.Ended") -- default worm name on worm killed
SendIntMessage("Weapon.ApplyScalesOfJustice",0) -- missing languages worm name
SendMessage("Comment.BaseballBat") -- unused messages
SendMessage("Comment.Taunt") -- launched skip go
SendIntMessage("Comment.TeamDeath",0) -- nothing??

https://www.youtube.com/watch?v=2Rsu2FyhR8o
https://www.youtube.com/watch?v=EGFwmgvShTQ


Big message "Nagła śmierć!" renamed uppercase letters "NAGŁA ŚMIERĆ!", alternate big message "NAGŁA ŚMIERĆ! RATUJ SIĘ, KTO" second message "MOŻE!", bad randoms!

Started turn hack deaths at team-out message first "WaterDeath", second "TeamDeath" worm is gone!

Code:

name = lib_GetTeamName(0)
TextToDisplay = {"Comment.TeamWin.1","Comment.TeamWin.2",
                 "Comment.TeamWin.3","Comment.TeamWin.4",
                 "Comment.TeamWin.5"}
local myRandomInteger = lib_GetRandom(1, 5)

lib_SubString(TextToDisplay[myRandomInteger],
              TextToDisplay[myRandomInteger], "%s", name)
lib_Comment(TextToDisplay[myRandomInteger])



name = lib_GetWormName(0)
lib_SubString("Text.Worm.Death3","Text.Worm.Death3", "%s", name)
lib_Comment("Text.Worm.Death3")

Watch sub string
Watch coding

Message weapon worship [Lightside] (Worms Reloaded):

Code:

SetData("Text.TestComment","%s believe in the Lightside!")
name = lib_GetTeamName(0)
lib_SubString("Text.TestComment","Text.TestComment","%s",name)
lib_Comment("Text.TestComment")

Message weapon maked for death (Worms Reloaded):

Code:

SetData("Text.TestComment","%s has been marked for death!")
name = lib_GetWormName(0)
lib_SubString("Text.TestComment","Text.TestComment","%s",name)
lib_Comment("Text.TestComment")

Message team death (team is gone):

Code:

local Comment = {"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 MyRand = lib_GetRandom(1, 10)
name = lib_GetTeamName(0)
lib_SubString(Comment[MyRand],Comment[MyRand],"%s",name)
lib_Comment(Comment[MyRand])
--SendIntMessage("Comment.TeamDeath",0) -- nothing???

Message low times (0-3 minutes):

Code:

local Comment = {"Comment.LowTime.1","Comment.LowTime.2",
                 "Comment.LowTime.3","Comment.LowTime.4",
                 "Comment.LowTime.5","Comment.LowTime.6"}
local MyRand = lib_GetRandom(1, 6)
lib_Comment(Comment[MyRand])

Message game won:

Code:

local Comment = {"Comment.TeamWin.1","Comment.TeamWin.2",
                 "Comment.TeamWin.3","Comment.TeamWin.4",
                 "Comment.TeamWin.5"}
local MyRand = lib_GetRandom(1, 5)
name = lib_GetTeamName(0)
lib_SubString(Comment[MyRand],Comment[MyRand],"%s",name)
lib_Comment(Comment[MyRand])
--SendIntMessage("GameLogic.Win",0)

Message game drawn:

Code:

local Comment = {"Comment.Draw.1","Comment.Draw.3",
                 "Comment.Draw.4","Comment.Draw.5",
                 "Comment.Draw.7","Comment.Draw.8",
                 "Comment.Draw.9","Comment.Draw.10"}
local MyRand = lib_GetRandom(1,
lib_Comment(Comment[MyRand])
--SendMessage("GameLogic.Draw")

Message network have left the games:

Code:

SetData("Text.TestComment","NAME has left the game.")
name = lib_GetTeamName(0)
lib_SubString("Text.TestComment","Text.TestComment","NAME",name)
lib_Comment("Text.TestComment")
--lib_SubString("Comment.Net.PlayerLeft",
--              "Comment.Net.PlayerLeft","NAME",name)
--lib_Comment("Comment.Net.PlayerLeft")

Message challenge failure:

Code:

local Comment = {"Chall.Generic.Lose1","Chall.Generic.Lose2",
                 "Chall.Generic.Lose3","Chall.Generic.Lose4",
                 "Chall.Generic.Lose5"}
local MyRand = lib_GetRandom(1, 5)
lib_Comment(Comment[MyRand])

Message challenge complete:

Code:

local Comment = {"Chall.Generic.Win1","Chall.Generic.Win2",
                 "Chall.Generic.Win3","Chall.Generic.Win4",
                 "Chall.Generic.Win5"}
local MyRand = lib_GetRandom(1, 5)
lib_Comment(Comment[MyRand])

Message mission failure:

Code:

lib_DisplayFailureComment()

Message sudden death:

Code:

lib_DisplaySuddenDeathComment()

Message mission complete:

Code:

lib_DisplaySuccessComment()

Turn started added message in round time 0-3 mins:

Code:

function LowTime()
  RoundTimeRemaining = GetData("RoundTimeRemaining")
  if RoundTimeRemaining < 180000 and RoundTimeRemaining > 0 then
    LowTimeComments()
  end
end

function LowTimeComments()
    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