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

--

-- This map works as a menu for the hero hog to

-- navigate through planets. It portrays the hogs

-- planet and above the planets that he'll later

-- visit.

HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Animate.lua")

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

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

-- globals

local missionName = loc("Spacetrip")

local timeForGuard1ToTurn = 1000 * 5 -- 5 sec

local timeForGuard1ToTurnLeft = timeForGuard1ToTurn

local saucerAcquired = false

local status

local checkPointReached = 1 -- 1 is start of the game

local objectives = loc("Go to the moon by using the flying saucer and complete the main mission").."|"..

loc("Come back to this mission and visit the other planets to collect the crates").."|"..

loc("Visit the Death Planet after completing all the other planets' main missions").."|"..

loc("Come back to this mission after collecting all the device parts")

-- dialogs

local dialog01 = {}

local dialog02 = {}

local dialog03 = {}

local dialog04 = {}

local dialog05 = {}

local dialog06 = {}

local dialog07 = {}

local dialog08 = {}

-- mission objectives

local goals = {

	[dialog01] = {missionName, loc("Getting ready"), loc("Go and collect the crate").."|"..loc("Try not to get spotted by the guards!"), 1, 4500},

	[dialog02] = {missionName, loc("The adventure begins!"), loc("Use the saucer and fly to the moon").."|"..loc("Travel carefully as your fuel is limited"), 1, 4500},

	[dialog03] = {missionName, loc("An unexpected event!"), loc("Use the saucer and fly away").."|"..loc("Beware, any damage taken will stay until you complete the moon's main mission"), 1, 7000},

	[dialog04] = {missionName, loc("Objectives"), objectives, 1, 7000},

	[dialog05] = {missionName, loc("Objectives"), objectives, 1, 7000},

	[dialog06] = {missionName, loc("Objectives"), objectives, 1, 7000},

	[dialog07] = {missionName, loc("Searching the stars!"), loc("Use the saucer and fly away").."|"..loc("Visit the planets of Ice, Desert and Fruit before you proceed to the Death Planet"), 1, 6000},

	[dialog08] = {missionName, loc("Saving Hogera"), loc("Fly to the meteorite and detonate the explosives"), 1, 7000}

}

-- crates

local saucerX = 3270

local saucerY = 1500

-- hogs

local hero = {}

local director = {}

local doctor = {}

local guard1 = {}

local guard2 = {}

-- teams

local teamA = {}

local teamB = {}

local teamC = {}

-- hedgehogs values

hero.name = loc("Hog Solo")

hero.x = 1450

hero.y = 1550

director.name = loc("H")

director.x = 1350

director.y = 1550

doctor.name = loc("Dr.Cornelius")

doctor.x = 1300

doctor.y = 1550

guard1.name = loc("Bob")

guard1.x = 3350

guard1.y = 1800

guard1.turn = false

guard1.keepTurning = true

guard2.name = loc("Sam")

guard2.x = 3400

guard2.y = 1800

teamA.name = loc("PAoTH")

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

teamB.name = loc("Guards")

teamB.color = tonumber("0033FF",16) -- blue

teamC.name = loc("Hog Solo")

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

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

function onGameInit()

	Seed = 35

	GameFlags = gfSolidLand + gfDisableWind

	TurnTime = 40000

	CaseFreq = 0

	MinesNum = 0

	Explosives = 0

	Delay = 5

	-- completed main missions

	status = getCompletedStatus()

	if status.death01 then

		Map = "cosmos2_map"

	else

		Map = "cosmos_map" -- custom map included in file

	end

	Theme = "Nature"

	-- I had originally hero in PAoTH team and changed it, may reconsider though

	-- PAoTH

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

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

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

	HogTurnLeft(hero.gear, true)

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

	director.gear = AddHog(director.name, 0, 100, "hair_yellow")

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

	doctor.gear = AddHog(doctor.name, 0, 100, "Glasses")

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

	-- Guards

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

	guard1.gear = AddHog(guard1.name, 1, 100, "policecap")

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

	guard2.gear = AddHog(guard2.name, 1, 100, "policecap")

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

	-- get the check point

	if tonumber(GetCampaignVar("CosmosCheckPoint")) then

		checkPointReached = tonumber(GetCampaignVar("CosmosCheckPoint"))

	end

	-- do checkpoint stuff needed before game starts

	if checkPointReached == 1 then

		-- Start of the game

	elseif checkPointReached == 2 then

		-- Hero on the column, just took space ship unnoticed

		AnimSetGearPosition(hero.gear, saucerX, saucerY)

	elseif checkPointReached == 3 then

		-- Hero near column, without space ship unnoticed

	elseif checkPointReached == 4 then

		-- Hero visited moon for fuels

		AnimSetGearPosition(hero.gear, 1110, 850)

	elseif checkPointReached == 5 then

		-- Hero has visited a planet, he has plenty of fuels and can change planet

		if GetCampaignVar("Planet") == "moon" then

			AnimSetGearPosition(hero.gear, 1110, 850)

		elseif GetCampaignVar("Planet") == "desertPlanet" then

			AnimSetGearPosition(hero.gear, 3670, 270)

		elseif GetCampaignVar("Planet") == "fruitPlanet" then

			AnimSetGearPosition(hero.gear, 2400, 375)

		elseif GetCampaignVar("Planet") == "icePlanet" then

			AnimSetGearPosition(hero.gear, 1440, 260)

		elseif GetCampaignVar("Planet") == "deathPlanet" then

			AnimSetGearPosition(hero.gear, 620, 530)

		elseif GetCampaignVar("Planet") == "meteorite" then

			AnimSetGearPosition(hero.gear, 3080, 850)

		end

	end

	AnimInit()

	AnimationSetup()

