share/hedgewars/Data/Scripts/Multiplayer/Mutant.lua
author Wuzzy <Wuzzy2@mail.ru>
Tue, 07 Jan 2020 13:21:04 +0100
changeset 15559 bbb98e22a303
parent 15483 19e987301674
child 16000 a803428704fd
permissions -rw-r--r--
Fix impossible to become mutant after mutant gear got deleted (bug #804)
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:
14290
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14287
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: 14287
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
14290
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14287
diff changeset
    27
]]
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    28
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    29
local hhs = {}
14285
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
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 = {}
15290
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
    60
local teamsDeleted = {}
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
    61
local hogLimitHit = false
15483
19e987301674 Mutant: Add message for excess teams
Wuzzy <Wuzzy2@mail.ru>
parents: 15290
diff changeset
    62
local teamLimitHit = false
15290
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
    63
local cnthhs
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    64
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    65
local circles = {}
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    66
local circleFrame = -1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    67
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    68
-- Variables for custom achievements
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    69
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    70
-- Most kills in 1 turn
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    71
local recordKills = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    72
local recordKillsHogName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    73
local recordKillsTeamName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    74
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    75
-- Most suicides
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    76
local recordSuicides = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    77
local recordSuicidesHogName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    78
local recordSuicidesTeamName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    79
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    80
-- Most skips
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    81
local recordSkips = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    82
local recordSkipsHogName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    83
local recordSkipsTeamName = nil
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    84
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
    85
-- Most crates collected
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    86
local recordCrates = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    87
local recordCratesHogName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    88
local recordCratesTeamName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    89
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    90
-- Most deaths
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    91
local recordDeaths = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    92
local recordDeathsHogName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    93
local recordDeathsTeamName = nil
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    94
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    95
-- Total killed hedgehogs
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    96
local totalKills = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    97
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    98
-- Total damage
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
    99
local totalDamage = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   100
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
   101
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
   102
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
   103
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   104
function rules()
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   105
14290
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14287
diff changeset
   106
    local mineStr
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14287
diff changeset
   107
    if MinesTime < 0 then
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14287
diff changeset
   108
        mineStr = loc("Mines time: 0s-5s")
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14287
diff changeset
   109
    else
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14287
diff changeset
   110
        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: 14287
diff changeset
   111
    end
14285
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   112
    local ruleSet = loc("Hedgehogs will be revived after their death.") .. "|" ..
14290
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14287
diff changeset
   113
    mineStr .. "|" ..
14285
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   114
    loc("The first hedgehog to kill someone becomes the Mutant.") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   115
    loc("The Mutant has super weapons and a lot of health.") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   116
    loc("The Mutant loses health quickly, but gains health by killing.") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   117
    " |" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   118
    loc("Score points by killing other hedgehogs.") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   119
    loc("The hedgehog with least points (or most deaths) becomes the Bottom Feeder.") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   120
    loc("The score and deaths are shown next to the team bar.") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   121
    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
   122
        " |" ..
14285
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   123
    loc("Scoring: ") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   124
    loc("+2 for becoming the Mutant") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   125
    loc("+1 to the Mutant for killing anyone") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   126
    loc("+1 to the Bottom Feeder for killing anyone") .. "|" ..
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   127
    loc("-1 to anyone for a suicide")
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   128
14285
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   129
    return ruleSet
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   130
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   131
end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   132
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   133
function showStartingInfo()
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   134
15090
e16f906224fd Change mission panel icons for a couple of game styles
Wuzzy <Wuzzy2@mail.ru>
parents: 15010
diff changeset
   135
    ShowMission(loc("Mutant"), loc("A Hedgewars tag game"), rules(), -amWatermelon, 5000)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   136
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   137
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   138
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   139
function onGameInit()
14290
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14287
diff changeset
   140
    -- Sudden Death would be weird
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   141
    WaterRise = 0
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   142
    HealthDecrease = 0
14290
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14287
diff changeset
   143
    -- 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: 14287
diff changeset
   144
    EnableGameFlags(gfResetWeps)
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14287
diff changeset
   145
    -- 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: 14287
diff changeset
   146
    DisableGameFlags(gfKing)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   147
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   148
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   149
15290
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   150
function limitHogsTeam(gear)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   151
    cnthhs = cnthhs + 1
