--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/desert03.lua Wed Sep 04 03:32:31 2013 +0300
@@ -0,0 +1,138 @@
+------------------- ABOUT ----------------------
+--
+-- Hero has to use the rc plane end perform some
+-- flying tasks
+
+HedgewarsScriptLoad("/Scripts/Locale.lua")
+HedgewarsScriptLoad("/Scripts/Animate.lua")
+HedgewarsScriptLoad("/Missions/Campaign/A_Space_Adventure/global_functions.lua")
+
+-- globals
+local missionName = loc("Precise flying")
+local challengeObjectives = loc("Use the rc plane and destroy the all the targets").."|"..
+ loc("Each time you destroy your level targets you'll get teleported to the next level").."|"..
+ loc("You'll have only one rc plane at the start of the mission").."|"..
+ loc("During the game you can get new plane by getting the weapon crates")
+local currentTarget = 1
+-- hogs
+local hero = {
+ name = loc("Hog Solo"),
+ x = 100,
+ y = 170
+}
+-- teams
+local teamA = {
+ name = loc("Hog Solo"),
+ color = tonumber("38D61C",16) -- green
+}
+-- creates & targets
+local rcCrates = {
+ { x = 1680, y = 240},
+ { x = 2810, y = 720},
+}
+local targets = {
+ { x = 2070, y = 410},
+ { x = 3880, y = 1430},
+ { x = 4030, y = 1430},
+}
+
+-------------- LuaAPI EVENT HANDLERS ------------------
+
+function onGameInit()
+ GameFlags = gfOneClanMode
+ Seed = 1
+ TurnTime = -1
+ CaseFreq = 0
+ MinesNum = 0
+ MinesTime = 1
+ Explosives = 0
+ Map = "desert03_map"
+ Theme = "Desert"
+
+ -- 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)
+
+ initCheckpoint("desert03")
+
+ AnimInit()
+ --AnimationSetup()
+end
+
+function onGameStart()
+ AnimWait(hero.gear, 3000)
+ FollowGear(hero.gear)
+ ShowMission(missionName, loc("Challenge Objectives"), challengeObjectives, -amSkip, 0)
+
+ AddEvent(onHeroDeath, {hero.gear}, heroDeath, {hero.gear}, 0)
+
+ -- original crates and targets
+ SpawnAmmoCrate(rcCrates[1].x, rcCrates[1].y, amRCPlane)
+ targets[1].gear = AddGear(targets[1].x, targets[1].y, gtTarget, 0, 0, 0, 0)
+
+ -- hero ammo
+ AddAmmo(hero.gear, amRCPlane, 1)
+
+ SendHealthStatsOff()
+end
+
+function onGameTick20()
+ checkTargetsDestroied()
+end
+
+function onAmmoStoreInit()
+ if currentTarget == 1 then
+ SetAmmo(amRCPlane, 0, 0, 0, 1)
+ end
+end
+
+-------------- EVENTS ------------------
+
+function onHeroDeath(gear)
+ if not GetHealth(hero.gear) then
+ return true
+ end
+ return false
+end
+
+-------------- ACTIONS ------------------
+
+function heroDeath(gear)
+ SendStat('siGameResult', loc("Hog Solo lost, try again!")) --1
+ SendStat('siCustomAchievement', loc("You have to destroy all the targets")) --11
+ SendStat('siCustomAchievement', loc("Read the Challenge Objectives from within the mission for more details")) --11
+ SendStat('siPlayerKills','1',teamB.name)
+ SendStat('siPlayerKills','0',teamA.name)
+ EndGame()
+end
+
+----------------- Other Functions -----------------
+
+function checkTargetsDestroied()
+ if currentTarget == 1 then
+ if not GetHealth(targets[1].gear) then
+ AddCaption(loc("Level 1 clear!"))
+ SetGearPosition(hero.gear, 3590, 90)
+ currentTarget = 2
+ setTargets(currentTarget)
+ end
+ elseif currentTarget == 2 then
+
+ else
+ win()
+ end
+end
+
+function setTargets(ct)
+ if ct == 2 then
+ SpawnAmmoCrate(rcCrates[2].x, rcCrates[2].y, amRCPlane)
+ for i=2,3 do
+ targets[i].gear = AddGear(targets[i].x, targets[i].y, gtTarget, 0, 0, 0, 0)
+ end
+ end
+end
+
+function win()
+ EndGame()
+end