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

-- CTF_BLIZZARD 0.9

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

---------

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

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

-- 0.7

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

-- hopefully fixed a bug with the teleporters

-- added a fix for crate possibly getting imbedded in land when it was near the water line

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

-- 0.8

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

-- fixed version control fail with missing check on onGearDelete

-- changed hog placements code so that they start in the same place for both teams

-- and hogs move in the same order, not backwards to each other.

-----------

-- 0.9

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

-- add support for more players

-- re-enable sudden death, but set water rise to 0

HedgewarsScriptLoad("/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

local gameEnded = false

local ropeGear = nil

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

-- hog and team tracking variales

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

local numhhs = 0 -- store number of hedgehogs

local hhs = {} -- store hedgehog gears

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

local clanTeams = {} -- list of teams per clan

local mostCapturesHogName = nil -- name of hog who holds the record of most flags captured

local mostCapturesHogTeam = nil -- name of team who holds the record of most flags captured

local mostCaptures = 0 -- number of most per-hog captures

local capturesPerHog = {}

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

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

local rightTel

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

		effectTimer = 0

		local i = GetHogClan(CurrentHedgehog)

		if i ~= 0 and i ~= 1 then

			return

		end

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

		local 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

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

		SetVisualGearValues(tempE, eX, eY, nil, nil, nil, nil, nil, nil, nil, fCol[i])

	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)

	local alt

	if teamID == 0 then

		alt = 1

	elseif teamID == 1 then

		alt = 0

	end

	if fCaptures[teamID] == 3 and not gameEnded then

		gameEnded = true

		for i = 0, (numhhs-1) do

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

				SetEffect(hhs[i], heResurrectable, 0)

				SetHealth(hhs[i],0)

			end

		end

		local victoryMsg = string.format(loc("Victory for %s!"), GetHogTeamName(CurrentHedgehog))

		AddCaption(victoryMsg, capcolDefault, capgrpGameState)

		-- Calculate team rankings

		local teamList = {}

		for i=0, TeamsCount-1 do

			local name = GetTeamName(i)

			local clan = GetTeamClan(name)

			if fCaptures[clan] ~= nil then

				table.insert(teamList, { score = fCaptures[clan], name = name, clan = clan })

			end

		end

		local teamRank = function(a, b)

			return a.score > b.score

		end

		table.sort(teamList, teamRank)

		for i=1, #teamList do

			SendStat(siPointType, "!POINTS")

			SendStat(siPlayerKills, tostring(teamList[i].score), teamList[i].name)

		end

		if mostCaptures >= 2 then

			SendStat(siCustomAchievement, string.format(loc("%s (%s) has captured the flag %d times."), mostCapturesHogName, mostCapturesHogTeam, mostCaptures))

		end

	end

end

function HandleRespawns()

	for i = 0, 1 do

		if fNeedsRespawn[i] == true then

			fGear[i] = SpawnFakeAmmoCrate(fSpawnX[i],fSpawnY[i],false,false)

			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!"), capcolDefault, capgrpAmmoinfo)

		end

	end

end

function FlagDeleted(gear)

	local wtf, bbq

	if (gear == fGear[0]) then

		wtf = 0

		bbq = 1

	elseif (gear == fGear[1]) then

		wtf = 1

		bbq = 0

	end

	if CurrentHedgehog ~= nil then

		--if the player picks up the flag

		if band(GetGearMessage(gear), gmDestroy) ~= 0 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

				PlaySound(sndShotgunReload)

				fIsMissing[wtf] = false

				fNeedsRespawn[wtf] = true

				fIsMissing[bbq] = false

				fNeedsRespawn[bbq] = true

				fCaptures[wtf] = fCaptures[wtf] +1

				AddCaption(string.format(loc("%s has scored!"), GetHogTeamName(CurrentHedgehog)), capcolDefault, capgrpGameState)

				for i=1, #clanTeams[wtf] do

					SetTeamLabel(clanTeams[wtf][i], fCaptures[wtf])

				end

				capturesPerHog[CurrentHedgehog] = capturesPerHog[CurrentHedgehog] + 1

				if capturesPerHog[CurrentHedgehog] > mostCaptures then

					mostCaptures = capturesPerHog[CurrentHedgehog]

					mostCapturesHogName = GetHogName(CurrentHedgehog)

					mostCapturesHogTeam = GetHogTeamName(CurrentHedgehog)

				end

				PlaySound(sndHomerun)

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

				CheckScore(wtf)

			--if the player is returning the flag

			elseif GetHogClan(CurrentHedgehog) == wtf then

				PlaySound(sndShotgunReload)

				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!"), capcolDefault, capgrpAmmoinfo)

				elseif fIsMissing[wtf] == false then

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

				end

			--if the player is taking the enemy flag

			elseif GetHogClan(CurrentHedgehog) == bbq then

				PlaySound(sndShotgunReload)

				fIsMissing[wtf] = true

				for i = 0,numhhs-1 do

					if CurrentHedgehog == hhs[i] then

						fThief[wtf] = hhs[i]

					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

		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

		fGear[wtf] = nil

		fIsMissing[wtf] = true

		fNeedsRespawn[wtf] = true

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

	end

end

function FlagThiefDead(gear)

	local wtf, bbq

	if (gear == fThief[0]) then

		wtf = 0

		bbq = 1

	elseif (gear == fThief[1]) then

		wtf = 1

		bbq = 0

	end

	if fThief[wtf] ~= nil then

		if fThiefY[wtf] > 2040 then

			fGear[wtf] = SpawnFakeAmmoCrate(fThiefX[wtf],(fThiefY[wtf]+10),false,false)

		else

			fGear[wtf] = SpawnFakeAmmoCrate(fThiefX[wtf],(fThiefY[wtf]-50),false,false)

		end

		AddCaption(string.format(loc("%s has dropped the flag!"), GetHogName(gear)), capcolDefault, capgrpAmmoinfo)

		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], 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], 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]), 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 CheckTeleporters()

	local teleportActive = false

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

		teleportActive = true

		destinationX = 1402

		destinationY = 321

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

		teleportActive = true

		destinationX = 2692

		destinationY = 321

	end

	if teleportActive == true then

		if actionReset == 0 then

			if ropeGear ~= nil then

				if GetGearElasticity(ropeGear) ~= 0 then

					SetGearMessage(CurrentHedgehog, gmAttack)

				end

			end

		elseif actionReset == 10 then

			SetGearMessage(CurrentHedgehog, 0)

		elseif actionReset == 20 then

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

			SetGearPosition(CurrentHedgehog,destinationX,destinationY)

			PlaySound(sndWarp)

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

		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, (TeamsCount-1) do

		teamNameArr[i] = GetTeamName(i)

		teamSize[i] = 0

		teamIndex[i] = 0

		SetTeamLabel(teamNameArr[i], "0")

	end