-- DEVELOPER WARNING - FOR OFFICIAL DEVELOPMENT --

-- Be careful when editig this script, do not introduce changes lightly!

-- This script is used for time records on the official Hedgewars server.

-- Introducing breaking changes means we have to invalidate past time records!

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

-- TO DO

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

-- allow scrolling of maps (was going to add this in the engine itself, but it can be done now by refreshing preview)

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

-- SCRIPT BEGINS

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

HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/OfficialChallenges.lua")

HedgewarsScriptLoad("/Scripts/Tracker.lua")

HedgewarsScriptLoad("/Scripts/Params.lua")

HedgewarsScriptLoad("/Scripts/Utils.lua")

HedgewarsScriptLoad("/Scripts/TechMaps.lua")

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

-- Got Variables?

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

local atkArray =

				{

				{amBazooka, 	"amBazooka",		0},

				{amBee, 		"amBee",			0},

				{amMortar, 		"amMortar",			0},

				{amDrill, 		"amDrill",			0},

				{amSnowball, 	"amSnowball",		0},

				{amGrenade,		"amGrenade",		0},

				{amClusterBomb,	"amClusterBomb",	0},

				{amMolotov, 	"amMolotov",		0},

				{amWatermelon, 	"amWatermelon",		0},

				{amHellishBomb,	"amHellishBomb",	0},

				{amGasBomb, 	"amGasBomb",		0},

				{amShotgun,		"amShotgun",		0},

				{amDEagle,		"amDEagle",			0},

				{amFlamethrower,"amFlamethrower",	0},

				{amSniperRifle,	"amSniperRifle",	0},

				{amSineGun, 	"amSineGun",		0},

				{amIceGun, 		"amIceGun",			0},

				{amLandGun,		"amLandGun",		0},

				{amFirePunch, 	"amFirePunch",		0},

				{amWhip,		"amWhip",			0},

				{amBaseballBat, "amBaseballBat",	0},

				{amKamikaze, 	"amKamikaze",		0},

				{amSeduction, 	"amSeduction",		0},

				{amHammer,		"amHammer",			0},

				{amMine, 		"amMine",			0},

				{amDynamite, 	"amDynamite",		0},

				{amCake, 		"amCake",			0},

				{amBallgun, 	"amBallgun",		0},

				{amRCPlane,		"amRCPlane",		0},

				{amSMine,		"amSMine",			0},

				{amAirMine,		"amAirMine",		0},

				{amAirAttack,	"amAirAttack",		0},

				{amMineStrike,	"amMineStrike",		0},

				{amDrillStrike,	"amDrillStrike",	0},

				{amAirMine,		"amAirMine",		0},

				{amNapalm, 		"amNapalm",			0},

				{amPiano,		"amPiano",			0},

				{amKnife,		"amKnife",			0},

				{amBirdy,		"amBirdy",			0}

				}

local utilArray =

				{

				{amBlowTorch, 		"amBlowTorch",		0},

				{amPickHammer,		"amPickHammer",		0},

				{amGirder, 			"amGirder",			0},

				{amRubber, 			"amRubber",			0},

				{amPortalGun,		"amPortalGun",		0},

				{amRope, 			"amRope",			0},

				{amParachute, 		"amParachute",		0},

				{amTeleport,		"amTeleport",		0},

				{amJetpack,			"amJetpack",		0},

				{amInvulnerable,	"amInvulnerable",	0},

				{amLaserSight,		"amLaserSight",		0},

				{amVampiric,		"amVampiric",		0},

				{amLowGravity, 		"amLowGravity",		0},

				{amExtraDamage, 	"amExtraDamage",	0},

				{amExtraTime,		"amExtraTime",		0},

				{amResurrector, 	"amResurrector",	0},

				{amTardis, 			"amTardis",			0},

				{amSwitch,			"amSwitch",			0}

				}

local activationStage = 0

local jet = nil

ufoFuel = 0

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

local specialPointsCount = 0

mapID = nil

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

-- 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 cameraGear = nil

