Backed out
changeset 071a05275798
Reason: Can't switch weapon forwards while preventing slipping, or while doing precise aiming
-- Hedgewars - Roperace for 2+ Players
HedgewarsScriptLoad("/Scripts/Locale.lua")
-- store number of hedgehogs
local numhhs = 0
-- store hedgehog gears
local hhs = {}
-- store best time per team
local clantimes = {}
-- store best times
local times = {}
-- in milisseconds
local maxtime = 99000
-- define start area (left, top, width, height)
local start_area = {1606, 498, 356, 80}
-- define goal area (left, top, width, height)
local goal_area = {2030, 300, 56, 280}
-- last active hog
local lasthog = nil
-- active hog reached the goal?
local reached = false
-- hog with worst time (per round)
local worsthog = nil
local besthog = nil
local besthogname = ''
-- best time
local besttime = maxtime + 1
-- best time per team
local bestTimes = {}
-- worst time (per round)
local worsttime = 0
local startTime = 0;
function onGameInit()
GameFlags = gfSolidLand + gfInvulnerable
TurnTime = maxtime
CaseFreq = 0
MinesNum = 0
Explosives = 0
Delay = 500
Theme = 'Olympics'
-- Disable Sudden Death
WaterRise = 0
HealthDecrease = 0
end
function onGameStart()
ShowMission(loc("TrophyRace"), loc("Race"), loc("Use your rope to get from start to finish as fast as you can!"), -amRope, 0)
started = true
p=1820
for i = 0, numhhs - 1 do
p = p + 50
SetGearPosition(hhs[i], p, 0)
end
for i=0, ClansCount-1 do
clantimes[i] = 0
end
end
function onAmmoStoreInit()
SetAmmo(amRope, 9, 1, 0)
SetAmmo(amSkip, 9, 1, 0)
end
function killHog()
SetHealth(CurrentHedgehog, 0)
SetEffect(CurrentHedgehog, heInvulnerable, 0)
x, y = GetGearPosition(CurrentHedgehog)
AddGear(x, y-2, gtGrenade, 0, 0, 0, 2)
SetGearVelocity(CurrentHedgehog, 0, 0)
worsttime = 99999
worsthog = nil
lasthog = nil
end
function onHogAttack()
if TurnTimeLeft == 0 then
killHog()
end
end
function onNewTurn()
if lasthog ~= nil then
SetGearPosition(lasthog, p , 0)
if not reached then
end
end
startTime = 0
reached = false
if CurrentHedgehog ~= nil then
SetGearVelocity(CurrentHedgehog, 1, 0)
SetGearPosition(CurrentHedgehog, start_area[1] + start_area[3] / 2, start_area[2] + start_area[4] / 2)
SetWeapon(amRope)
lasthog = CurrentHedgehog
end
end
function onGameTick()
if startTime == 0 and TurnTimeLeft < maxtime then
startTime = GameTime
end
if CurrentHedgehog ~= nil and TurnTimeLeft == 1 then
killHog()
elseif CurrentHedgehog ~= nil then
x, y = GetGearPosition(CurrentHedgehog)
if not reached and x > goal_area[1] and x < goal_area[1] + goal_area[3] and y > goal_area[2] and y < goal_area[2] + goal_area[4] then -- hog is within goal rectangle
reached = true
local ttime = GameTime-startTime
--give it a sound;)
if ttime < besttime then
PlaySound (sndHomerun)
else
PlaySound (sndHellish)
end
for i = 0, numhhs - 1 do
if hhs[i] == CurrentHedgehog then
times[numhhs] = ttime
end
end
local hscore = "| |"
local clan = GetHogClan(CurrentHedgehog)
if ttime < clantimes[clan] or clantimes[clan] == 0 then
clantimes[clan] = ttime
end
local teamname = GetHogTeamName(CurrentHedgehog)
if bestTimes[teamname] == nil or bestTimes[teamname] > ttime then
bestTimes[teamname] = ttime
end
if ttime < besttime then
besttime = ttime
besthog = CurrentHedgehog
besthogname = GetHogName(besthog)
hscore = hscore .. loc("NEW fastest lap: ")
else
hscore = hscore .. loc("Fastest lap: ")
end
if ttime > worsttime then
worsttime = ttime
worsthog = CurrentHedgehog
end
hscore = hscore .. besthogname .. " - " .. (besttime / 1000) .. " s | |" .. loc("Best laps per team: ")
if clan == ClansCount -1 then
-- Time for elimination - worst hog is out and the worst hog vars are reset.
if worsthog ~= nil then
SetHealth(worsthog, 0)
--Place a grenade to make inactive slowest hog active
x, y = GetGearPosition(worsthog)
AddGear(x, y, gtShell, 0, 0, 0, 0)
worsttime = 0
worsthog = nil
end
end
for i=0, ClansCount -1 do
local tt = "" .. (clantimes[i] / 1000) .. " s"
if clantimes[i] == 0 then
tt = "--"
end
hscore = hscore .. "|" .. string.format(loc("Team %d: "), i+1) .. tt
end
ShowMission(loc("TrophyRace"), loc("Race"), loc("You've reached the goal!| |Time: ") .. (ttime / 1000) .. " s" .. hscore, 0, 0)
EndTurn(true)
end
end
end
function onGearAdd(gear)
if GetGearType(gear) == gtHedgehog then
hhs[numhhs] = gear
times[numhhs] = 0
numhhs = numhhs + 1
end
-- elseif GetGearType(gear) == gtRope then -- rope is shot
end
--function onGearDelete(gear)
-- if GetGearType(gear) == gtRope then -- rope deletion - hog didn't manage to rerope
-- --TurnTimeLeft = 0 -- end turn or not? hm...
-- lasthog = CurrentHedgehog
--
-- end
--end
function onAchievementsDeclaration()
for team,time in pairs(bestTimes) do
DeclareAchievement("rope race", team, "TrophyRace", time)
end
end