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

-- RACER 0.6

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

-------

-- 0.3

-------

-- prevent WP being placed in land

-- prevent waypoints being placed outside border

-------

-- 0.4

-------

-- update user feedback

-- add more sounds

-------

-- 0.5

-------

-- fix ghost disappearing if hog falls in water or somehow dies

-- lengthen ghost tracking interval to improve performance on slower machines

-- increase waypoint limit to 8

-- allow for persistent showmission information

-------

-- 0.6

-------

-- remove hogs from racing area as per request

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

-- SCRIPT BEGINS

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

HedgewarsScriptLoad("/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 bestClan = nil

local bestTime = nil

local gameBegun = false

local gameOver = false

local racerActive = false

local trackTime = 0

local wpCirc = {}

local wpX = {}

local wpY = {}

local wpCol = {}

local wpActive = {}

local wpRad = 450 --75

local wpCount = 0

local wpLimit = 8

local roundN

local lastRound

local RoundHasChanged

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

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

                NR = (48/100*wpRad)/2

                if dist < (NR*NR) then

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

                                        wpRem = wpRem + 1

                                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

                        ShowMission(loc("RACER"),

                        loc("TRACK COMPLETED"),

                        loc("NEW RACE RECORD: ") .. (trackTime/1000) ..loc("s") .. "|" ..

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

                        PlaySound(sndHomerun)

                else    -- best time for the clan

                        ShowMission(loc("RACER"),

                        loc("TRACK COMPLETED"),

                        loc("NEW CLAN RECORD: ") .. (trackTime/1000) ..loc("s") .. "|" ..

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

                end

        else -- not any kind of new score

                ShowMission(loc("RACER"),

                loc("TRACK COMPLETED"),

                loc("TIME: ") .. (trackTime/1000) ..loc("s") .. "|" ..

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

                PlaySound(sndHellish)

        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 onNewRound()

        roundNumber = roundNumber + 1

        totalComment = ""

        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

        ShowMission(    loc("RACER"),

                                        loc("STATUS UPDATE"),

                                        loc("Rounds Complete: ") .. roundNumber .. "/" .. roundLimit .. "|" .. " " .. "|" ..

                                        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, 0)

                                SetHealth(hhs[i],0)

                        end

                end

                gameOver = true

                TurnTimeLeft = 1

        end

end

function CheckForNewRound()

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

        ------ new

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

        --[[turnN = turnN + 1

        if gameBegun == false then

                if turnN == 2 then

                        for i = 0, (numhhs-1) do

                                if hhs[i] ~= nil then

                                        SetEffect(hhs[i], heResurrectable, 0)

                                        SetHealth(hhs[i],0)

                                end

                        end

                        gameOver = true

                        TurnTimeLeft = 1

                end

        else

        end]]

        --[[if roundBegun == true then

                if RoundHasChanged == true then

                        roundN = roundN + 1

                        RoundHasChanged = false

                        onNewRound()

                end

                if lastRound ~= TotalRounds then -- new round, but not really

                        if RoundHasChanged == false then

                                RoundHasChanged = true

                        end

                end

                AddCaption("RoundN:" .. roundN .. "; " .. "TR: " .. TotalRounds)

                lastRound = TotalRounds

        end]]

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

        ----- old

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

        if GetHogClan(CurrentHedgehog) == firstClan then

                onNewRound()

        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

function TryRepositionHogs()

	if MapHasBorder() == true then

		for i = 0, (numhhs-1) do

			if hhs[i] ~= nil then

				SetGearPosition(hhs[i],GetX(hhs[i]), TopY-10)

			end

		end

	end

end

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

-- GAME METHODS / EVENT HANDLERS

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

function onGameInit()

        GameFlags = bor(GameFlags,gfInfAttack + gfInvulnerable)

        CaseFreq = 0

        TurnTime = 90000

        WaterRise = 0

end

function onGameStart()

        roundN = 0

        lastRound = TotalRounds

        RoundHasChanged = false -- true

        RebuildTeamInfo()

        ShowMission     (

                                loc("RACER"),