local bestClan = 10

local bestTime = 1000000

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

local usedWeapons = {}

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] = 1000000

        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

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

-- Returns min opacity, max opacity and flashing speed (`FrameTicks`)

-- for the waypoint visual gears

function FlashingHelper(wpIndex)

        local minO, maxO, flashing

        if wpIndex == 0 then

                -- Notable flashing of first waypoint

                minO, maxO = 92, 255

                flashing = 2

        else

                -- Slow pulsation

                minO, maxO = 164, 224

                flashing = 10

        end

	return minO, maxO, flashing

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)

                NR = (48/100*wpRad)/2

                if dist < (NR*NR) and not gameOver then

                        SetVisualGearValues(wpCirc[i], wpX[i], wpY[i], 64, 64, 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 not wpActive[i] then

                                local wpMessage = ""

                                if wpRem-1 == 0 then

                                        wpMessage = loc("Track completed!")

                                else

                                        wpMessage = string.format(loc("Waypoints remaining: %d"), wpRem-1)

                                end

                                AddCaption(wpMessage, 0xffba00ff, capgrpGameState)

                        end

                        wpActive[i] = true

                end

                if wpActive[i] == false then

                        trackFinished = false

                end

        end

        return(trackFinished)

end

function AdjustScores()

	local bestTimeComment = loc("Did not finish")

        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

        -- 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 ~= 1000000 then

                bestTimeComment = string.format(loc("%.1fs"), (bestTime/1000))

        end

        if newScore == true then

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

                        ShowMission(loc("TechRacer"),

                        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("TechRacer"),

                        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("TechRacer"),

                loc("Track completed!"),

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

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

                PlaySound(sndHellish)

        end

        for i = 0, (TeamsCount-1) do

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

                        SetTeamLabel(teamNameArr[i], string.format(loc("%.1fs"), teamScore[i]/1000))

                end

        end

        if bestTime == trackTime then

                fastColour = GetClanColor(GetHogClan(CurrentHedgehog))

                for i = 0, (currCount-1) do

                        fastX[i] = currX[i]

                        fastY[i] = currY[i]

                end

                fastCount = currCount

                fastIndex = 0

        else

                currCount = 0

                fastIndex = 0

        end

end

function onNewRound()

        roundNumber = roundNumber + 1

        totalComment = ""

        for i = 0, (TeamsCount-1) do

				if teamScore[i] ~= 1000000 then

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

				else

                                	teamComment[i] = string.format(loc("%s: Did not finish"), teamNameArr[i]) .. "|"

				end

                                totalComment = totalComment .. teamComment[i]

                        elseif teamNameArr[i] == " " then

                                teamComment[i] = "|"

                        end

        end

        ShowMission(    loc("TechRacer"),

                                        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

                -- Sort the scores for the ranking list

                local unfinishedArray = {}

                local sortedTeams = {}

                local k = 1

                for i = 0, TeamsCount-1 do

                        if teamScore[i] ~= 1000000 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(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 an easier TechRacer map."))

                end

		-- Kill all the losers

		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

                for i=0, wpCount-1 do

                         -- Fade out waypoints

                         SetVisualGearValues(wpCirc[i], nil, nil, 0, 0, nil, 6)

                end

		EndTurn(true)

        end

end

function CheckForNewRound()

        if GetHogClan(CurrentHedgehog) == firstClan then

                onNewRound()

        end

end

function DisableTumbler(endTurn)

        if endTurn == nil then endTurn = true end

        if racerActive then

                currCount = 0

                fastIndex = 0

                racerActive = false -- newadd

                if endTurn then

                         EndTurn(true)

                end

		if trackFinished and not gameOver then

                         for i=0, wpCount-1 do

                       	         SetVisualGearValues(wpCirc[i], nil, nil, 255, 255, nil, 2)

                         end

                elseif not gameOver then

                         for i=0, wpCount-1 do

                       	         SetVisualGearValues(wpCirc[i], nil, nil, 32, 32, nil, 1)

                         end

                end