--[[

	Basic Grenade Training

	This training mission teaches players how to use the grenade.

	Lesson plan:

	- Selecting grenade

	- Aiming and shooting

	- Timer

	- No wind

	- Bounciness

]]

HedgewarsScriptLoad("/Scripts/Locale.lua")

local hog			-- Hog gear

local weaponSelected = false	-- Player has selected the weapon

local gamePhase = 0		-- Used to track progress

local targetsLeft = 0		-- # of targets left in this round

local targetGears = {}		-- list of target gears

local gameOver = false		-- If true, game has ended

local shotsFired = 0		-- Total # of grenades fired

local maxTargets = 0		-- Target counter, used together with flawless

local flawless = true		-- track flawless victory (100% accuracy, no hurt, no death)

local missedTauntTimer = -1	-- Wait timer for playing sndMissed. -1 = no-op

function onGameInit()

	ClearGameFlags()

	EnableGameFlags(gfDisableWind, gfOneClanMode, gfInfAttack, gfSolidLand, gfArtillery)

	Map = "Mushrooms"

	Seed = 0

	Theme = "Nature"

	TurnTime = MAX_TURN_TIME

	Explosives = 0

	MinesNum = 0

	CaseFreq = 0

	WaterRise = 0

	HealthDecrease = 0

	------ TEAM LIST ------

	AddMissionTeam(-1)

	hog = AddMissionHog(1)

	SetGearPosition(hog, 570, 157)

	SetEffect(hog, heResurrectable, 1)

	SendHealthStatsOff()

	SendRankingStatsOff()

end

function onGearResurrect(gear, vGear)

	if gear == hog then

		flawless = false

		SetGearPosition(hog, 570, 157)

		if vGear then

			SetVisualGearValues(vGear, GetX(hog), GetY(hog))

		end

		AddCaption(loc("Your hedgehog has been revived!"))

	end

end

local function placeGirders()

	PlaceGirder(918, 248, 1)

	PlaceGirder(888, 129, 6)

	PlaceGirder(844, 35, 1)

	PlaceGirder(932, 37, 3)

	PlaceGirder(926, 148, 6)

	PlaceGirder(73, 812, 5)

	PlaceGirder(189, 930, 5)

	PlaceGirder(15, 669, 6)

	PlaceGirder(15, 507, 6)

	PlaceGirder(15, 344, 6)

	PlaceGirder(62, 27, 0)

	PlaceGirder(229, 115, 0)

	PlaceGirder(1195, 250, 7)

	PlaceGirder(1285, 205, 1)

	PlaceGirder(1358, 201, 3)

	PlaceGirder(1756, 415, 6)

	PlaceGirder(1893, 95, 6)

	PlaceGirder(1005, 333, 5)

	PlaceGirder(1860, 187, 0)

end

local function spawnTargets()

	-- Warm-up

	if gamePhase == 0 then

		AddGear(945, 498, gtTarget, 0, 0, 0, 0)

	-- Timer

	elseif gamePhase == 2 then

		AddGear(233, 97, gtTarget, 0, 0, 0, 0)

		AddGear(333, 255, gtTarget, 0, 0, 0, 0)

		AddGear(753, 225, gtTarget, 0, 0, 0, 0)

	-- No Wind

	elseif gamePhase == 3 then

		AddGear(15, 240, gtTarget, 0, 0, 0, 0)

		AddGear(61, 9, gtTarget, 0, 0, 0, 0)

		AddGear(882, 39, gtTarget, 0, 0, 0, 0)

	-- Bounciness

	elseif gamePhase == 4 then

		AddGear(1318, 208, gtTarget, 0, 0, 0, 0)

		AddGear(1697, 250, gtTarget, 0, 0, 0, 0)

		AddGear(323, 960, gtTarget, 0, 0, 0, 0)

		AddGear(1852, 100, gtTarget, 0, 0, 0, 0)

	-- Grand Final

	elseif gamePhase == 5 then

		AddGear(186, 473, gtTarget, 0, 0, 0, 0)

		AddGear(950, 250, gtTarget, 0, 0, 0, 0)

		AddGear(1102, 345, gtTarget, 0, 0, 0, 0)

		AddGear(1556, 297, gtTarget, 0, 0, 0, 0)

	end

end

function onGameStart()

	placeGirders()

	spawnTargets()

	ShowMission(loc("Basic Grenade Training"), loc("Basic Training"), loc("Destroy all the targets!"), -amGrenade, 0)

end

