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

-- RACER 0.8

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

-------

-- 0.7

-------

-- switch to first available weapon if starting race with no weapon selected

-------

-- 0.8

-------

-- allow different boost directions

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

-- SCRIPT BEGINS

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

HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/OfficialChallenges.lua")

HedgewarsScriptLoad("/Scripts/Params.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 = 0xffffffff

local currX = {}

local currY = {}

local currCount = 0

local specialPointsX = {}

local specialPointsY = {}

local specialPointsCount = 0

local TeamRope = false

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

-- 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 usedWeapons = {}

local roundN

local lastRound

local RoundHasChanged

local boostX = 0

local boostY = 0

local boostValue = 1

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

-- general methods

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

function onParameters()

    parseParams()

    if params["teamrope"] ~= nil then

        TeamRope = true

    end

    if params["rounds"] ~= nil then

        roundLimit = math.max(1, math.floor(tonumber(params["rounds"])))

        if type(roundLimit) ~= "number" then

             roundLimit = 3

        end

    end

end

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

	boostX = boostX +boostValue

end

function onLeftUp()

	boostX = boostX -boostValue

end

function onRight()

	boostX = boostX -boostValue

end

function onRightUp()

	boostX = boostX +boostValue

end

function onUp()

	boostY = boostY +boostValue

end

function onUpUp()

	boostY = boostY -boostValue

end

function onDown()

	boostY = boostY -boostValue

end

function onDownUp()

	boostY = boostY +boostValue

end

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

                        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

                        if wpActive[i] == false then

                        end

                        wpActive[i] = true

                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 = string.format(loc("%.1fs"), (bestTime/1000))

        end

        if newScore == true then

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

                        ShowMission(loc("Racer"),

                        loc("Track completed!"),

                        string.format(loc("New race record: %.1fs"), (trackTime/1000)) .. "|" ..

                        string.format(loc("Winning time: %s"), bestTimeComment), 0, 4000)

                        PlaySound(sndHomerun)

                else    -- best time for the clan

                        ShowMission(loc("Racer"),

                        loc("Track completed!"),

                        string.format(loc("New clan record: %.1fs"), (trackTime/1000)) .. "|" ..

                        string.format(loc("Winning time: %s"), bestTimeComment), 4, 4000)

                end

        else -- not any kind of new score

                ShowMission(loc("Racer"),

                loc("Track completed!"),

                string.format(loc("Time: %.1fs"), (trackTime/1000)) .. "|" ..

                string.format(loc("Winning time: %s"), 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] ~= " " and teamScore[i] ~= -1 then

                                teamComment[i] = string.format(loc("%s: %.1fs"), teamNameArr[i], (teamScore[i]/1000)) .. "|"

                        else

                                teamComment[i] = string.format(loc("%s: N/A"), teamNameArr[i]) .. "|"

                        end

                        totalComment = totalComment .. teamComment[i]

        end

        ShowMission(    loc("Racer"),

                                        loc("Status update"),

                                        string.format(loc("Rounds complete: %d/%d"), roundNumber, roundLimit) .. "|" .. " " .. "|" ..

                                        loc("Best team times: ") .. "|" .. totalComment, 0, 4000)

        -- end game if its at round limit

        if roundNumber >= roundLimit then

                gameOver = true

                TurnTimeLeft = 10000000

                -- Sort the scores for the ranking list

                local unfinishedArray = {}

                local sortedTeams = {}

                local k = 1

                for i = 0, TeamsCount-1 do

                        if teamScore[i] ~= 100000 and teamNameArr[i] ~= " " then

                               sortedTeams[k] = {}

                               sortedTeams[k].name = teamNameArr[i]

                               sortedTeams[k].score = teamScore[i]

                               k = k + 1

                        else

                               table.insert(unfinishedArray, string.format(loc("%s did not finish the race."), teamNameArr[i]))

                        end

                end

                table.sort(sortedTeams, function(team1, team2) return team1.score < team2.score end)

                -- Write all the stats!

                for i = 1, #sortedTeams do

                        SendStat(siPointType, loc("milliseconds"))

                        SendStat(siPlayerKills, sortedTeams[i].score, sortedTeams[i].name)

                end

                if #sortedTeams >= 1 then

                        SendStat(siGameResult, string.format(loc("%s wins!"), sortedTeams[1].name))

                        SendStat(siGameResult, string.format(loc("%s wins!"), sortedTeams[1].name))

                        SendStat(siCustomAchievement, string.format(loc("%s wins with a best time of %.1fs."), sortedTeams[1].name, (sortedTeams[1].score/1000)))

                        for i=1,#unfinishedArray do

                                 SendStat(siCustomAchievement, unfinishedArray[i])

                        end

                else

                        SendStat(siGameResult, loc("Round draw"))

                        SendStat(siCustomAchievement, loc("Nobody managed to finish the race. What a shame!"))

                        SendStat(siCustomAchievement, loc("Maybe you should try easier waypoints next time."))

                end

                -- Game over

                EndGame()

        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