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

-- RACER 0.1

-- map-independant racing script

-- by mikade

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

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

--0.1: took all the code from crazy racer and scrapped most of it

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

-- Removed tumbler system

-- Removed extra adds like boosters etc

-- Added experimental waypoint placement system

-- More user feedback

-- Reduced race complexity limit to 5 waypoints

-- stop placement at complexity limit reached and end turn

-- guys dont keep racing after dying

-- invulnerable feasibility

-- reverted time keeping method

-- reduced feedback display time

-- colour-coded addcaptions

-- cleaned up code

-- support for more players properly added

-- tardis fix

-- remove airstrikes

-- i think the remainder 0 .456 sec of the tracktime isnt getting reset on newturn

-- update feedback

-------

-- 0.2

-------

-- allow gameflags

-- extend time to 90s

-- remove other air-attack based weps

-- turn off water rise for sd

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

-- SCRIPT BEGINS

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

loadfile(GetDataPath() .. "Scripts/Locale.lua")()

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

-- Got Variables?

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

local fMod = 1000000 -- 1

local roundLimit = 3

local roundNumber = 0

local firstClan = 10

local fastX = {}

local fastY = {}

local fastCount = 0

local fastIndex = 0

local fastColour

local currX = {}

local currY = {}

local currCount = 0

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

-- hog and team tracking variales

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

local numhhs = 0 -- store number of hedgehogs

local hhs = {} -- store hedgehog gears

local numTeams --  store the number of teams in the game

local teamNameArr = {}	-- store the list of teams

local teamClan = {}

local teamSize = {}	-- store how many hogs per team

local teamIndex = {} -- at what point in the hhs{} does each team begin

local teamComment = {}

local teamScore = {}

-------

-- racer vars

--------

local cGear = nil

local gTimer = 0

local bestClan = nil

local bestTime = nil

local gameBegun = false

local gameOver = false

local racerActive = false

local trackTime = 0

local wpCheckCounter = 0

local wpCirc = {}

local wpX = {}

local wpY = {}

local wpCol = {}

local wpActive = {}

local wpCount = 0

local wpLimit = 5

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

-- general methods

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

function RebuildTeamInfo()

	-- make a list of individual team names

	for i = 0, (TeamsCount-1) do

		teamNameArr[i] = " " -- = i

		teamSize[i] = 0

		teamIndex[i] = 0

		teamScore[i] = 100000

	end

	numTeams = 0

	for i = 0, (numhhs-1) do

		z = 0

		unfinished = true

		while(unfinished == true) do

			newTeam = true

			tempHogTeamName = GetHogTeamName(hhs[i]) -- this is the new name

			if tempHogTeamName == teamNameArr[z] then

				newTeam = false

				unfinished = false

			end

			z = z + 1

			if z == TeamsCount then

				unfinished = false

				if newTeam == true then

					teamNameArr[numTeams] = tempHogTeamName

					numTeams = numTeams + 1

				end

			end

		end

	end

	-- find out how many hogs per team, and the index of the first hog in hhs

	for i = 0, (numTeams-1) do

		for z = 0, (numhhs-1) do

			if GetHogTeamName(hhs[z]) == teamNameArr[i] then

				teamClan[i] = GetHogClan(hhs[z])

				if teamSize[i] == 0 then

					teamIndex[i] = z -- should give starting index

				end

				teamSize[i] = teamSize[i] + 1

				--add a pointer so this hog appears at i in hhs

			end

		end

	end

end

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

-- RACER METHODS

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