13108
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   152
    if cnthhs > 1 then
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   153
        hogLimitHit = true
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   154
        SetEffect(gear, heResurrectable, 0)
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   155
        setGearValue(gear, "excess", true)
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   156
        DeleteGear(gear)
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   157
    end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   158
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   159
15290
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   160
function limitHogsClan(gear)
15483
19e987301674 Mutant: Add message for excess teams
Wuzzy <Wuzzy2@mail.ru>
parents: 15290
diff changeset
   161
    teamLimitHit = true
15290
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   162
    SetEffect(gear, heResurrectable, 0)
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   163
    setGearValue(gear, "excess", true)
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   164
    DeleteGear(gear)
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   165
end
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   166
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   167
function onGameStart()
13798
e874bfe563c7 Make sure scripts don't break w/ only 1 clan
Wuzzy <Wuzzy2@mail.ru>
parents: 13685
diff changeset
   168
    if ClansCount >= 2 then
e874bfe563c7 Make sure scripts don't break w/ only 1 clan
Wuzzy <Wuzzy2@mail.ru>
parents: 13685
diff changeset
   169
        SendHealthStatsOff()
e874bfe563c7 Make sure scripts don't break w/ only 1 clan
Wuzzy <Wuzzy2@mail.ru>
parents: 13685
diff changeset
   170
        SendAchievementsStatsOff()
e874bfe563c7 Make sure scripts don't break w/ only 1 clan
Wuzzy <Wuzzy2@mail.ru>
parents: 13685
diff changeset
   171
    end
12335
8f693d25be2f Show traditional winning animation in Mutant again
Wuzzy <almikes@aol.com>
parents: 12288
diff changeset
   172
    SendRankingStatsOff()
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   173
    trackTeams()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   174
    teamScan()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   175
    runOnHogs(saveStuff)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   176
15290
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   177
    -- Enforce team and hog limits
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   178
    hogLimitHit = false
15290
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   179
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   180
    -- Rule 1: One team per clan
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   181
    if TeamsCount > ClansCount then
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   182
        local usedClans = {}
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   183
        for i=0, TeamsCount - 1 do
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   184
            local teamName = GetTeamName(i)
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   185
            local clanNumber = GetTeamClan(teamName)
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   186
            if not usedClans[clanNumber] then
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   187
                usedClans[clanNumber] = true
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   188
            else
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   189
                runOnHogsInTeam(limitHogsClan, teamName)
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   190
                teamsDeleted[teamName] = true
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   191
                setTeamValue(teamName, "Score", getTeamValue(teamName, "Score") -99999)
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   192
            end
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   193
        end
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   194
    end
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   195
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   196
    -- Rule 2: One hog per team
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   197
    for i=0 , TeamsCount - 1 do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   198
        cnthhs = 0
15290
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   199
        runOnHogsInTeam(limitHogsTeam, GetTeamName(i))
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   200
    end
15483
19e987301674 Mutant: Add message for excess teams
Wuzzy <Wuzzy2@mail.ru>
parents: 15290
diff changeset
   201
    if teamLimitHit then
19e987301674 Mutant: Add message for excess teams
Wuzzy <Wuzzy2@mail.ru>
parents: 15290
diff changeset
   202
        WriteLnToChat(loc("Only one team per clan allowed! Excess teams will be removed."))
19e987301674 Mutant: Add message for excess teams
Wuzzy <Wuzzy2@mail.ru>
parents: 15290
diff changeset
   203
    end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   204
    if hogLimitHit then
13108
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   205
        WriteLnToChat(loc("Only one hog per team allowed! Excess hogs will be removed."))
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   206
    end
