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

-- TECH RACER v0.8

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

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

-- TO DO

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

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

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

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

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

--0.3

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

-- ehh, scrap everything? those old maps probably still desync so they can die for now

-- hopefully fix map 3

-- add two new crappy map to test an idea.

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

--0.4

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

-- updated version text (lol)

-- some preliminary support for hand-drawn map loading

-- some support for being really lazy

-- an extra map or two

-- param for infinite UFO fuel

-- param for number of rounds

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

--0.5

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

-- migrated maps to an external script

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

--0.6

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

-- move 1 line of code :D (allows loading of HWMAP points to actually work)

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

--0.7

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

-- allow waypoints to be loaded automatically via TechMaps or HWMAP

-- (temporarily?) remove ability to place waypoints manually

-- break stuff?

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

--0.8

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

-- should (more or less) work "out of the box" now

-- generate map previews for level

-- randomly assign a map in the case of no map param

-- no longer allow custom ammosets (ammo should be specified by map so that records can be valid, though we probably still need to completely limit gameflags)

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

--0.9

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

-- added variable portal limiter (and effects) from Escape script

-- allow variable ufoFuel (nil is default, 2000 is infinite)

-- disallow specifying fuel in params (do this in TechMaps or HedgeEditor please)

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

-- SCRIPT BEGINS

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

HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/OfficialChallenges.lua")

HedgewarsScriptLoad("/Scripts/Tracker.lua")

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

portalDistance = 5000 -- 15

ufoFuel = 0

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

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

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

        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

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

                        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

        --------

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

                                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

                gameOver = true

                TurnTimeLeft = 10000000

                -- Sort the scores for the ranking list

                local unfinishedArray = {}

                local sortedTeams = {}

                local k = 1

                for i = 0, TeamsCount-1 do

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