function CheckWaypoints()

	trackFinished = true

	for i = 0, (wpCount-1) do

		g1X, g1Y = GetGearPosition(CurrentHedgehog)

		g2X, g2Y = wpX[i], wpY[i]

		g1X = g1X - g2X

		g1Y = g1Y - g2Y

		dist = (g1X*g1X) + (g1Y*g1Y)

		--if i == 0 then

		--	AddCaption(dist .. "/" .. (wpRad*wpRad) )

		--end

		--if dist < (wpRad*wpRad) then

			--AddCaption("howdy")

			wpActive[i] = true

			wpCol[i] = GetClanColor(GetHogClan(CurrentHedgehog)) -- new				--GetClanColor(1)

			SetVisualGearValues(wpCirc[i], wpX[i], wpY[i], 20, 100, 1, 10, 0, wpRad, 5, wpCol[i])

			wpRem = 0

			for k = 0, (wpCount-1) do

				if wpActive[k] == false then

				end

			end

			AddCaption(loc("Way-Points Remaining") .. ": " .. wpRem,0xffba00ff,capgrpAmmoinfo)

		end

		if wpActive[i] == false then

			trackFinished = false

		end

	end

	return(trackFinished)

end

function AdjustScores()

	if bestTime == nil then

		bestTime = 100000

		bestClan = 10

		bestTimeComment = "N/A"

	end

	newScore = false

	-- update this clan's time if the new track is better

	for i = 0, (numTeams-1) do

		if teamClan[i] == GetHogClan(CurrentHedgehog) then

			if trackTime < teamScore[i] then

				teamScore[i] = trackTime

				newScore = true

			else

				newScore = false

			end

		end

	end

	--bestTime = 100000

	--bestClan = 10

	-- find the best time out of those so far

	for i = 0, (numTeams-1) do

		if teamScore[i] < bestTime then

			bestTime = teamScore[i]

			bestClan = teamClan[i]

		end

	end

	if bestTime ~= 100000 then

		bestTimeComment = (bestTime/1000) ..loc("s")

	end

	if newScore == true then

		if trackTime == bestTime then -- best time of the race

			loc("WINNING TIME: ") .. bestTimeComment, 0, 4000)

		else	-- best time for the clan

			loc("WINNING TIME: ") .. bestTimeComment, 4, 4000)

		end

	else -- not any kind of new score

		loc("WINNING TIME: ") .. bestTimeComment, -amSkip, 4000)

	end

	--------

	--new

	--------

	if bestTime == trackTime then

		--AddCaption("wooooooooooooooooooooooooooooo")

		fastColour = GetClanColor(GetHogClan(CurrentHedgehog))

		for i = 0, (currCount-1) do

			fastX[i] = currX[i]

			fastY[i] = currY[i]

		end

		fastCount = currCount

		fastIndex = 0

		--currCount = 0 -- is this needed?

	else

		currCount = 0

		fastIndex = 0

	end

end

function CheckForNewRound()

	if GetHogClan(CurrentHedgehog) == firstClan then

		roundNumber = roundNumber + 1

		for i = 0, (TeamsCount-1) do

				if teamNameArr[i] ~= " " then				-- teamScore[teamClan[i]]

					teamComment[i] = teamNameArr[i] .. ": " .. (teamScore[i]/1000) .. loc("s|")

					totalComment = totalComment .. teamComment[i]

				elseif teamNameArr[i] == " " then

					teamComment[i] = "|"

				end

		end

				loc("Best Team Times: ") .. "|" .. totalComment, 0, 4000)

		-- end game if its at round limit

		if roundNumber == roundLimit then

			for i = 0, (numhhs-1) do

				if GetHogClan(hhs[i]) ~= bestClan then

					SetEffect(hhs[i], heResurrectable, false)

					SetHealth(hhs[i],0)

				end

			end

			gameOver = true

			TurnTimeLeft = 1

		end

	end

end

function DisableTumbler()

	currCount = 0

	fastIndex = 0

	TurnTimeLeft = 0

	racerActive = false -- newadd

end

