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

-- CTF_BLIZZARD 0.6

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

---------

-- 0.2

---------

-- disabled super weapons

-- theme modifications

-- improved hog placement system: teams can now be put

-- in any order and be of any size

---------

-- 0.3

---------

-- In this version:

-- changed starting weapons

-- changed crate drop contents and rate of drops

-- completely removed super weapons and super weapon scripts

-- removed custom respawning

-- removed set respawn points

-- added AIRespawn-esque respawning

-- added simple left vs right respawn points

-- added non-lethal poison to flag carriers as an indicator

-- improved flag mechanics and player-flag feedback

-- flag now instantly respawns if you kill enemy hog and return it,

-- or if the flag falls in water, _BUT_ not if it is blown up

---------

-- 0.4

---------

-- tweaked crate drop rates and crate contents

-- improved the teleporters, they should now be able to handle rope... hopefully

-- updated SetEffect calls to be in line with 0.9.15 definitions

-- added visual gears when hogs respawn

-- added visual gears when hogs teleport

-- added visual gear to track flag and flag carriers

-- removed poisoning of flag carriers

-- removed health adjustments for flag carriers due to aforementioned poisons

---------

-- 0.5

---------

-- added translation support, hopefully

-- added ctf rules

-- added effects to the teleporters

-- added aura round spawning area

-- changed the aura around the flag carrier / flag to an aura and added some support for this

-- changed things so the seed is no longer always the same...

---------

-- 0.6

---------

-- removed branding and version number

-- removed teleport from starting weapons

-- increased captures to 3

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

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

----------lots of bad variables and things

----------because someone is too lazy

----------to read about tables properly

------------------ "Oh well, they probably have the memory"

local actionReset = 0 -- used in CheckTeleporters()

local roundsCounter = 0	-- used to determine when to spawn more crates

						-- currently every 6 TURNS, should this work

						-- on ROUNDS instead?

local effectTimer = 0

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

-- 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 teamSize = {}	-- store how many hogs per team

local teamIndex = {} -- at what point in the hhs{} does each team begin

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

-- flag variables

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

local fGear = {}	-- pointer to the case gears that represent the flag

local fThief = {}	-- pointer to the hogs who stole the flags

local fIsMissing = {}	-- have the flags been destroyed or captured

local fNeedsRespawn = {}	-- do the flags need to be respawned

local fCaptures = {}	-- the team "scores" how many captures

local fSpawnX = {}		-- spawn X for flags

local fSpawnY = {}		-- spawn Y for flags

local fThiefX = {}

local fThiefY = {}

local FTTC = 0 -- flag thief tracker counter

--local fThiefsHealed = false

local fSpawnC = {}

local fCirc = {} -- flag/carrier marker circles

local fCol = {} -- colour of the clans

local vCircX = {}

local vCircY = {}

local vCircMinA = {}

local vCircMaxA = {}

local vCircType = {}

local vCircPulse = {}

local vCircFuckAll = {}

local vCircRadius = {}

local vCircWidth = {}

local vCircCol = {}

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

--zone and teleporter variables

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

local redTel

local orangeTel

--local areaArr = {} -- no longer used

local zXMin = {}

local zWidth = {}

local zYMin = {}

local zHeight = {}

local zOccupied = {}

local zCount = 0

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

-- zone methods

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

-- see on gameTick also

function ManageTeleporterEffects()

	effectTimer = effectTimer + 1

	if effectTimer > 50 then -- 100

		effectTimer = 0

		for i = 0,1 do

			eX = 10 + zXMin[i] + GetRandom(zWidth[i]-10)

			eY = 50 + zYMin[i] + GetRandom(zHeight[i]-110)

	-- steam and smoke and DUST look good, smokering looks trippy

	-- smoketrace and eviltrace are not effected by wind?

	-- chunk is a LR falling gear

			tempE = AddVisualGear(eX, eY, vgtDust, 0, false)

			if tempE ~= 0 then

				g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)

				SetVisualGearValues(tempE, eX, eY, g3, g4, g5, g6, g7, g8, g9, fCol[i])

			end

		end

	end

end

function CreateZone(xMin, yMin, width, height)

	zXMin[zCount] = xMin

	zYMin[zCount] = yMin

	zWidth[zCount] = width

	zHeight[zCount] = height

	zOccupied[zCount] = false

	zCount = zCount + 1

	return (zCount-1)

end

function GearIsInZone(gear, zI)

	if (GetX(gear) > zXMin[zI]) and (GetX(gear) < (zXMin[zI]+zWidth[zI])) and (GetY(gear) > zYMin[zI]) and (GetY(gear) < (zYMin[zI]+zHeight[zI])) then

		zOccupied[zI] = true

	else

		zOccupied[zI] = false

	end

	return zOccupied[zI]

