------------------- 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"),

	x = 1830,

	y = 560,

	dead = false

}

local enemiesOdd = {

	{name = "Hog 1", x = 3670 , y = 175},

	{name = "Hog 3", x = 3795 , y = 1110},

	{name = "Hog 5", x = 1950 , y = 1480},

	{name = "Hog 7", x = 400 , y = 920},

	{name = "Hog 9", x = 1100 , y = 1950},

	{name = "Hog 11", x = 1200 , y = 1950},

	{name = "Hog 13", x = 2300 , y = 1950},

	{name = "Hog 15", x = 2400 , y = 1950},

}

local enemiesEven = {

	{name = "Hog 2", x = 660, y = 170},

	{name = "Hog 4", x = 1900, y = 1320},

	{name = "Hog 6", x = 2030, y = 1335},

	{name = "Hog 8", x = 1300, y = 1950},

	{name = "Hog 10", x = 1400, y = 1950},

	{name = "Hog 12", x = 2500, y = 1950},

	{name = "Hog 14", x = 2600, y = 1950},

	{name = "Hog 16", x = 1850, y = 560},

}

-- 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

	TurnTime = 25000

	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 onGameTick20()

	turnHogs()

end

function onGearDelete(gear)

	if gear == hero.gear then

		hero.dead = true

	end

end

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

function onHeroDeath(gear)

	if hero.dead then

		return true

	end

	return false

end

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

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

function heroDeath(gear)

	heroLost()

end

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

function turnHogs()

	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