HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Tracker.lua")

HedgewarsScriptLoad("/Scripts/Params.lua")

--[[

Space Invasion

=== DOCUMENTATION ===

== SCRIPT CONFIGURATION ==

You can configure this script a little bit, you only have to edit the game scheme.

The script makes heavy use of the script parameters, but you can also use some,

but not all, of the other settings in a game scheme.

You CAN use the following options:

- disable girders (highly recommended!)

- disable land objects

- random order

- solid land

- low gravity (makes this game much easier, but this script is probably not optimized for it yet)

- bottom border

- fort mode (just changes the landscape)

- teams start at opposite parts of land

- wind affects almost everything

Those options are also possible, but have no real gameplay effect:

- disable wind

- tag team

- king mode (here it only changes hats, so this is just for fun)

- vampiric (has no real gameplay effect; just for the grapical effect)

- full border (it’s techincally possible, but the script is currently not very well optimized for this mode)

You CANNOT use any other of the on/off options in the game scheme. Those settings are simply discarded by the script.

You also can change the following settings in the game scheme:

- time per round (very important)

- script parameters, see below

The other settings are technically possible, but their effect is limited:

- damage percentage

- mines/air mines (they don’t harm the active hedgehog, however)

- number of barrels

All other variables are discarded, the script forces its own settings.

There will be never Sudden Death, any crate drops, any mines and any

barrels.

== SCRIPT PARAMETERS ==

This script can be configured mostly with the script parameters.

The script parameters are specified in a key=value format each,

and each pair is delimeted by a comma.

All values must be integer of 0 or higher. All values are optional

and have a default if unspecified

List of parameters:

- rounds: Number of rounds (default: 3)

- shield: Amount of shield you start with (default: 30)

- barrels: Amount of ammo (barrels) you start with (default: 5)

- pings: How many time you can use the radar per round (default: 2)

- barrelbonus: How many barrels you get for collecting/destroning a green invader (default: 3)

- shieldbonus: How much shield you get for collecting/destroying a purple invader (default: 30)

- timebonus: How many seconds you get for killing a drone (red) (default: 4)

- forcetheme: If set to false, the game will use your chosen theme instead of forcing EarthRise

-             Please note that the game may not be able to be played in some themes if the sky

               color is very bright (i.e. Bath)

Example input for the field “Script parameters”:

rounds=5

>>> 5 rounds, everything else is default

forcetheme=false

>>> Makes the game use whatever thme

shield=0, barrels=3, pings=0

>>> no shield, no radar pings and only 3 barrels (could be some hard mode)

(empty string)

>>> Use defaults for everything

]]

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

-- TODO list: notes for later

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

-- imitate winning animation at end instead of just ending the game

-- add support for other world edges (they are currently disabled)

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

-- look for derp and let invaders shoot again

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

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

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

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

-- CAPTION TYPES --

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

--[[

The captions have been carefully assigned to avoid overlapping.

capgrpMessage: Basic bonuses for a simple action, rounds complete

capgrpMessage2: Extended bonus, awarded for repeating a basic bonus

capgrpVolume: X-Hit Combo

capgrpGameState: End of turn information, kamikaze achievements

capgrpAmmoinfo: Ammo type at start of turn; Multi-shot, Shield Miser

capgrpAmmostate: Remaining ammo, depleted ammo; Accuracy Bonus, Sniper, They Call Me Bullseye, Point Blank Combo

]]

------- CODE FOLLOWS -------

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

-- so I herd u liek wariables

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

-- The table that holds the Space Invasion variables

local SI = {}

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

-- Tag IDs

SI.TAG_TIME = 0

SI.TAG_BARRELS = 1

SI.TAG_SHIELD = 2

SI.TAG_ROUND_SCORE = 4

-- some console stuff

SI.shellID = 0

SI.explosivesID = 0

-- gaudyRacer

SI.boosterOn = false

SI.preciseOn = false

SI.roundLimit = 3		-- can be overridden by script parameter "rounds"

SI.roundNumber = 0

SI.lastRound = -1

SI.gameOver = false

SI.gameBegun = false

-- for script parameters

-- NOTE: If you change this, also change the default “Space Invasion” game scheme

SI.startBarrels = 5		-- "barrels"

SI.startShield = 30		-- "shield"

SI.startRadShots = 2		-- "pings"

SI.shieldBonus = 30		-- "shieldbonus"