function HandleGhost()

	-- get the current xy of the racer at this point

	currX[currCount] = GetX(CurrentHedgehog)

	currY[currCount] = GetY(CurrentHedgehog)

	currCount = currCount + 1

	-- draw a ping of smoke where the fastest player was at this point

	if (fastCount ~= 0) and (fastIndex < fastCount) then

		fastIndex = fastIndex + 1

		tempE = AddVisualGear(fastX[fastIndex], fastY[fastIndex], vgtSmoke, 0, false)

		g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)

		SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, g8, g9, fastColour )

		--AddCaption("fC: " .. fastIndex .. " / " .. fastCount)

	else

		--AddCaption("excep fC: " .. fastIndex .. " / " .. fastCount)

	end

end

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

-- GAME METHODS / EVENT HANDLERS

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

function onGameInit()

	GameFlags = GameFlags + gfInfAttack + gfInvulnerable

	CaseFreq = 0

	TurnTime = 90000

	WaterRise = 0

end

function onGameStart()

	RebuildTeamInfo()

	ShowMission	(

				loc("RACER"),

				loc("a Hedgewars mini-game"),

				loc("Build a track and race.") .. "|" ..

				loc("Round Limit:") .. " " .. roundLimit .. "|" ..

				"", 4, 4000

				)

end

function PlaceWayPoint(x,y)

	if (wpCount < wpLimit) then -- seems to not work with a hedgehog nil chek

		wpX[wpCount] = x

		wpY[wpCount] = y

		wpCol[wpCount] = 0xffffffff

		wpCirc[wpCount] = AddVisualGear(wpX[wpCount],wpY[wpCount],vgtCircle,0,true)

		SetVisualGearValues(wpCirc[wpCount], wpX[wpCount], wpY[wpCount], 20, 100, 1, 10, 0, wpRad, 5, wpCol[wpCount])

		wpCount = wpCount + 1

		AddCaption(loc("Waypoint placed.") .. " " .. loc("Available points remaining: ") .. (wpLimit-wpCount))

	end

end

function onNewTurn()

	CheckForNewRound()

	racerActive = false

	trackTime = 0

	currCount = 0 -- hopefully this solves problem

	AddAmmo(CurrentHedgehog, amAirAttack, 0)

	gTimer = 0

	-- Set the waypoints to unactive on new round

	for i = 0,(wpCount-1) do

		wpActive[i] = false

		wpCol[i] = 0xffffffff

		SetVisualGearValues(wpCirc[i], wpX[i], wpY[i], 20, 100, 1, 10, 0, wpRad, 5, wpCol[i])

	end

	-- Handle Starting Stage of Game

	if (gameOver == false) and (gameBegun == false) then

		if wpCount >= 3 then

			gameBegun = true

			firstClan = GetHogClan(CurrentHedgehog)

			loc("Complete the track as fast as you can!"), 2, 4000)

		else

			loc("Place more waypoints using the 'Air Attack' weapon."), 2, 4000)

			AddAmmo(CurrentHedgehog, amAirAttack, 4000)

		end

	end

	if gameOver == true then

		gameBegun = false

		racerActive = false -- newadd

	end

	AddAmmo(CurrentHedgehog, amTardis, 0)

	AddAmmo(CurrentHedgehog, amDrillStrike, 0)

	AddAmmo(CurrentHedgehog, amMineStrike, 0)

	AddAmmo(CurrentHedgehog, amNapalm, 0)

	AddAmmo(CurrentHedgehog, amPiano, 0)

end

function onGameTick()

	if cGear ~= nil then

		x,y = GetGearTarget(cGear)

		DeleteGear(cGear)

		end

	end

	-- start the player tumbling with a boom once their turn has actually begun

	if racerActive == false then

		if (TurnTimeLeft > 0) and (TurnTimeLeft ~= TurnTime) then

			-- if the gamehas started put the player in the middle of the first

			--waypoint that was placed

			if gameBegun == true then

				AddCaption(loc("Good to go!"))

				racerActive = true

				trackTime = 0

				SetGearPosition(CurrentHedgehog, wpX[0], wpY[0])

				AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), gtGrenade, 0, 0, 0, 1)

				FollowGear(CurrentHedgehog)

				ShowMission("...", "...", "...", 2, 1)

				-- still in placement mode

			end