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

-- CTF_BLIZZARD 0.4

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

---------

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

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

--game text

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

local caption = {

	["en"] = "CTF: Blizzard v0.4"

	}

local subcaption = {

	["en"] = "by Mikade"

	}

local goal = {

	["en"] = "Capture the enemy flag."

	}

-- To handle missing texts we define a small wrapper function that

-- we'll use to retrieve text.

local function loc(text)

	if text == nil then return "**missing**"

	elseif text[L] == nil then return text["en"]

	else return text[L]

	end

end

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

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

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

-- 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 fCirc = {} -- flag/carrier marker circles

local fCol = {} -- colour of the clans

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

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

	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("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("You have SCORED!!", "Red Team: " .. fCaptures[0], "Blue Team: " .. fCaptures[1], -amBazooka, 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("Flag returned!")

				elseif fIsMissing[wtf] == false then

					AddCaption("That was pointless. 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("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("Boom! 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("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

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

		fGear[wtf] = SpawnAmmoCrate(fThiefX[wtf],fThiefY[wtf]-50,amSkip)

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

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

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

			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

			SetGearMessage(CurrentHedgehog, gmAttack)

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

		end

	end

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

	for i = 0, numTeams-1 do

		for z = 0, numhhs-1 do

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

				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

function HandleCrateDrops()

	roundsCounter = roundsCounter +1

	if roundsCounter == 5 then

		roundsCounter = 0

		r = GetRandom(8)

		if r == 0 then

			SpawnAmmoCrate(0,0,amSwitch)

		elseif r == 1 then

			SpawnAmmoCrate(0,0,amTeleport)

		elseif r == 2 then

			SpawnAmmoCrate(0,0,amJetpack)

		elseif r == 3 then

			SpawnUtilityCrate(0,0,amExtraTime)

		elseif r == 4 then

			SpawnAmmoCrate(0,0,amGirder)

		elseif r == 5 then

			SpawnAmmoCrate(0,0,amDynamite)

		elseif r == 6 then

			SpawnAmmoCrate(0,0,amFlamethrower)

		elseif r == 7 then

			SpawnAmmoCrate(0,0,amPortalGun)

		end

	end

end

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

-- game methods

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

function onGameInit()

	-- Things we don't modify here will use their default values.

	Seed = 0 -- The base number for the random number generator

	GameFlags = gfDivideTeams -- Game settings and rules

	TurnTime = 30000 -- (was 30) The time the player has to move each round (in ms)

	CaseFreq = 0 -- The frequency of crate drops

	MinesNum = 0 -- The number of mines being placed

	MinesTime  = 2000

	Explosives = 0 -- The number of explosives being placed

	Delay = 10 -- The delay between each round

	SuddenDeathTurns = 99 -- suddendeath is off, effectively

	Map = "CTF_Blizzard" -- The map to be played

	Theme = "Snow" -- The theme to be used "Nature"

end

function onGameStart()

	ShowMission(loc(caption), loc(subcaption), loc(goal), 0, 0)

	-- initialize teleporters

	redTel = CreateZone(342,1316,42,449)	-- red teleporter

	orangeTel = CreateZone(3719,1330,45,449)	-- orange teleporter

	--new improved placement schematics aw yeah

	RebuildTeamInfo()

	--ShowMission("Team Info Rebuilt", "Here you go:", "TeamCount: " .. TeamsCount .. "|" .. teamNameArr[0] .. ": " .. teamSize[0] .. " Hogs|" .. teamNameArr[1] .. ": " .. teamSize[1] .. " Hogs|" .. teamNameArr[2] .. ": " .. teamSize[2] .. " Hogs|", 0, 0)

	team1Placed = 0

	team2Placed = 0

	for i = 0, (TeamsCount-1) do

		for g = teamIndex[i], (teamIndex[i]+teamSize[i]-1) do

			if GetHogClan(hhs[g]) == 0 then

				SetGearPosition(hhs[g],1403+ ((team1Placed+1)*50),1570)