SI.barrelBonus = 3		-- "barrelbonus"

SI.timeBonus = 4		-- "timebonus"

SI.forceTheme = true		-- "forcetheme"

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

-- hog and team tracking variales

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

SI.numhhs = 0

SI.hhs = {}

SI.teamNameArr = {}

SI.teamNameArrReverse = {}

SI.teamClan = {}

SI.teamSize = {}

SI.teamIndex = {}

SI.teamScore = {}

SI.teamCircsKilled = {}

SI.teamSurfer = {}

-- stats variables

SI.roundKills = 0

SI.roundScore = 0

SI.RK = 0

SI.GK = 0

SI.BK = 0

SI.OK = 0

SI.SK = 0

SI.shieldMiser = true

SI.fierceComp = false

SI.chainCounter = 0

SI.chainLength = 0

SI.shotsFired = 0

SI.shotsHit = 0

SI.sniperHits = 0

SI.pointBlankHits = 0

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

-- awards (for stats section, just for fun)

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

-- global awards

SI.awardTotalKills=0	-- overall killed invaders (min. 30)

-- hog awards

SI.awardRoundScore = nil	-- hog with most score in 1 round (min. 50)

SI.awardRoundKills = nil	-- most kills in 1 round (min. 5)

SI.awardAccuracy = nil	-- awarded to hog who didn’t miss once in his round, with most kills (min. 5)

SI.awardCombo = nil	-- hog with longest combo (min. 5)

-- Taunt trackers

SI.tauntTimer = -1

SI.tauntGear = nil

SI.tauntSound = nil

SI.tauntClanShots = 0 -- hogs of same clans shot in this turn

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

-- tumbler goods

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

SI.moveTimer = 0

SI.leftOn = false

SI.rightOn = false

SI.upOn = false

SI.downOn = false

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

-- TUMBLER

SI.wep = {}

SI.wepAmmo = {}

SI.wepIndex = 0

SI.wepCount = 0

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

SI.primShotsMax = 5

SI.primShotsLeft = 0

SI.TimeLeftCounter = 0

SI.TimeLeft = 0

SI.stopMovement = false

SI.tumbleStarted = false

SI.beam = false

SI.pShield = nil

SI.shieldHealth = 0

SI.timer100 = 0

SI.vTag = {}

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

-- CIRCLY GOODIES

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

SI.circlesAreGo = false

SI.playerIsFine = true

SI.targetHit = false

SI.fadeAlpha = 0 -- used to fade the circles out gracefully when player dies

SI.pTimer = 0 -- tracking projectiles following player

SI.circAdjustTimer = 0		-- handle adjustment of circs direction

SI.m2Count = 0		-- handle speed of circs

SI.vCirc = {}

SI.vCCount = 0

SI.rCirc = {}

SI.rCircX = {}

SI.rCircY = {}

SI.rAlpha = 255

SI.rPingTimer = 0

SI.radShotsLeft = 0

SI.vCircActive = {}

SI.vCircHealth = {}

SI.vType = {}

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

SI.vCounterLim = {} -- when SI.vCounter == SI.vCounterLim circle performs its special

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

SI.vCircRadMax = {}

SI.vCircRadMin = {}

SI.vCircRadDir = {}

SI.vCircRadCounter = {}

SI.vCircDX = {}

SI.vCircDY = {}

SI.vCircX = {}

SI.vCircY = {}

SI.vCircMinA = {}

SI.vCircMaxA = {}

SI.vCircType = {}

SI.vCircPulse = {}

SI.vCircFuckAll = {}

SI.vCircRadius = {}

SI.vCircWidth = {}

SI.vCircCol = {}

-- Colors

-- Invaders

SI.colorDrone = 0xFF0000FF

SI.colorBoss = 0x0050FFFF

SI.colorBossParticle = SI.colorBoss

SI.colorAmmo = 0x00FF00FF

SI.colorShield = 0xA800FFFF

SI.colorShieldParticle = SI.colorShield

SI.colorDisabled = 0xFFFFFFFF -- disabled invader at end of turn

-- Other SI.colors

SI.colorMsgDepleted = 0xFF0000FF

SI.colorMsgBonus = 0xFFBA00FF

SI.colorTimer = 0xFFEE00FF

SI.colorScore = 0xFFFFFFFF

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

-- some lazy copypasta/modified methods

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