end

function onGameStart()

	-- wait for the first turn to start

	AnimWait(hero.gear, 3000)

	FollowGear(hero.gear)

	ShowMission(loc("Spacetrip"), loc("Getting ready"), loc("Help Hog Solo to find all the parts of the anti-gravity device.")..

	"|"..loc("Travel to all the neighbor planets and collect all the pieces"), -amSkip, 0)

	-- do checkpoint stuff needed after game starts

	if checkPointReached == 1 then

		AddAnim(dialog01)

		AddAmmo(hero.gear, amRope, 1)

		AddAmmo(guard1.gear, amDEagle, 2)

		AddAmmo(guard2.gear, amDEagle, 2)

		SpawnAmmoCrate(saucerX, saucerY, amJetpack)

		-- EVENT HANDLERS

		AddEvent(onHeroBeforeTreePosition, {hero.gear}, heroBeforeTreePosition, {hero.gear}, 0)

		AddEvent(onHeroAtSaucerPosition, {hero.gear}, heroAtSaucerPosition, {hero.gear}, 0)

		AddEvent(onHeroOutOfGuardSight, {hero.gear}, heroOutOfGuardSight, {hero.gear}, 0)

	elseif checkPointReached == 2 then

		AddAmmo(hero.gear, amJetpack, 1)

		AddAnim(dialog02)

	elseif checkPointReached == 3 then

		-- Hero near column, without space ship unnoticed

	elseif checkPointReached == 4 then

		-- Hero visited moon for fuels

		AddAnim(dialog05)

	elseif checkPointReached == 5 then

		-- Hero has visited a planet, he has plenty of fuels and can change planet

		AddAmmo(hero.gear, amJetpack, 99)

	end

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

	AddEvent(onNoFuelAtLand, {hero.gear}, noFuelAtLand, {hero.gear}, 0)

	-- always check for landings

	if GetCampaignVar("Planet") ~= "moon" then

		AddEvent(onMoonLanding, {hero.gear}, moonLanding, {hero.gear}, 0)

	end

	if GetCampaignVar("Planet") ~= "desertPlanet" then

		AddEvent(onDesertPlanetLanding, {hero.gear}, desertPlanetLanding, {hero.gear}, 0)

	end

	if GetCampaignVar("Planet") ~= "fruitPlanet" then

		AddEvent(onFruitPlanetLanding, {hero.gear}, fruitPlanetLanding, {hero.gear}, 0)

	end

	if GetCampaignVar("Planet") ~= "icePlanet" then

		AddEvent(onIcePlanetLanding, {hero.gear}, icePlanetLanding, {hero.gear}, 0)

	end

	if GetCampaignVar("Planet") ~= "deathPlanet" then

		AddEvent(onDeathPlanetLanding, {hero.gear}, deathPlanetLanding, {hero.gear}, 0)

	end

	if status.death01 and not status.final then

		AddAnim(dialog08)

		if GetCampaignVar("Planet") ~= "meteorite" then

			AddEvent(onMeteoriteLanding, {hero.gear}, meteoriteLanding, {hero.gear}, 0)

		end

	end

	SendHealthStatsOff()

end

function onGameTick()

	-- maybe alert this to avoid timeForGuard1ToTurnLeft overflow

	if timeForGuard1ToTurnLeft == 0 and guard1.keepTurning then

		guard1.turn = not guard1.turn

		HogTurnLeft(guard1.gear, guard1.turn)

		timeForGuard1ToTurnLeft = timeForGuard1ToTurn

	end

	timeForGuard1ToTurnLeft = timeForGuard1ToTurnLeft - 1

	AnimUnWait()

	if ShowAnimation() == false then

		return

	end

	ExecuteAfterAnimations()

	CheckEvents()

end

function onPrecise()

	if GameTime > 3000 then

		SetAnimSkip(true)

	end