15290
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   207
    trackTeams()
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   208
    showStartingInfo()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   209
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   210
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   211
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   212
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   213
function giveWeapons(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   214
    if gear == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   215
        AddAmmo(gear, amRope)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   216
        for i=1, #mt_weapons do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   217
            AddAmmo(gear, mt_weapons[i])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   218
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   219
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   220
    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   221
        for i=1, #hh_weapons do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   222
            AddAmmo(gear,hh_weapons[i])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   223
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   224
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   225
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   226
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   227
function onAmmoStoreInit()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   228
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   229
    SetAmmo(amSkip, 9, 0, 0, 0)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   230
    SetAmmo(amRope,0,1,0,5)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   231
    SetAmmo(amSnowball,0,1,0,1)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   232
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   233
    for i=1, #hh_weapons do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   234
        SetAmmo(hh_weapons[i], 0, 0, 0, 1)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   235
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   236
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   237
    for i=1, #mt_weapons do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   238
        SetAmmo(mt_weapons[i], 0, 3, 0, 1)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   239
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   240
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   241
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   242
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   243
function drawCircles()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   244
    for i = 0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   245
        if circles[hhs[i]] ~= nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   246
            DeleteVisualGear(circles[hhs[i]])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   247
            circles[hhs[i]] = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   248
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   249
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   250
        if hhs[i] ~= CurrentHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   251
            if mutant == nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   252
                circles[hhs[i]] = AddVisualGear(0, 0, vgtCircle, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   253
                SetVisualGearValues(circles[hhs[i]], 0, 0, 0, 0, 0, 0, 0, 22, 5, 0xff000080)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   254
            elseif CurrentHedgehog == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   255
                circles[hhs[i]] = AddVisualGear(0, 0, vgtCircle, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   256
                SetVisualGearValues(circles[hhs[i]], 0, 0, 0, 0, 0, 0, 0, 22, 3, 0xaa000070)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   257
            elseif getGearValue(CurrentHedgehog, "Feeder") and hhs[i] ~= mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   258
                circles[hhs[i]] = AddVisualGear(0, 0, vgtCircle, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   259
                SetVisualGearValues(circles[hhs[i]], 0, 0, 0, 0, 0, 0, 0, 22, 3, 0xaa000070)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   260
            elseif hhs[i] == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   261
                circles[hhs[i]] = AddVisualGear(0, 0, vgtCircle, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   262
                SetVisualGearValues(circles[hhs[i]], 0, 0, 0, 0, 0, 0, 0, 22, 5, 0xff000080)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   263
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   264
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   265
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   266
    circleFrame = 0
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   267
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   268
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   269
function onNewTurn()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   270
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   271
    killsCounter = 0
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   272
14290
47af42f7ca8b Add Mutant game scheme, and adapt Mutant for the newly unlocked settings
Wuzzy <Wuzzy2@mail.ru>
parents: 14287
diff changeset
   273
    if mutant == nil and TotalRounds >= 0 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   274
        AddCaption( loc("First killer will mutate"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   275
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   276
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   277
    checkScore()
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   278
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   279
    for i=0, TeamsCount-1 do
15290
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   280
        local teamName = GetTeamName(i)
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   281
        if not teamsDeleted[teamName] then
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   282
            SendStat(siClanHealth, getTeamValue(teamName, "Score"), teamName)
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   283
        end
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   284
    end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   285
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   286
    giveWeapons(CurrentHedgehog)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   287
    drawCircles()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   288
    setAIHints()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   289
    kill_reward= numhhs*10
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   290
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   291
    if CurrentHedgehog == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   292
        mt_hurt=true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   293
        disease= mutant_base_disease - numhhs
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   294
    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   295
        mt_hurt=false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   296
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   297
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   298
    setGearValue(CurrentHedgehog, "Alive", true)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   299
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   300
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   301
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   302
function countBodies()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   303
        if killsCounter == 2 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   304
            AddCaption(loc("Double kill!"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   305
        elseif killsCounter == 3 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   306
            AddCaption(loc("Mega kill!"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   307
            PlaySound(sndRegret)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   308
        elseif killsCounter == 4 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   309
            AddCaption(loc("Ultra kill!"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   310
        elseif killsCounter == 5 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   311
            AddCaption(loc("Monster kill!"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   312
            PlaySound(sndIllGetYou)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   313
        elseif killsCounter == 6 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   314
            AddCaption(loc("Ludicrous kill!"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   315
            PlaySound(sndNutter)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   316
        elseif killsCounter == 7 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   317
            AddCaption(loc("Holy shit!"), capcolDefault, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   318
            PlaySound(sndLaugh)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   319
        elseif killsCounter > 8 then
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   320
            AddCaption(loc("Insanity!"), capcolDefault, capgrpGameState )
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   321
        end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   322
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   323
        if killsCounter > recordKills then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   324
            recordKills = killsCounter
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   325
            recordKillsHogName = getGearValue(CurrentHedgehog, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   326
            recordKillsTeamName = GetHogTeamName(CurrentHedgehog)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   327
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   328
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   329
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   330
function onGameTick()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   331
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   332
    if circleFrame > -1 then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   333
        for i = 0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   334
            if circles[hhs[i]] ~= nil and hhs[i]~= nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   335
                hhx, hhy = GetGearPosition(hhs[i])
13685
09ea1faf97ca Remove calls to GetVisualGearValues where it's not needed
Wuzzy <Wuzzy2@mail.ru>
parents: 13643
diff changeset
   336
                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
   337
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   338
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   339
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   340
        circleFrame = circleFrame + 0.06
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   341
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   342
        if circleFrame >= 25 then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   343
            for i = 0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   344
                if circles[hhs[i]] ~= nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   345
                    DeleteVisualGear(circles[hhs[i]])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   346
                    circles[hhs[i]] = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   347
                end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   348
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   349
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   350
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   351
14346
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14290
diff changeset
   352
    if (TurnTimeLeft==0 or band(GetState(mutant), gstHHDriven) == 0) and mt_hurt then
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   353
        mt_hurt = false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   354
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   355
14346
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14290
diff changeset
   356
    -- 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: 14290
diff changeset
   357
    -- 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: 14290
diff changeset
   358
    -- 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: 14290
diff changeset
   359
    if mt_hurt and mutant~=nil and ReadyTimeLeft == 0 then
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   360
        timer = timer + 1
14346
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14290
diff changeset
   361
        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: 14290
diff changeset
   362
            timer = 0
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14290
diff changeset
   363
            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: 14290
diff changeset
   364
            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: 14290
diff changeset
   365
            -- 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: 14290
diff changeset
   366
            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: 14290
diff changeset
   367
                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: 14290
diff changeset
   368
            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: 14290
diff changeset
   369
                PlaySound(sndPoisonCough, mutant)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   370
            end
14346
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14290
diff changeset
   371
            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: 14290
diff changeset
   372
            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: 14290
diff changeset
   373
            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: 14290
diff changeset
   374
                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: 14290
diff changeset
   375
                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: 14290
diff changeset
   376
                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: 14290
diff changeset
   377
                EndTurn()
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14290
diff changeset
   378
            end
bd2bbd607f5e Mutant: Don't reduce mutant health in ready phase. Play poison hurt sound as health warning
Wuzzy <Wuzzy2@mail.ru>
parents: 14290
diff changeset
   379
        end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   380
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   381
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   382
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   383
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
   384
--[[
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
   385
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
   386
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
   387
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
   388
]]
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
   389
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
   390
    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
   391
    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
   392
    -- 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
   393
    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
   394
       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
   395
       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
   396
    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
   397
       -- 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
   398
       -- 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
   399
       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
   400
       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
   401
    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
   402
    -- 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
   403
    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
   404
       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
   405
    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
   406
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
   407
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   408
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
   409
    exposeIdentityTheft(gear)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   410
    setGearValue(gear,"Name",GetHogName(gear))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   411
    setGearValue(gear,"Hat",GetHogHat(gear))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   412
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   413
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   414
function armageddon(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   415
    SetState(gear, gstLoser)
13108
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   416
    SetEffect(gear, heResurrectable, 0)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   417
    SetHealth(gear, 0)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   418
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   419
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
   420
function renderScores()
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   421
    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
   422
        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
   423
        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
   424
    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
   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
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
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
   428
    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
   429
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
    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
   431
    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
   432
        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
   433
    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
   434
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
    -- 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
   436
    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
   437
    --- 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
   438
    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
   439
        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
   440
        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
   441
    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
   442
    --- 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
   443
    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
   444
        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
   445
        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
   446
    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
   447
    --- 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
   448
    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
   449
        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
   450
        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
   451
    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
   452
    --- 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
   453
    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
   454
        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
   455
        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
   456
    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
   457
    --- 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
   458
    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
   459
        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
   460
        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
   461
    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
   462
    --- 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
   463
    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
   464
        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
   465
        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
   466
    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
   467
    --- 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
   468
    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
   469
        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
   470
        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
   471
    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
   472
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   473
    -- 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
   474
    local showScore = ""
15010
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14599
diff changeset
   475
    local rank = 0
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14599
diff changeset
   476
    local rankPlus = 1
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14599
diff changeset
   477
    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
   478
    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
   479
    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
   480
        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
   481
        local deaths = getTeamValue(teamsSorted[i], "DeadHogs")
15010
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14599
diff changeset
   482
        if i == 1 or score < prevScore then
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14599
diff changeset
   483
            rank = rank + rankPlus
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14599
diff changeset
   484
            rankPlus = 1
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14599
diff changeset
   485
            prevScore = score
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14599
diff changeset
   486
        else
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14599
diff changeset
   487
            rankPlus = rankPlus + 1
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14599
diff changeset
   488
        end
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14599
diff changeset
   489
        SendStat(siPointType, "!POINTS")
5188ecbf726f Rank tied teams properly in Control, CTF and Mutant
Wuzzy <Wuzzy2@mail.ru>
parents: 14599
diff changeset
   490
        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
   491
        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
   492
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   493
        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
   494
    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
   495
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
    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
   497
        -- 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
   498
        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
   499
    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
   500
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   501
    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
   502
        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
   503
        string.format(loc("Winner: %s"), teamsSorted[1]) .. "| |" .. loc("Scores:") .. " |" ..
15090
e16f906224fd Change mission panel icons for a couple of game styles
Wuzzy <Wuzzy2@mail.ru>
parents: 15010
diff changeset
   504
        showScore, 4, 15000)
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
   505
1c390781f72f Mutant: When game ends prematurely due to missing land, declare highest-scoring team the winner
Wuzzy <Wuzzy2@mail.ru>
parents: 13219
diff changeset
   506
        -- 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
   507
        return teamsSorted[1]
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   508
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   509
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   510
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   511
function checkScore()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   512
local lowest_score_team = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   513
local min_score=nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   514
local winTeam = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   515
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   516
local only_low_score = true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   517
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   518
    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
   519
        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
   520
        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
   521
            local curr_score = getTeamValue(teamName, "Score")
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   522
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
            runOnHogsInTeam(removeFeeder, teamName)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   524
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   525
            if curr_score >= winScore then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   526
                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
   527
                winTeam = teamName
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   528
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   529
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   530
            if min_score==nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   531
                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
   532
                lowest_score_team = teamName
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   533
            else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   534
                if curr_score <= min_score then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   535
                    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
   536
                        if getTeamValue(teamName, "DeadHogs") == getTeamValue(lowest_score_team, "DeadHogs") then
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   537
                            only_low_score = false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   538
                        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
   539
                            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
   540
                                lowest_score_team = teamName
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   541
                            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   542
                            only_low_score = true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   543
                        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   544
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   545
                    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   546
                        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
   547
                        lowest_score_team = teamName
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   548
                        only_low_score = true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   549
                    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   550
                end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   551
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   552
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   553
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   554
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   555
    if gameOver then
12341
c73521104fac Mutant: Fix “Boring” taunt being played when becoming the mutant
Wuzzy <almikes@aol.com>
parents: 12335
diff changeset
   556
        EndTurn(true)
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   557
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   558
        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
   559
            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
   560
            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
   561
                runOnHogsInTeam(armageddon, teamName)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   562
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   563
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   564
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
   565
        createEndGameStats()
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   566
    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   567
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   568
    if only_low_score then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   569
        runOnHogsInTeam(setFeeder, lowest_score_team)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   570
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   571
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   572
    if meh == false then
14285
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   573
        meh = true
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   574
    end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   575
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
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   579
function backToNormal(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   580
    SetHogName(gear, getGearValue(gear,"Name"))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   581
    SetHogHat(gear, 'NoHat')
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   582
    SetHogHat(gear, getGearValue(gear,"Hat"))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   583
    setGearValue(mutant,"SelfDestruct",false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   584
    mt_hurt=false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   585
    mutant=nil
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 setAIHints()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   589
    for i = 0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   590
        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
   591
            SetGearAIHints(hhs[i], aihUsualProcessing)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   592
        else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   593
            SetGearAIHints(hhs[i], aihDoesntMatter)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   594
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   595
    end
14287
9b5a8147386f I think this is correct way to use iterate over it as a hashmap. don't have much lua practice
nemo
parents: 14286
diff changeset
   596
    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: 14286
diff changeset
   597
        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: 14286
diff changeset
   598
            SetGearAIHints(v, aihDoesntMatter)
14285
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   599
        else
14287
9b5a8147386f I think this is correct way to use iterate over it as a hashmap. don't have much lua practice
nemo
parents: 14286
diff changeset
   600
            SetGearAIHints(v, aihUsualProcessing)
14285
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   601
        end
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   602
    end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   603
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   604
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   605
function removeFeeder(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   606
    if gear~=nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   607
        setGearValue(gear,"Feeder",false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   608
        if gear~= mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   609
            SetHogName(gear, getGearValue(gear,"Name") )
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   610
            SetHogHat(gear, 'NoHat')
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   611
            SetHogHat(gear, getGearValue(gear,"Hat"))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   612
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   613
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   614
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   615
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   616
function setFeeder(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   617
    if gear~= mutant and gear~= nil then
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   618
        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
   619
        SetHogHat(gear, feederHat)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   620
        setGearValue(gear,"Feeder", true)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   621
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   622
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   623
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   624
function setMutantStuff(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   625
    mutant = gear
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   626
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   627
    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
   628
    SetHogHat(gear, mutantHat)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   629
    SetHealth(gear, ( mutant_base_health + numhhs*25) )
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   630
    SetEffect(gear, hePoisoned, 1)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   631
    setGearValue(mutant,"SelfDestruct",false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   632
    setGearValue(gear, "Feeder", false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   633
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   634
    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
   635
12430
c461a224ec09 Mutant: Fix turn skip of next hog after mutating when TurnTimeLeft = 0
Wuzzy <almikes@aol.com>
parents: 12341
diff changeset
   636
    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
   637
        EndTurn(true)
c461a224ec09 Mutant: Fix turn skip of next hog after mutating when TurnTimeLeft = 0
Wuzzy <almikes@aol.com>
parents: 12341
diff changeset
   638
    end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   639
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   640
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   641
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   642
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   643
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   644
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   645
    PlaySound(sndSuddenDeath)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   646
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   647
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   648
function teamScan()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   649
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
   650
        for j=0, TeamsCount-1 do
15290
96fbf9bb960a Mutant: Remove excess teams if a clan has more than one team
Wuzzy <Wuzzy2@mail.ru>
parents: 15090
diff changeset
   651
            local teamName = GetTeamName(j)
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
   652
            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
   653
            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
   654
            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
   655
            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
   656
            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
   657
            setTeamValue(teamName, "DeadHogs",0)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   658
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   659
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
   660
        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
   661
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   662
        ---***---
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   663
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   664
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   665
function set_Mutant_and_Score(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   666
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   667
local curr_team = GetHogTeamName(CurrentHedgehog)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   668
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   669
    if gear == CurrentHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   670
        if CurrentHedgehog == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   671
            PlaySound(sndHomerun)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   672
            if getGearValue(gear, "SelfDestruct")==false then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   673
                decreaseTeamValue(curr_team,"Score")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   674
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   675
            backToNormal(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   676
        else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   677
            decreaseTeamValue(curr_team,"Score")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   678
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   679
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   680
    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   681
            if gear == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   682
                    backToNormal(mutant)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   683
                    if curr_team ~=GetHogTeamName(gear) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   684
                            if  getGearValue(CurrentHedgehog, "Alive") then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   685
                            setMutantStuff(CurrentHedgehog)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   686
                            setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") + mutant_kill_reward))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   687
                            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   688
                    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   689
                        setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") - team_fire_punishment))
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   690
                        increaseTeamValue(curr_team,"Suicides")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   691
                        if(getTeamValue(curr_team, "Suicides") > recordSuicides) then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   692
                            recordSuicides = getTeamValue(curr_team, "Suicides")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   693
                            recordSuicidesHogName = getGearValue(CurrentHedgehog, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   694
                            recordSuicidesTeamName = curr_team
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   695
                        end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   696
                        AddCaption(loc("-1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   697
                    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   698
            else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   699
                if mutant==nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   700
                        if curr_team ~=GetHogTeamName(gear) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   701
                            if getGearValue(CurrentHedgehog, "Alive") then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   702
                                    setMutantStuff(CurrentHedgehog)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   703
                                    setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") + mutant_kill_reward))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   704
                            else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   705
                                increaseTeamValue(curr_team,"Score")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   706
                            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   707
                        else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   708
                            setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") - team_fire_punishment))
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   709
                            increaseTeamValue(curr_team,"Suicides")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   710
                            if(getTeamValue(curr_team, "Suicides") > recordSuicides) then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   711
                                recordSuicides = getTeamValue(curr_team, "Suicides")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   712
                                recordSuicidesHogName = getGearValue(CurrentHedgehog, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   713
                                recordSuicidesTeamName = curr_team
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   714
                            end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   715
                            AddCaption(loc("-1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   716
                        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   717
                else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   718
                    if curr_team ~=GetHogTeamName(gear) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   719
                        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
   720
                            HealHog(CurrentHedgehog, kill_reward)
12288
a5a7d0c6d3f3 Fix incorrect Mutant score message color
Wuzzy <almikes@aol.com>
parents: 11909
diff changeset
   721
                            AddCaption(loc("+1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   722
                            increaseTeamValue(curr_team,"Score")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   723
                        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   724
                        if getGearValue(CurrentHedgehog,"Feeder") then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   725
                            increaseTeamValue(curr_team,"Score")
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   726
                            AddCaption(loc("+1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   727
                        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   728
                    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   729
                        setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") - team_fire_punishment))
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   730
                        AddCaption(loc("+1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   731
                    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   732
                end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   733
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   734
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   735
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   736
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   737
function onGearResurrect(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   738
if not gameOver then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   739
    if GetGearType(gear) == gtHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   740
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   741
        increaseTeamValue(GetHogTeamName(gear), "DeadHogs")
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   742
        totalKills = totalKills + 1
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   743
        if(getTeamValue(GetHogTeamName(gear), "DeadHogs") > recordDeaths) then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   744
            recordDeaths = getTeamValue(GetHogTeamName(gear), "DeadHogs")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   745
            recordDeathsHogName = getGearValue(gear, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   746
            recordDeathsTeamName = GetHogTeamName(gear)
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   747
        end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   748
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   749
        if gear==CurrentHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   750
            setGearValue(CurrentHedgehog, "Alive", false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   751
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   752
        set_Mutant_and_Score(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   753
        if gear~=CurrentHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   754
            killsCounter = killsCounter + 1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   755
            countBodies()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   756
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   757
        AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   758
        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
   759
        renderScores()
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   760
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   761
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   762
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   763
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   764
function onGearDamage(gear, damage)
14285
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   765
    if not gameOver and GetGearType(gear) == gtHedgehog then
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   766
        totalDamage = totalDamage + damage
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   767
    end
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   768
end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   769
13172
159004144897 Use onSkipTurn in scripts to detect turn skips
Wuzzy <Wuzzy2@mail.ru>
parents: 13108
diff changeset
   770
function onSkipTurn()
14285
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   771
    -- Record skips for achievement
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   772
    local team = GetHogTeamName(CurrentHedgehog)
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   773
    increaseTeamValue(team, "Skips")
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   774
    if(getTeamValue(team, "Skips") > recordSkips) then
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   775
        recordSkips = getTeamValue(team, "Skips")
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   776
        recordSkipsHogName = getGearValue(CurrentHedgehog, "Name")
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   777
        recordSkipsTeamName = team
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   778
    end
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   779
end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   780
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   781
function onGearAdd(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   782
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   783
    -- Catch hedgehogs for the tracker
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   784
    if GetGearType(gear) == gtHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   785
        trackGear(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   786
        hhs[numhhs] = gear
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   787
        numhhs = numhhs + 1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   788
        SetEffect(gear, heResurrectable, 1)
14285
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   789
    elseif GetGearType(gear) == gtCase then
14287
9b5a8147386f I think this is correct way to use iterate over it as a hashmap. don't have much lua practice
nemo
parents: 14286
diff changeset
   790
        crates[gear] = gear
13219
b229b3259a76 Mutant: Fix graph title on game draw
Wuzzy <Wuzzy2@mail.ru>
parents: 13172
diff changeset
   791
    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
   792
        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
   793
            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
   794
            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
   795
                SendStat(siGameResult, string.format(loc("%s wins!"), winner))
13643
690cc84e9fd6 Use capcolDefault in Lua scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
   796
                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
   797
            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
   798
            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
   799
        end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   800
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   801
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   802
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   803
function checkEmptyTeam (teamName)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   804
    for i=0 , #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   805
        if hhs[i]~=nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   806
            if teamName == GetHogTeamName(hhs[i]) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   807
                return false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   808
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   809
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   810
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   811
    return true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   812
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   813
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   814
function onGearDelete(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   815
    -- Remove hogs that are gone
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   816
    if GetGearType(gear) == gtHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   817
        numhhs = numhhs - 1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   818
15559
bbb98e22a303 Fix impossible to become mutant after mutant gear got deleted (bug 804)
Wuzzy <Wuzzy2@mail.ru>
parents: 15483
diff changeset
   819
        if (not gameOver) and (gear == mutant) then
bbb98e22a303 Fix impossible to become mutant after mutant gear got deleted (bug 804)
Wuzzy <Wuzzy2@mail.ru>
parents: 15483
diff changeset
   820
            mutant = nil
bbb98e22a303 Fix impossible to become mutant after mutant gear got deleted (bug 804)
Wuzzy <Wuzzy2@mail.ru>
parents: 15483
diff changeset
   821
            mt_hurt = false
bbb98e22a303 Fix impossible to become mutant after mutant gear got deleted (bug 804)
Wuzzy <Wuzzy2@mail.ru>
parents: 15483
diff changeset
   822
        end
bbb98e22a303 Fix impossible to become mutant after mutant gear got deleted (bug 804)
Wuzzy <Wuzzy2@mail.ru>
parents: 15483
diff changeset
   823
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   824
        local found
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   825
        for i=0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   826
            if hhs[i] == gear then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   827
                found = i
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   828
                break
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   829
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   830
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   831
        for i = found, #hhs - 1 do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   832
            hhs[i] = hhs[i + 1]
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   833
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   834
        hhs[#hhs] = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   835
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   836
        local t_name = GetHogTeamName(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   837
        if checkEmptyTeam(t_name) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   838
            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
   839
                if GetTeamName(i) == t_name then
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   840
                    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
   841
                    teamsDead[t_name] = true
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   842
                    break
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   843
                end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   844
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   845
        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
   846
        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
   847
            AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false)
f3f8d017f994 Mutant: Faster excess hog removal
Wuzzy <Wuzzy2@mail.ru>
parents: 13105
diff changeset
   848
        end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   849
        trackDeletion(gear)
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   850
    elseif GetGearType(gear) == gtCase then
14285
6f3f59266c4c flag crates since waste of time for mutant.
nemo
parents: 13798
diff changeset
   851
        crates[gear] = nil
11909
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   852
        -- Check if a crate has been collected
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   853
        if band(GetGearMessage(gear), gmDestroy) ~= 0 and CurrentHedgehog ~= nil then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   854
            -- Update crate collection achievement
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   855
            increaseTeamValue(GetHogTeamName(CurrentHedgehog), "Crates")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   856
            if(getTeamValue(GetHogTeamName(CurrentHedgehog), "Crates") > recordCrates) then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   857
                recordCrates = getTeamValue(GetHogTeamName(CurrentHedgehog), "Crates")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   858
                recordCratesHogName = getGearValue(CurrentHedgehog, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   859
                recordCratesTeamName = GetHogTeamName(CurrentHedgehog)
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   860
            end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11237
diff changeset
   861
        end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   862
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   863
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   864
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   865
function onParameters()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   866
    parseParams()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   867
    winScore = tonumber(params["winscore"]) or winScore
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   868
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   869
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   870
--[[
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   871
S T A R R I N G
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   872
    prof - Coding, implementing and evangelism
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   873
    vos  - Initial idea and script improvements
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   874
    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
   875
--]]