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

--

-- Hero has get into an Red Strawberies ambush

-- He has to eliminate the enemies by using limited

-- ammo of sniper rifle and watermelon

HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Animate.lua")

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

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

-- globals

local missionName = loc("Precise shooting")

-- hogs

local hero = {

	name = loc("Hog Solo"),

}

local enemiesOdd = {

}

local enemiesEven = {

}

-- teams

local teamA = {

	name = loc("Hog Solo"),

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

}

local teamB = {

	name = loc("RS1"),

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

}

local teamC = {

	name = loc("RS2"),

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

}

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

function onGameInit()

	GameFlags = gfDisableWind + gfInfAttack

	Seed = 1

	CaseFreq = 0

	MinesNum = 0

	MinesTime = 1

	Explosives = 0

	Map = "fruit03_map"

	Theme = "Fruit"

	-- Hog Solo

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

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

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

	-- enemies

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

	for i=1,table.getn(enemiesEven) do

		enemiesEven[i].gear = AddHog(enemiesEven[i].name, 1, 100, "war_desertgrenadier1")

		AnimSetGearPosition(enemiesEven[i].gear, enemiesEven[i].x, enemiesEven[i].y)

	end	

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

	for i=1,table.getn(enemiesOdd) do

		enemiesOdd[i].gear = AddHog(enemiesOdd[i].name, 1, 100, "war_desertgrenadier1")

		AnimSetGearPosition(enemiesOdd[i].gear, enemiesOdd[i].x, enemiesOdd[i].y)

	end

	initCheckpoint("fruit03")

	AnimInit()

	--AnimationSetup()

end

function onGameStart()

	AnimWait(hero.gear, 3000)

	FollowGear(hero.gear)

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

	--hero ammo

	AddAmmo(hero.gear, amTeleport, 2)

	AddAmmo(hero.gear, amSniperRifle, 2)

	AddAmmo(hero.gear, amWatermelon, 2)

	--enemies ammo

	AddAmmo(enemiesOdd[1].gear, amSniperRifle, 100)

	AddAmmo(enemiesOdd[1].gear, amWatermelon, 1)

	AddAmmo(enemiesEven[1].gear, amSniperRifle, 100)

	AddAmmo(enemiesEven[1].gear, amWatermelon, 1)

	SendHealthStatsOff()

end

function onNewTurn()

	WriteLnToConsole("NEW TURN")

end

function onGameTick20()

end

function onGearDamage(gear, damage)

	FollowGear(gear)

	WriteLnToConsole("GEAR DAMAGED")

end

function onGearDelete(gear)

	end

	WriteLnToConsole("GEAR KILLED")

end

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

function onHeroDeath(gear)

		return true

	end

	return false

end

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

-- game ends anyway but I want to sent custom stats probably...

function heroDeath(gear)

end

------------------ Other Functions -------------------

function turnHogs()

	if GetHealth(hero.gear) then

		for i=1,table.getn(enemiesEven) do

			if GetHealth(enemiesEven[i].gear) then

					HogTurnLeft(enemiesEven[i].gear, false)

					HogTurnLeft(enemiesEven[i].gear, true)

				end

			end

		end

		for i=1,table.getn(enemiesOdd) do

			if GetHealth(enemiesOdd[i].gear) then

					HogTurnLeft(enemiesOdd[i].gear, false)

					HogTurnLeft(enemiesOdd[i].gear, true)

				end

			end

		end

	end

end