------------------- ABOUT ----------------------

--

-- Hog Solo has to catch the other hog in order

-- to get informations about the origin of Pr. Hogevil

HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Animate.lua")

HedgewarsScriptLoad("/Missions/Campaign/A_Space_Adventure/global_functions.lua")

----------------- VARIABLES --------------------

-- globals

local missionName = loc("Chasing the blue hog")

	loc("You have to stand very close to him")

local currentPosition = 1

local previousTimeLeft = 0

-- dialogs

local dialog01 = {}

local dialog02 = {}

-- mission objectives

local goals = {

	[dialog01] = {missionName, loc("Challenge Objectives"), challengeObjectives, 1, 4500},

}

-- hogs

local hero = {

	name = loc("Hog Solo"),

	x = 1300,

	y = 850

}

local runner = {

	name = loc("Crazy Runner"),

	places = {

		{x = 1400,y = 850, turnTime = 0},

		{x = 3880,y = 33, turnTime = 30000},

		{x = 250,y = 1780, turnTime = 25000},

		{x = 3850,y = 1940, turnTime = 20000},

	}

}

-- teams

local teamA = {

	name = loc("Hog Solo"),

	color = tonumber("38D61C",16) -- green

}

local teamB = {

	name = loc("Crazy Runner"),

	color = tonumber("FF0000",16) -- red

}

-------------- LuaAPI EVENT HANDLERS ------------------

function onGameInit()

	GameFlags = gfDisableWind

	Seed = 1

	TurnTime = 25000

	CaseFreq = 0

	MinesNum = 0

	MinesTime = 1

	Explosives = 0

	Map = "moon02_map"

	Theme = "Cheese"

	-- Hog Solo

	AddTeam(teamA.name, teamA.color, "Bone", "Island", "HillBilly", "cm_birdy")

	hero.gear = AddHog(hero.name, 0, 1, "war_desertgrenadier1")

	AnimSetGearPosition(hero.gear, hero.x, hero.y)

	-- Crazy Runner

	AddTeam(teamB.name, teamB.color, "Bone", "Island", "HillBilly", "cm_birdy")

	runner.gear = AddHog(runner.name, 0, 100, "sth_Sonic")

	AnimSetGearPosition(runner.gear, runner.places[1].x, runner.places[1].y)

	HogTurnLeft(runner.gear, true)

	initCheckpoint("moon02")

	AnimInit()

	AnimationSetup()

end

function onGameStart()

	AnimWait(hero.gear, 3000)

	FollowGear(hero.gear)

	ShowMission(missionName, loc("Challenge Objectives"), challengeObjectives, -amSkip, 0)

	AddEvent(onHeroDeath, {hero.gear}, heroDeath, {hero.gear}, 0)

	AddAmmo(hero.gear, amRope, 1)

	AddAmmo(hero.gear, amSkip, 1)

	SendHealthStatsOff()

	hogTurn = runner.gear

	AddAnim(dialog01)

end

function onNewTurn()

	if startChallenge then

		if CurrentHedgehog ~= hero.gear then

			TurnTimeLeft = 0

		else

			if GetAmmoCount(hero.gear, amRope) == 0  then

				lose()

			end

			ParseCommand("setweap " .. string.char(amRope))

			TurnTimeLeft = runner.places[currentPosition].turnTime + previousTimeLeft

			previousTimeLeft = 0

		end

	end

end

function onGameTick()

	AnimUnWait()

	if ShowAnimation() == false then

		return

	end

	ExecuteAfterAnimations()

	CheckEvents()

end

function onGameTick20()

	if isHeroNextToRunner() then

		moveRunner()

	end

end

function onPrecise()

	if GameTime > 3000 then

		SetAnimSkip(true)   

	end

end

-------------- EVENTS ------------------

function onHeroDeath(gear)

	if not GetHealth(hero.gear) then

		return true

	end

	return false

end

-------------- ACTIONS ------------------

function heroDeath(gear)

	lose()

end

-------------- ANIMATIONS ------------------

function Skipanim(anim)

	if goals[anim] ~= nil then

		ShowMission(unpack(goals[anim]))

    end

    if anim == dialog01 then

		moveRunner()

    end

end

function AnimationSetup()

	-- DIALOG 01 - Start, game instructions

	AddSkipFunction(dialog01, Skipanim, {dialog01})

	table.insert(dialog01, {func = AnimWait, args = {hero.gear, 3200}})

	table.insert(dialog01, {func = AnimSay, args = {runner.gear, loc("We'll play a game first"), SAY_SAY, 3000}})

	table.insert(dialog01, {func = AnimSay, args = {runner.gear, loc("I'll let you know whatever I know about him if you manage to catch me 3 times"), SAY_SAY, 4000}})

	table.insert(dialog01, {func = AnimSay, args = {runner.gear, loc("Let's go!"), SAY_SAY, 2000}})	

	table.insert(dialog01, {func = moveRunner, args = {}})

	-- DIALOG 02 - Hog Solo story    

	AddSkipFunction(dialog02, Skipanim, {dialog02})

	table.insert(dialog02, {func = AnimWait, args = {hero.gear, 3200}})

	table.insert(dialog02, {func = AnimSay, args = {runner.gear, loc("He was the lab assistant of Dr. Goodhogan, the inventor of the anti-gravity device"), SAY_SAY, 5000}})

	table.insert(dialog02, {func = AnimSay, args = {runner.gear, loc("That's why he always wears a hat since then"), SAY_SAY, 4000}})

	table.insert(dialog02, {func = AnimSay, args = {runner.gear, loc("I should go now, goodbye!"), SAY_SAY, 3000}})

	table.insert(dialog02, {func = win, args = {}})

end

------------- other functions ---------------

function isHeroNextToRunner()

	if GetHealth(hero.gear) and math.abs(GetX(hero.gear) - GetX(runner.gear)) < 75 and

			math.abs(GetY(hero.gear) - GetY(runner.gear)) < 75 and StoppedGear(hero.gear) then

		return true

	end

	return false

end

function moveRunner()

	if currentPosition > 3 then

		if GetX(hero.gear) > GetX(runner.gear) then

			HogTurnLeft(runner.gear, false)

		end

		TurnTimeLeft = 0

		AddAnim(dialog02)

	else

		if not startChallenge then

			startChallenge = true

		end

		AddAmmo(hero.gear, amRope, 1)

		if currentPosition ~= 1 then

			PlaySound(sndVictory)

			if currentPosition > 1 and currentPosition < 4 then

				AnimCaption(hero.gear, loc("Go get him again"), 3000)

				AnimSay(runner.gear, loc("You got me"), SAY_SAY, 3000)

			end

			previousTimeLeft = TurnTimeLeft

		end

		currentPosition = currentPosition + 1

		SetGearPosition(runner.gear, runner.places[currentPosition].x, runner.places[currentPosition].y)

		TurnTimeLeft = 0

	end

end

function lose()

	SendStat(siGameResult, loc("Too slow! Try again..."))

	SendStat(siCustomAchievement, loc("Each turn you'll have only one rope to use"))

	SendStat(siCustomAchievement, loc("You'll lose if you die or if your time is up"))

	SendStat(siPlayerKills,'0',teamA.name)

	EndGame()

end

function win()

	SendStat(siGameResult, loc("Congratulations, you are the fastest!"))

	SendStat(siPlayerKills,'1',teamA.name)

	EndGame()

end