end

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

--flag methods

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

function CheckScore(teamID)

	if teamID == 0 then

		alt = 1

		winner = "Red"

	elseif teamID == 1 then

		alt = 0

		winner = "Blue"

	end

	if fCaptures[teamID] == 3 then

		for i = 0, (numhhs-1) do

			if GetHogClan(hhs[i]) == alt then

				SetEffect(hhs[i], heResurrectable, false)

				SetHealth(hhs[i],0)

			end

		end

		--ShowMission("GAME OVER!", "Victory for the " .. winner .. " Team!", "Hooray!", 0, 0)

		ShowMission(loc("GAME OVER!"), loc("Victory for the ") .. GetHogTeamName(CurrentHedgehog), loc("Hooray!"), 0, 0)

	end

end

function HandleRespawns()

	for i = 0, 1 do

		if fNeedsRespawn[i] == true then

			fGear[i] = SpawnAmmoCrate(fSpawnX[i],fSpawnY[i],amSkip)

			--fGear[i] = SpawnHealthCrate(fSpawnX[i],fSpawnY[i])

			fNeedsRespawn[i] = false

			fIsMissing[i] = false -- new, this should solve problems of a respawned flag being "returned" when a player tries to score

			AddCaption(loc("Flag respawned!"))

		end

	end

end

function FlagDeleted(gear)

	if (gear == fGear[0]) then

		wtf = 0

		bbq = 1

	elseif (gear == fGear[1]) then

		wtf = 1

		bbq = 0

	end

	--ShowMission("OH HAI!", "FlagDeleted was called", "Oh noes!", -amBazooka, 0)

	if CurrentHedgehog ~= nil then

		--ShowMission("GUESS WAT?", "I'm not nil", "Oh noes!", -amBazooka, 0)

		--if the player picks up the flag

		if CheckDistance(CurrentHedgehog, fGear[wtf]) < 1600 then

			fGear[wtf] = nil -- the flag has now disappeared and we shouldnt be pointing to it

			-- player has successfully captured the enemy flag

			if (GetHogClan(CurrentHedgehog) == wtf) and (CurrentHedgehog == fThief[bbq]) and (fIsMissing[wtf] == false) then

				fIsMissing[wtf] = false

				fNeedsRespawn[wtf] = true

				fIsMissing[bbq] = false

				fNeedsRespawn[bbq] = true

				fCaptures[wtf] = fCaptures[wtf] +1					--fCaptures[wtf]

				--ShowMission(loc("You have SCORED!!"), "Red Team: " .. fCaptures[0], "Blue Team: " .. fCaptures[1], -amBazooka, 0)

				ShowMission(loc("You have SCORED!!"), GetHogTeamName(CurrentHedgehog) .. ": " .. fCaptures[wtf], loc("Opposing Team: ") .. fCaptures[bbq], 0, 0)

				PlaySound(sndVictory)

				--SetEffect(fThief[bbq], hePoisoned, false)

				fThief[bbq] = nil -- player no longer has the enemy flag

				CheckScore(wtf)

			--if the player is returning the flag

			elseif GetHogClan(CurrentHedgehog) == wtf then

				fNeedsRespawn[wtf] = true

				-- NEW ADDIITON, does this work? Should make it possible to return your flag and then score in the same turn

				if fIsMissing[wtf] == true then

					HandleRespawns() -- this will set fIsMissing[wtf] to false :)

					AddCaption(loc("Flag returned!"))

				elseif fIsMissing[wtf] == false then

					AddCaption(loc("That was pointless.") .. loc("The flag will respawn next round."))

				end

				--fIsMissing[wtf] = false

				--ShowMission("Flag returned!", "Hooray", "", -amBazooka, 0)

			--if the player is taking the enemy flag

			elseif GetHogClan(CurrentHedgehog) == bbq then

				fIsMissing[wtf] = true

				for i = 0,numhhs-1 do

					if CurrentHedgehog == hhs[i] then

						fThief[wtf] = hhs[i]

						--SetEffect(fThief[wtf], hePoisoned, true)

					end

				end

				AddCaption(loc("Flag captured!"))

			else --below line doesnt usually get called

				AddCaption("Hmm... that wasn't supposed to happen...")

			end

		-- if flag has been destroyed, probably

		else

			if GetY(fGear[wtf]) > 2025 then

				fGear[wtf] = nil

				fIsMissing[wtf] = true

				fNeedsRespawn[wtf] = true

				HandleRespawns()

			else

				fGear[wtf] = nil

				fIsMissing[wtf] = true

				fNeedsRespawn[wtf] = true

				AddCaption(loc("Boom!") .. " " .. loc("The flag will respawn next round."))

			end

		end

	-- if flag has been destroyed deep underwater and player is now nil

	-- probably only gets called if the flag thief drowns himself

	-- otherwise the above one will work fine

	else

		--ShowMission("NIL PLAYER!", "Oh snap", "Oh noes!", -amBazooka, 0)

		fGear[wtf] = nil

		fIsMissing[wtf] = true

		fNeedsRespawn[wtf] = true

		AddCaption(loc("The flag will respawn next round."))

	end