end

function onAmmoStoreInit()

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

end

function onNewTurn()

	if CurrentHedgehog == director.gear or CurrentHedgehog == doctor.gear then

		TurnTimeLeft = 0

	end

	if guard1.keepTurning then

		AnimSwitchHog(hero.gear)

		TurnTimeLeft = -1

	end

end

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

function onHeroBeforeTreePosition(gear)

	if GetHealth(hero.gear) and GetX(gear) > 2350 then

		return true

	end

	return false

end

function onHeroAtSaucerPosition(gear)

	if GetHealth(hero.gear) and GetX(gear) >= saucerX-25 and GetX(gear) <= saucerX+32 and GetY(gear) >= saucerY-32 and GetY(gear) <= saucerY+32 then

		saucerAcquired = true

	end

	if saucerAcquired and GetHealth(hero.gear) and StoppedGear(gear) then

		return true

	end

	return false

end

function onHeroOutOfGuardSight(gear)

	if GetHealth(hero.gear) and GetX(gear) < 3100 and GetY(gear) > saucerY-25 and StoppedGear(gear) and not guard1.keepTurning then

		return true

	end

	return false

end

function onMoonLanding(gear)

	if GetHealth(hero.gear) and GetX(gear) > 1010 and GetX(gear) < 1220  and GetY(gear) < 1300 and GetY(gear) > 750 and StoppedGear(gear) then

		return true

	end

	return false

end

function onFruitPlanetLanding(gear)

	if GetHealth(hero.gear) and GetX(gear) > 2240 and GetX(gear) < 2540  and GetY(gear) < 1100 and StoppedGear(gear) then

		return true

	end

	return false

end

function onDesertPlanetLanding(gear)

	if GetHealth(hero.gear) and GetX(gear) > 3568 and GetX(gear) < 4052  and GetY(gear) < 500 and StoppedGear(gear) then

		return true

	end

	return false

end

function onIcePlanetLanding(gear)

	if GetHealth(hero.gear) and GetX(gear) > 1330 and GetX(gear) < 1650  and GetY(gear) < 500 and StoppedGear(gear) then

		return true

	end

	return false

end

function onDeathPlanetLanding(gear)

	if GetHealth(hero.gear) and GetX(gear) > 280 and GetX(gear) < 700  and GetY(gear) < 720 and StoppedGear(gear) then

		return true

	end

	return false

end

function onMeteoriteLanding(gear)

	if GetHealth(hero.gear) and GetX(gear) > 2990 and GetX(gear) < 3395  and GetY(gear) < 940 and StoppedGear(gear) then

		return true

	end

	return false

end

function onNoFuelAtLand(gear)

	if checkPointReached > 1 and GetHealth(hero.gear) and GetY(gear) > 1400 and

			GetAmmoCount(gear, amJetpack) == 0 and StoppedGear(gear) then

		return true

	end

	return false

end

function onHeroDeath(gear)

	if not GetHealth(hero.gear) then

		return true

	end

	return false

end

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

function heroBeforeTreePosition(gear)

	AnimSay(gear,loc("Now I have to climb these trees"), SAY_SAY, 4000)

	AnimCaption(hero.gear, loc("Use the rope to get to the crate"),  4000)

end

function heroAtSaucerPosition(gear)

	TurnTimeLeft = 0

	-- save check point

	SaveCampaignVar("CosmosCheckPoint", "2")

	checkPointReached = 2

	AddAnim(dialog02)

	-- check if he was spotted by the guard

	if guard1.turn and GetX(hero.gear) > saucerX-150 then

		guard1.keepTurning = false

		AddAnim(dialog03)

	end

end

function heroOutOfGuardSight(gear)

	guard1.keepTurning = true

	AddAnim(dialog04)

end

function moonLanding(gear)

	if checkPointReached == 1 then

		-- player climbed the moon with rope

		FollowGear(doctor.gear)

		AnimSay(doctor.gear, loc("One cannot simply walk in moon with rope!"), SAY_SHOUT, 4000)

		SendStat(siGameResult, loc("This is the wrong way!"))

		SendStat(siCustomAchievement, loc("Collect the crate with the flying saucer"))

		SendStat(siCustomAchievement, loc("Fly to the moon"))

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

		EndGame()

	else

		if checkPointReached ~= 5 then

			SaveCampaignVar("CosmosCheckPoint", "4")

			SaveCampaignVar("HeroHealth",GetHealth(hero.gear))

		end

		AnimCaption(hero.gear,loc("Welcome to the moon!"))

		SaveCampaignVar("HeroHealth", GetHealth(hero.gear))

		SaveCampaignVar("Planet", "moon")

		SaveCampaignVar("UnlockedMissions", "3")

		SaveCampaignVar("Mission1", "2")

		SaveCampaignVar("Mission2", "13")

		SaveCampaignVar("Mission3", "1")

		sendStats(loc("the moon"))

	end

