-- Hedgewars - Roperace for 2+ Players

local caption = {

	["en"] = "TrophyRace",

	["sv"] = "TrophyRace",

	["pt_PT"] = "TrophyRace",

	["pl"] = "TrophyRace",

	["es"] = "TrophyRace",

	["pt_BR"] = "TrophyRace"

	}

local goal = {

	["en"] = "Use your rope to get from start to finish as fast as you can!",

	["sv"] = "Använd ditt rep för att ta dig från start till mål så fort som möjligt!",

	["pt_PT"] = "Utilizando a corda, percorre o percurso do inicio ao fim o mais rápido que conseguires!",

	["pl"] = "Użyj liny by jak najszybciej dotrzec od startu do mety",

	["es"] = "¡Usa tu cuerda para llegar a la salida lo más rápido que puedas!",

	["pt_BR"] = "Use sua corda para ir do início ao fim o mais rápido que você puder!"

	}

local done = {

	["en"] = "You've reached the goal!| |Time: ",

	["sv"] = "Du har nått målet!| |Tid: ",

	["pt_PT"] = "Chegaste ao fim!| |Tempo: ",

	["pl"] = "Dotarłeś do celu!| |Czas: ",

	["es"] = "¡Has llegado a la meta!| |Tiempo: ",

	["pt_BR"] = "Você alcançou o objetivo!| |Tempo: "

	}

local eliminated = {

	["en"] = "Eliminating worst hedgehog this round...| |%s is OUT!",

	["sv"] = "Eliminerar sämsta igelkott den här rundan...| |%s är UTE!",

	["pt_PT"] = "A eliminar o pior ouriço da ronda...| |% está FORA!",

	["pl"] = "Eliminujemy najgorszego jeża tej rundy...| |%s ODPADŁ!",

	["es"] = "Eliminando al peor erizo de esta ronda...| |¡%s está FUERA!",

	["pt_BR"] = "Eliminando o ouriço mais lento...| |%s vai para o chuveiro!"

	}

local newbesttime = {

	["en"] = "NEW fastest lap: ",

	["sv"] = "NYTT snabbast varv: ",

	["pt_PT"] = "NOVA volta recorde: ",

	["pl"] = "NOWE najszybsze okrążenie: ",

	["es"] = "NUEVA vuelta rápida: ",

	["pt_BR"] = "NOVA volta mais rápida: "

	}

local oldbesttime = {

	["en"] = "Fastest lap: ",

	["sv"] = "Snabbast varv: ",

	["pt_PT"] = "Volta mais rápida: ",

	["pl"] = "Najszybsze okrążenie: ",

	["es"] = "Vuelta rápida: ",

	["pt_BR"] = "Volta mais rápida: "

	}

local bestclantimes = {

	["en"] = "Best laps per team: ",

	["sv"] = "Bästa varv per lag: ",

	["pt_PT"] = "Melhores voltas por equipa: ",

	["pl"] = "Najszybsze okrążenie drużyny: ",

	["es"] = "Mejores tiempos por equipo: ",

	["pt_BR"] = "Melhor volta por equipe: "

	}

local clantime = {

	["en"] = "Team %d: ",

	["sv"] = "Lag %d: ",

	["pt_PT"] = "Equipa %d: ",

	["pl"] = "Drużyna %d: ",

	["es"] = "Equipo %d",

	["pt_BR"] = "Equipe %d: "

	}

local function loc(text)

	if text == nil then return "**missing**"

	elseif text[L] == nil then return text["en"]

	else return text[L]

	end

end

---------------------------------------------------------------

-- 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 best time

local besthog = nil

-- hog with worst time (per round)

local worsthog = nil

-- best time

local besttime = maxtime + 1

-- worst time (per round)

local worsttime = 0

function onGameInit()

	GameFlags = gfSolidLand + gfInvulnerable

	TurnTime = maxtime

	CaseFreq = 0

	MinesNum = 0

	Explosives = 0

	Delay = 500

	SuddenDeathTurns = 99999 -- "disable" sudden death

	Theme = 'Olympics'

end

function onGameStart()

	ShowMission(loc(caption), "", loc(goal), -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, 2, 0)

end

function onGameTick()

	if TurnTimeLeft == 1 and CurrentHedgehog ~= nil then

		SetHealth(CurrentHedgehog, 0)

		x, y = GetGearPosition(CurrentHedgehog)

		AddGear(x, y, gtAmmo_Grenade, 0, 0, 0, 0)

		worsttime = 99999

		worsthog = nil

	elseif TurnTimeLeft == maxtime - 1 and CurrentHedgehog ~= nil then

		if lasthog ~= nil then 

		SetGearPosition(lasthog, p , 0)

		end

		reached = false

		SetGearPosition(CurrentHedgehog, start_area[1] + start_area[3] / 2, start_area[2] + start_area[4] / 2)

	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 = maxtime - TurnTimeLeft

			--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

			if ttime < besttime then

				besttime = ttime

				besthog = CurrentHedgehog

				hscore = hscore .. loc(newbesttime)

			else

				hscore = hscore .. loc(oldbesttime)

			end

			if ttime > worsttime then

				worsttime = ttime

				worsthog = CurrentHedgehog

			end

			hscore = hscore .. GetHogName(besthog) .. " - " .. (besttime / 1000) .. " s | |" .. loc(bestclantimes)

			if clan == ClansCount -1 then

				-- Time for elimination - worst hog is out and the worst hog vars are reset.

				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

			for i=0, ClansCount -1 do

				local tt = "" .. (clantimes[i] / 1000) .. " s"

				if clantimes[i] == 0 then

					tt = "--"

				end

				hscore = hscore .. "|" .. string.format(loc(clantime), i+1) .. tt

			end

			ShowMission(loc(caption), "", loc(done) .. (ttime / 1000) .. " s" .. hscore, 0, 0)

			TurnTimeLeft = 0

		end

	end

end

function onGearAdd(gear)

	if GetGearType(gear) == gtHedgehog then

		hhs[numhhs] = gear

		times[numhhs] = 0

		numhhs = numhhs + 1

	elseif GetGearType(gear) == gtRope then -- rope is shot

	end

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