--[[ ___ ___
( ) ( )
___ .-. .-. ___ ___ | |_ .---. ___ .-. | |_
( ) ' ( )( ( __) / .-, ( ) ( __)
| .-. .-. | | | | | | (__) ; || .-. .| |
| | | | | | | | | | | ___ .'` || | | || | ___
| | | | | | | | | | |( / .'| || | | || |( )
| | | | | | | | | | | | | / | || | | || | | |
| | | | | | | ; ' | ' | ; | ; || | | || ' | |
| | | | | ' `-' / ' `-' ' `-' || | | |' `-' ;
(___)(___)(___'.__.' `.__.`.__.'_(___)(___)`.__.
---- Recommended settings:
---- * one hedgehog per team (forced by game)
---- * one team per clan
---- * 'Small' one-island map
--]]
HedgewarsScriptLoad("/Scripts/Locale.lua")
HedgewarsScriptLoad("/Scripts/Tracker.lua")
HedgewarsScriptLoad("/Scripts/Params.lua")
--[[
MUTANT SCRIPT
]]
local hhs = {}
local crates = {}
local numhhs = 0
local meh = false
local gameOver=false
local mutant = nil
local mutant_base_health = 200
local mutant_base_disease = 25
local disease_timer = 2000
local kill_reward = nil
local mt_hurt=false
local killsCounter = 0
local team_fire_punishment = 3
local mutant_kill_reward = 2
local hh_weapons = { amBazooka, amGrenade, amShotgun, amMine}
local mt_weapons = {amWatermelon, amHellishBomb, amBallgun, amRCPlane, amTeleport}
local disease=0
local timer=0
local winScore = 15
local hogsLimit = 1
local teamsDead = {}
local teamsDeleted = {}
local hogLimitHit = false
local teamLimitHit = false
local cnthhs
local circles = {}
local circleFrame = -1
-- Variables for custom achievements
-- Most kills in 1 turn
local recordKills = 0
local recordKillsHogName = nil
local recordKillsTeamName = nil
-- Most suicides
local recordSuicides = 0
local recordSuicidesHogName = nil
local recordSuicidesTeamName = nil
-- Most skips
local recordSkips = 0
local recordSkipsHogName = nil
local recordSkipsTeamName = nil
-- Most crates collected
local recordCrates = 0
local recordCratesHogName = nil
local recordCratesTeamName = nil
-- Most deaths
local recordDeaths = 0
local recordDeathsHogName = nil
local recordDeathsTeamName = nil
-- Total killed hedgehogs
local totalKills = 0
-- Total damage
local totalDamage = 0
local mutantHat = "WhySoSerious"
local feederHat = "poke_slowpoke"
function rules()
local mineStr
if MinesTime < 0 then
mineStr = loc("Mines time: 0s-5s")
else
mineStr = string.format(loc("Mines explode after %d s."), div(MinesTime, 1000))
end
local ruleSet = loc("Hedgehogs will be revived after their death.") .. "|" ..
mineStr .. "|" ..
loc("The first hedgehog to kill someone becomes the Mutant.") .. "|" ..
loc("The Mutant has super weapons and a lot of health.") .. "|" ..
loc("The Mutant loses health quickly, but gains health by killing.") .. "|" ..
" |" ..
loc("Score points by killing other hedgehogs.") .. "|" ..
loc("The hedgehog with least points (or most deaths) becomes the Bottom Feeder.") .. "|" ..
loc("The score and deaths are shown next to the team bar.") .. "|" ..
string.format(loc("Goal: Score %d points or more to win!"), winScore) .. "|" ..
" |" ..
loc("Scoring: ") .. "|" ..
loc("+2 for becoming the Mutant") .. "|" ..
loc("+1 to the Mutant for killing anyone") .. "|" ..
loc("+1 to the Bottom Feeder for killing anyone") .. "|" ..
loc("-1 to anyone for a suicide")
return ruleSet
end
function showStartingInfo()
ShowMission(loc("Mutant"), loc("A Hedgewars tag game"), rules(), -amWatermelon, 5000)
end
function onGameInit()
-- Sudden Death would be weird
WaterRise = 0
HealthDecrease = 0
-- Weapons must be reset for the Mutant mechanic to work
EnableGameFlags(gfResetWeps)
-- King Mode messes with game too much
DisableGameFlags(gfKing)
end
function limitHogsTeam(gear)
cnthhs = cnthhs + 1
if cnthhs > 1 then
hogLimitHit = true
SetEffect(gear, heResurrectable, 0)
setGearValue(gear, "excess", true)
DeleteGear(gear)
end
end
function limitHogsClan(gear)
teamLimitHit = true
SetEffect(gear, heResurrectable, 0)
setGearValue(gear, "excess", true)
DeleteGear(gear)
end
function onGameStart()
if ClansCount >= 2 then
SendHealthStatsOff()
SendAchievementsStatsOff()
end
SendRankingStatsOff()
trackTeams()
teamScan()
runOnHogs(saveStuff)
-- Enforce team and hog limits
hogLimitHit = false
-- Rule 1: One team per clan
if TeamsCount > ClansCount then
local usedClans = {}
for i=0, TeamsCount - 1 do
local teamName = GetTeamName(i)
local clanNumber = GetTeamClan(teamName)
if not usedClans[clanNumber] then
usedClans[clanNumber] = true
else
runOnHogsInTeam(limitHogsClan, teamName)
teamsDeleted[teamName] = true
setTeamValue(teamName, "Score", getTeamValue(teamName, "Score") -99999)
end
end
end
-- Rule 2: One hog per team
for i=0 , TeamsCount - 1 do
cnthhs = 0
runOnHogsInTeam(limitHogsTeam, GetTeamName(i))
end
if teamLimitHit then
WriteLnToChat(loc("Only one team per clan allowed! Excess teams will be removed."))
end
if hogLimitHit then
WriteLnToChat(loc("Only one hog per team allowed! Excess hogs will be removed."))
end
trackTeams()
showStartingInfo()
end
function giveWeapons(gear)
if gear == mutant then
AddAmmo(gear, amRope)
for i=1, #mt_weapons do
AddAmmo(gear, mt_weapons[i])
end
else
for i=1, #hh_weapons do
AddAmmo(gear,hh_weapons[i])
end
end
end
function onAmmoStoreInit()
SetAmmo(amSkip, 9, 0, 0, 0)
SetAmmo(amRope,0,1,0,5)
SetAmmo(amSnowball,0,1,0,1)
for i=1, #hh_weapons do
SetAmmo(hh_weapons[i], 0, 0, 0, 1)
end
for i=1, #mt_weapons do
SetAmmo(mt_weapons[i], 0, 3, 0, 1)
end
end
function drawCircles()
for i = 0, #hhs do
if circles[hhs[i]] ~= nil then
DeleteVisualGear(circles[hhs[i]])
circles[hhs[i]] = nil
end
if hhs[i] ~= CurrentHedgehog then
if mutant == nil then
circles[hhs[i]] = AddVisualGear(0, 0, vgtCircle, 0, false)
SetVisualGearValues(circles[hhs[i]], 0, 0, 0, 0, 0, 0, 0, 22, 5, 0xff000080)
elseif CurrentHedgehog == mutant then
circles[hhs[i]] = AddVisualGear(0, 0, vgtCircle, 0, false)
SetVisualGearValues(circles[hhs[i]], 0, 0, 0, 0, 0, 0, 0, 22, 3, 0xaa000070)
elseif getGearValue(CurrentHedgehog, "Feeder") and hhs[i] ~= mutant then
circles[hhs[i]] = AddVisualGear(0, 0, vgtCircle, 0, false)
SetVisualGearValues(circles[hhs[i]], 0, 0, 0, 0, 0, 0, 0, 22, 3, 0xaa000070)
elseif hhs[i] == mutant then
circles[hhs[i]] = AddVisualGear(0, 0, vgtCircle, 0, false)
SetVisualGearValues(circles[hhs[i]], 0, 0, 0, 0, 0, 0, 0, 22, 5, 0xff000080)
end
end
end
circleFrame = 0
end
function onNewTurn()
killsCounter = 0
if mutant == nil and TotalRounds >= 0 then
AddCaption( loc("First killer will mutate"), capcolDefault, capgrpGameState )
end
checkScore()
for i=0, TeamsCount-1 do
local teamName = GetTeamName(i)
if not teamsDeleted[teamName] then
SendStat(siClanHealth, getTeamValue(teamName, "Score"), teamName)
end
end
giveWeapons(CurrentHedgehog)
drawCircles()
setAIHints()
kill_reward= numhhs*10
if CurrentHedgehog == mutant then
mt_hurt=true
disease= mutant_base_disease - numhhs
else
mt_hurt=false
end
setGearValue(CurrentHedgehog, "Alive", true)
end
function countBodies()
if killsCounter == 2 then
AddCaption(loc("Double kill!"), capcolDefault, capgrpGameState )
elseif killsCounter == 3 then
AddCaption(loc("Mega kill!"), capcolDefault, capgrpGameState )
PlaySound(sndRegret)
elseif killsCounter == 4 then
AddCaption(loc("Ultra kill!"), capcolDefault, capgrpGameState )
elseif killsCounter == 5 then
AddCaption(loc("Monster kill!"), capcolDefault, capgrpGameState )
PlaySound(sndIllGetYou)
elseif killsCounter == 6 then
AddCaption(loc("Ludicrous kill!"), capcolDefault, capgrpGameState )
PlaySound(sndNutter)
elseif killsCounter == 7 then
AddCaption(loc("Holy shit!"), capcolDefault, capgrpGameState )
PlaySound(sndLaugh)
elseif killsCounter > 8 then
AddCaption(loc("Insanity!"), capcolDefault, capgrpGameState )
end
if killsCounter > recordKills then
recordKills = killsCounter
recordKillsHogName = getGearValue(CurrentHedgehog, "Name")
recordKillsTeamName = GetHogTeamName(CurrentHedgehog)
end
end
function onGameTick()
if circleFrame > -1 then
for i = 0, #hhs do
if circles[hhs[i]] ~= nil and hhs[i]~= nil then
hhx, hhy = GetGearPosition(hhs[i])
SetVisualGearValues(circles[hhs[i]], hhx + 1, hhy - 3, 0, 0, 0, 0, 0, 40 - (circleFrame % 25))
end
end
circleFrame = circleFrame + 0.06
if circleFrame >= 25 then
for i = 0, #hhs do
if circles[hhs[i]] ~= nil then
DeleteVisualGear(circles[hhs[i]])
circles[hhs[i]] = nil
end
end
end
end
if (TurnTimeLeft==0 or band(GetState(mutant), gstHHDriven) == 0) and mt_hurt then
mt_hurt = false
end
-- Mutant's disease
-- Hurt Mutant during its turn time
-- Mutant's health is safe in ready phase
if mt_hurt and mutant~=nil and ReadyTimeLeft == 0 then
timer = timer + 1
if timer > disease_timer then
timer = 0
local h = GetHealth(mutant)-disease
SetHealth(mutant, h)
-- Low health warning
if h <= 75 then
PlaySound(sndPoisonMoan, mutant)
elseif h <= 150 then
PlaySound(sndPoisonCough, mutant)
end
local tag = AddVisualGear(GetX(mutant), GetY(mutant)-5, vgtHealthTag, disease, true)
SetVisualGearValues(tag, nil, nil, nil, nil, nil, nil, nil, nil, nil, GetClanColor(GetHogClan(mutant)))
if GetHealth(mutant)<=0 then
SetHealth(mutant,0)
mt_hurt= false
setGearValue(mutant,"SelfDestruct",true)
EndTurn()
end
end
end
end
--[[
Forces the special mutant/feeder names and hats only to be
taken by those who deserved it.
Names and hats will be changed (and ridiculed) if neccesary.
]]
function exposeIdentityTheft(gear)
local lon = string.lower(GetHogName(gear)) -- lowercase origina name
local name, hat
-- Change name if hog uses a reserved one
if lon == "mutant" or lon == string.lower(loc("Mutant")) then
SetHogName(gear, loc("Identity Thief"))
SetHogHat(gear, "Disguise")
elseif lon == "bottom feeder" or lon == string.lower(loc("Bottom Feeder")) then
-- Word play on "Bottom Feeder". Someone who is low on cotton. :D
-- Either translate literally or make up your ow word play
SetHogName(gear, loc("Cotton Needer"))
SetHogHat(gear, "StrawHat")
end
-- Strip hog off its special hat
if GetHogHat(gear) == mutantHat or GetHogHat(gear) == feederHat then
SetHogHat(gear, "NoHat")
end
end
function saveStuff(gear)
exposeIdentityTheft(gear)
setGearValue(gear,"Name",GetHogName(gear))
setGearValue(gear,"Hat",GetHogHat(gear))
end
function armageddon(gear)
SetState(gear, gstLoser)
SetEffect(gear, heResurrectable, 0)
SetHealth(gear, 0)
end
function renderScores()
for i=0, TeamsCount-1 do
local name = GetTeamName(i)
SetTeamLabel(name, string.format(loc("%d | %d"), getTeamValue(name, "Score"), getTeamValue(name, "DeadHogs")))
end
end
function createEndGameStats()
SendStat(siGraphTitle, loc("Score graph"))
local teamsSorted = {}
for i=0, TeamsCount-1, 1 do
teamsSorted[i+1] = GetTeamName(i)
end
-- Achievements stuff
local achievements = 0
--- Most kills per turn
if recordKills >= 3 then
SendStat(siMaxStepKills, string.format("%d %s (%s)", recordKills, recordKillsHogName, recordKillsTeamName))
achievements = achievements + 1
end
--- Most crates collected
if recordCrates >= 5 then
SendStat(siCustomAchievement, string.format(loc("%s (%s) was the greediest hedgehog and collected %d crates."), recordCratesHogName, recordCratesTeamName, recordCrates))
achievements = achievements + 1
end
--- Most suicides
if recordSuicides >= 5 then
SendStat(siCustomAchievement, string.format(loc("%s (%s) hate life and suicided %d times."), recordSuicidesHogName, recordSuicidesTeamName, recordSuicides))
achievements = achievements + 1
end
--- Most deaths
if recordDeaths >= 5 then
SendStat(siCustomAchievement, string.format(loc("Poor %s (%s) died %d times."), recordDeathsHogName, recordDeathsTeamName, recordDeaths))
achievements = achievements + 1
end
--- Most skips
if recordSkips >= 3 then
SendStat(siMaxTurnSkips, string.format("%d %s (%s)", recordSkips, recordSkipsHogName, recordSkipsTeamName))
achievements = achievements + 1
end
--- Total damage
if totalDamage >= 900 then
SendStat(siCustomAchievement, string.format(loc("%d damage was dealt in this game."), totalDamage))
achievements = achievements + 1
end
--- Total kills
if totalKills >= 20 or (achievements <= 0 and totalKills >= 1) then
SendStat(siKilledHHs, tostring(totalKills))
achievements = achievements + 1
end
-- Score and stats stuff
local showScore = ""
local rank = 0
local rankPlus = 1
local prevScore
table.sort(teamsSorted, function(team1, team2) return getTeamValue(team1, "Score") > getTeamValue(team2, "Score") end)
for i=1, TeamsCount do
local score = getTeamValue(teamsSorted[i], "Score")
local deaths = getTeamValue(teamsSorted[i], "DeadHogs")
if i == 1 or score < prevScore then
rank = rank + rankPlus
rankPlus = 1
prevScore = score
else
rankPlus = rankPlus + 1
end
SendStat(siPointType, "!POINTS")
SendStat(siTeamRank, rank)
SendStat(siPlayerKills, score, teamsSorted[i])
showScore = showScore .. string.format(loc("%s: %d (deaths: %d)"), teamsSorted[i], score, deaths) .. "|"
end
if getTeamValue(teamsSorted[1], "Score") == getTeamValue(teamsSorted[2], "Score") then
-- The first two teams have the same score! Round is drawn.
return nil
else
ShowMission(loc("Mutant"),
loc("Final result"),
string.format(loc("Winner: %s"), teamsSorted[1]) .. "| |" .. loc("Scores:") .. " |" ..
showScore, 4, 15000)
-- return winning team
return teamsSorted[1]
end
end
function checkScore()
local lowest_score_team = nil
local min_score=nil
local winTeam = nil
local only_low_score = true
for i=0, TeamsCount-1 do
local teamName = GetTeamName(i)
if not teamsDead[teamName] then
local curr_score = getTeamValue(teamName, "Score")
runOnHogsInTeam(removeFeeder, teamName)
if curr_score >= winScore then
gameOver = true
winTeam = teamName
end
if min_score==nil then
min_score= curr_score
lowest_score_team = teamName
else
if curr_score <= min_score then
if curr_score == min_score then
if getTeamValue(teamName, "DeadHogs") == getTeamValue(lowest_score_team, "DeadHogs") then
only_low_score = false
else
if getTeamValue(teamName, "DeadHogs") > getTeamValue(lowest_score_team, "DeadHogs") then
lowest_score_team = teamName
end
only_low_score = true
end
else
min_score= curr_score
lowest_score_team = teamName
only_low_score = true
end
end
end
end
end
if gameOver then
EndTurn(true)
for i=0, TeamsCount-1 do
local teamName = GetTeamName(i)
if teamName~=winTeam then
runOnHogsInTeam(armageddon, teamName)
end
end
createEndGameStats()
else
if only_low_score then
runOnHogsInTeam(setFeeder, lowest_score_team)
end
if meh == false then
meh = true
end
end
end
function backToNormal(gear)
SetHogName(gear, getGearValue(gear,"Name"))
SetHogHat(gear, 'NoHat')
SetHogHat(gear, getGearValue(gear,"Hat"))
setGearValue(mutant,"SelfDestruct",false)
mt_hurt=false
mutant=nil
end
function setAIHints()
for i = 0, #hhs do
if mutant == nil or hhs[i] == mutant or CurrentHedgehog == mutant or getGearValue(CurrentHedgehog, "Feeder") then
SetGearAIHints(hhs[i], aihUsualProcessing)
else
SetGearAIHints(hhs[i], aihDoesntMatter)
end
end
for k,v in pairs(crates) do
if CurrentHedgehog == mutant and v ~= nil then
SetGearAIHints(v, aihDoesntMatter)
else
SetGearAIHints(v, aihUsualProcessing)
end
end
end
function removeFeeder(gear)
if gear~=nil then
setGearValue(gear,"Feeder",false)
if gear~= mutant then
SetHogName(gear, getGearValue(gear,"Name") )
SetHogHat(gear, 'NoHat')
SetHogHat(gear, getGearValue(gear,"Hat"))
end
end
end
function setFeeder(gear)
if gear~= mutant and gear~= nil then
SetHogName(gear, loc("Bottom Feeder"))
SetHogHat(gear, feederHat)
setGearValue(gear,"Feeder", true)
end
end
function setMutantStuff(gear)
mutant = gear
SetHogName(gear, loc("Mutant"))
SetHogHat(gear, mutantHat)
SetHealth(gear, ( mutant_base_health + numhhs*25) )
SetEffect(gear, hePoisoned, 1)
setGearValue(mutant,"SelfDestruct",false)
setGearValue(gear, "Feeder", false)
AddCaption(string.format(loc("%s has mutated! +2 points"), getGearValue(gear, "Name")), GetClanColor(GetHogClan(gear)), capgrpMessage)
if TurnTimeLeft > 0 then
EndTurn(true)
end
AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
PlaySound(sndSuddenDeath)
end
function teamScan()
for j=0, TeamsCount-1 do
local teamName = GetTeamName(j)
teamsDead[teamName] = false
setTeamValue(teamName, "Score",0)
setTeamValue(teamName, "Suicides",0)
setTeamValue(teamName, "Skips",0)
setTeamValue(teamName, "Crates",0)
setTeamValue(teamName, "DeadHogs",0)
end
renderScores()
---***---
end
function set_Mutant_and_Score(gear)
local curr_team = GetHogTeamName(CurrentHedgehog)
if gear == CurrentHedgehog then
if CurrentHedgehog == mutant then
PlaySound(sndHomerun)
if getGearValue(gear, "SelfDestruct")==false then
decreaseTeamValue(curr_team,"Score")
end
backToNormal(gear)
else
decreaseTeamValue(curr_team,"Score")
end
else
if gear == mutant then
backToNormal(mutant)
if curr_team ~=GetHogTeamName(gear) then
if getGearValue(CurrentHedgehog, "Alive") then
setMutantStuff(CurrentHedgehog)
setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") + mutant_kill_reward))
end
else
setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") - team_fire_punishment))
increaseTeamValue(curr_team,"Suicides")
if(getTeamValue(curr_team, "Suicides") > recordSuicides) then
recordSuicides = getTeamValue(curr_team, "Suicides")
recordSuicidesHogName = getGearValue(CurrentHedgehog, "Name")
recordSuicidesTeamName = curr_team
end
AddCaption(loc("-1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
end
else
if mutant==nil then
if curr_team ~=GetHogTeamName(gear) then
if getGearValue(CurrentHedgehog, "Alive") then
setMutantStuff(CurrentHedgehog)
setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") + mutant_kill_reward))
else
increaseTeamValue(curr_team,"Score")
end
else
setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") - team_fire_punishment))
increaseTeamValue(curr_team,"Suicides")
if(getTeamValue(curr_team, "Suicides") > recordSuicides) then
recordSuicides = getTeamValue(curr_team, "Suicides")
recordSuicidesHogName = getGearValue(CurrentHedgehog, "Name")
recordSuicidesTeamName = curr_team
end
AddCaption(loc("-1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
end
else
if curr_team ~=GetHogTeamName(gear) then
if CurrentHedgehog==mutant and getGearValue(mutant,"SelfDestruct")==false then
HealHog(CurrentHedgehog, kill_reward)
AddCaption(loc("+1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
increaseTeamValue(curr_team,"Score")
end
if getGearValue(CurrentHedgehog,"Feeder") then
increaseTeamValue(curr_team,"Score")
AddCaption(loc("+1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
end
else
setTeamValue(curr_team,"Score",(getTeamValue(curr_team,"Score") - team_fire_punishment))
AddCaption(loc("+1 point"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpMessage)
end
end
end
end
end
function onGearResurrect(gear)
if not gameOver then
if GetGearType(gear) == gtHedgehog then
increaseTeamValue(GetHogTeamName(gear), "DeadHogs")
totalKills = totalKills + 1
if(getTeamValue(GetHogTeamName(gear), "DeadHogs") > recordDeaths) then
recordDeaths = getTeamValue(GetHogTeamName(gear), "DeadHogs")
recordDeathsHogName = getGearValue(gear, "Name")
recordDeathsTeamName = GetHogTeamName(gear)
end
if gear==CurrentHedgehog then
setGearValue(CurrentHedgehog, "Alive", false)
end
set_Mutant_and_Score(gear)
if gear~=CurrentHedgehog then
killsCounter = killsCounter + 1
countBodies()
end
AddVisualGear(GetX(gear), GetY(gear), vgtSmokeRing, 0, false)
PlaySound(sndWhack)
renderScores()
end
end
end
function onGearDamage(gear, damage)
if not gameOver and GetGearType(gear) == gtHedgehog then
totalDamage = totalDamage + damage
end
end
function onSkipTurn()
-- Record skips for achievement
local team = GetHogTeamName(CurrentHedgehog)
increaseTeamValue(team, "Skips")
if(getTeamValue(team, "Skips") > recordSkips) then
recordSkips = getTeamValue(team, "Skips")
recordSkipsHogName = getGearValue(CurrentHedgehog, "Name")
recordSkipsTeamName = team
end
end
function onGearAdd(gear)
-- Catch hedgehogs for the tracker
if GetGearType(gear) == gtHedgehog then
trackGear(gear)
hhs[numhhs] = gear
numhhs = numhhs + 1
SetEffect(gear, heResurrectable, 1)
elseif GetGearType(gear) == gtCase then
crates[gear] = gear
elseif GetGearType(gear) == gtATFinishGame then
if not gameOver then
local winner = createEndGameStats()
if winner then
SendStat(siGameResult, string.format(loc("%s wins!"), winner))
AddCaption(string.format(loc("%s wins!"), winner), capcolDefault, capgrpGameState)
end
gameOver = true
end
end
end
function checkEmptyTeam (teamName)
for i=0 , #hhs do
if hhs[i]~=nil then
if teamName == GetHogTeamName(hhs[i]) then
return false
end
end
end
return true
end
function onGearDelete(gear)
-- Remove hogs that are gone
if GetGearType(gear) == gtHedgehog then
numhhs = numhhs - 1
if (not gameOver) and (gear == mutant) then
mutant = nil
mt_hurt = false
end
local found
for i=0, #hhs do
if hhs[i] == gear then
found = i
break
end
end
for i = found, #hhs - 1 do
hhs[i] = hhs[i + 1]
end
hhs[#hhs] = nil
local t_name = GetHogTeamName(gear)
if checkEmptyTeam(t_name) then
for i = 0, TeamsCount - 1 do
if GetTeamName(i) == t_name then
found = i
teamsDead[t_name] = true
break
end
end
end
if getGearValue(gear, "excess") ~= true and band(GetState(gear), gstDrowning) == 0 then
AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false)
end
trackDeletion(gear)
elseif GetGearType(gear) == gtCase then
crates[gear] = nil
-- Check if a crate has been collected
if band(GetGearMessage(gear), gmDestroy) ~= 0 and CurrentHedgehog ~= nil then
-- Update crate collection achievement
increaseTeamValue(GetHogTeamName(CurrentHedgehog), "Crates")
if(getTeamValue(GetHogTeamName(CurrentHedgehog), "Crates") > recordCrates) then
recordCrates = getTeamValue(GetHogTeamName(CurrentHedgehog), "Crates")
recordCratesHogName = getGearValue(CurrentHedgehog, "Name")
recordCratesTeamName = GetHogTeamName(CurrentHedgehog)
end
end
end
end
function onParameters()
parseParams()
winScore = tonumber(params["winscore"]) or winScore
end
--[[
S T A R R I N G
prof - Coding, implementing and evangelism
vos - Initial idea and script improvements
mikade - Moving the `how to play` into the game so that people know `how to play`, and whitespace :D
--]]