HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Tracker.lua")

HedgewarsScriptLoad("/Scripts/Params.lua")

--[[

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

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

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

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

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

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

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

-- so I herd u liek wariables

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

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

-- Tag IDs

local TAG_TIME = 0

local TAG_BARRELS = 1

local TAG_SHIELD = 2

local TAG_ROUND_SCORE = 4

-- some console stuff

local shellID = 0

local explosivesID = 0

local luaGameTicks = 0

-- gaudyRacer

local boosterOn = false

local preciseOn = false

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

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

-- for script parameters

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

local startBarrels = 5		-- "barrels"

local startShield = 30		-- "shield"

local startRadShots = 2		-- "pings"

local shieldBonus = 30		-- "shieldbonus"

local barrelBonus = 3		-- "barrelbonus"

local timeBonus = 4		-- "timebonus"

local forceTheme = true		-- "forcetheme"

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

-- hog and team tracking variales

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

local numhhs = 0

local hhs = {}

local numTeams

local teamNameArr = {}

local teamClan = {}

local teamSize = {}

local teamIndex = {}

local teamScore = {}

local teamCircsKilled = {}

local teamSurfer = {}

-- stats variables

local roundKills = 0

local roundScore = 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 sniperHits = 0

local pointBlankHits = 0

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

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

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

-- global awards

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

-- hog awards

local awardRoundScore	-- hog with most score in 1 round (min. 50)

local awardRoundKills	-- most kills in 1 round (min. 5)

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

local awardCombo	-- hog with longest combo (min. 5)

-- Taunt trackers

local tauntTimer = -1

local tauntGear = nil

local tauntSound = nil

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

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

-- tumbler goods

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

local moveTimer = 0

local leftOn = false

local rightOn = false

local upOn = false

local downOn = false

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

-- TUMBLER

local wep = {}

local wepAmmo = {}

local wepIndex = 0

local wepCount = 0

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

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 shockwave

local shockwaveHealth = 0

local shockwaveRad = 300

local timer100 = 0

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 circAdjustTimer = 0		-- handle adjustment of circs direction

local m2Count = 0		-- handle speed of circs

local vCirc = {}

local vCCount = 0

local rCirc = {}

local rCircX = {}

local rCircY = {}

local rAlpha = 255

local rPingTimer = 0

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

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

end

function DrawTag(i)

	local zoomL = 1.3

	local xOffset = 40

	local yOffset, tValue, tCol

	if i == TAG_TIME then

		yOffset = 40

		tCol = 0xffee00ff

		tValue = TimeLeft

	elseif i == TAG_BARRELS then

		zoomL = 1.1

		yOffset = 70

		tCol = 0x00ff00ff

		tValue = wepAmmo[wepIndex] --primShotsLeft

	elseif i == TAG_SHIELD then

		zoomL = 1.1

		xOffset = 40 + 35

		yOffset = 70

		tCol = 0xa800ffff

		tValue = shieldHealth - 80

	elseif i == TAG_ROUND_SCORE then

		zoomL = 1.1

		xOffset = 40

		yOffset = 100

		tCol = 0xffffffff

		tValue = roundScore

	end

	DeleteVisualGear(vTag[i])

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

	SetVisualGearValues	(

				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

				)

end

function RebuildTeamInfo()

	-- make a list of individual team names

	for i = 0, (TeamsCount-1) do

		teamSize[i] = 0

		teamIndex[i] = 0

		teamScore[i] = 0

		teamCircsKilled[i] = 0

		teamSurfer[i] = false

	end

	numTeams = 0

	for i = 0, (numhhs-1) do

		local z = 0

		local unfinished = true

		while(unfinished == true) do

			local newTeam = true

			local 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

	for i=0, TeamsCount-1 do

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

	end

end

-- control

function AwardPoints(p)

	roundScore = roundScore + p

	DrawTag(TAG_ROUND_SCORE)

	for i = 0,(TeamsCount-1) do

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

			teamScore[i] = teamScore[i] + p

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

		end

	end

end

function AwardKills(t)

	roundKills = roundKills + 1

	for i = 0,(TeamsCount-1) do

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

			teamCircsKilled[i] = teamCircsKilled[i] + 1

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

		newAward = oldAward

	end

	return newAward

end

function CommentOnScore()

	local teamStats = {}

	for i = 0,(TeamsCount-1) do

		sdScore[i] = teamScore[i]

		sdKills[i] = teamCircsKilled[i]

		sdName[i] = teamNameArr[i]

		table.insert(teamStats, {score = teamScore[i], kills = teamCircsKilled[i], name = teamNameArr[i]})

	end

	local scorecomp = function (v1, v2)

		if v1.score > v2.score then

			return true

		else

			return false

		end

	end

	table.sort(teamStats, scorecomp)

	local teamComment = {}