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