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

HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Tracker.lua")

HedgewarsScriptLoad("/Scripts/Params.lua")

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

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

strucID = {}

strucGear = {}

strucClan = {}

strucType = {}

strucCost = {}

strucHealth = {}

strucCirc = {}

strucCircCol = {}

strucCircRadius = {}

strucCircType = {}

strucAltDisplay = {}

fortMode = false

placedExpense = 0

tempID = nil

sUID = 0

colorRed = 0xff0000ff

colorGreen = 0x00ff00ff

clanBoundsSX = {}

clanBoundsSY = {}

clanBoundsEX = {}

clanBoundsEY = {}

clanPower = {}

clanID = {}

-- for ease of use let's track previous selection

teamLStructIndex = {}

teamLObjectMode = {}

teamLCrateMode = {}

teamLMineIndex = {}

teamLWeapIndex = {}

teamLUtilIndex = {}

clanUsedExtraTime = {}

clanCratesSpawned = {}

clanFirstTurn = {}

effectTimer = 0

wallsVisible = false

wX = {}

wY = {}

wWidth = {}

wHeight = {}

wCol = {}

margin = 20

clanPowerTag = nil

lastWep = nil

checkForSpecialWeaponsIn = -1

-- Fake ammo types, for the overwritten weapons in Construction Mode

amCMStructurePlacer = amAirAttack

amCMCratePlacer = amNapalm

amCMObjectPlacer = amDrillStrike

-- Config variables (script parameter)

conf_initialEnergy = 550

conf_energyPerRound = 50

conf_maxEnergy = 1000

conf_cratesPerRound = 5

function DrawClanPowerTag()

	zoomL = 1.3

	xOffset = 40

	zoomL = 1.1

	xOffset = 45

	yOffset = 70

	tCol = 0x00ff00ff

	tValue = clanPower[GetHogClan(CurrentHedgehog)]

	DeleteVisualGear(clanPowerTag)

	clanPowerTag = AddVisualGear(0, 0, vgtHealthTag, 0, false)

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

	SetVisualGearValues	(

				clanPowerTag, 		--id

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

				ScreenHeight - yOffset, --yoffset

				0, 			--dx

				0, 			--dy

				zoomL, 			--zoom

				1, 			--~= 0 means align to screen

				g7, 			--frameticks

				tValue, 		--value

				240000, 		--timer

				tCol		--GetClanColor( GetHogClan(CurrentHedgehog) )

				)

end

function XYisInRect(px, py, psx, psy, pex, pey)

	if (px > psx) and (px < pex) and (py > psy) and (py < pey) then

		return(true)

	else

		return(false)

	end

end

function AddWall(zXMin,zYMin, zWidth, zHeight, zCol)

	table.insert(wX, zXMin)

	table.insert(wY, zYMin)

	table.insert(wWidth, zWidth)

	table.insert(wHeight, zHeight)

	table.insert(wCol, zCol)

end

function BorderSpark(zXMin,zYMin, zWidth, zHeight, bCol)

	eX = zXMin + GetRandom(zWidth+10)

	eY = zYMin + GetRandom(zHeight+10)

	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, 1, g9, bCol )

	end

end

function HandleBorderEffects()

	effectTimer = effectTimer + 1

	if effectTimer > 15 then

		effectTimer = 1

		for i = 1, #wX do

			BorderSpark(wX[i],wY[i],wWidth[i],wHeight[i], wCol[i])

		end

	end

end

----

-- old reflecting stuff from like 3 years ago lol

---

function gearCanBeDeflected(gear)

	if 	(GetGearType(gear) == gtShell) or

		(GetGearType(gear) == gtGrenade) or

		(GetGearType(gear) == gtAirBomb) or

		(GetGearType(gear) == gtClusterBomb) or

		(GetGearType(gear) == gtCluster) or

		(GetGearType(gear) == gtGasBomb) or

		(GetGearType(gear) == gtMine) or

		(GetGearType(gear) == gtMortar) or

		(GetGearType(gear) == gtHellishBomb) or

		(GetGearType(gear) == gtWatermelon) or

		(GetGearType(gear) == gtMelonPiece)	or

		(GetGearType(gear) == gtEgg) or

		(GetGearType(gear) == gtDrill) or

		(GetGearType(gear) == gtBall) or

		(GetGearType(gear) == gtExplosives) or

		(GetGearType(gear) == gtKnife) or

		(GetGearType(gear) == gtSnowball) or

		(GetGearType(gear) == gtMolotov)

	then

		return(true)

	else

		return(false)

	end

