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

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

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

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

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

--- Space Invasion Code Follows (1.1)

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

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

-- 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 (3.5*roundkills)+2 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) 15pts

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

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

--0.8

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

-- added a HUD for turntimeleft, ammo, shield

-- shieldhealth hits 0 properly

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

-- version 0.8.1

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

-- stop hiding non-existant 4th Tag

-- redraw HUD on screen resolution change

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

-- version 0.9

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

-- time for more 'EXPERIMENTS' mwahahahahahaha D:

-- (hopefully) balanced Shield Miser

-- bosses are no longer a redunkulous 50 points, but toned down to 30

-- experimental radar (it's INTERACTIVE and math-heavy :D) (visual gears are safe... right? D:)

-- bugfix and balance for multishot

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

-- version 1.0

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

-- if only version numbers actually worked like this, wouldn't that be awful :D

-- added surfer achievement

-- increased value of shield miser by 1 point per kill (OP?)

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

-- version 1.1

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

-- fixed radar so that blips dont go past circs when you get very close

-- added a missing loc for shield depletion

-- increased delay to 1000 to try stop noobies missing their turn

-- added sniper achievement for hits from over a 1000000 away

-- added achievement for 3 "sniper" shots in a round

-- added achievement for 3 "point blank" shots in a round

-- added "fierce Competition" achievement for shooting an enemy hog (once per round)

-- some support for more weapons later

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

--notes for later

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

-- maybe add a check for a tie, IMPOSSIBRU THERE ARE NO TIES

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

-- if more weps are added, replace primshotsfired all over the place

-- look for derp and let invaders shoot again

-- more weps? flamer/machineballgun,

-- some kind of bomb that just drops straight down

-- "fire and forget" missile

-- shockwave

-- some kind of ability-meter that lets you do something awesome when you are

-- doing really well in a given round.

-- probably new kind of shield that pops any invaders who come near

-- fix game never ending bug

-- fix radar

-- new invader: golden snitch, doesn't show up on your radar

-- maybe replace (48/100*vCircRadius[i])/2 with something better

--[[CAPTION CATEGORIES

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

capgrpGameState

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

AddCaption(LOC_NOT("Sniper!") .. " +10 " .. LOC_NOT("points") .. "!",0xffba00ff,capgrpAmmostate)

--they call me bullsye

--point blank combo

--fierce Competition

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

capgrpAmmostate

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

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

AddCaption(LOC_NOT("Multi-shot! +15 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)

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

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

capgrpMessage

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

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

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

AddCaption(LOC_NOT("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

-- gaudyRacer

local boosterOn = false

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

local roundN = 0

local lastRound

local RoundHasChanged = true

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

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

local teamSurfer = {}

-- stats variables

--local teamRed = {}

--local teamBlue = {}

--local teamOrange = {}

--local teamGreen = {}

local roundKills = 0

local RK = 0

local GK = 0

local BK = 0

local OK = 0

local SK = 0

local shieldMiser = true

local fierceComp = false

local chainCounter = 0

local chainLength = 0

local shotsFired = 0

local shotsHit = 0

local SurfTime = 0

local sniperHits = 0

local pointBlankHits = 0

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

-- tumbler goods

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

local leftOn = false

local rightOn = false

local upOn = false

local downOn = false

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

-- TUMBLER

local wep = {}

local wepAmmo = {}

local wepCol = {}

local wepIndex = 0

local wepCount = 0

local fireTimer = 0

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

local primShotsMax = 5

local primShotsLeft = 0

local TimeLeft = 0

local stopMovement = false

local tumbleStarted = false

local beam = false

local pShield

local shieldHealth

local shockwave

local shockwaveHealth = 0

local shockwaveRad = 300

local vTag = {}

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

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

local vCCount = 0

local rCirc = {}

local rCircX = {}

local rCircY = {}

local rAlpha = 255

local radShotsLeft = 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 HideTags()

	for i = 0, 2 do

		SetVisualGearValues(vTag[i],0,0,0,0,0,1,0, 0, 240000, 0xffffff00)

	end

end

function DrawTag(i)

	zoomL = 1.3

	xOffset = 40

	if i == 0 then

		yOffset = 40

		tCol = 0xffba00ff

		tValue = TimeLeft

	elseif i == 1 then

		zoomL = 1.1

		yOffset = 70

		tCol = 0x00ff00ff

		tValue = wepAmmo[wepIndex] --primShotsLeft

	elseif i == 2 then

		zoomL = 1.1

		xOffset = 40 + 35

		yOffset = 70

		tCol = 0xa800ffff

		tValue = shieldHealth - 80

	end

	DeleteVisualGear(vTag[i])

	vTag[i] = AddVisualGear(0, 0, vgtHealthTag, 0, false)

	g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(vTag[i])

	SetVisualGearValues	(

				vTag[i], 		--id

				-(ScreenWidth/2) + xOffset,	--xoffset

				ScreenHeight - yOffset, --yoffset

				0, 			--dx

				0, 			--dy

				zoomL, 			--zoom

				1, 			--~= 0 means align to screen

				g7, 			--frameticks

				tValue, 		--value

				240000, 		--timer

				tCol		--GetClanColor( GetHogClan(CurrentHedgehog) )

				)

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

		teamCircsKilled[i] = 0

		teamSurfer[i] = false

	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