end

function fruitPlanetLanding(gear)

	if checkPointReached < 5 then

		AddAnim(dialog06)

	else

		AnimCaption(hero.gear,loc("Welcome to the Fruit Planet!"))

		SaveCampaignVar("Planet", "fruitPlanet")

		if status.fruit02 then

			SaveCampaignVar("UnlockedMissions", "4")

			SaveCampaignVar("Mission1", "3")

			SaveCampaignVar("Mission2", "8")

			SaveCampaignVar("Mission3", "10")

			SaveCampaignVar("Mission4", "1")

		else

			SaveCampaignVar("UnlockedMissions", "3")

			SaveCampaignVar("Mission1", "3")

			SaveCampaignVar("Mission2", "10")

			SaveCampaignVar("Mission3", "1")

		end

		sendStats(loc("the Fruit Planet"))

	end

end

function desertPlanetLanding(gear)

	if checkPointReached < 5 then

		AddAnim(dialog06)

	else

		AnimCaption(hero.gear,loc("Welcome to the Desert Planet!"))

		SaveCampaignVar("Planet", "desertPlanet")

		SaveCampaignVar("UnlockedMissions", "4")

		SaveCampaignVar("Mission1", "4")

		SaveCampaignVar("Mission2", "7")

		SaveCampaignVar("Mission3", "12")

		SaveCampaignVar("Mission4", "1")

		sendStats(loc("the Desert Planet"))

	end

end

function icePlanetLanding(gear)

	if checkPointReached < 5 then

		AddAnim(dialog06)

	else

		AnimCaption(hero.gear,loc("Welcome to the Planet of Ice!"))

		SaveCampaignVar("Planet", "icePlanet")

		SaveCampaignVar("UnlockedMissions", "3")

		SaveCampaignVar("Mission1", "5")

		SaveCampaignVar("Mission2", "6")

		SaveCampaignVar("Mission3", "1")

		sendStats(loc("the Ice Planet"))

	end

end

function deathPlanetLanding(gear)

	if checkPointReached < 5 then

		AddAnim(dialog06)

	elseif not (status.fruit02 and status.ice01 and status.desert01) then

		AddAnim(dialog07)

	else

		AnimCaption(hero.gear,loc("Welcome to the Death Planet!"))

		SaveCampaignVar("Planet", "deathPlanet")

		SaveCampaignVar("UnlockedMissions", "3")

		SaveCampaignVar("Mission1", "9")

		SaveCampaignVar("Mission2", "11")

		SaveCampaignVar("Mission3", "1")

		sendStats(loc("the Planet of Death"))

	end

end

function meteoriteLanding(gear)

	-- first two conditionals are not possible but I'll leave it there...

	if checkPointReached < 5 then

		AddAnim(dialog06)

	elseif not (status.fruit02 and status.ice01 and status.desert01) then

		AddAnim(dialog07)

	else

		AnimCaption(hero.gear,loc("Welcome to the meteorite!"))

		SaveCampaignVar("Planet", "meteorite")

		SaveCampaignVar("UnlockedMissions", "2")

		SaveCampaignVar("Mission1", "14")

		SaveCampaignVar("Mission2", "1")

		sendStats(loc("the meteorite"))

	end

end

function noFuelAtLand(gear)

	AddAnim(dialog06)

end

function heroDeath(gear)

	sendStatsOnRetry()

end

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

function Skipanim(anim)

	if goals[anim] ~= nil then

		ShowMission(unpack(goals[anim]))

    end

    if CurrentHedgehog ~= hero.gear and anim ~= dialog03 then

		AnimSwitchHog(hero.gear)

	elseif anim == dialog03 then

		startCombat()

	elseif anim == dialog05 or anim == dialog06 then

		sendStatsOnRetry()

	end

end

function AnimationSetup()

	-- DIALOG 01 - Start

	AddSkipFunction(dialog01, Skipanim, {dialog01})

	table.insert(dialog01, {func = AnimWait, args = {doctor.gear, 3000}})

	table.insert(dialog01, {func = AnimCaption, args = {hero.gear, loc("Near secret base 17 of PAotH in the rural Hogland..."),  4000}})

	table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("So Hog Solo, here we are..."), SAY_SAY, 2000}})

	table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("Behind these trees on the east side there is secret base 17"), SAY_SAY, 4000}})

	table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("You have to continue alone from now on."), SAY_SAY, 3000}})

	table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("Be careful, the future of Hogera is in your hands!"), SAY_SAY, 7200}})

	table.insert(dialog01, {func = AnimSay, args = {doctor.gear, loc("We'll use our communicators to contact you"), SAY_SAY, 2600}})