end

function getThreatDamage(gear)

	--- damage amounts for weapons

	if 	(GetGearType(gear) == gtGrenade) or

		(GetGearType(gear) == gtClusterBomb) or

		(GetGearType(gear) == gtGasBomb) or

		(GetGearType(gear) == gtKnife) or

		(GetGearType(gear) == gtEgg) or

		(GetGearType(gear) == gtMolotov) or

		(GetGearType(gear) == gtHellishBomb) or

		(GetGearType(gear) == gtWatermelon) or

		(GetGearType(gear) == gtSMine)

	then

		dmg = 30

	elseif (GetGearType(gear) == gtMelonPiece) then

		dmg = 40

	elseif (GetGearType(gear) == gtAirBomb) or

			(GetGearType(gear) == gtDrill) or

			(GetGearType(gear) == gtMine) or

			(GetGearType(gear) == gtCluster) then

		dmg = 20

	elseif (GetGearType(gear) == gtFlame) or

			(GetGearType(gear) == gtPortal) or

			(GetGearType(gear) == gtDynamite)

	then

		dmg = 0

	elseif (GetGearType(gear) == gtBall) then

		dmg = 1

	else	--normal shell, snowball etc

		dmg = 65

	end

	return(dmg)

end

function setGearReflectionValues(gear)

	dmg = getThreatDamage(gear)

	setGearValue(gear,"damage",dmg)

	setGearValue(gear,"deflects",0)

	if (CurrentHedgehog ~= nil) then

		setGearValue(gear,"owner",GetHogClan(CurrentHedgehog)) -- NEW NEEDS CHANGE?

	else

		setGearValue(gear,"owner",10)

	end

end

function AddStruc(pX,pY, pType, pClan)

	sUID = sUID + 1

	tempG = AddGear(0, 0, gtTarget, 0, 0, 0, 0)

	SetGearPosition(tempG, pX, pY)

	setGearValue(tempG, "sUID", sUID)

	tempCirc = AddVisualGear(0,0,vgtCircle,0,true)

	SetVisualGearValues(tempCirc, 0, 0, 100, 255, 1, 100, 0, 500, 1, 0xFFFFFF00)

	table.insert(strucID, sUID)

	table.insert(strucType, pType)

	table.insert(strucGear,tempG)

	table.insert(strucClan,pClan)

	table.insert(strucCost,2)

	frameID = 0

	visualSprite = sprTarget

	madness = AddVisualGear(GetX(tempG), GetY(tempG), vgtStraightShot, 1, true,1)

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

	if pType == loc("Reflector Shield") then

		table.insert(strucHealth,255)

	else

		table.insert(strucHealth,1)

	end

	table.insert(strucCirc,tempCirc)

	table.insert(strucCircType, 1)

	if pType == loc("Bio-Filter") then

		table.insert(strucCircCol,colorRed)

		table.insert(strucCircRadius,1000)

		frameID = 7

	elseif pType == loc("Healing Station") then

		table.insert(strucCircCol,0xFF00FF00)

		table.insert(strucCircRadius,500)

		frameID = 3

	elseif pType == loc("Respawner") then

		table.insert(strucCircCol,0xFF00FF00)

		table.insert(strucCircRadius,75)

		runOnHogs(EnableHogResurrectionForThisClan)

		frameID = 1

	elseif pType == loc("Teleportation Node") then

		table.insert(strucCircCol,0x0000FFFF)

		table.insert(strucCircRadius,350)

		frameID = 6

	elseif pType == loc("Generator") then

		table.insert(strucCircCol,0xFFFF00FF)

		table.insert(strucCircRadius,75)

		setGearValue(tempG, "power", 0)

		frameID = 2

	elseif pType == loc("Support Station") then

		table.insert(strucCircCol,0xFFFF00FF)

		table.insert(strucCircRadius,500)

		frameID = 4

	elseif pType == loc("Construction Station") then

		table.insert(strucCircCol,0xFFFFFFFF)

		table.insert(strucCircRadius,500)

		frameID = 8

	elseif pType == loc("Reflector Shield") then

		table.insert(strucCircCol,0xffae00ff)

		table.insert(strucCircRadius,750)

		frameID = 9

	elseif pType == loc("Weapon Filter") then

		table.insert(strucCircCol,0xa800ffff)

		table.insert(strucCircRadius,750)

		frameID = 5

	end

	SetVisualGearValues(madness, g1, g2, 0, 0, g5, frameID, g7, visualSprite, g9, g10 )

	SetState(tempG, bor(GetState(tempG),gstInvisible) )

	table.insert(strucAltDisplay, madness)

