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

-- TECH RACER v0.2

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

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

--0.2

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

-- should work better "out the box"

-- changed map generation

-- put a hog limiter in place

-- removed parsecommand

-- fix one of the test maps

-- hopefully added some support for future official challenges etc

-- changed theme

-- minor cleanups?

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

-- SCRIPT BEGINS

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

HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/OfficialChallenges.lua")

HedgewarsScriptLoad("/Scripts/Tracker.lua")

HedgewarsScriptLoad("/Scripts/Params.lua")

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

-- Got Variables?

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

local activationStage = 0

local jet = nil

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

local specialPointsX = {}

local specialPointsY = {}

local specialPointsCount = 0

mapID = 22

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

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

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

-- general methods

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

--function onPrecise()

--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 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 BoomGirder(x,y,rot)

	girTime = 1

	if rot < 4 then

				AddGear(x, y, gtGrenade, 0, 0, 0, girTime)

	elseif rot == 4 then

				g = AddGear(x-45, y, gtGrenade, 0, 0, 0, girTime) -- needed?

				g = AddGear(x-30, y, gtGrenade, 0, 0, 0, girTime)

				g = AddGear(x, y, gtGrenade, 0, 0, 0, girTime) -- needed?

				g = AddGear(x+30, y, gtGrenade, 0, 0, 0, girTime)

				g = AddGear(x+45, y, gtGrenade, 0, 0, 0, girTime) -- needed?

	elseif rot == 5 then ------- diag

				g = AddGear(x+45, y+45, gtGrenade, 0, 0, 0, girTime) --n

				g = AddGear(x+30, y+30, gtGrenade, 0, 0, 0, girTime)

				g = AddGear(x, y, gtGrenade, 0, 0, 0, girTime) -- needed?

				g = AddGear(x-30, y-30, gtGrenade, 0, 0, 0, girTime)

				g = AddGear(x-45, y-45, gtGrenade, 0, 0, 0, girTime) --n

	elseif rot == 6 then

				g = AddGear(x, y-45, gtGrenade, 0, 0, 0, girTime) -- needed?

				g = AddGear(x, y+30, gtGrenade, 0, 0, 0, girTime)

				g = AddGear(x, y, gtGrenade, 0, 0, 0, girTime) -- needed?

				g = AddGear(x, y-30, gtGrenade, 0, 0, 0, girTime)

				g = AddGear(x, y+45, gtGrenade, 0, 0, 0, girTime) -- needed?

	elseif rot == 7 then -------

				g = AddGear(x+45, y-45, gtGrenade, 0, 0, 0, girTime) --n

				g = AddGear(x+30, y-30, gtGrenade, 0, 0, 0, girTime)

				g = AddGear(x, y, gtGrenade, 0, 0, 0, girTime) -- needed?

				g = AddGear(x-30, y+30, gtGrenade, 0, 0, 0, girTime)

				g = AddGear(x-45, y+45, gtGrenade, 0, 0, 0, girTime) --n

	end

end

function RemoveGear(gear)

	if (isATrackedGear(gear) == true) and (GetGearType(gear) ~= gtHedgehog) then

		DeleteGear(gear)

	end

end

function ClearMap()

	runOnGears(RemoveGear)

end

function HandleFreshMapCreation()

	-- the boom stage, boom girders, reset ammo, and delete other map objects

	if activationStage == 1 then

		ClearMap()

		activationStage = activationStage + 1

	-- the creation stage, place girders and needed gears, grant ammo

	elseif activationStage == 2 then

		-- these are from onParameters()

		if mapID == "0" then

			--AddCaption("don't load any map")

		elseif mapID == "1" then

			------ GIRDER LIST ------

			PlaceSprite(306, 530, sprAmGirder, 7, lfNormal)

			PlaceSprite(451, 474, sprAmGirder, 4, lfNormal)

			PlaceSprite(595, 531, sprAmGirder, 5, lfNormal)

			PlaceSprite(245, 679, sprAmGirder, 6, lfNormal)

			PlaceSprite(305, 822, sprAmGirder, 5, lfNormal)

			PlaceSprite(449, 887, sprAmGirder, 4, lfNormal)

			PlaceSprite(593, 825, sprAmGirder, 7, lfNormal)

			PlaceSprite(657, 681, sprAmGirder, 6, lfNormal)

			PlaceSprite(1063, 682, sprAmGirder, 6, lfNormal)

			PlaceSprite(1121, 532, sprAmGirder, 7, lfNormal)

			PlaceSprite(1266, 476, sprAmGirder, 4, lfNormal)

			PlaceSprite(1411, 535, sprAmGirder, 5, lfNormal)

			PlaceSprite(1472, 684, sprAmGirder, 6, lfNormal)

			PlaceSprite(1415, 828, sprAmGirder, 7, lfNormal)

			PlaceSprite(1271, 892, sprAmGirder, 4, lfNormal)

			PlaceSprite(1126, 827, sprAmGirder, 5, lfNormal)

			PlaceSprite(841, 1079, sprAmGirder, 4, lfNormal)

			PlaceSprite(709, 1153, sprAmGirder, 7, lfNormal)

			PlaceSprite(975, 1154, sprAmGirder, 5, lfNormal)

			PlaceSprite(653, 1265, sprAmGirder, 2, lfNormal)

			PlaceSprite(1021, 1266, sprAmGirder, 2, lfNormal)

			PlaceSprite(713, 1369, sprAmGirder, 5, lfNormal)

			PlaceSprite(960, 1371, sprAmGirder, 7, lfNormal)

			PlaceSprite(835, 1454, sprAmGirder, 4, lfNormal)

			PlaceSprite(185, 1617, sprAmGirder, 2, lfNormal)

			PlaceSprite(1317, 1399, sprAmGirder, 2, lfNormal)

			PlaceSprite(1711, 1811, sprAmGirder, 2, lfNormal)

			PlaceSprite(2087, 1424, sprAmGirder, 2, lfNormal)

			PlaceSprite(2373, 1804, sprAmGirder, 2, lfNormal)

			PlaceSprite(2646, 1434, sprAmGirder, 2, lfNormal)

			PlaceSprite(1876, 667, sprAmGirder, 6, lfNormal)

			PlaceSprite(1934, 517, sprAmGirder, 7, lfNormal)

			PlaceSprite(2079, 461, sprAmGirder, 4, lfNormal)

			PlaceSprite(2224, 519, sprAmGirder, 5, lfNormal)

			PlaceSprite(1935, 810, sprAmGirder, 5, lfNormal)

			PlaceSprite(2080, 875, sprAmGirder, 4, lfNormal)

			PlaceSprite(2224, 811, sprAmGirder, 7, lfNormal)

			PlaceSprite(2370, 582, sprAmGirder, 4, lfNormal)

			PlaceSprite(2370, 759, sprAmGirder, 4, lfNormal)