loadfile(GetDataPath() .. "Scripts/Locale.lua")()

loadfile(GetDataPath() .. "Scripts/Tracker.lua")()

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

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

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

--- Space Invasion Code Follows (0.7)

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

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

-- VERSION HISTORY

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

-- version 0.1

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

-- conversion of tumbler into space invasion

-- a million and one changes

-- bells and whistles

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

-- version 0.2

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

-- code slowly getting cleaner, it still looks like a spaghetti monster tho

-- lots of console tracking :/

-- all visual gears are now compulsary (will probably revert this)

-- implemented fMod to try combat desyncs and bring this in line with dev

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

-- version 0.3

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

-- values of scoring changed to 3:10, and now based on vCircScore

-- time gained from killing a red circ increased from 3 to 4

-- circles now spawn at a distance of at least 800 or until sanity limit

-- roundsLimit now based off MinesTime (kinda, its an experiment)

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

--0.4

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

-- commented out a lot of WriteLnToConsoles (dont need them at this point)

-- added some different WriteLnToConsoles

-- changed some of the collision detect for explosives in checkvarious()

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

--0.5

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

-- added implementation for a projectile shield

-- added a "bonus" orange invader that partially recharges player shield

-- added a tough "blueboss" blue invader

-- expanded user feedback

-- circles now have health and are capable of being merely "damaged"

-- redid a lot of the collision code and added CircleDamaged

-- added more sounds to events

-- added more visual gears

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

--0.6

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

-- removed a few WriteLns

-- added randomized grunts on circ damage

-- added (mostly) graceful fading out of circles :D:

-- changed odds for circles

-- changed user feedback

-- fixed the location of the explosion where player bashes into circ

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

--0.7

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

-- added PlaySound(sndSuddenDeath) when ammo gets depleted

-- added an extra "Ammo Depleted" note if user presses fire while empty

-- specified how much shield power is gained on shield powerup collection

-- changed odds for circles AGAIN, ammo is now sliiightly more common

-- switched most of the explosions/smoke effects back to non-critical vgears (with a few exceptions)

-- tumbletime is now based off turntime and is variable

-- delete explosives in DeleteFarFlungBarrel rather than explode them on map boundaries to save on performance

-- utilized the improved AddCaption to tint / prevent overrides

-- temporarily disabled bugged sort that displays teams according to their score

-- reluctantly changed the colour of the bonus circ to purple 

-- standarized point notation

-- added some missing locs

-- commented out remaining WriteLnToConsoles for the meanwhile with the prefix "nw"

-- ACHIEIVEMENTS added

-- (during one turn) aka repeatable

-- Ammo Manic (Destroy 3 green circles for + 5 points)

-- Drone Hunter (Destroy 5 red circles for + 10 points)

-- Shield Seeker (Destroy 3 purple circles for +10 points)

-- Boss Slayer (Destroy 2 blue circles for +25 points)

-- Shield Master (disolve 5 shells for +10 points)

