-- Teamwork 2

-- Original scenario by Arkhnen

HedgewarsScriptLoad("Scripts/Locale.lua")

local player = nil

local hlayer = nil

local enemy = nil

local Pack = nil

local help = false

local GameOver = false

local skipTime = 0

function onGameInit()

	Seed = 0

	GameFlags = gfDisableWind

	TurnTime = 600000000

	CaseFreq = 0

	MinesNum = 0

	MinesTime = 0

	-- Disable Sudden Death

	HealthDecrease = 0

	WaterRise = 0

	Explosives = 0

	Delay = 10

	Map = "CrazyMission"

	Theme = "CrazyMission"

	AddTeam(loc("Feeble Resistance"), 14483456, "Simple", "Island", "Default", "cm_kiwi")

	player = AddHog(loc("Greg"), 0, 30, "NoHat")

	hlayer = AddHog(loc("Mark"), 0, 40, "NoHat")

	AddTeam(loc("Cybernetic Empire"), 1175851, "Simple", "Island", "Robot", "cm_binary")

	enemy = AddHog(loc("WatchBot 4000"), 5, 50, "cyborg1")

	SetGearPosition(player, 180, 555)

	SetGearPosition(enemy, 1500, 914)

	SetGearPosition(hlayer, 333, 555)

end

function onGameStart()

	Pack = SpawnAmmoCrate(40, 888, amPickHammer)

	SpawnAmmoCrate(90, 888, amBaseballBat)

	SpawnAmmoCrate(822, 750, amBlowTorch)

	SpawnAmmoCrate(700, 580, amJetpack)

	SpawnAmmoCrate(1400, 425, amParachute)

	SpawnAmmoCrate(1900, 770, amDynamite)

	SpawnAmmoCrate(1794, 970, amDynamite)

	ShowMission(loc("Teamwork 2"), loc("Scenario"), loc("Eliminate WatchBot 4000.") .. "|" .. loc("Both your hedgehogs must survive.") .. "|" .. loc("Land mines explode instantly."), -amBaseballBat, 0)

	AddGear(355, 822, gtSMine, 0, 0, 0, 0)

	AddGear(515, 525, gtSMine, 0, 0, 0, 0)

	AddGear(1080, 821, gtMine, 0, 0, 0, 0)

	AddGear(1055, 821, gtMine, 0, 0, 0, 0)

	AddGear(930, 587, gtMine, 0, 0, 0, 0)

	AddGear(955, 556, gtMine, 0, 0, 0, 0)

	AddGear(980, 556, gtMine, 0, 0, 0, 0)

	AddGear(1005, 556, gtMine, 0, 0, 0, 0)

	AddGear(710, 790, gtMine, 0, 0, 0, 0)

	AddGear(685, 790, gtMine, 0, 0, 0, 0)

	AddGear(660, 790, gtMine, 0, 0, 0, 0)

	AddGear(1560, 540, gtMine, 0, 0, 0, 0)

	AddGear(1610, 600, gtMine, 0, 0, 0, 0)

	AddGear(1660, 655, gtMine, 0, 0, 0, 0)

	AddGear(713, 707, gtMine, 0, 0, 0, 0)

	AddGear(1668, 969, gtExplosives, 0, 0, 0, 0)

	AddGear(1668, 906, gtExplosives, 0, 0, 0, 0)

	AddGear(1668, 842, gtExplosives, 0, 0, 0, 0)

	AddGear(1713, 969, gtExplosives, 0, 0, 0, 0)

	SetWind(90)

end

function onGearAdd(gear)

	if GetGearType(gear) == gtJetpack then

		SetHealth(gear, 300)

	end

end

function onAmmoStoreInit()

	SetAmmo(amParachute, 1, 0, 0, 2)

	SetAmmo(amSwitch, 9, 0, 0, 0)

	SetAmmo(amSkip, 9, 0, 0, 0)

	SetAmmo(amPickHammer, 0, 0, 0, 1)

	SetAmmo(amBaseballBat, 0, 0, 0, 1)

	SetAmmo(amBlowTorch, 0, 0, 0, 2)

	SetAmmo(amJetpack, 0, 0, 0, 1)

	SetAmmo(amDynamite, 0, 0, 0, 1)

end

--[[ This is some hackery to make the enemy hedgehog skip ]]

function onNewTurn()

	if CurrentHedgehog == enemy then

		skipTime = GameTime + 1

	end

end

function onGameTick20()

	if CurrentHedgehog == enemy and skipTime ~= 0 and skipTime < GameTime then

        	ParseCommand("/skip")

		skipTime = 0

	end

end

function onGearDelete(gear)

	if gear == Pack then

		HogSay(CurrentHedgehog, loc("This will certianly come in handy."), SAY_THINK)

	end

	if (gear == enemy) and (GameOver == false) then

		ShowMission(loc("Teamwork 2"), loc("MISSION SUCCESSFUL"), loc("Congratulations!"), 0, 0)

		GameOver = true

	elseif ( ((gear == player) or (gear == hlayer)) and (GameOver == false)) then

		ShowMission(loc("Teamwork 2"), loc("MISSION FAILED"), loc("Oh no! Just try again!"), -amSkip, 0)

		GameOver = true

		SetHealth(hlayer, 0)

		SetHealth(player, 0)

	end

end