end

function FlagThiefDead(gear)

	if (gear == fThief[0]) then

		wtf = 0

		bbq = 1

	elseif (gear == fThief[1]) then

		wtf = 1

		bbq = 0

	end

	if fThief[wtf] ~= nil then

		AddVisualGear(fThiefX[wtf], fThiefY[wtf], vgtBigExplosion, 0, false)

		fThief[wtf] = nil

	end

end

function HandleCircles()

	for i = 0, 1 do

		if fIsMissing[i] == false then -- draw a circle at the flag's spawning place

			--SetVisualGearValues(fCirc[i], fSpawnX[i],fSpawnY[i], 20, 200, 0, 0, 100, 33, 2, fCol[i])

			SetVisualGearValues(fCirc[i], fSpawnX[i],fSpawnY[i], vCircMinA[i], vCircMaxA[i], vCircType[i], vCircPulse[i], vCircFuckAll[i], vCircRadius[i], vCircWidth[i], vCircCol[i])

		elseif (fIsMissing[i] == true) and (fNeedsRespawn[i] == false) then

			if fThief[i] ~= nil then -- draw circle round flag carrier

				--SetVisualGearValues(fCirc[i], fThiefX[i], fThiefY[i], 20, 200, 0, 0, 100, 33, 2, fCol[i])

				SetVisualGearValues(fCirc[i], fThiefX[i], fThiefY[i], vCircMinA[i], vCircMaxA[i], vCircType[i], vCircPulse[i], vCircFuckAll[i], vCircRadius[i], vCircWidth[i], vCircCol[i])

			elseif fThief[i] == nil then -- draw cirle round dropped flag

				--SetVisualGearValues(fCirc[i], GetX(fGear[i]), GetY(fGear[i]), 20, 200, 0, 0, 100, 33, 2, fCol[i])

				SetVisualGearValues(fCirc[i], GetX(fGear[i]),GetY(fGear[i]), vCircMinA[i], vCircMaxA[i], vCircType[i], vCircPulse[i], vCircFuckAll[i], vCircRadius[i], vCircWidth[i], vCircCol[i])

			end

		end

		if fNeedsRespawn[i] == true then -- if the flag has been destroyed, no need for a circle

			SetVisualGearValues(fCirc[i], fSpawnX[i],fSpawnY[i], 20, 200, 0, 0, 100, 0, 0, fCol[i])

		end

	end

end

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

-- general methods

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

function CheckDistance(gear1, gear2)

	g1X, g1Y = GetGearPosition(gear1)

	g2X, g2Y = GetGearPosition(gear2)

	g1X = g1X - g2X

	g1Y = g1Y - g2Y

	z = (g1X*g1X) + (g1Y*g1Y)

	--dist = math.sqrt(z)

	dist = z

	return dist

end

function CheckTeleporters()

	teleportActive = false

	if (GearIsInZone(CurrentHedgehog, redTel) == true) and (GetHogClan(CurrentHedgehog) == 0) then

		teleportActive = true

		destinationX = 1402

		destinationY = 321

	elseif (GearIsInZone(CurrentHedgehog, orangeTel) == true) and (GetHogClan(CurrentHedgehog) == 1) then

		teleportActive = true

		destinationX = 2692

		destinationY = 321

	end

	if teleportActive == true then

		if actionReset == 0 then

			--AddCaption(actionReset .. ";" .. "attack")

		elseif actionReset == 10 then

			SetGearMessage(CurrentHedgehog, 0)

			--AddCaption(actionReset .. ";" .. "reset")

		elseif actionReset == 20 then

			AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), vgtBigExplosion, 0, false)

			SetGearPosition(CurrentHedgehog,destinationX,destinationY)

			AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), vgtBigExplosion, 0, false)

			--AddCaption(actionReset .. ";" .. "teleport")

		end

		actionReset = actionReset + 1

		if actionReset >= 30 then

			actionReset = 0

		end

	end

end

function RebuildTeamInfo()

	-- make a list of individual team names

	for i = 0, 5 do

		teamNameArr[i] = i

		teamSize[i] = 0

		teamIndex[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 then

				unfinished = false

				if newTeam == true then

					teamNameArr[numTeams] = tempHogTeamName

					numTeams = numTeams + 1

				end

			end