share/hedgewars/Data/Scripts/Multiplayer/Mutant.lua
author Wuzzy <Wuzzy2@mail.ru>
Fri, 17 May 2019 14:15:40 +0200
changeset 14989 5188ecbf726f
parent 14578 50f511588635
child 15069 e16f906224fd
permissions -rw-r--r--
Rank tied teams properly in Control, CTF and Mutant
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
     1
--[[                  ___                   ___
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
     2
                    (   )                 (   )
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
     3
___ .-. .-. ___  ___ | |_    .---. ___ .-. | |_
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
     4
(   )   '   (   )(   (   __) / .-, (   )   (   __)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
     5
|  .-.  .-. | |  | | | |   (__) ; ||  .-. .| |
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
     6
| |  | |  | | |  | | | | ___ .'`  || |  | || | ___
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
     7
| |  | |  | | |  | | | |(   / .'| || |  | || |(   )
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
     8
| |  | |  | | |  | | | | | | /  | || |  | || | | |
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
     9
| |  | |  | | |  ; ' | ' | ; |  ; || |  | || ' | |
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    10
| |  | |  | ' `-'  / ' `-' ' `-'  || |  | |' `-' ;
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    11
(___)(___)(___'.__.'   `.__.`.__.'_(___)(___)`.__.
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    12
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    13
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    14
----  Recommended settings:
14269
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
    15
----    * one hedgehog per team (forced by game)
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
    16
----    * one team per clan
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    17
----    * 'Small' one-island map
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    18
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    19
--]]
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    20
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    21
HedgewarsScriptLoad("/Scripts/Locale.lua")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    22
HedgewarsScriptLoad("/Scripts/Tracker.lua")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    23
HedgewarsScriptLoad("/Scripts/Params.lua")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    24
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    25
--[[
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    26
    MUTANT SCRIPT
14269
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
    27
]]
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    28
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    29
local hhs = {}
14264
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
    30
local crates = {}
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    31
local numhhs = 0
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    32
local meh = false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    33
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    34
local gameOver=false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    35
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    36
local mutant = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    37
local mutant_base_health = 200
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    38
local mutant_base_disease = 25
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    39
local disease_timer = 2000
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    40
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    41
local kill_reward = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    42
local mt_hurt=false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    43
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    44
local killsCounter = 0
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    45
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    46
local team_fire_punishment = 3
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    47
local mutant_kill_reward = 2
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    48
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    49
local hh_weapons = { amBazooka, amGrenade, amShotgun, amMine}
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    50
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    51
local mt_weapons = {amWatermelon, amHellishBomb, amBallgun, amRCPlane, amTeleport}
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    52
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    53
local disease=0
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    54
local timer=0
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    55
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    56
local winScore = 15
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    57
local hogsLimit = 1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    58
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
    59
local teamsDead = {}
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    60
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    61
local circles = {}
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    62
local circleFrame = -1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    63
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    64
-- Variables for custom achievements
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    65
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    66
-- Most kills in 1 turn
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    67
local recordKills = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    68
local recordKillsHogName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    69
local recordKillsTeamName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    70
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    71
-- Most suicides
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    72
local recordSuicides = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    73
local recordSuicidesHogName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    74
local recordSuicidesTeamName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    75
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    76
-- Most skips
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    77
local recordSkips = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    78
local recordSkipsHogName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    79
local recordSkipsTeamName = nil
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    80
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
    81
-- Most crates collected
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    82
local recordCrates = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    83
local recordCratesHogName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    84
local recordCratesTeamName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    85
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    86
-- Most deaths
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    87
local recordDeaths = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    88
local recordDeathsHogName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    89
local recordDeathsTeamName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    90
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    91
-- Total killed hedgehogs
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    92
local totalKills = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    93
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    94
-- Total damage
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    95
local totalDamage = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    96
12988
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
    97
local mutantHat = "WhySoSerious"
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
    98
local feederHat = "poke_slowpoke"
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
    99
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   100
function rules()
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   101
14269
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
   102
    local mineStr
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
   103
    if MinesTime < 0 then
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
   104
        mineStr = loc("Mines time: 0s-5s")
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
   105
    else
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
   106
        mineStr = string.format(loc("Mines explode after %d s."), div(MinesTime, 1000))
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
   107
    end
14264
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   108
    local ruleSet = loc("Hedgehogs will be revived after their death.") .. "|" ..
14269
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
   109
    mineStr .. "|" ..
14264
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   110
    loc("The first hedgehog to kill someone becomes the Mutant.") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   111
    loc("The Mutant has super weapons and a lot of health.") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   112
    loc("The Mutant loses health quickly, but gains health by killing.") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   113
    " |" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   114
    loc("Score points by killing other hedgehogs.") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   115
    loc("The hedgehog with least points (or most deaths) becomes the Bottom Feeder.") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   116
    loc("The score and deaths are shown next to the team bar.") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   117
    string.format(loc("Goal: Score %d points or more to win!"), winScore) .. "|" ..
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   118
        " |" ..
14264
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   119
    loc("Scoring: ") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   120
    loc("+2 for becoming the Mutant") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   121
    loc("+1 to the Mutant for killing anyone") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   122
    loc("+1 to the Bottom Feeder for killing anyone") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   123
    loc("-1 to anyone for a suicide")
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   124
14264
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   125
    return ruleSet
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   126
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   127
end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   128
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   129
function showStartingInfo()
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   130
14264
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   131
    ShowMission(loc("Mutant"), loc("A Hedgewars tag game"), rules(), 1, 5000)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   132
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   133
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   134
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   135
function onGameInit()
14269
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
   136
    -- Sudden Death would be weird
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   137
    WaterRise = 0
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   138
    HealthDecrease = 0
14269
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
   139
    -- Weapons must be reset for the Mutant mechanic to work
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
   140
    EnableGameFlags(gfResetWeps)
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
   141
    -- King Mode messes with game too much
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
   142
    DisableGameFlags(gfKing)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   143
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   144
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   145
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   146
function limitHogs(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   147
    cnthhs = cnthhs + 1
13108
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   148
    if cnthhs > 1 then
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   149
        hogLimitHit = true
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   150
        SetEffect(gear, heResurrectable, 0)
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   151
        setGearValue(gear, "excess", true)
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   152
        DeleteGear(gear)
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   153
    end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   154
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   155
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   156
function onGameStart()
13769
e874bfe563c7 Make sure scripts don't break w/ only 1 clan
Wuzzy <Wuzzy2@mail.ru>
parents: 13685
diff changeset
   157
    if ClansCount >= 2 then
e874bfe563c7 Make sure scripts don't break w/ only 1 clan
Wuzzy <Wuzzy2@mail.ru>
parents: 13685
diff changeset
   158
        SendHealthStatsOff()
e874bfe563c7 Make sure scripts don't break w/ only 1 clan
Wuzzy <Wuzzy2@mail.ru>
parents: 13685
diff changeset
   159
        SendAchievementsStatsOff()
e874bfe563c7 Make sure scripts don't break w/ only 1 clan
Wuzzy <Wuzzy2@mail.ru>
parents: 13685
diff changeset
   160
    end
12335
8f693d25be2f Show traditional winning animation in Mutant again
Wuzzy <almikes@aol.com>
parents: 12288
diff changeset
   161
    SendRankingStatsOff()
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   162
    trackTeams()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   163
    teamScan()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   164
    runOnHogs(saveStuff)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   165
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   166
    hogLimitHit = false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   167
    for i=0 , TeamsCount - 1 do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   168
        cnthhs = 0
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   169
        runOnHogsInTeam(limitHogs, GetTeamName(i))
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   170
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   171
    if hogLimitHit then
13108
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   172
        WriteLnToChat(loc("Only one hog per team allowed! Excess hogs will be removed."))
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   173
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   174
    showStartingInfo()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   175
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   176
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   177
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   178
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   179
function giveWeapons(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   180
    if gear == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   181
        AddAmmo(gear, amRope)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   182
        for i=1, #mt_weapons do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   183
            AddAmmo(gear, mt_weapons[i])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   184
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   185
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   186
    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   187
        for i=1, #hh_weapons do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   188
            AddAmmo(gear,hh_weapons[i])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   189
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   190
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   191
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   192
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   193
function onAmmoStoreInit()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   194
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   195
    SetAmmo(amSkip, 9, 0, 0, 0)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   196
    SetAmmo(amRope,0,1,0,5)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   197
    SetAmmo(amSnowball,0,1,0,1)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   198
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   199
    for i=1, #hh_weapons do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   200
        SetAmmo(hh_weapons[i], 0, 0, 0, 1)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   201
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   202
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   203
    for i=1, #mt_weapons do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   204
        SetAmmo(mt_weapons[i], 0, 3, 0, 1)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   205
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   206
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   207
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   208
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   209
function drawCircles()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   210
    for i = 0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   211
        if circles[hhs[i]] ~= nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   212
            DeleteVisualGear(circles[hhs[i]])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   213
            circles[hhs[i]] = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   214
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   215
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   216
        if hhs[i] ~= CurrentHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   217
            if mutant == nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   218
                circles[hhs[i]] = AddVisualGear(0, 0, vgtCircle, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   219
                SetVisualGearValues(circles[hhs[i]], 0, 0, 0, 0, 0, 0, 0, 22, 5, 0xff000080)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   220
            elseif CurrentHedgehog == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   221
                circles[hhs[i]] = AddVisualGear(0, 0, vgtCircle, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   222
                SetVisualGearValues(circles[hhs[i]], 0, 0, 0, 0, 0, 0, 0, 22, 3, 0xaa000070)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   223
            elseif getGearValue(CurrentHedgehog, "Feeder") and hhs[i] ~= mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   224
                circles[hhs[i]] = AddVisualGear(0, 0, vgtCircle, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   225
                SetVisualGearValues(circles[hhs[i]], 0, 0, 0, 0, 0, 0, 0, 22, 3, 0xaa000070)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   226
            elseif hhs[i] == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   227
                circles[hhs[i]] = AddVisualGear(0, 0, vgtCircle, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   228
                SetVisualGearValues(circles[hhs[i]], 0, 0, 0, 0, 0, 0, 0, 22, 5, 0xff000080)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   229
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   230
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   231
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   232
    circleFrame = 0
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   233
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   234
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   235
function onNewTurn()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   236
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   237
    trackTeams()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   238
    killsCounter = 0
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   239
14269
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14266
diff changeset
   240
    if mutant == nil and TotalRounds >= 0 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   241
        AddCaption( loc("First killer will mutate"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   242
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   243
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   244
    checkScore()
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   245
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   246
    for i=0, TeamsCount-1 do
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   247
        SendStat(siClanHealth, getTeamValue(GetTeamName(i), "Score"), GetTeamName(i))
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   248
    end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   249
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   250
    giveWeapons(CurrentHedgehog)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   251
    drawCircles()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   252
    setAIHints()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   253
    kill_reward= numhhs*10
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   254
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   255
    if CurrentHedgehog == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   256
        mt_hurt=true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   257
        disease= mutant_base_disease - numhhs
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   258
    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   259
        mt_hurt=false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   260
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   261
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   262
    setGearValue(CurrentHedgehog, "Alive", true)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   263
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   264
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   265
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   266
function countBodies()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   267
        if killsCounter == 2 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   268
            AddCaption(loc("Double kill!"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   269
        elseif killsCounter == 3 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   270
            AddCaption(loc("Mega kill!"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   271
            PlaySound(sndRegret)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   272
        elseif killsCounter == 4 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   273
            AddCaption(loc("Ultra kill!"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   274
        elseif killsCounter == 5 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   275
            AddCaption(loc("Monster kill!"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   276
            PlaySound(sndIllGetYou)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   277
        elseif killsCounter == 6 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   278
            AddCaption(loc("Ludicrous kill!"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   279
            PlaySound(sndNutter)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   280
        elseif killsCounter == 7 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   281
            AddCaption(loc("Holy shit!"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   282
            PlaySound(sndLaugh)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   283
        elseif killsCounter > 8 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   284
            AddCaption(loc("Insanity!"), capcolDefault, capgrpGameState )
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   285
        end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   286
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   287
        if killsCounter > recordKills then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   288
            recordKills = killsCounter
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   289
            recordKillsHogName = getGearValue(CurrentHedgehog, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   290
            recordKillsTeamName = GetHogTeamName(CurrentHedgehog)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   291
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   292
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   293
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   294
function onGameTick()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   295
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   296
    if circleFrame > -1 then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   297
        for i = 0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   298
            if circles[hhs[i]] ~= nil and hhs[i]~= nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   299
                hhx, hhy = GetGearPosition(hhs[i])
13685
09ea1faf97ca Remove calls to GetVisualGearValues where it's not needed
Wuzzy <Wuzzy2@mail.ru>
parents: 13643
diff changeset
   300
                SetVisualGearValues(circles[hhs[i]], hhx + 1, hhy - 3, 0, 0, 0, 0, 0, 40 - (circleFrame % 25))
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   301
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   302
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   303
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   304
        circleFrame = circleFrame + 0.06
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   305
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   306
        if circleFrame >= 25 then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   307
            for i = 0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   308
                if circles[hhs[i]] ~= nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   309
                    DeleteVisualGear(circles[hhs[i]])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   310
                    circles[hhs[i]] = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   311
                end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   312
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   313
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   314
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   315
14325
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   316
    if (TurnTimeLeft==0 or band(GetState(mutant), gstHHDriven) == 0) and mt_hurt then
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   317
        mt_hurt = false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   318
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   319
14325
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   320
    -- Mutant's disease
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   321
    -- Hurt Mutant during its turn time
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   322
    -- Mutant's health is safe in ready phase
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   323
    if mt_hurt and mutant~=nil and ReadyTimeLeft == 0 then
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   324
        timer = timer + 1
14325
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   325
        if timer > disease_timer then
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   326
            timer = 0
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   327
            local h = GetHealth(mutant)-disease
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   328
            SetHealth(mutant, h)
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   329
            -- Low health warning
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   330
            if h <= 75 then
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   331
                PlaySound(sndPoisonMoan, mutant)
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   332
            elseif h <= 150 then
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   333
                PlaySound(sndPoisonCough, mutant)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   334
            end
14325
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   335
            local tag = AddVisualGear(GetX(mutant), GetY(mutant)-5, vgtHealthTag, disease, true)
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   336
            SetVisualGearValues(tag, nil, nil, nil, nil, nil, nil, nil, nil, nil, GetClanColor(GetHogClan(mutant)))
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   337
            if GetHealth(mutant)<=0 then
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   338
                SetHealth(mutant,0)
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   339
                mt_hurt= false
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   340
                setGearValue(mutant,"SelfDestruct",true)
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   341
                EndTurn()
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   342
            end
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14269
diff changeset
   343
        end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   344
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   345
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   346
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   347
12988
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   348
--[[
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   349
Forces the special mutant/feeder names and hats only to be
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   350
taken by those who deserved it.
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   351
Names and hats will be changed (and ridiculed) if neccesary.
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   352
]]
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   353
function exposeIdentityTheft(gear)
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   354
    local lon = string.lower(GetHogName(gear)) -- lowercase origina name
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   355
    local name, hat
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   356
    -- Change name if hog uses a reserved one
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   357
    if lon == "mutant" or lon == string.lower(loc("Mutant")) then
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   358
       SetHogName(gear, loc("Identity Thief"))
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   359
       SetHogHat(gear, "Disguise")
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   360
    elseif lon == "bottom feeder" or lon == string.lower(loc("Bottom Feeder")) then
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   361
       -- Word play on "Bottom Feeder". Someone who is low on cotton. :D
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   362
       -- Either translate literally or make up your ow word play
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   363
       SetHogName(gear, loc("Cotton Needer"))
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   364
       SetHogHat(gear, "StrawHat")
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   365
    end
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   366
    -- Strip hog off its special hat
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   367
    if GetHogHat(gear) == mutantHat or GetHogHat(gear) == feederHat then
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   368
       SetHogHat(gear, "NoHat")
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   369
    end
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   370
end
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   371
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   372
function saveStuff(gear)
12988
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   373
    exposeIdentityTheft(gear)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   374
    setGearValue(gear,"Name",GetHogName(gear))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   375
    setGearValue(gear,"Hat",GetHogHat(gear))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   376
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   377
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   378
function armageddon(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   379
    SetState(gear, gstLoser)
13108
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   380
    SetEffect(gear, heResurrectable, 0)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   381
    SetHealth(gear, 0)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   382
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   383
13019
880662cf41ee Add team score next to team bars for CTF_Blizard, Control, CTF, Mutant, Space Invasion
Wuzzy <Wuzzy2@mail.ru>
parents: 12988
diff changeset
   384
function renderScores()
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   385
    for i=0, TeamsCount-1 do
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   386
        local name = GetTeamName(i)
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   387
        SetTeamLabel(name, string.format(loc("%d | %d"), getTeamValue(name, "Score"), getTeamValue(name, "DeadHogs")))
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   388
    end
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   389
end
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   390
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   391
function createEndGameStats()
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   392
    SendStat(siGraphTitle, loc("Score graph"))
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   393
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   394
    local teamsSorted = {}
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   395
    for i=0, TeamsCount-1, 1 do
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   396
        teamsSorted[i+1] = GetTeamName(i)
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   397
    end
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   398
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   399
    -- Achievements stuff
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   400
    local achievements = 0
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   401
    --- Most kills per turn
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   402
    if recordKills >= 3 then
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   403
        SendStat(siMaxStepKills, string.format("%d %s (%s)", recordKills, recordKillsHogName, recordKillsTeamName))
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   404
        achievements = achievements + 1
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   405
    end
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   406
    --- Most crates collected
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   407
    if recordCrates >= 5 then
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   408
        SendStat(siCustomAchievement, string.format(loc("%s (%s) was the greediest hedgehog and collected %d crates."), recordCratesHogName, recordCratesTeamName, recordCrates))
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   409
        achievements = achievements + 1
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   410
    end
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   411
    --- Most suicides
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   412
    if recordSuicides >= 5 then
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   413
        SendStat(siCustomAchievement, string.format(loc("%s (%s) hate life and suicided %d times."), recordSuicidesHogName, recordSuicidesTeamName, recordSuicides))
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   414
        achievements = achievements + 1
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   415
    end
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   416
    --- Most deaths
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   417
    if recordDeaths >= 5 then
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   418
        SendStat(siCustomAchievement, string.format(loc("Poor %s (%s) died %d times."), recordDeathsHogName, recordDeathsTeamName, recordDeaths))
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   419
        achievements = achievements + 1
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   420
    end
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   421
    --- Most skips
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   422
    if recordSkips >= 3 then
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   423
        SendStat(siMaxTurnSkips, string.format("%d %s (%s)", recordSkips, recordSkipsHogName, recordSkipsTeamName))
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   424
        achievements = achievements + 1
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   425
    end
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   426
    --- Total damage
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   427
    if totalDamage >= 900 then
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   428
        SendStat(siCustomAchievement, string.format(loc("%d damage was dealt in this game."), totalDamage))
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   429
        achievements = achievements + 1
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   430
    end
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   431
    --- Total kills
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   432
    if totalKills >= 20 or (achievements <= 0 and totalKills >= 1) then
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   433
        SendStat(siKilledHHs, tostring(totalKills))
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   434
        achievements = achievements + 1
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   435
    end
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   436
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   437
    -- Score and stats stuff
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   438
    local showScore = ""
14989
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14578
diff changeset
   439
    local rank = 0
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14578
diff changeset
   440
    local rankPlus = 1
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14578
diff changeset
   441
    local prevScore
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   442
    table.sort(teamsSorted, function(team1, team2) return getTeamValue(team1, "Score") > getTeamValue(team2, "Score") end)
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   443
    for i=1, TeamsCount do
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   444
        local score = getTeamValue(teamsSorted[i], "Score")
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   445
        local deaths = getTeamValue(teamsSorted[i], "DeadHogs")
14989
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14578
diff changeset
   446
        if i == 1 or score < prevScore then
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14578
diff changeset
   447
            rank = rank + rankPlus
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14578
diff changeset
   448
            rankPlus = 1
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14578
diff changeset
   449
            prevScore = score
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14578
diff changeset
   450
        else
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14578
diff changeset
   451
            rankPlus = rankPlus + 1
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14578
diff changeset
   452
        end
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14578
diff changeset
   453
        SendStat(siPointType, "!POINTS")
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14578
diff changeset
   454
        SendStat(siTeamRank, rank)
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   455
        SendStat(siPlayerKills, score, teamsSorted[i])
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   456
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   457
        showScore = showScore .. string.format(loc("%s: %d (deaths: %d)"), teamsSorted[i], score, deaths) .. "|"
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   458
    end
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   459
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   460
    if getTeamValue(teamsSorted[1], "Score") == getTeamValue(teamsSorted[2], "Score") then
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   461
        -- The first two teams have the same score! Round is drawn.
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   462
        return nil
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   463
    else
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   464
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   465
    ShowMission(loc("Mutant"),
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   466
        loc("Final result"),
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   467
        string.format(loc("Winner: %s"), teamsSorted[1]) .. "| |" .. loc("Scores:") .. " |" ..
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   468
        showScore, 0, 15000)
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   469
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   470
        -- return winning team
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   471
        return teamsSorted[1]
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   472
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   473
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   474
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   475
function checkScore()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   476
local lowest_score_team = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   477
local min_score=nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   478
local winTeam = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   479
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   480
local only_low_score = true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   481
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   482
    for i=0, TeamsCount-1 do
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   483
        local teamName = GetTeamName(i)
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   484
        if not teamsDead[teamName] then
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   485
            local curr_score = getTeamValue(teamName, "Score")
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   486
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   487
            runOnHogsInTeam(removeFeeder, teamName)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   488
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   489
            if curr_score >= winScore then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   490
                gameOver = true
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   491
                winTeam = teamName
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   492
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   493
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   494
            if min_score==nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   495
                min_score= curr_score
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   496
                lowest_score_team = teamName
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   497
            else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   498
                if curr_score <= min_score then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   499
                    if curr_score == min_score then
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   500
                        if getTeamValue(teamName, "DeadHogs") == getTeamValue(lowest_score_team, "DeadHogs") then
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   501
                            only_low_score = false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   502
                        else
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   503
                            if getTeamValue(teamName, "DeadHogs") > getTeamValue(lowest_score_team, "DeadHogs") then
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   504
                                lowest_score_team = teamName
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   505
                            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   506
                            only_low_score = true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   507
                        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   508
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   509
                    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   510
                        min_score= curr_score
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   511
                        lowest_score_team = teamName
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   512
                        only_low_score = true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   513
                    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   514
                end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   515
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   516
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   517
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   518
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   519
    if gameOver then
12341
c73521104fac Mutant: Fix “Boring” taunt being played when becoming the mutant
Wuzzy <almikes@aol.com>
parents: 12335
diff changeset
   520
        EndTurn(true)
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   521
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   522
        for i=0, TeamsCount-1 do
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   523
            local teamName = GetTeamName(i)
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   524
            if teamName~=winTeam then
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   525
                runOnHogsInTeam(armageddon, teamName)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   526
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   527
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   528
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   529
        createEndGameStats()
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   530
    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   531
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   532
    if only_low_score then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   533
        runOnHogsInTeam(setFeeder, lowest_score_team)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   534
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   535
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   536
    if meh == false then
14264
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   537
        meh = true
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   538
    end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   539
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   540
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   541
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   542
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   543
function backToNormal(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   544
    SetHogName(gear, getGearValue(gear,"Name"))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   545
    SetHogHat(gear, 'NoHat')
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   546
    SetHogHat(gear, getGearValue(gear,"Hat"))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   547
    setGearValue(mutant,"SelfDestruct",false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   548
    mt_hurt=false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   549
    mutant=nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   550
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   551
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   552
function setAIHints()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   553
    for i = 0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   554
        if mutant == nil or hhs[i] == mutant or CurrentHedgehog == mutant or getGearValue(CurrentHedgehog, "Feeder") then
13036
434bcdd9562c Fix inconsistent name of SetGearAIHints
Wuzzy <Wuzzy2@mail.ru>
parents: 13019
diff changeset
   555
            SetGearAIHints(hhs[i], aihUsualProcessing)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   556
        else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   557
            SetGearAIHints(hhs[i], aihDoesntMatter)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   558
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   559
    end
14266
9b5a8147386f I think this is correct way to use iterate over it as a hashmap. don't have much lua practice
nemo
parents: 14265
diff changeset
   560
    for k,v in pairs(crates) do
9b5a8147386f I think this is correct way to use iterate over it as a hashmap. don't have much lua practice
nemo
parents: 14265
diff changeset
   561
        if CurrentHedgehog == mutant and v ~= nil  then
9b5a8147386f I think this is correct way to use iterate over it as a hashmap. don't have much lua practice
nemo
parents: 14265
diff changeset
   562
            SetGearAIHints(v, aihDoesntMatter)
14264
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   563
        else
14266
9b5a8147386f I think this is correct way to use iterate over it as a hashmap. don't have much lua practice
nemo
parents: 14265
diff changeset
   564
            SetGearAIHints(v, aihUsualProcessing)
14264
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   565
        end
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   566
    end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   567
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   568
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   569
function removeFeeder(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   570
    if gear~=nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   571
        setGearValue(gear,"Feeder",false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   572
        if gear~= mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   573
            SetHogName(gear, getGearValue(gear,"Name") )
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   574
            SetHogHat(gear, 'NoHat')
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   575
            SetHogHat(gear, getGearValue(gear,"Hat"))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   576
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   577
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   578
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   579
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   580
function setFeeder(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   581
    if gear~= mutant and gear~= nil then
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   582
        SetHogName(gear, loc("Bottom Feeder"))
12988
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   583
        SetHogHat(gear, feederHat)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   584
        setGearValue(gear,"Feeder", true)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   585
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   586
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   587
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   588
function setMutantStuff(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   589
    mutant = gear
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   590
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   591
    SetHogName(gear, loc("Mutant"))
12988
a15413d896c3 Mutant: Force special mutant/feeder hat+name to be only hold by those who deserved it
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   592
    SetHogHat(gear, mutantHat)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   593
    SetHealth(gear, ( mutant_base_health + numhhs*25) )
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   594
    SetEffect(gear, hePoisoned, 1)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   595
    setGearValue(mutant,"SelfDestruct",false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   596
    setGearValue(gear, "Feeder", false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   597
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   598
    AddCaption(string.format(loc("%s has mutated! +2 points"), getGearValue(gear, "Name")), GetClanColor(GetHogClan(gear)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   599
12430
c461a224ec09 Mutant: Fix turn skip of next hog after mutating when TurnTimeLeft = 0
Wuzzy <almikes@aol.com>
parents: 12341
diff changeset
   600
    if TurnTimeLeft > 0 then
c461a224ec09 Mutant: Fix turn skip of next hog after mutating when TurnTimeLeft = 0
Wuzzy <almikes@aol.com>
parents: 12341
diff changeset
   601
        EndTurn(true)
c461a224ec09 Mutant: Fix turn skip of next hog after mutating when TurnTimeLeft = 0
Wuzzy <almikes@aol.com>
parents: 12341
diff changeset
   602
    end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   603
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   604
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   605
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   606
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   607
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   608
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   609
    PlaySound(sndSuddenDeath)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   610
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   611
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   612
function teamScan()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   613
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   614
        for j=0, TeamsCount-1 do
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   615
            teamName = GetTeamName(j)
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   616
            teamsDead[teamName] = false
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   617
            setTeamValue(teamName, "Score",0)
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   618
            setTeamValue(teamName, "Suicides",0)
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   619
            setTeamValue(teamName, "Skips",0)
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   620
            setTeamValue(teamName, "Crates",0)
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   621
            setTeamValue(teamName, "DeadHogs",0)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   622
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   623
13019
880662cf41ee Add team score next to team bars for CTF_Blizard, Control, CTF, Mutant, Space Invasion
Wuzzy <Wuzzy2@mail.ru>
parents: 12988
diff changeset
   624
        renderScores()
880662cf41ee Add team score next to team bars for CTF_Blizard, Control, CTF, Mutant, Space Invasion
Wuzzy <Wuzzy2@mail.ru>
parents: 12988
diff changeset
   625
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   626
        ---***---
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   627
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   628
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   629
function set_Mutant_and_Score(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   630
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   631
local curr_team = GetHogTeamName(CurrentHedgehog)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   632
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   633
    if gear == CurrentHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   634
        if CurrentHedgehog == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   635
            PlaySound(sndHomerun)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   636
            if getGearValue(gear, "SelfDestruct")==false then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   637
                decreaseTeamValue(curr_team,"Score")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   638
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   639
            backToNormal(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   640
        else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   641
            decreaseTeamValue(curr_team,"Score")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   642
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   643
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   644
    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   645
            if gear == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   646
                    backToNormal(mutant)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   647
                    if curr_team ~=GetHogTeamName(gear) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   648
                            if  getGearValue(CurrentHedgehog, "Alive") then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   649
                            setMutantStuff(CurrentHedgehog)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   650
                            setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") + mutant_kill_reward))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   651
                            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   652
                    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   653
                        setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") - team_fire_punishment))
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   654
                        increaseTeamValue(curr_team,"Suicides")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   655
                        if(getTeamValue(curr_team, "Suicides") > recordSuicides) then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   656
                            recordSuicides = getTeamValue(curr_team, "Suicides")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   657
                            recordSuicidesHogName = getGearValue(CurrentHedgehog, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   658
                            recordSuicidesTeamName = curr_team
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   659
                        end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   660
                        AddCaption(loc("-1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   661
                    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   662
            else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   663
                if mutant==nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   664
                        if curr_team ~=GetHogTeamName(gear) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   665
                            if getGearValue(CurrentHedgehog, "Alive") then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   666
                                    setMutantStuff(CurrentHedgehog)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   667
                                    setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") + mutant_kill_reward))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   668
                            else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   669
                                increaseTeamValue(curr_team,"Score")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   670
                            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   671
                        else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   672
                            setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") - team_fire_punishment))
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   673
                            increaseTeamValue(curr_team,"Suicides")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   674
                            if(getTeamValue(curr_team, "Suicides") > recordSuicides) then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   675
                                recordSuicides = getTeamValue(curr_team, "Suicides")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   676
                                recordSuicidesHogName = getGearValue(CurrentHedgehog, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   677
                                recordSuicidesTeamName = curr_team
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   678
                            end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   679
                            AddCaption(loc("-1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   680
                        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   681
                else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   682
                    if curr_team ~=GetHogTeamName(gear) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   683
                        if CurrentHedgehog==mutant and getGearValue(mutant,"SelfDestruct")==false then
12940
39b7b3ed619e Add healing visual effect + heal msg in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 12430
diff changeset
   684
                            HealHog(CurrentHedgehog, kill_reward)
12288
a5a7d0c6d3f3 Fix incorrect Mutant score message color
Wuzzy <almikes@aol.com>
parents: 11909
diff changeset
   685
                            AddCaption(loc("+1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   686
                            increaseTeamValue(curr_team,"Score")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   687
                        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   688
                        if getGearValue(CurrentHedgehog,"Feeder") then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   689
                            increaseTeamValue(curr_team,"Score")
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   690
                            AddCaption(loc("+1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   691
                        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   692
                    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   693
                        setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") - team_fire_punishment))
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   694
                        AddCaption(loc("+1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   695
                    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   696
                end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   697
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   698
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   699
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   700
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   701
function onGearResurrect(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   702
if not gameOver then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   703
    if GetGearType(gear) == gtHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   704
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   705
        increaseTeamValue(GetHogTeamName(gear), "DeadHogs")
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   706
        totalKills = totalKills + 1
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   707
        if(getTeamValue(GetHogTeamName(gear), "DeadHogs") > recordDeaths) then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   708
            recordDeaths = getTeamValue(GetHogTeamName(gear), "DeadHogs")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   709
            recordDeathsHogName = getGearValue(gear, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   710
            recordDeathsTeamName = GetHogTeamName(gear)
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   711
        end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   712
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   713
        if gear==CurrentHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   714
            setGearValue(CurrentHedgehog, "Alive", false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   715
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   716
        set_Mutant_and_Score(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   717
        if gear~=CurrentHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   718
            killsCounter = killsCounter + 1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   719
            countBodies()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   720
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   721
        AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   722
        PlaySound(sndWhack)
13019
880662cf41ee Add team score next to team bars for CTF_Blizard, Control, CTF, Mutant, Space Invasion
Wuzzy <Wuzzy2@mail.ru>
parents: 12988
diff changeset
   723
        renderScores()
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   724
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   725
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   726
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   727
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   728
function onGearDamage(gear, damage)
14264
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   729
    if not gameOver and GetGearType(gear) == gtHedgehog then
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   730
        totalDamage = totalDamage + damage
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   731
    end
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   732
end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   733
13172
159004144897 Use onSkipTurn in scripts to detect turn skips
Wuzzy <Wuzzy2@mail.ru>
parents: 13108
diff changeset
   734
function onSkipTurn()
14264
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   735
    -- Record skips for achievement
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   736
    local team = GetHogTeamName(CurrentHedgehog)
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   737
    increaseTeamValue(team, "Skips")
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   738
    if(getTeamValue(team, "Skips") > recordSkips) then
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   739
        recordSkips = getTeamValue(team, "Skips")
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   740
        recordSkipsHogName = getGearValue(CurrentHedgehog, "Name")
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   741
        recordSkipsTeamName = team
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   742
    end
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   743
end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   744
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   745
function onGearAdd(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   746
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   747
    -- Catch hedgehogs for the tracker
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   748
    if GetGearType(gear) == gtHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   749
        trackGear(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   750
        hhs[numhhs] = gear
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   751
        numhhs = numhhs + 1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   752
        SetEffect(gear, heResurrectable, 1)
14264
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   753
    elseif GetGearType(gear) == gtCase then
14266
9b5a8147386f I think this is correct way to use iterate over it as a hashmap. don't have much lua practice
nemo
parents: 14265
diff changeset
   754
        crates[gear] = gear
13219
b229b3259a76 Mutant: Fix graph title on game draw
Wuzzy <Wuzzy2@mail.ru>
parents: 13172
diff changeset
   755
    elseif GetGearType(gear) == gtATFinishGame then
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   756
        if not gameOver then
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   757
            local winner = createEndGameStats()
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   758
            if winner then
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   759
                SendStat(siGameResult, string.format(loc("%s wins!"), winner))
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   760
                AddCaption(string.format(loc("%s wins!"), winner), capcolDefault, capgrpGameState)
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   761
            end
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   762
            gameOver = true
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   763
        end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   764
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   765
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   766
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   767
function checkEmptyTeam (teamName)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   768
    for i=0 , #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   769
        if hhs[i]~=nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   770
            if teamName == GetHogTeamName(hhs[i]) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   771
                return false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   772
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   773
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   774
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   775
    return true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   776
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   777
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   778
function onGearDelete(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   779
    -- Remove hogs that are gone
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   780
    if GetGearType(gear) == gtHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   781
        numhhs = numhhs - 1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   782
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   783
        local found
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   784
        for i=0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   785
            if hhs[i] == gear then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   786
                found = i
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   787
                break
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   788
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   789
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   790
        for i = found, #hhs - 1 do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   791
            hhs[i] = hhs[i + 1]
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   792
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   793
        hhs[#hhs] = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   794
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   795
        local t_name = GetHogTeamName(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   796
        if checkEmptyTeam(t_name) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   797
            for i = 0, TeamsCount - 1 do
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   798
                if GetTeamName(i) == t_name then
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   799
                    found = i
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   800
                    teamsDead[t_name] = true
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   801
                    break
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   802
                end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   803
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   804
        end
13220
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   805
        if getGearValue(gear, "excess") ~= true and band(GetState(gear), gstDrowning) == 0 then
13108
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   806
            AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false)
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   807
        end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   808
        trackDeletion(gear)
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   809
    elseif GetGearType(gear) == gtCase then
14264
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13769
diff changeset
   810
        crates[gear] = nil
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   811
        -- Check if a crate has been collected
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   812
        if band(GetGearMessage(gear), gmDestroy) ~= 0 and CurrentHedgehog ~= nil then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   813
            -- Update crate collection achievement
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   814
            increaseTeamValue(GetHogTeamName(CurrentHedgehog), "Crates")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   815
            if(getTeamValue(GetHogTeamName(CurrentHedgehog), "Crates") > recordCrates) then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   816
                recordCrates = getTeamValue(GetHogTeamName(CurrentHedgehog), "Crates")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   817
                recordCratesHogName = getGearValue(CurrentHedgehog, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   818
                recordCratesTeamName = GetHogTeamName(CurrentHedgehog)
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   819
            end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   820
        end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   821
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   822
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   823
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   824
function onParameters()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   825
    parseParams()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   826
    winScore = tonumber(params["winscore"]) or winScore
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   827
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   828
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   829
--[[
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   830
S T A R R I N G
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   831
    prof - Coding, implementing and evangelism
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   832
    vos  - Initial idea and script improvements
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   833
    mikade - Moving the `how to play` into the game so that people know `how to play`, and whitespace :D
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   834
--]]