HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Achievements.lua")

local player = nil -- This variable will point to the hog's gear

local playerTeamName, enemyTeamName = nil, nil

local instructor = nil

local enemy = nil

local speechStage = 0

local gameLost = false

local gameWon = false

local notListening = false

local endTimer = 0

function onGameInit()

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

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

	GameFlags = gfInfAttack -- Game settings and rules

	TurnTime = 60000 -- 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

	Explosives = 0 -- The number of explosives being placed

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

	Theme = "Bath" -- The theme to be used

	-- Disable Sudden Death

	HealthDecrease = 0

	WaterRise = 0

	playerTeamName = AddMissionTeam(-1)

	player = AddMissionHog(1)

	instructor = AddHog(loc("Instructor"), 0, 100, "sf_vega")

	enemyTeamName = AddTeam(loc("Blue Team"), -2, "bubble", "Island", "Default_qau", "somalia")

	enemy = AddHog(loc("Filthy Blue"), 1, 100, "Skull")

	SetGearPosition(player,146,902)

	SetGearPosition(instructor,317,902)

	SetGearPosition(enemy,1918,837)

	HogSay(player, loc("..."), SAY_THINK)

	HogTurnLeft(instructor, true)

end

function onGameStart()

	SpawnSupplyCrate(475,476,amRope)

	SpawnSupplyCrate(1729,476,amFirePunch)

	FollowGear(player)

	ShowMission(loc("Dangerous Ducklings"), loc("Scenario"), loc("Eliminate the enemy before the time runs out."), -amRope, 5000);

end

function onGameTick()

	-- opening speech

	if (notListening == false) and (gameLost == false) then

		if (TurnTimeLeft == 58000) and (speechStage == 0)  then

			HogSay(instructor, loc("Listen up, maggot!"), SAY_SHOUT)

			speechStage = 1

		elseif (TurnTimeLeft == 57000) and (speechStage == 1) then

			HogSay(player,loc("!"),SAY_SHOUT)

		elseif (TurnTimeLeft == 55000) and (speechStage == 1) then

			HogSay(instructor, loc("The enemy is hiding out on yonder ducky!"), SAY_SAY)

			speechStage = 2

		elseif (TurnTimeLeft == 49000) and (speechStage == 2) then

			FollowGear(enemy)

		elseif (TurnTimeLeft == 46500) and (speechStage == 2) then

			FollowGear(instructor)

			HogSay(instructor, loc("Get on over there and take him out!"), SAY_SAY)

			speechStage = 3

		elseif (TurnTimeLeft == 43500) and (speechStage == 3) then

			HogSay(instructor, loc("GO! GO! GO!"), SAY_SHOUT)

			speechStage = 4

			givenSpeech = true

		end

	end

	-- if player falls in water or if player ignores speech

	if (CurrentHedgehog ~= nil) and (CurrentHedgehog == player) then

		if (GetY(player) > WaterLine) and (gameLost == false) then

			HogSay(instructor, loc("DAMMIT, ROOKIE!"), SAY_SHOUT)

			gameLost = true

		end

		if (GetX(player) > 300) and (GetY(player) > 880) and (notListening == false) and (speechStage < 3) then

			HogSay(instructor, loc("DAMMIT, ROOKIE! GET OFF MY HEAD!"), SAY_SHOUT)

			notListening = true

		end

	end

	--player out of time

	if (TurnTimeLeft == 1) and (gameWon == false) then

		SetHealth(player, 0)

	end

	-- meh

	if gameLost == true then

		endTimer = endTimer + 1

		if (CurrentHedgehog ~= nil) and (CurrentHedgehog == instructor) then

			if endTimer >= 3000 then

				SetTurnTimeLeft(1)

				DismissTeam(playerTeamName)

			end

		end

	end

end

function onAmmoStoreInit()

	SetAmmo(amFirePunch, 0, 0, 0, 1)

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

	SetAmmo(amRope, 0, 0, 0, 1)

end

function onGearDelete(gear)

	if GetGearType(gear) == gtHedgehog then

		if gear == player then

			gameLost = true

		elseif (gear == instructor) and (GetY(gear) > WaterLine) then

			HogSay(player, loc("See ya!"), SAY_THINK)

			Retreat(3000)

			awardAchievement(loc("Naughty Ninja"))

			DismissTeam(enemyTeamName)

			gameWon = true

		elseif gear == enemy then

			HogSay(player, loc("Enjoy the swim..."), SAY_THINK)

			gameWon = true

			Retreat(3000)

		end

	end

end

function onGameResult(winner)

	if winner == GetTeamClan(playerTeamName) then

		SaveMissionVar("Won", "true")

		SendStat(siGameResult, loc("Mission succeeded!"))

	else

		SendStat(siGameResult, loc("Mission failed!"))

	end

end