function newGamePhase()

	-- Spawn targets, update wind and ammo, show instructions

	local ctrl = ""

	if gamePhase == 0 then

		if INTERFACE == "desktop" then

			ctrl = loc("Open ammo menu: [Right click]").."|"..

			loc("Select weapon: [Left click]")

		else

			ctrl = loc("Open ammo menu: Tap the [Suitcase]")

		end

		ShowMission(loc("Basic Grenade Training"), loc("Select Weapon"), loc("To begin with the training, select the grenade from the ammo menu!").."|"..

		ctrl, 2, 5000)

	elseif gamePhase == 1 then

		if INTERFACE == "desktop" then

			ctrl = loc("Attack: [Space]").."|"..

			loc("Aim: [Up]/[Down]").."|"..

			loc("Change direction: [Left]/[Right]")

		elseif INTERFACE == "touch" then

			ctrl = loc("Attack: Tap the [Bomb]").."|"..

			loc("Aim: [Up]/[Down]").."|"..

			loc("Change direction: [Left]/[Right]")

		end

		ShowMission(loc("Basic Grenade Training"), loc("Warming Up"),

		loc("Throw a grenade to destroy the target!").."|"..

		loc("Hold the Attack key pressed for more power.").."|"..

		ctrl.."|"..

		loc("Note: Walking is disabled in this mission."), 2, 20000)

		spawnTargets()

	elseif gamePhase == 2 then

		if INTERFACE == "desktop" then

			ctrl = loc("Set detonation timer: [1]-[5]")

		elseif INTERFACE == "touch" then

			ctrl = loc("Change detonation timer: Tap the [Clock]")

		end

		ShowMission(loc("Basic Grenade Training"), loc("Timer"),

		loc("You can change the detonation timer of grenades.").."|"..

		loc("Grenades explode after 1 to 5 seconds (you decide).").."|"..

		ctrl, 2, 15000)

		spawnTargets()

	elseif gamePhase == 3 then

		ShowMission(loc("Basic Grenade Training"), loc("No Wind Influence"), loc("Unlike bazookas, grenades are not influenced by wind.").."|"..

		loc("Destroy the targets!"), 2, 6000)

		SetWind(50)

		spawnTargets()

	elseif gamePhase == 4 then

		local caption = loc("Bounciness")

		ctrl = loc("You can set the bounciness of grenades (and grenade-like weapons).").."|"..

		loc("Grenades with high bounciness bounce a lot and behave chaotic.").."|"..

		loc("With low bounciness, it barely bounces at all, but it is much more predictable.").."|"..

		loc("Try out different bounciness levels to reach difficult targets.").."|"

		if INTERFACE == "desktop" then

			ctrl = ctrl .. loc("Set bounciness: [Left Shift] + [1]-[5]")

		elseif INTERFACE == "touch" then

			ctrl = ctrl .. loc("Change bounciness: Tap [B]")

		end

		ShowMission(loc("Basic Grenade Training"), caption, ctrl, 2, 20000)

		spawnTargets()

	elseif gamePhase == 5 then

		if INTERFACE == "desktop" then

			ctrl = loc("Precise Aim: [Left Shift] + [Up]/[Down]")

			-- FIXME: No precise aim in touch interface yet :(

		end

		ShowMission(loc("Basic Grenade Training"), loc("Final Targets"), loc("Good job! Now destroy the final targets to finish the training.").."|"..

		ctrl,

		2, 7000)

		spawnTargets()

	elseif gamePhase == 6 then

		SaveMissionVar("Won", "true")

		ShowMission(loc("Basic Grenade Training"), loc("Training complete!"), loc("Congratulations!"), 4, 0)

		SetInputMask(0)

		AddAmmo(CurrentHedgehog, amGrenade, 0)

		if shotsFired > maxTargets then

			flawless = false

		end

		if flawless then

			PlaySound(sndFlawless, hog)

		else

			PlaySound(sndVictory, hog)

		end

		SendStat(siCustomAchievement, loc("Good job!"))

		SendStat(siGameResult, loc("You have completed the Basic Grenade Training!"))

		EndGame()

		gameOver = true

		SetState(hog, gstWinner)

	end

	gamePhase = gamePhase + 1

end

function onNewTurn()

	if gamePhase == 0 then

		newGamePhase()

	end

end

function onGameTick20()

	if not weaponSelected and gamePhase == 1 and GetCurAmmoType() == amGrenade then

		newGamePhase()

		weaponSelected = true

	end

end

function onHogAttack(ammoType)

	if ammoType == amGrenade then

		HideMission()

	end

end

function onAttack()

	if GetCurAmmoType() == amGrenade then

		HideMission()

	end

end

function onGearAdd(gear)

	if GetGearType(gear) == gtTarget then

		targetsLeft = targetsLeft + 1

		maxTargets = maxTargets + 1

		targetGears[gear] = true

	elseif GetGearType(gear) == gtGrenade then

		shotsFired = shotsFired + 1

	end

end

function onGearDelete(gear)

	if GetGearType(gear) == gtTarget then

		targetsLeft = targetsLeft - 1

		targetGears[gear] = nil

		if targetsLeft <= 0 then

			newGamePhase()

		end

	end

end

function onGearDamage(gear)

	if gear == hog then

		flawless = false

	end

end

function onAmmoStoreInit()

	SetAmmo(amGrenade, 9, 0, 0, 0)

end