share/hedgewars/Data/Scripts/Multiplayer/Mutant.lua
author Wuzzy <Wuzzy2@mail.ru>
Sat, 17 Feb 2018 11:25:43 +0100
changeset 13032 625d5a45f267
parent 13024 880662cf41ee
child 13041 434bcdd9562c
permissions -rw-r--r--
Racer/TechRacer: Show best times next to team bars
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
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
    63
local teams = {}
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
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
    85
-- Most crates collected 
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
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   106
	local ruleSet = loc("Rules: ") .. "|" ..
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   107
	loc("Hedgehogs will be revived after their death.") .. "|" ..
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   108
	string.format(loc("Mines explode after %d s."), div(MinesTime, 1000)) .. "|" ..
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   109
	" |"..
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   110
	loc("The first hedgehog to kill someone becomes the Mutant.") .. "|" ..
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   111
	loc("The Mutant has super-weapons and a lot of health.") .. "|" ..
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   112
	loc("The Mutant loses health quickly if he doesn't keep scoring kills.") .. "|" ..
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   113
	" |" ..
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   114
	loc("Score points by killing other hedgehogs (see below).") .. "|" ..
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   115
	loc("The hedgehog with least points (or most deaths) becomes the Bottom Feeder.") .. "|" ..
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   116
	string.format(loc("The first hedgehog which scores %d or more wins the game."), winScore) .. "|" ..
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   117
        " |" ..
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   118
	loc("Scoring: ") .. "|" ..
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   119
	loc("+2 for becoming the Mutant") .. "|" ..
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   120
	loc("+1 to the Mutant for killing anyone") .. "|" ..
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   121
	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
   122
	loc("-1 to anyone for a suicide")
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   123
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   124
	return ruleSet
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   125
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   126
end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   127
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   128
function showStartingInfo()
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   129
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   130
	ShowMission(loc("Mutant"), loc("A Hedgewars tag game"), rules(), 1, 5000)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   131
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   132
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   133
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   134
function onGameInit()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   135
    TurnTime = 20000
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   136
    WaterRise = 0
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   137
    HealthDecrease = 0
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   138
    EnableGameFlags(gfResetWeps, gfPerHogAmmo)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   139
    HealthCaseProb=0
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   140
    HealthCaseAmount=0
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   141
    MinesTime=1000
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   142
    CaseFreq = 2
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   143
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   144
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   145
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   146
function limitHogs(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   147
    cnthhs = cnthhs + 1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   148
        if cnthhs > 1 then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   149
            hogLimitHit = true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   150
            SetEffect(gear, heResurrectable, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   151
            SetGearPosition(gear, -100,LAND_HEIGHT)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   152
        end
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
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   166
        runOnHogsInTeam(limitHogs, teams[i])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   167
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   168
    if hogLimitHit then
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   169
        AddCaption(loc("Only one hog per team allowed! Excess hogs will be removed"), 0xFFFFFFFF, capgrpGameState)
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
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   238
        AddCaption( loc("First killer will mutate"), 0xFFFFFFFF, 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
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   244
        SendStat(siClanHealth, getTeamValue(teams[i], "Score"), teams[i])
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
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   265
            AddCaption(loc("Double kill!"), 0xFFFFFFFF, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   266
        elseif killsCounter == 3 then
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   267
            AddCaption(loc("Mega kill!"), 0xFFFFFFFF, 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
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   270
            AddCaption(loc("Ultra kill!"), 0xFFFFFFFF, capgrpGameState )
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   271
        elseif killsCounter == 5 then
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   272
            AddCaption(loc("Monster kill!"), 0xFFFFFFFF, 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
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   275
            AddCaption(loc("Ludicrous kill!"), 0xFFFFFFFF, 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
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   278
            AddCaption(loc("Holy shit!"), 0xFFFFFFFF, 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
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   281
            AddCaption(loc("Insanity!"), 0xFFFFFFFF, capgrpGameState )
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])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   297
                X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint = GetVisualGearValues(circles[hhs[i]])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   298
                SetVisualGearValues(circles[hhs[i]], hhx + 1, hhy - 3, 0, 0, 0, 0, 0, 40 - (circleFrame % 25), Timer, Tint)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   299
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   300
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   301
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   302
        circleFrame = circleFrame + 0.06
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   303
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   304
        if circleFrame >= 25 then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   305
            for i = 0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   306
                if circles[hhs[i]] ~= nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   307
                    DeleteVisualGear(circles[hhs[i]])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   308
                    circles[hhs[i]] = nil
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
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   313
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   314
    if TurnTimeLeft==0 and mt_hurt then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   315
        mt_hurt = false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   316
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   317
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   318
    if mt_hurt and mutant~=nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   319
        timer = timer + 1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   320
            if timer > disease_timer then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   321
                timer = 0
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   322
                SetHealth(mutant, GetHealth(mutant)-disease )
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   323
                AddVisualGear(GetX(mutant), GetY(mutant)-5, vgtHealthTag, disease, true)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   324
                    if GetHealth(mutant)<=0 then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   325
                        SetHealth(mutant,0)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   326
                        mt_hurt= false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   327
                        setGearValue(mutant,"SelfDestruct",true)
12346
c73521104fac Mutant: Fix “Boring” taunt being played when becoming the mutant
Wuzzy <almikes@aol.com>
parents: 12340
diff changeset
   328
                        EndTurn()
11015
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
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   332
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   333
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   334
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
   335
--[[
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
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
   337
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
   338
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
   339
]]
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
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
   341
    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
   342
    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
   343
    -- 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
   344
    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
   345
       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
   346
       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
   347
    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
   348
       -- 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
   349
       -- 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
   350
       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
   351
       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
   352
    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
   353
    -- 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
   354
    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
   355
       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
   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
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
   358
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   359
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
   360
    exposeIdentityTheft(gear)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   361
    setGearValue(gear,"Name",GetHogName(gear))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   362
    setGearValue(gear,"Hat",GetHogHat(gear))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   363
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   364
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   365
function armageddon(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   366
    SetState(gear, gstLoser)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   367
    SetEffect(gear, heResurrectable, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   368
    SetHealth(gear, 0)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   369
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   370
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
   371
function renderScores()
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   372
    for i=0, TeamsCount-1 do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   373
        if teams[i]~= nil then
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
   374
            SetTeamLabel(teams[i], string.format(loc("Score: %d | Deaths: %d"), getTeamValue(teams[i], "Score"), getTeamValue(teams[i], "DeadHogs")))
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   375
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   376
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   377
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   378
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   379
function checkScore()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   380
local showScore = ""
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   381
local lowest_score_team = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   382
local min_score=nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   383
local winTeam = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   384
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   385
local only_low_score = true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   386
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   387
    for i=0, TeamsCount-1 do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   388
        if teams[i]~=nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   389
            local curr_score = getTeamValue(teams[i], "Score")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   390
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   391
            runOnHogsInTeam(removeFeeder, teams[i])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   392
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   393
            showScore = showScore .. string.format(loc("%s: %d (deaths: %d)"), teams[i], curr_score, getTeamValue(teams[i], "DeadHogs")) .. "|"
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   394
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   395
            if curr_score >= winScore then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   396
                gameOver = true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   397
                winTeam = teams[i]
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   398
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   399
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   400
            if min_score==nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   401
                min_score= curr_score
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   402
                lowest_score_team = teams[i]
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   403
            else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   404
                if curr_score <= min_score then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   405
                    if curr_score == min_score then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   406
                        if getTeamValue(teams[i], "DeadHogs") == getTeamValue(lowest_score_team, "DeadHogs") then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   407
                            only_low_score = false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   408
                        else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   409
                            if getTeamValue(teams[i], "DeadHogs") > getTeamValue(lowest_score_team, "DeadHogs") then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   410
                                lowest_score_team = teams[i]
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   411
                            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   412
                            only_low_score = true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   413
                        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   414
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   415
                    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   416
                        min_score= curr_score
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   417
                        lowest_score_team = teams[i]
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   418
                        only_low_score = true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   419
                    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   420
                end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   421
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   422
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   423
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   424
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   425
    if gameOver then
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   426
        SendStat(siGraphTitle, loc("Score graph"))
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   427
12346
c73521104fac Mutant: Fix “Boring” taunt being played when becoming the mutant
Wuzzy <almikes@aol.com>
parents: 12340
diff changeset
   428
        EndTurn(true)
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   429
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   430
        teamsSorted = {}
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   431
 
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   432
        for i=0, TeamsCount-1 do
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   433
            if teams[i]~=winTeam then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   434
                runOnHogsInTeam(armageddon, teams[i])
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   435
            end
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   436
            teamsSorted[i+1] = teams[i]
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   437
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   438
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   439
        -- Achievements stuff
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   440
        local achievements = 0
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   441
        --- Most kills per turn
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   442
        if recordKills >= 3 then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   443
            SendStat(siMaxStepKills, string.format("%d %s (%s)", recordKills, recordKillsHogName, recordKillsTeamName))
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   444
            achievements = achievements + 1
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   445
        end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   446
        --- Most crates collected
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   447
        if recordCrates >= 5 then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   448
            SendStat(siCustomAchievement, string.format(loc("%s (%s) was the greediest hedgehog and collected %d crates."), recordCratesHogName, recordCratesTeamName, recordCrates))
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   449
            achievements = achievements + 1
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   450
        end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   451
        --- Most suicides
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   452
        if recordSuicides >= 5 then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   453
            SendStat(siCustomAchievement, string.format(loc("%s (%s) hate life and suicided %d times."), recordSuicidesHogName, recordSuicidesTeamName, recordSuicides))
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   454
            achievements = achievements + 1
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   455
        end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   456
        --- Most deaths
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   457
        if recordDeaths >= 5 then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   458
            SendStat(siCustomAchievement, string.format(loc("Poor %s (%s) died %d times."), recordDeathsHogName, recordDeathsTeamName, recordDeaths))
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   459
            achievements = achievements + 1
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   460
        end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   461
        --- Most skips
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   462
        if recordSkips >= 3 then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   463
            SendStat(siMaxTurnSkips, string.format("%d %s (%s)", recordSkips, recordSkipsHogName, recordSkipsTeamName))
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   464
            achievements = achievements + 1
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   465
        end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   466
        --- Total damage 
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   467
        if totalDamage >= 900 then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   468
            SendStat(siCustomAchievement, string.format(loc("%d damage was dealt in this game."), totalDamage))
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   469
            achievements = achievements + 1
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   470
        end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   471
        --- Total kills
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   472
        if totalKills >= 20 or achievements <= 0 then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   473
            SendStat(siKilledHHs, tostring(totalKills))
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   474
            achievements = achievements + 1
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   475
        end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   476
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   477
        -- Score and stats stuff
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   478
        table.sort(teamsSorted, function(team1, team2) return getTeamValue(team1, "Score") < getTeamValue(team2, "Score") end)
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   479
        for i=TeamsCount, 1, -1 do
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   480
            SendStat(siPointType, loc("point(s)"))
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   481
            SendStat(siPlayerKills, getTeamValue(teamsSorted[i], "Score"), teamsSorted[i])
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   482
        end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   483
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   484
        ShowMission(    loc("Mutant"),
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   485
                        loc("Final result"),
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   486
                        string.format(loc("Winner: %s"), winTeam) .. "| |" .. loc("Scores:") .. " |" ..
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   487
                        showScore, 0, 15000)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   488
    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   489
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   490
    if only_low_score then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   491
        runOnHogsInTeam(setFeeder, lowest_score_team)
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 meh == false then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   495
		meh = true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   496
	end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   497
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   498
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   499
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   500
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   501
function backToNormal(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   502
    SetHogName(gear, getGearValue(gear,"Name"))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   503
    SetHogHat(gear, 'NoHat')
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   504
    SetHogHat(gear, getGearValue(gear,"Hat"))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   505
    setGearValue(mutant,"SelfDestruct",false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   506
    mt_hurt=false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   507
    mutant=nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   508
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   509
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   510
function setAIHints()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   511
    for i = 0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   512
        if mutant == nil or hhs[i] == mutant or CurrentHedgehog == mutant or getGearValue(CurrentHedgehog, "Feeder") then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   513
            SetGearAIHints(hhs[i], aihUsual)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   514
        else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   515
            SetGearAIHints(hhs[i], aihDoesntMatter)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   516
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   517
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   518
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   519
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   520
function removeFeeder(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   521
    if gear~=nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   522
        setGearValue(gear,"Feeder",false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   523
        if gear~= mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   524
            SetHogName(gear, getGearValue(gear,"Name") )
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   525
            SetHogHat(gear, 'NoHat')
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   526
            SetHogHat(gear, getGearValue(gear,"Hat"))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   527
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   528
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   529
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   530
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   531
function setFeeder(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   532
    if gear~= mutant and gear~= nil then
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   533
        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
   534
        SetHogHat(gear, feederHat)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   535
        setGearValue(gear,"Feeder", true)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   536
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   537
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   538
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   539
function setMutantStuff(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   540
    mutant = gear
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   541
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   542
    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
   543
    SetHogHat(gear, mutantHat)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   544
    SetHealth(gear, ( mutant_base_health + numhhs*25) )
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   545
    SetEffect(gear, hePoisoned, 1)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   546
    setGearValue(mutant,"SelfDestruct",false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   547
    setGearValue(gear, "Feeder", false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   548
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   549
    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
   550
12435
c461a224ec09 Mutant: Fix turn skip of next hog after mutating when TurnTimeLeft = 0
Wuzzy <almikes@aol.com>
parents: 12346
diff changeset
   551
    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
   552
        EndTurn(true)
c461a224ec09 Mutant: Fix turn skip of next hog after mutating when TurnTimeLeft = 0
Wuzzy <almikes@aol.com>
parents: 12346
diff changeset
   553
    end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   554
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   555
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   556
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   557
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   558
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   559
    AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   560
    PlaySound(sndSuddenDeath)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   561
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   562
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   563
function teamScan()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   564
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   565
        for i=0, TeamsCount-1 do --nil filling
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   566
        teams[i]=nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   567
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   568
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   569
        for i=0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   570
            for j=0, TeamsCount-1 do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   571
                if teams[j] ==nil and hhs[i]~=nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   572
                teams[j] = GetHogTeamName(hhs[i])
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   573
                setTeamValue(teams[j], "Score",0)
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   574
                setTeamValue(teams[j], "Suicides",0)
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   575
                setTeamValue(teams[j], "Skips",0)
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   576
                setTeamValue(teams[j], "Crates",0)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   577
                setTeamValue(teams[j], "DeadHogs",0)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   578
                break
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   579
                end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   580
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   581
                if teams[j] == GetHogTeamName(hhs[i]) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   582
                    break
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   583
                end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   584
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   585
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   586
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
   587
        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
   588
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   589
        ---***---
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   590
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   591
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   592
function set_Mutant_and_Score(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   593
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   594
local curr_team = GetHogTeamName(CurrentHedgehog)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   595
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   596
    if gear == CurrentHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   597
        if CurrentHedgehog == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   598
            PlaySound(sndHomerun)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   599
            if getGearValue(gear, "SelfDestruct")==false then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   600
                decreaseTeamValue(curr_team,"Score")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   601
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   602
            backToNormal(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   603
        else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   604
            decreaseTeamValue(curr_team,"Score")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   605
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   606
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   607
    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   608
            if gear == mutant then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   609
                    backToNormal(mutant)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   610
                    if curr_team ~=GetHogTeamName(gear) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   611
                            if  getGearValue(CurrentHedgehog, "Alive") then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   612
                            setMutantStuff(CurrentHedgehog)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   613
                            setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") + mutant_kill_reward))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   614
                            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   615
                    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   616
                        setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") - team_fire_punishment))
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   617
                        increaseTeamValue(curr_team,"Suicides")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   618
                        if(getTeamValue(curr_team, "Suicides") > recordSuicides) then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   619
                            recordSuicides = getTeamValue(curr_team, "Suicides")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   620
                            recordSuicidesHogName = getGearValue(CurrentHedgehog, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   621
                            recordSuicidesTeamName = curr_team
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   622
                        end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   623
                        AddCaption(loc("-1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   624
                    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   625
            else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   626
                if mutant==nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   627
                        if curr_team ~=GetHogTeamName(gear) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   628
                            if getGearValue(CurrentHedgehog, "Alive") then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   629
                                    setMutantStuff(CurrentHedgehog)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   630
                                    setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") + mutant_kill_reward))
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   631
                            else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   632
                                increaseTeamValue(curr_team,"Score")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   633
                            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   634
                        else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   635
                            setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") - team_fire_punishment))
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   636
                            increaseTeamValue(curr_team,"Suicides")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   637
                            if(getTeamValue(curr_team, "Suicides") > recordSuicides) then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   638
                                recordSuicides = getTeamValue(curr_team, "Suicides")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   639
                                recordSuicidesHogName = getGearValue(CurrentHedgehog, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   640
                                recordSuicidesTeamName = curr_team
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   641
                            end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   642
                            AddCaption(loc("-1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   643
                        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   644
                else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   645
                    if curr_team ~=GetHogTeamName(gear) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   646
                        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
   647
                            HealHog(CurrentHedgehog, kill_reward)
12293
a5a7d0c6d3f3 Fix incorrect Mutant score message color
Wuzzy <almikes@aol.com>
parents: 11914
diff changeset
   648
                            AddCaption(loc("+1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   649
                            increaseTeamValue(curr_team,"Score")
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   650
                        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   651
                        if getGearValue(CurrentHedgehog,"Feeder") then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   652
                            increaseTeamValue(curr_team,"Score")
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   653
                            AddCaption(loc("+1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   654
                        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   655
                    else
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   656
                        setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") - team_fire_punishment))
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   657
                        AddCaption(loc("+1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   658
                    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   659
                end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   660
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   661
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   662
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   663
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   664
function onGearResurrect(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   665
if not gameOver then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   666
    if GetGearType(gear) == gtHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   667
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   668
        increaseTeamValue(GetHogTeamName(gear), "DeadHogs")
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   669
        totalKills = totalKills + 1
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   670
        if(getTeamValue(GetHogTeamName(gear), "DeadHogs") > recordDeaths) then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   671
            recordDeaths = getTeamValue(GetHogTeamName(gear), "DeadHogs")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   672
            recordDeathsHogName = getGearValue(gear, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   673
            recordDeathsTeamName = GetHogTeamName(gear)
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   674
        end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   675
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   676
        if gear==CurrentHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   677
            setGearValue(CurrentHedgehog, "Alive", false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   678
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   679
        set_Mutant_and_Score(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   680
        if gear~=CurrentHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   681
            killsCounter = killsCounter + 1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   682
            countBodies()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   683
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   684
        AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   685
        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
   686
        renderScores()
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   687
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   688
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   689
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   690
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   691
function onGearDamage(gear, damage)
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   692
	if not gameOver and GetGearType(gear) == gtHedgehog then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   693
		totalDamage = totalDamage + damage
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   694
	end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   695
end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   696
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   697
function onHogAttack(ammoType)
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   698
	-- Record skips for achievement
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   699
	if ammoType == amSkip then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   700
		local team = GetHogTeamName(CurrentHedgehog)
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   701
		increaseTeamValue(team, "Skips")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   702
		if(getTeamValue(team, "Skips") > recordSkips) then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   703
			recordSkips = getTeamValue(team, "Skips")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   704
			recordSkipsHogName = getGearValue(CurrentHedgehog, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   705
			recordSkipsTeamName = team
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   706
		end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   707
	end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   708
end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   709
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   710
function onGearAdd(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   711
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   712
    -- Catch hedgehogs for the tracker
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   713
    if GetGearType(gear) == gtHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   714
        trackGear(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   715
        hhs[numhhs] = gear
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   716
        numhhs = numhhs + 1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   717
        SetEffect(gear, heResurrectable, 1)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   718
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   719
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   720
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   721
function checkEmptyTeam (teamName)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   722
    for i=0 , #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   723
        if hhs[i]~=nil then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   724
            if teamName == GetHogTeamName(hhs[i]) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   725
                return false
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   726
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   727
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   728
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   729
    return true
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   730
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   731
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   732
function onGearDelete(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   733
    -- Remove hogs that are gone
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   734
    if GetGearType(gear) == gtHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   735
        numhhs = numhhs - 1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   736
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   737
        local found
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   738
        for i=0, #hhs do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   739
            if hhs[i] == gear then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   740
                found = i
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   741
                break
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   742
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   743
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   744
        for i = found, #hhs - 1 do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   745
            hhs[i] = hhs[i + 1]
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   746
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   747
        hhs[#hhs] = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   748
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   749
        local t_name = GetHogTeamName(gear)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   750
        if checkEmptyTeam(t_name) then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   751
            for i = 0, TeamsCount - 1 do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   752
                if teams[i] == t_name then
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   753
                    found = i
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   754
                    break
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   755
                end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   756
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   757
            for i = found, TeamsCount - 2 do
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   758
                teams[i] = teams[i + 1]
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   759
            end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   760
            teams[TeamsCount - 1] = nil
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   761
            TeamsCount = TeamsCount - 1
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   762
        end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   763
        AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   764
        trackDeletion(gear)
11914
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   765
    elseif GetGearType(gear) == gtCase then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   766
        -- Check if a crate has been collected
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   767
        if band(GetGearMessage(gear), gmDestroy) ~= 0 and CurrentHedgehog ~= nil then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   768
            -- Update crate collection achievement
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   769
            increaseTeamValue(GetHogTeamName(CurrentHedgehog), "Crates")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   770
            if(getTeamValue(GetHogTeamName(CurrentHedgehog), "Crates") > recordCrates) then
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   771
                recordCrates = getTeamValue(GetHogTeamName(CurrentHedgehog), "Crates")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   772
                recordCratesHogName = getGearValue(CurrentHedgehog, "Name")
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   773
                recordCratesTeamName = GetHogTeamName(CurrentHedgehog)
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   774
            end
1d2e89be3eb6 Update Mutant script
Wuzzy <almikes@aol.com>
parents: 11241
diff changeset
   775
        end
11015
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   776
    end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   777
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   778
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   779
function onParameters()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   780
    parseParams()
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   781
    winScore = tonumber(params["winscore"]) or winScore
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   782
end
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   783
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   784
--[[
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   785
S T A R R I N G
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   786
    prof - Coding, implementing and evangelism
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   787
    vos  - Initial idea and script improvements
7a905f0070ce CRLF purge
nemo
parents: 10872
diff changeset
   788
    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
   789
--]]