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

--- LE CONSTRUCTION MODE 0.7 (badly adapted from Hedge Editor 0.5)

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

-- a hedgewars gameplay mode by mikade

-- special thanks to all who helped test and offered suggestions

-- additional thanks to sheepluva/nemo for adding some extra hooks

-- (to do)

-- investigate loc not working on addcaptions

-- check for parsecommands before porting to dev

-- test onUpDown more extensively as it may need revision (check for amRubber etc)

-- test localization of weapons and utils and stuff

-- try posistion grenades in Harmer so it blows hogs away from the struc

-- and don't explode too close to the struc

-- additional/previous balance ideas

-- based on your money?

-- based on the number of strucs/gens you own?

-- based on your existing arsenal?

-- limit number of crates spawned per round perhaps (done)

-- limit number of generators?

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

--version history

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

--v0.1

-- concept test

--v0.2

-- improved documentation (in script and in game)

-- improved localisation (or is it? at any rate, crate placement should now say e.g. Bazooka and not amBazooka)

-- added variable weapon costs (based on the values from Vatten's Consumerism script)

-- added reflector shield (still needs work and balancing)

-- added weapon-filter (probably ok)

-- enabled super weapons like ballgun, rcplane, watermelon, hellish to test balance

-- reduce max money to 1000

--v0.3

-- some /s removed

--v0.4

-- added support for per hog ammo (hopefully)

--v0.5 (dev)

-- added somewhat horribly implemented support for different structure sprites

-- added override pictures for ammo menu

-- added override message on wep select to aid understanding

-- split menu into/between weps/parts: struc, crates, gears

-- add a limit on crates per turn

-- add a limit on extra time per turn

-- add a test level

-- restored rubber placement

-- cleaned up some of the code a bit and removed about 280 lines of code I didn't need, lol

--v0.6 (dev)

-- added magic dance

--v.07 (pushed to repo)

-- added a cfg file

-- removed another 903 lines of code we weren't using (lol)

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

-- STRUCTURES LIST / IDEAS

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

--Healing Station: heals hogs to 150 life

--Teleportation Node: allows teleporting to any other teleporter nodes

--Bio-filter: explodes enemy hogs

--Respawner: if you have one of these, any slain hogs are resurrected here :D

--Generator: generates energy (used to buy stuff, and possibly later other strucs might have upkeep costs)

--Support Station: allows purchasing of weapons, utilities, and med-crates

--Construction Station: allows purchasing of girders, rubber, mines, sticky mines, barrels

--Reflector Shield: reflect projectiles

--Weapon Filter: kill all equipement of enemy hogs passing through this area.

--to make the grill more attractive make it vaporize flying saucers

--and also rope, and maybe incoming gears

-- make healing thing also cure poison

-- maybe make poison more virulent and dangerous

--(not implemented / abandoned ideas)

-- Core: allows construction of other structures.

-- Automated Turret (think red drones from space invasion)

-- Canon (gives access to 3 fireballs per turn while near)

-- something that allows control of wind/water

-- Gravity Field generator : triggers world gravity change

-- structures consume power over time and

-- maybe you can turn structures OFF/ON, manually to save power.

-- hacking

-- allow hacking of structures, either being able to use enemy structures,

-- or turning a team's structures against them.

-- pylons

-- allow hogs to put down a pylon-like gear which then allows the core

-- to place other structures/objects within the pylon's sphere of influence

-- this would allow aggressive structure advancement

-- resouce mining?

-- you could designate something like mines, that you could get close to,

-- "pick up", and then "drop" back at a central location to simulate

-- resource mining. bit complicated/meh, normal power generators probably easier

-- it would be cool to have a red mask we could apply over girders

-- that would indicate they were Indestructible

HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Tracker.lua")

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

-- STRUC CRAP

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

strucID = {}

strucGear = {}

strucClan = {}

strucType = {}

strucCost = {}

strucHealth = {}

strucCirc = {}

strucCircCol = {}

strucCircRadius = {}

strucCircType = {}

strucAltDisplay = {}

placedExpense = 0

tempID = nil

sUID = 0

colorRed = 0xff0000ff

colorGreen = 0x00ff00ff

clanBoundsSX = {}

clanBoundsSY = {}

clanBoundsEX = {}

clanBoundsEY = {}

clanPower = {}

clanID = {}

clanLStrucIndex = {}

clanLWepIndex = {} -- for ease of use let's track this stuff

clanLUtilIndex = {}

clanLGearIndex = {}

clanUsedExtraTime = {}

clanCratesSpawned = {}

effectTimer = 0

wallsVisible = false

wX = {}

wY = {}

wWidth = {}

wHeight = {}

wCol = {}

margin = 20

vTag = {}

lastWep = nil

function HideTags()

	for i = 0, 2 do

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

	end

end

function DrawTag(i)

	zoomL = 1.3

	xOffset = 40

	if i == 0 then

		yOffset = 40

		tCol = 0xffba00ff

		tValue = 30--TimeLeft

	elseif i == 1 then

		zoomL = 1.1

		xOffset = 45

		yOffset = 70

		tCol = 0x00ff00ff

		tValue = clanPower[GetHogClan(CurrentHedgehog)]

	elseif i == 2 then

		zoomL = 1.1

		xOffset = 60 + 35

		yOffset = 70

		tCol = 0xa800ffff

		tValue = 10--shieldHealth - 80

	end

	DeleteVisualGear(vTag[i])

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

	g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(vTag[i])

	SetVisualGearValues	(

				vTag[i], 		--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 onScreenResize()

	-- redraw Tags so that their screen locations are updated

	if (CurrentHedgehog ~= nil) then

			DrawTag(0)

			DrawTag(1)

			DrawTag(2)

	end

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

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

		(GetGearType(gear) == gtGrenade) or

		(GetGearType(gear) == gtAirBomb) or

		--(GetGearType(gear) == gtRCPlane) or

		--(GetGearType(gear) == gtRope) or

		(GetGearType(gear) == gtClusterBomb) or

		(GetGearType(gear) == gtCluster) or

		(GetGearType(gear) == gtGasBomb) or

		--(GetGearType(gear) == gtSeduction) 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) == gtFlame) or

			(GetGearType(gear) == gtPortal) or

			(GetGearType(gear) == gtDynamite) or

			(GetGearType(gear) == gtSMine) or

			--(GetGearType(gear) == gtKamikaze) or

			--(GetGearType(gear) == gtRCPlane) or

			--(GetGearType(gear) == gtCake) or

			--(GetGearType(gear) == gtHedgehog) or ------

		(GetGearType(gear) == gtKnife) or

		(GetGearType(gear) == gtJetpack) or -- test this and birdy plz

		(GetGearType(gear) == gtBirdy) or -- test this and birdy plz

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

			--(GetGearType(gear) == gtKamikaze) or

			--(GetGearType(gear) == gtRCPlane) or

			--(GetGearType(gear) == gtCake)

	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 --and (gameStarted == true) then

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

	else

		setGearValue(gear,"owner",10) -- nil

	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)

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

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

		--table.insert(strucAltDisplay, madness)

	else

		table.insert(strucHealth,1)

		--table.insert(strucAltDisplay, 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(strucCircCol,colorGreen)

		table.insert(strucCircRadius,500)

		frameID = 3

	elseif pType == loc("Respawner") then

		table.insert(strucCircCol,0xFF00FF00)

		--table.insert(strucCircCol,0xFF00FFFF)

		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("Core") then

		table.insert(strucCircCol,0xFFFFFFFF)

		table.insert(strucCircRadius,350)

	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)

	-- may be needed for non gear-based structures

	--table.insert(strucX, GetX(tempG))

	--table.insert(strucY, GetY(tempG))

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)