end

-- this is basically onStructureDelete

-- we may need to expand it for non-gear structures later

function CheckGearForStructureLink(gear)

	respawnerDestroyed = false

	for i = 1, #strucID do

		if strucID[i] == getGearValue(gear,"sUID") then

			if strucType[i] == loc("Respawner") then

				respawnerDestroyed = true

			end

			table.remove(strucID,i)

			table.remove(strucGear,i)

			table.remove(strucClan,i)

			table.remove(strucType,i)

			table.remove(strucCost,i)

			table.remove(strucHealth,i)

			DeleteVisualGear(strucCirc[i])

			table.remove(strucCirc,i)

			table.remove(strucCircCol,i)

			table.remove(strucCircRadius,i)

			table.remove(strucCircType,i)

			if strucAltDisplay[i] ~= 1 then

				DeleteVisualGear(strucAltDisplay[i])

			end

			table.remove(strucAltDisplay,i)

		end

	end

	if respawnerDestroyed == true then

		runOnHogs(RecalibrateRespawn)

	end

end

-- called when we add a new respawner

function EnableHogResurrectionForThisClan(gear)

	if GetHogClan(gear) == GetHogClan(CurrentHedgehog) then

		SetEffect(gear, heResurrectable, 1)

	end

end

-- this is called when a respawner blows up

function RecalibrateRespawn(gear)

	respawnerList = {}

	for i = 1, #strucID do

		if (strucType[i] == loc("Respawner")) and (strucClan[i] == GetHogClan(gear)) then

			table.insert(respawnerList, i)

		end

	end

	if #respawnerList >= 1 then

		SetEffect(gear, heResurrectable, 1)

	else

		SetEffect(gear, heResurrectable, 0)

	end

end

--resposition dead hogs at a respawner if they own one

function FindRespawner(gear)

	respawnerList = {}

	for i = 1, #strucID do

		if (strucType[i] == loc("Respawner")) and (strucClan[i] == GetHogClan(gear)) then

			table.insert(respawnerList, i)

		end

	end

	if #respawnerList >= 1 then

		i = GetRandom(#respawnerList)+1

		SetGearPosition(gear,GetX(strucGear[respawnerList[i]]),GetY(strucGear[respawnerList[i]])-25)

		AddVisualGear(GetX(gear), GetY(gear), vgtExplosion, 0, false)

	else	-- (this should never happen, but just in case)

		SetEffect(gear, heResurrectable, 0)

		DeleteGear(gear)

	end

end

function CheckTeleport(gear, tX, tY)

	teleportOriginSuccessful = false

	teleportDestinationSuccessful = false

	for i = 1, #strucID do

		if (strucType[i] == loc("Teleportation Node")) and (strucClan[i] == GetHogClan(CurrentHedgehog)) then

			dist = GetDistFromGearToXY(CurrentHedgehog,GetX(strucGear[i]), GetY(strucGear[i]))

			if strucCircType[i] == 0 then

				NR = strucCircRadius[i]

			else