function HideTag(i)

	SetVisualGearValues(SI.vTag[i],0,0,0,0,0,1,0, 0, 240000, 0xFFFFFF00)

end

function DrawTag(i)

	local zoomL = 1.3

	local xOffset, yOffset, tValue, tCol

	if i == SI.TAG_TIME then

		if INTERFACE == "touch" then

			xOffset = 60

			yOffset = ScreenHeight - 35

		else

			xOffset = 40

			yOffset = 40

		end

		tCol = SI.colorTimer

		tValue = SI.TimeLeft

	elseif i == SI.TAG_BARRELS then

		zoomL = 1.1

		if INTERFACE == "touch" then

			xOffset = 126

			yOffset = ScreenHeight - 37

		else

			xOffset = 40

			yOffset = 70

		end

		tCol = SI.colorAmmo

		tValue = SI.wepAmmo[SI.wepIndex]

	elseif i == SI.TAG_SHIELD then

		zoomL = 1.1

		if INTERFACE == "touch" then

			xOffset = 126 + 35

			yOffset = ScreenHeight - 37

		else

			xOffset = 40 + 35

			yOffset = 70

		end

		tCol = SI.colorShield

		tValue = SI.shieldHealth - 80

	elseif i == SI.TAG_ROUND_SCORE then

		zoomL = 1.1

		if INTERFACE == "touch" then

			xOffset = 126 + 70

			yOffset = ScreenHeight - 37

		else

			xOffset = 40

			yOffset = 100

		end

		tCol = SI.colorScore

		tValue = SI.roundScore

	end

	DeleteVisualGear(SI.vTag[i])

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

	SetVisualGearValues	(

				SI.vTag[i], 		--id

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

				ScreenHeight - yOffset, --yoffset

				0, 			--dx

				0, 			--dy

				zoomL, 			--zoom

				1, 			--~= 0 means align to screen

				nil, 			--frameticks

				tValue, 		--value

				240000, 		--timer

				tCol			--color

				)

end

function RebuildTeamInfo()

	-- make a list of individual team names

	for i = 0, (TeamsCount-1) do

		SI.teamSize[i] = 0

		SI.teamIndex[i] = 0

		SI.teamScore[i] = 0

		SI.teamCircsKilled[i] = 0

		SI.teamSurfer[i] = false

	end

	for i=0, TeamsCount-1 do

		local name = GetTeamName(i)

		SI.teamNameArr[i] = name

		SI.teamNameArrReverse[name] = i

	end

	-- find out how many hogs per team, and the index of the first hog in SI.hhs

	for i = 0, (TeamsCount-1) do

		for z = 0, (SI.numhhs-1) do

			if GetHogTeamName(SI.hhs[z]) == SI.teamNameArr[i] then

				SI.teamClan[i] = GetHogClan(SI.hhs[z])

				if SI.teamSize[i] == 0 then

					SI.teamIndex[i] = z -- should give starting index

				end

				SI.teamSize[i] = SI.teamSize[i] + 1

				--add a pointer so this hog appears at i in SI.hhs

			end

		end

	end

	for i=0, TeamsCount-1 do

		SetTeamLabel(SI.teamNameArr[i], SI.teamScore[i])

	end

end

-- control

function AwardPoints(p)

	SI.roundScore = SI.roundScore + p

	DrawTag(SI.TAG_ROUND_SCORE)

	for i = 0,(TeamsCount-1) do

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

			SI.teamScore[i] = SI.teamScore[i] + p

			SetTeamLabel(SI.teamNameArr[i], SI.teamScore[i])

		end

	end

end

function AwardKills(t)

	SI.roundKills = SI.roundKills + 1

	for i = 0,(TeamsCount-1) do

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

			SI.teamCircsKilled[i] = SI.teamCircsKilled[i] + 1

			SI.awardTotalKills = SI.awardTotalKills + 1

		end

	end

end

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

function UpdateSimpleAward(oldAward, value, threshold)

	local awarded = false

	local newAward

	if oldAward == nil then

		if threshold == nil then

			awarded = true

		elseif value > threshold then

			awarded = true

		end

	elseif value > oldAward.value then

		if threshold == nil then

			awarded = true

		elseif value > threshold then

			awarded = true

		end

	end

	if awarded then

		newAward = {

			hogName = GetHogName(CurrentHedgehog),

			teamName = GetHogTeamName(CurrentHedgehog),

			value = value

		}

	else