--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/fruit03.lua	Thu Aug 29 08:04:10 2013 +0300
@@ -0,0 +1,156 @@
+------------------- 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
+			if GetX(enemiesEven[i].gear) < GetX(hero.gear) then
+				HogTurnLeft(enemiesEven[i].gear, false)
+			elseif GetX(enemiesEven[i].gear) > GetX(hero.gear) then
+				HogTurnLeft(enemiesEven[i].gear, true)
+			end
+		end
+	end
+	for i=1,table.getn(enemiesOdd) do
+		if GetHealth(enemiesOdd[i].gear) then
+			if GetX(enemiesOdd[i].gear) < GetX(hero.gear) then
+				HogTurnLeft(enemiesOdd[i].gear, false)
+			elseif GetX(enemiesOdd[i].gear) > GetX(hero.gear) then
+				HogTurnLeft(enemiesOdd[i].gear, true)
+			end
+		end
+	end
+end