-- Shield Miser (don't use your shield at all +20 points)

-- Depleted Kamikaze! (kamikaze into a blue/red circ when you are out of ammo) 5pts

-- Timed Kamikaze! (kamikaze into a blue/red circ when you only have 5s left) 10pts

-- Kamikaze Expert (combination of the above two) 15pts

-- Multi-shot (destroy more than 1 invader with a single bullet) 5pts

-- X-Hit Combo (destroy another invader in less than 3 seconds) chainLength*2 points

-- Accuracy Bonus (80% accuracy at the end of your turn with more than 5 shots fired) 15pts

--(during the length of the game) aka non-repeatable

-- 10/25/50 kills (+25/+50/+100 points)

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

--notes for later

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

-- maybe add a check for a tie, NAH

-- more achievements? (3 kamikazes in a row, long distance shooter, supreme shield expert/miser etc?)

--[[CAPTION CATEGORIES

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

capgrpGameState

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

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

capgrpAmmostate

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

AddCaption( chainLength .. LOC_NOT("-chain! +") .. chainLength*2 .. LOC_NOT(" points!"),0xffba00ff,capgrpAmmostate)

AddCaption(LOC_NOT("Multi-shot! +5 points!"),0xffba00ff,capgrpAmmostate) 

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

capgrpAmmoinfo

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

AddCaption(LOC_NOT("Shield Miser! +20 points!"),0xffba00ff,capgrpAmmoinfo)

AddCaption(LOC_NOT("Shield Master! +10 points!"),0xffba00ff,capgrpAmmoinfo)

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

capgrpVolume

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

AddCaption(LOC_NOT("Boom! +25 points!"),0xffba00ff,capgrpVolume)

AddCaption(LOC_NOT("BOOM! +50 points!"),0xffba00ff,capgrpVolume)

AddCaption(LOC_NOT("BOOM! BOOM! BOOM! +100 points!"),0xffba00ff,capgrpVolume)

AddCaption(LOC_NOT("Accuracy Bonus! +15 points!"),0xffba00ff,capgrpVolume)

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

capgrpMessage 

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

AddCaption(LOC_NOT("Ammo Depleted!"),0xff0000ff,capgrpMessage)

AddCaption(LOC_NOT("Ammo: ") .. primShotsLeft)

AddCaption("Shield Depleted",0xff0000ff,capgrpMessage)

AddCaption( LOC_NOT("Shield ON:") .. " " .. shieldHealth - 80 .. " " .. LOC_NOT("Power Remaining") )

AddCaption(LOC_NOT("Shield OFF:") .. " " .. shieldHealth - 80 .. " " .. LOC_NOT("Power Remaining") )

AddCaption(LOC_NOT("Time Extended!") .. "+" .. 4 .. LOC_NOT("s"), 0xff0000ff,capgrpMessage )

AddCaption("+" .. 3 .. " " .. LOC_NOT("Ammo"), 0x00ff00ff,capgrpMessage)

AddCaption(LOC_NOT("Shield boosted! +30 power"), 0xff00ffff,capgrpMessage)

AddCaption(LOC_NOT("Shield is fully recharged!"), 0xffae00ff,capgrpMessage)

AddCaption(LOC_NOT("Boss defeated! +50 points!"), 0x0050ffff,capgrpMessage)

AddCaption(LOC_NOT("GOTCHA!"))

AddCaption(LOC_NOT("Kamikaze Expert! +15 points!"),0xffba00ff,capgrpMessage)

AddCaption(LOC_NOT("Depleted Kamikaze! +5 points!"),0xffba00ff,capgrpMessage)

AddCaption(LOC_NOT("Timed Kamikaze! +10 points!"),0xffba00ff,capgrpMessage)

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

capgrpMessage2 

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

AddCaption(LOC_NOT("Drone Hunter! +10 points!"),0xffba00ff,capgrpMessage2)

AddCaption(LOC_NOT("Ammo Maniac! +5 points!"),0xffba00ff,capgrpMessage2)

AddCaption(LOC_NOT("Shield Seeker! +10 points!"),0xffba00ff,capgrpMessage2)

AddCaption(LOC_NOT("Boss Slayer! +25 points!"),0xffba00ff,capgrpMessage2)

]]

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

-- so I herd u liek wariables

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

--local fMod = 1	-- for use in .15 single player only, otherwise desync

local fMod = 1000000 -- use this for dev and .16+ games

-- some console stuff

local shellID = 0

local explosivesID = 0

local luaGameTicks = 0

-- gaudyRacer

local roundLimit = 3	-- no longer set here (see version history)

local roundNumber = 0

local firstClan = 10

local gameOver = false

local gameBegun = false

local bestClan = 10

local bestScore = 0

local sdScore = {}

local sdName = {}

local sdKills = {}

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

-- hog and team tracking variales

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

local numhhs = 0

local hhs = {}

local numTeams

local teamNameArr = {}

local teamClan = {}

local teamSize = {}

local teamIndex = {}

local teamComment = {}

local teamScore = {}

local teamCircsKilled = {}

-- stats variables

--local teamRed = {}

--local teamBlue = {}

--local teamOrange = {}

--local teamGreen = {}

local RK = 0

local GK = 0

local BK = 0

local OK = 0

local SK = 0

local shieldMiser = true

local chainCounter = 0

local chainLength = 0 

local shotsFired = 0

local shotsHit = 0

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

-- tumbler goods

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

local moveTimer = 0

local leftOn = false

local rightOn = false

local upOn = false

local downOn = false

local primShotsMax = 5

local primShotsLeft = 0

local TimeLeftCounter = 0

local TimeLeft = 0

local stopMovement = false

local tumbleStarted = false

local beam = false

local pShield

local shieldHealth

local Timer100 = 0

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

-- CIRCLY GOODIES

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

local CirclesAreGo = false

local playerIsFine = true

local targetHit = false

local FadeAlpha = 0 -- used to fade the circles out gracefully when player dies

local pTimer = 0 -- tracking projectiles following player

local circAdjustTimer = 0		-- handle adjustment of circs direction

local m2Count = 0		-- handle speed of circs

local vCirc = {}

local vCCount = 0

local vCircActive = {}

local vCircHealth = {}

local vType = {}

local vCounter = {}		-- how often this circ gets to "fire" etc

local vCounterLim = {} -- when vCounter == vCounterLim circle performs its special

local vCircScore = {} -- how many points killing this invader gives

local vCircRadMax = {}

local vCircRadMin = {}

local vCircRadDir = {}

local vCircRadCounter = {}

local vCircDX = {}

local vCircDY = {}

local vCircX = {}

local vCircY = {}

local vCircMinA = {}

local vCircMaxA = {}

local vCircType = {}

local vCircPulse = {}

local vCircFuckAll = {}

local vCircRadius = {}

local vCircWidth = {}

local vCircCol = {}

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

-- some lazy copypasta/modified 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] = 0

		teamCircsKilled[i] = 0

	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-1) 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, (TeamsCount-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

-- control

function AwardPoints(p)

	for i = 0,(TeamsCount-1) do

		if teamClan[i] == GetHogClan(CurrentHedgehog) then

			teamScore[i] = teamScore[i] + p

		end

	end

end

function AwardKills(t)

	for i = 0,(TeamsCount-1) do

		if teamClan[i] == GetHogClan(CurrentHedgehog) then

			teamCircsKilled[i] = teamCircsKilled[i] + 1

			if teamCircsKilled[i] == 10 then

				AddCaption(loc("Boom!") .. " +25 " .. loc("points").."!",0xffba00ff,capgrpVolume)

				AwardPoints(25)

			elseif teamCircsKilled[i] == 25 then

				AddCaption(loc("BOOM!") .. " +50 " .. loc("points") .. "!",0xffba00ff,capgrpVolume)

				AwardPoints(50)

			elseif teamCircsKilled[i] == 50 then

				AddCaption(loc("BOOM!") .. loc("BOOM!") .. loc("BOOM!") .. " +100 " .. loc("points") .. "!",0xffba00ff,capgrpVolume)

				AwardPoints(100)

			end

			--[[

			if t == "R" then

				redCircsKilled[i] = redCircsKilled[i] + 1

			end

			--etc

			--etc

			]]

		end

	end

end

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

function bubbleSort(table)

	for i = 1, #table do

        for j = 2, #table do

            if table[j] < table[j-1] then

				temp = table[j-1]

				t2 = sdName[j-1]

				t3 = sdKills[j-1]

				table[j-1] = table[j]

                sdName[j-1] = sdName[j]

				sdKills[j-1] = sdKills[j]

				table[j] = temp

				sdName[j] = t2

				sdKills[j] = t3

            end

        end

    end

    return

end

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

function CommentOnScore()

	for i = 0,(TeamsCount-1) do

		sdScore[i] = teamScore[i]

		sdKills[i] = teamCircsKilled[i]

		sdName[i] = teamNameArr[i]

	end

	--bubbleSort(sdScore)

	for i = 0,(TeamsCount-1) do

		if sdName[i] ~= " " then

			teamComment[i] = sdName[i] .. " |" ..

			loc("SCORE") .. ": " .. sdScore[i] .. " " .. loc("points") .. "|" ..

			loc("KILLS") .. ": " .. sdKills[i] .. " " .. loc("invaders destroyed") .. "|" ..

			" " .. "|"

		elseif sdName[i] == " " then

			teamComment[i] = "|"

		end

	end

	entireC = ""

	for i = (TeamsCount-1),0,-1 do

		entireC = entireC .. teamComment[i]

	end

	ShowMission("SPACE INVASION", loc("STATUS UPDATE"), loc("Rounds Complete") .. ": " .. roundNumber .. "/" .. roundLimit .. "| " .. "|" .. loc("Team Scores") .. ": |" ..entireC, 4, 1)

end

-- gaudy racer

function CheckForNewRound()

	if GetHogClan(CurrentHedgehog) == firstClan then

		roundNumber = roundNumber + 1

		CommentOnScore()

		-- end game if its at round limit

		if roundNumber == roundLimit then

			for i = 0, (TeamsCount-1) do

				if teamScore[i] > bestScore then

					bestScore = teamScore[i]

					bestClan = teamClan[i]

				end

			end

			for i = 0, (numhhs-1) do

				if GetHogClan(hhs[i]) ~= bestClan then

					SetEffect(hhs[i], heResurrectable, false)

					SetHealth(hhs[i],0)

				end

			end

			gameOver = true

			TurnTimeLeft = 0	--1

			TimeLeft = 0

		end

	end

end

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

-- some tumbler/space invaders methods

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

function isATrackedGear(gear)

	if 	(GetGearType(gear) == gtExplosives) or

		(GetGearType(gear) == gtShell) or

		(GetGearType(gear) == gtFlame) or-- new -- gtBall

		(GetGearType(gear) == gtBall)

	then

		return(true)

	else

		return(false)

	end

end

function setNewGearValues(gear)

	if GetGearType(gear) == gtShell then

		lfs = 50	-- roughly 5 seconds

		shellID = shellID + 1

		setGearValue(gear,"ID",shellID)

		--nw WriteLnToConsole("Just assigned ID " .. getGearValue(gear,"ID") .. " to this shell")

	elseif GetGearType(gear) == gtBall then

		lfs = 70	-- 7s

	elseif GetGearType(gear) == gtExplosives then

		lfs = 15	-- 1.5s

		explosivesID = explosivesID + 1

		setGearValue(gear,"ID",explosivesID)

		--nw WriteLnToConsole("Just assigned ID " .. getGearValue(gear,"ID") .. " to this explosives")

	elseif GetGearType(gear) == gtFlame then

		lfs = 5	-- 0.5s

	else

		lfs = 100

	end

	setGearValue(gear,"lifespan",lfs)

	--WriteLnToConsole("I also set its lifespan to " .. lfs)