share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/cosmos.lua
author Wuzzy <almikes@aol.com>
Fri, 29 Sep 2017 18:00:43 +0200
changeset 12587 0b27d8b4f8e7
parent 12586 7510fe66bfbb
child 12598 9805a1f8fb93
permissions -rw-r--r--
Use Default voice in A Space Adventure campaign
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     1
------------------- ABOUT ----------------------
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     2
--
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     3
-- This map works as a menu for the hero hog to
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     4
-- navigate through planets. It portrays the hogs
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     5
-- planet and above the planets that he'll later
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     6
-- visit.
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     7
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     8
HedgewarsScriptLoad("/Scripts/Locale.lua")
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     9
HedgewarsScriptLoad("/Scripts/Animate.lua")
9578
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9574
diff changeset
    10
HedgewarsScriptLoad("/Missions/Campaign/A_Space_Adventure/global_functions.lua")
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    11
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    12
----------------- VARIABLES --------------------
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    13
-- globals
9574
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9572
diff changeset
    14
local missionName = loc("Spacetrip")
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    15
local timeForGuard1ToTurn = 1000 * 5 -- 5 sec
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    16
local timeForGuard1ToTurnLeft = timeForGuard1ToTurn
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    17
local saucerAcquired = false
9578
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9574
diff changeset
    18
local status
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
    19
local getReadyForRumble = false -- guards wake up
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
    20
local ropeDestroyed = false -- for detecting if player roped to the moon
12561
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
    21
local ropedToMoon = 0
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    22
local checkPointReached = 1 -- 1 is start of the game
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    23
-- dialogs
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    24
local dialog01 = {}
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    25
local dialog02 = {}
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    26
local dialog03 = {}
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    27
local dialog04 = {}
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
    28
local dialog05 = {}
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
    29
local dialog06 = {}
9578
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9574
diff changeset
    30
local dialog07 = {}
9636
e1921235fc78 cosmos, after death01 dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9635
diff changeset
    31
local dialog08 = {}
12561
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
    32
local dialog09 = {}
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    33
-- mission objectives
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    34
local goals = {
12575
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
    35
	["init"] = {missionName, loc("Getting ready"), loc("Help Hog Solo to find all the parts of the anti-gravity device.")..
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
    36
	"|"..loc("Travel to all the neighbor planets and collect all the pieces"), 1, 0},
9574
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9572
diff changeset
    37
	[dialog01] = {missionName, loc("Getting ready"), loc("Go and collect the crate").."|"..loc("Try not to get spotted by the guards!"), 1, 4500},
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
    38
	[dialog02] = {missionName, loc("The adventure begins!"), loc("Use the saucer and fly to the moon").."|"..loc("Travel carefully as your fuel is limited"), 1, 4500},
9638
9db28f0a3f8a dialog changes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9637
diff changeset
    39
	[dialog03] = {missionName, loc("An unexpected event!"), loc("Use the saucer and fly away").."|"..loc("Beware, any damage taken will stay until you complete the moon's main mission"), 1, 7000},
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
    40
	[dialog07] = {missionName, loc("Searching the stars!"), loc("Use the saucer and fly away").."|"..loc("Visit the planets of Ice, Desert and Fruit before you proceed to the Death Planet"), 1, 6000},
12575
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
    41
	[dialog08] = {missionName, loc("Saving Hogera"), loc("Fly to the meteorite and detonate the explosives"), 1, 7000},
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
    42
	["open_side_missions"] = {missionName, loc("Conquering the galaxy"),
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
    43
		loc("Use the flying saucer to fly the other planets.").."|"..
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
    44
		loc("Complete the remaining side missions to complete this mission.").."|"..
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
    45
		loc("One flower: Incomplete side missions").."|"..
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
    46
		loc("Two flowers: All missions complete"), 1, 8000},
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
    47
	["free"] = {missionName, loc("Spacetrip"), loc("Use the flying saucer to fly to the other planets."), 1, 5000}
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    48
}
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    49
-- crates
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    50
local saucerX = 3270
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    51
local saucerY = 1500
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    52
-- hogs
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    53
local hero = {}
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    54
local director = {}
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    55
local doctor = {}
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    56
local guard1 = {}
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    57
local guard2 = {}
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    58
-- teams
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    59
local teamA = {}
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    60
local teamB = {}
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    61
local teamC = {}
12518
94bba599efd3 ASA, Spacetrip: Fix mission fail if touching ground in flying saucer but still got fuel
Wuzzy <almikes@aol.com>
parents: 12517
diff changeset
    62
-- to check if flying saucer is active
94bba599efd3 ASA, Spacetrip: Fix mission fail if touching ground in flying saucer but still got fuel
Wuzzy <almikes@aol.com>
parents: 12517
diff changeset
    63
local saucerGear = nil
12524
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
    64
-- if player abandoned any incomplete planet mission
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
    65
local abandonedPlanetMission = false
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    66
-- hedgehogs values
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    67
hero.name = loc("Hog Solo")
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    68
hero.x = 1450
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    69
hero.y = 1550
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    70
director.name = loc("H")
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    71
director.x = 1350
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    72
director.y = 1550
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
    73
doctor.name = loc("Dr. Cornelius")
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    74
doctor.x = 1300
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    75
doctor.y = 1550
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    76
guard1.name = loc("Bob")
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    77
guard1.x = 3350
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    78
guard1.y = 1800
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    79
guard1.turn = false
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    80
guard1.keepTurning = true
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    81
guard2.name = loc("Sam")
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    82
guard2.x = 3400
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    83
guard2.y = 1800
12573
a778c1bb032e ASA: Explain team abbreviations + update changelog
Wuzzy <almikes@aol.com>
parents: 12571
diff changeset
    84
-- Planetary Association of the Hedgehogs
9831
afa4e3e04cc5 typos correction
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9802
diff changeset
    85
teamA.name = loc("PAotH")
12571
903a30fb49e6 Fix team colors of most teams in A Space Adventure to denote correct ally status
Wuzzy <almikes@aol.com>
parents: 12567
diff changeset
    86
teamA.color = 0x38D61C -- green
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    87
teamB.name = loc("Guards")
12571
903a30fb49e6 Fix team colors of most teams in A Space Adventure to denote correct ally status
Wuzzy <almikes@aol.com>
parents: 12567
diff changeset
    88
teamB.color = 0x0072FF -- blue
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    89
teamC.name = loc("Hog Solo")
12571
903a30fb49e6 Fix team colors of most teams in A Space Adventure to denote correct ally status
Wuzzy <almikes@aol.com>
parents: 12567
diff changeset
    90
teamC.color = 0x38D61C -- green
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    91
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    92
-------------- LuaAPI EVENT HANDLERS ------------------
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    93
function onGameInit()
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    94
	Seed = 35
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    95
	GameFlags = gfSolidLand + gfDisableWind
12560
2f7274e5e090 Update ChangeLog for ASA, increase spacetrip turn time to 20s
Wuzzy <almikes@aol.com>
parents: 12559
diff changeset
    96
	TurnTime = 20000
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    97
	CaseFreq = 0
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    98
	MinesNum = 0
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    99
	Explosives = 0
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   100
	Delay = 5
12468
d652c6f5d5f1 Disable Sudden Death for a couple of ASA missions
Wuzzy <almikes@aol.com>
parents: 12223
diff changeset
   101
	-- Disable Sudden Death
d652c6f5d5f1 Disable Sudden Death for a couple of ASA missions
Wuzzy <almikes@aol.com>
parents: 12223
diff changeset
   102
	WaterRise = 0
d652c6f5d5f1 Disable Sudden Death for a couple of ASA missions
Wuzzy <almikes@aol.com>
parents: 12223
diff changeset
   103
	HealthDecrease = 0
9635
ea454f8a1593 changes in cosmos map
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9619
diff changeset
   104
	-- completed main missions
ea454f8a1593 changes in cosmos map
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9619
diff changeset
   105
	status = getCompletedStatus()
ea454f8a1593 changes in cosmos map
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9619
diff changeset
   106
	if status.death01 then
ea454f8a1593 changes in cosmos map
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9619
diff changeset
   107
		Map = "cosmos2_map"
ea454f8a1593 changes in cosmos map
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9619
diff changeset
   108
	else
ea454f8a1593 changes in cosmos map
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9619
diff changeset
   109
		Map = "cosmos_map" -- custom map included in file
ea454f8a1593 changes in cosmos map
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9619
diff changeset
   110
	end
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   111
	Theme = "Nature"
9831
afa4e3e04cc5 typos correction
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9802
diff changeset
   112
	-- I had originally hero in PAotH team and changed it, may reconsider though
afa4e3e04cc5 typos correction
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9802
diff changeset
   113
	-- PAotH
12587
0b27d8b4f8e7 Use Default voice in A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 12586
diff changeset
   114
	AddTeam(teamC.name, teamC.color, "Simple", "Island", "Default", "hedgewars")
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   115
	hero.gear = AddHog(hero.name, 0, 100, "war_desertgrenadier1")
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
   116
	AnimSetGearPosition(hero.gear, hero.x, hero.y)
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   117
	HogTurnLeft(hero.gear, true)
12587
0b27d8b4f8e7 Use Default voice in A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 12586
diff changeset
   118
	AddTeam(teamA.name, teamA.color, "Earth", "Island", "Default", "cm_galaxy")
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   119
	director.gear = AddHog(director.name, 0, 100, "hair_yellow")
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   120
	AnimSetGearPosition(director.gear, director.x, director.y)
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   121
	doctor.gear = AddHog(doctor.name, 0, 100, "Glasses")
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   122
	AnimSetGearPosition(doctor.gear, doctor.x, doctor.y)
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   123
	-- Guards
12587
0b27d8b4f8e7 Use Default voice in A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 12586
diff changeset
   124
	AddTeam(teamB.name, teamB.color, "Statue", "Island", "Default", "cm_swordshield2")
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   125
	guard1.gear = AddHog(guard1.name, 1, 100, "policecap")
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   126
	AnimSetGearPosition(guard1.gear, guard1.x, guard1.y)
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   127
	guard2.gear = AddHog(guard2.name, 1, 100, "policecap")
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   128
	AnimSetGearPosition(guard2.gear, guard2.x, guard2.y)
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   129
	-- get the check point
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   130
	if tonumber(GetCampaignVar("CosmosCheckPoint")) then
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   131
		checkPointReached = tonumber(GetCampaignVar("CosmosCheckPoint"))
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   132
	end
12559
199971225506 ASA, Spacetrip: Better behaviour when entering mission while stuck on woon w/o fuel
Wuzzy <almikes@aol.com>
parents: 12558
diff changeset
   133
	if checkPointReached == 4 then
199971225506 ASA, Spacetrip: Better behaviour when entering mission while stuck on woon w/o fuel
Wuzzy <almikes@aol.com>
parents: 12558
diff changeset
   134
		-- Disable walking as long we're stuck on the moon
199971225506 ASA, Spacetrip: Better behaviour when entering mission while stuck on woon w/o fuel
Wuzzy <almikes@aol.com>
parents: 12558
diff changeset
   135
		GameFlags = bor(GameFlags, gfArtillery)
199971225506 ASA, Spacetrip: Better behaviour when entering mission while stuck on woon w/o fuel
Wuzzy <almikes@aol.com>
parents: 12558
diff changeset
   136
	end
12088
1da37e2ba6fd Fix A Space Adventure Missions allowing player to walk before 1st animation and screw things up
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
   137
	-- Whether to start with an animation
1da37e2ba6fd Fix A Space Adventure Missions allowing player to walk before 1st animation and screw things up
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
   138
	local startSequence
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   139
	-- do checkpoint stuff needed before game starts
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   140
	if checkPointReached == 1 then
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   141
		-- Start of the game
12088
1da37e2ba6fd Fix A Space Adventure Missions allowing player to walk before 1st animation and screw things up
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
   142
		startSequence = true
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   143
	elseif checkPointReached == 2 then
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   144
		-- Hero on the column, just took space ship unnoticed
12088
1da37e2ba6fd Fix A Space Adventure Missions allowing player to walk before 1st animation and screw things up
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
   145
		startSequence = true
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   146
		AnimSetGearPosition(hero.gear, saucerX, saucerY)
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   147
	elseif checkPointReached == 3 then
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   148
		-- Hero near column, without space ship unnoticed
12088
1da37e2ba6fd Fix A Space Adventure Missions allowing player to walk before 1st animation and screw things up
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
   149
		startSequence = true
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   150
	elseif checkPointReached == 4 then
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   151
		-- Hero visited moon for fuels
12088
1da37e2ba6fd Fix A Space Adventure Missions allowing player to walk before 1st animation and screw things up
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
   152
		startSequence = true
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   153
		AnimSetGearPosition(hero.gear, 1110, 850)
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   154
	elseif checkPointReached == 5 then
12088
1da37e2ba6fd Fix A Space Adventure Missions allowing player to walk before 1st animation and screw things up
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
   155
		startSequence = false
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   156
		-- Hero has visited a planet, he has plenty of fuels and can change planet
9342
51b5fffe3892 changes about displaying the ice planet mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9328
diff changeset
   157
		if GetCampaignVar("Planet") == "moon" then
51b5fffe3892 changes about displaying the ice planet mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9328
diff changeset
   158
			AnimSetGearPosition(hero.gear, 1110, 850)
51b5fffe3892 changes about displaying the ice planet mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9328
diff changeset
   159
		elseif GetCampaignVar("Planet") == "desertPlanet" then
51b5fffe3892 changes about displaying the ice planet mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9328
diff changeset
   160
			AnimSetGearPosition(hero.gear, 3670, 270)
51b5fffe3892 changes about displaying the ice planet mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9328
diff changeset
   161
		elseif GetCampaignVar("Planet") == "fruitPlanet" then
51b5fffe3892 changes about displaying the ice planet mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9328
diff changeset
   162
			AnimSetGearPosition(hero.gear, 2400, 375)
51b5fffe3892 changes about displaying the ice planet mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9328
diff changeset
   163
		elseif GetCampaignVar("Planet") == "icePlanet" then
51b5fffe3892 changes about displaying the ice planet mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9328
diff changeset
   164
			AnimSetGearPosition(hero.gear, 1440, 260)
9578
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9574
diff changeset
   165
		elseif GetCampaignVar("Planet") == "deathPlanet" then
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9574
diff changeset
   166
			AnimSetGearPosition(hero.gear, 620, 530)
9637
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   167
		elseif GetCampaignVar("Planet") == "meteorite" then
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   168
			AnimSetGearPosition(hero.gear, 3080, 850)
9342
51b5fffe3892 changes about displaying the ice planet mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9328
diff changeset
   169
		end
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   170
	end
12088
1da37e2ba6fd Fix A Space Adventure Missions allowing player to walk before 1st animation and screw things up
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
   171
	AnimInit(startSequence)
12524
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   172
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   173
	-- Reset checkpoint of other missions when entering this mission.
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   174
	-- The player has left the planet, so we count that “abandoning” any incomplete missions.
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   175
	-- This also allows the player (indirectly) to reset the checkpointed missions.
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   176
	abandonedPlanetMission = resetCheckpoint()
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   177
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   178
	AnimationSetup()
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   179
end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   180
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   181
function onGameStart()
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   182
	-- wait for the first turn to start
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   183
	AnimWait(hero.gear, 3000)
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   184
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   185
	FollowGear(hero.gear)
12575
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
   186
	if GetCampaignVar("Won") == "true" then
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
   187
		if GetCampaignVar("Mission1Won") == "true" then
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
   188
			ShowMission(unpack(goals["free"]))
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
   189
		else
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
   190
			ShowMission(unpack(goals["open_side_missions"]))
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
   191
		end
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
   192
	else
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
   193
		ShowMission(unpack(goals["init"]))
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
   194
	end
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
   195
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   196
	-- do checkpoint stuff needed after game starts
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
   197
	if checkPointReached == 1 then
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   198
		AddAnim(dialog01)
9618
c937b532f8ec give player only one rope
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9617
diff changeset
   199
		AddAmmo(hero.gear, amRope, 1)
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   200
		AddAmmo(guard1.gear, amDEagle, 100)
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   201
		AddAmmo(guard2.gear, amDEagle, 100)
12513
d90db45a0c4f Fix crate types in A Space Adventure and some user missions
Wuzzy <almikes@aol.com>
parents: 12468
diff changeset
   202
		SpawnUtilityCrate(saucerX, saucerY, amJetpack)
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   203
		-- EVENT HANDLERS
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   204
		AddEvent(onHeroBeforeTreePosition, {hero.gear}, heroBeforeTreePosition, {hero.gear}, 0)
12558
0116cfdf9074 ASA, Spacetrip: Fix not properly recognizing crate collection
Wuzzy <almikes@aol.com>
parents: 12557
diff changeset
   205
		AddEvent(onHeroAcquiredSaucer, {hero.gear}, heroAcquiredSaucer, {hero.gear}, 1)
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   206
		AddEvent(onHeroOutOfGuardSight, {hero.gear}, heroOutOfGuardSight, {hero.gear}, 0)
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   207
	elseif checkPointReached == 2 then
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   208
		AddAmmo(hero.gear, amJetpack, 1)
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   209
		AddAnim(dialog02)
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   210
	elseif checkPointReached == 3 then
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   211
		-- Hero near column, without space ship unnoticed
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   212
	elseif checkPointReached == 4 then
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   213
		-- Hero visited moon for fuels
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   214
		AddAnim(dialog05)
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   215
	elseif checkPointReached == 5 then
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   216
		-- Hero has visited a planet, he has plenty of fuels and can change planet
12223
f30eab4b9b05 Give infinite flying saucers in Space Adventure main menu
Wuzzy <almikes@aol.com>
parents: 12088
diff changeset
   217
		AddAmmo(hero.gear, amJetpack, 100)
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   218
	end
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
   219
9328
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   220
	AddEvent(onHeroDeath, {hero.gear}, heroDeath, {hero.gear}, 0)
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   221
	AddEvent(onNoFuelAtLand, {hero.gear}, noFuelAtLand, {hero.gear}, 0)
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   222
	-- always check for landings
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   223
	if GetCampaignVar("Planet") ~= "moon" then
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   224
		AddEvent(onMoonLanding, {hero.gear}, moonLanding, {hero.gear}, 0)
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   225
	end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   226
	if GetCampaignVar("Planet") ~= "desertPlanet" then
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   227
		AddEvent(onDesertPlanetLanding, {hero.gear}, desertPlanetLanding, {hero.gear}, 0)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
   228
	end
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   229
	if GetCampaignVar("Planet") ~= "fruitPlanet" then
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   230
		AddEvent(onFruitPlanetLanding, {hero.gear}, fruitPlanetLanding, {hero.gear}, 0)
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   231
	end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   232
	if GetCampaignVar("Planet") ~= "icePlanet" then
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   233
		AddEvent(onIcePlanetLanding, {hero.gear}, icePlanetLanding, {hero.gear}, 0)
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   234
	end
9572
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   235
	if GetCampaignVar("Planet") ~= "deathPlanet" then
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   236
		AddEvent(onDeathPlanetLanding, {hero.gear}, deathPlanetLanding, {hero.gear}, 0)
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   237
	end
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
   238
9636
e1921235fc78 cosmos, after death01 dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9635
diff changeset
   239
	if status.death01 and not status.final then
e1921235fc78 cosmos, after death01 dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9635
diff changeset
   240
		AddAnim(dialog08)
9637
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   241
		if GetCampaignVar("Planet") ~= "meteorite" then
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   242
			AddEvent(onMeteoriteLanding, {hero.gear}, meteoriteLanding, {hero.gear}, 0)
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   243
		end
9636
e1921235fc78 cosmos, after death01 dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9635
diff changeset
   244
	end
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
   245
9584
a7bf5464dfb6 add stats to cosmos
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9580
diff changeset
   246
	SendHealthStatsOff()
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   247
end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   248
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   249
function onGameTick()
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   250
	-- maybe alert this to avoid timeForGuard1ToTurnLeft overflow
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   251
	if timeForGuard1ToTurnLeft == 0 and guard1.keepTurning then
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   252
		guard1.turn = not guard1.turn
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   253
		HogTurnLeft(guard1.gear, guard1.turn)
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   254
		timeForGuard1ToTurnLeft = timeForGuard1ToTurn
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   255
	end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   256
	timeForGuard1ToTurnLeft = timeForGuard1ToTurnLeft - 1
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   257
	AnimUnWait()
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   258
	if ShowAnimation() == false then
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   259
		return
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   260
	end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   261
	ExecuteAfterAnimations()
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   262
	CheckEvents()
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   263
end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   264
9802
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   265
function onGameTick20()
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   266
	setFoundDeviceVisual()
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   267
end
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   268
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   269
function onPrecise()
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   270
	if GameTime > 3000 then
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
   271
		SetAnimSkip(true)
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   272
	end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   273
end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   274
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   275
function onAmmoStoreInit()
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   276
	SetAmmo(amJetpack, 0, 0, 0, 1)
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   277
end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   278
12524
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   279
local abandonCheck = false
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   280
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   281
function onNewTurn()
12561
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   282
	if ropedToMoon == 1 then
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   283
		SetInputMask(0)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   284
		sendStatsOnRopedToMoon()
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   285
		return
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   286
	end
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   287
	if saucerAcquired then
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   288
		-- The only way for the player to have a saucer at turn start is by having used the rope
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   289
		-- before; there's no other way to get it. We can therefore conclude the rope has been
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   290
		-- used.
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   291
		ropeDestroyed = true
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   292
	end
12524
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   293
	if not abandonCheck and checkPointReached == 5 then
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   294
		if abandonedPlanetMission then
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   295
			HogSay(hero.gear, loc("I just forgot all checkpoints of incomplete missions."), SAY_THINK)
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   296
		end
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   297
		abandonCheck = false
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   298
	end
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   299
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   300
	if CurrentHedgehog == hero.gear then
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   301
		-- Hero just got spotted by guards
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   302
		if getReadyForRumble then
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   303
			EndTurn(true)
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   304
			getReadyForRumble = false
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   305
		else
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   306
			if guard1.keepTurning then
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   307
				TurnTimeLeft = -1
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   308
			end
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   309
		end
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   310
	elseif CurrentHedgehog == director.gear or CurrentHedgehog == doctor.gear then
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   311
		EndTurn(true)
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   312
	elseif (CurrentHedgehog == guard1.gear or CurrentHedgehog == guard2.gear) and guard1.keepTurning then
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   313
		EndTurn(true)
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   314
	end
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   315
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   316
end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   317
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   318
-------------- EVENTS ------------------
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   319
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   320
function onHeroBeforeTreePosition(gear)
9328
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   321
	if GetHealth(hero.gear) and GetX(gear) > 2350 then
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   322
		return true
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   323
	end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   324
	return false
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   325
end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   326
12518
94bba599efd3 ASA, Spacetrip: Fix mission fail if touching ground in flying saucer but still got fuel
Wuzzy <almikes@aol.com>
parents: 12517
diff changeset
   327
function onGearAdd(gear)
94bba599efd3 ASA, Spacetrip: Fix mission fail if touching ground in flying saucer but still got fuel
Wuzzy <almikes@aol.com>
parents: 12517
diff changeset
   328
	if GetGearType(gear) == gtJetpack then
94bba599efd3 ASA, Spacetrip: Fix mission fail if touching ground in flying saucer but still got fuel
Wuzzy <almikes@aol.com>
parents: 12517
diff changeset
   329
		saucerGear = gear
94bba599efd3 ASA, Spacetrip: Fix mission fail if touching ground in flying saucer but still got fuel
Wuzzy <almikes@aol.com>
parents: 12517
diff changeset
   330
	end
94bba599efd3 ASA, Spacetrip: Fix mission fail if touching ground in flying saucer but still got fuel
Wuzzy <almikes@aol.com>
parents: 12517
diff changeset
   331
end
94bba599efd3 ASA, Spacetrip: Fix mission fail if touching ground in flying saucer but still got fuel
Wuzzy <almikes@aol.com>
parents: 12517
diff changeset
   332
12517
193b5882429d ASA, Spacetrip mission: Fix poor detection of crate collection
Wuzzy <almikes@aol.com>
parents: 12516
diff changeset
   333
function onGearDelete(gear)
193b5882429d ASA, Spacetrip mission: Fix poor detection of crate collection
Wuzzy <almikes@aol.com>
parents: 12516
diff changeset
   334
	if GetGearType(gear) == gtCase and band(GetGearMessage(gear), gmDestroy) ~= 0 then
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   335
		saucerAcquired = true
12518
94bba599efd3 ASA, Spacetrip: Fix mission fail if touching ground in flying saucer but still got fuel
Wuzzy <almikes@aol.com>
parents: 12517
diff changeset
   336
	elseif GetGearType(gear) == gtJetpack then
94bba599efd3 ASA, Spacetrip: Fix mission fail if touching ground in flying saucer but still got fuel
Wuzzy <almikes@aol.com>
parents: 12517
diff changeset
   337
		saucerGear = nil
12517
193b5882429d ASA, Spacetrip mission: Fix poor detection of crate collection
Wuzzy <almikes@aol.com>
parents: 12516
diff changeset
   338
	end
193b5882429d ASA, Spacetrip mission: Fix poor detection of crate collection
Wuzzy <almikes@aol.com>
parents: 12516
diff changeset
   339
end
193b5882429d ASA, Spacetrip mission: Fix poor detection of crate collection
Wuzzy <almikes@aol.com>
parents: 12516
diff changeset
   340
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   341
function onHeroOutOfGuardSight(gear)
9328
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   342
	if GetHealth(hero.gear) and GetX(gear) < 3100 and GetY(gear) > saucerY-25 and StoppedGear(gear) and not guard1.keepTurning then
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   343
		return true
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   344
	end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   345
	return false
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   346
end
9328
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   347
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   348
function onMoonLanding(gear)
9328
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   349
	if GetHealth(hero.gear) and GetX(gear) > 1010 and GetX(gear) < 1220  and GetY(gear) < 1300 and GetY(gear) > 750 and StoppedGear(gear) then
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   350
		return true
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   351
	end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   352
	return false
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   353
end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   354
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   355
function onFruitPlanetLanding(gear)
9328
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   356
	if GetHealth(hero.gear) and GetX(gear) > 2240 and GetX(gear) < 2540  and GetY(gear) < 1100 and StoppedGear(gear) then
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   357
		return true
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   358
	end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   359
	return false
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   360
end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   361
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   362
function onDesertPlanetLanding(gear)
9328
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   363
	if GetHealth(hero.gear) and GetX(gear) > 3568 and GetX(gear) < 4052  and GetY(gear) < 500 and StoppedGear(gear) then
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   364
		return true
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   365
	end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   366
	return false
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   367
end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   368
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   369
function onIcePlanetLanding(gear)
9328
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   370
	if GetHealth(hero.gear) and GetX(gear) > 1330 and GetX(gear) < 1650  and GetY(gear) < 500 and StoppedGear(gear) then
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   371
		return true
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   372
	end
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   373
	return false
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   374
end
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   375
9572
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   376
function onDeathPlanetLanding(gear)
9637
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   377
	if GetHealth(hero.gear) and GetX(gear) > 280 and GetX(gear) < 700  and GetY(gear) < 720 and StoppedGear(gear) then
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   378
		return true
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   379
	end
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   380
	return false
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   381
end
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   382
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   383
function onMeteoriteLanding(gear)
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   384
	if GetHealth(hero.gear) and GetX(gear) > 2990 and GetX(gear) < 3395  and GetY(gear) < 940 and StoppedGear(gear) then
9572
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   385
		return true
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   386
	end
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   387
	return false
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   388
end
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   389
9328
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   390
function onNoFuelAtLand(gear)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
   391
	if checkPointReached > 1 and GetHealth(hero.gear) and GetY(gear) > 1400 and
12518
94bba599efd3 ASA, Spacetrip: Fix mission fail if touching ground in flying saucer but still got fuel
Wuzzy <almikes@aol.com>
parents: 12517
diff changeset
   392
			GetAmmoCount(gear, amJetpack) == 0 and saucerGear == nil and StoppedGear(gear) then
9328
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   393
		return true
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   394
	end
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   395
	return false
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   396
end
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   397
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   398
function onHeroDeath(gear)
9617
662956a081a0 fixed bug that didn't endgame when make wrong landing with no fuels
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
   399
	if not GetHealth(hero.gear) then
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   400
		return true
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   401
	end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   402
	return false
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   403
end
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   404
9639
6b2ae2eaf1b2 remove unnecessary comments
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9638
diff changeset
   405
-------------- ACTIONS ------------------
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   406
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   407
function heroBeforeTreePosition(gear)
12561
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   408
	if band(GetState(gear), gstHHDriven) ~= 0 then
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   409
		AnimSay(gear,loc("Now I have to climb these trees"), SAY_SAY, 4000)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   410
		AnimCaption(hero.gear, loc("Use the rope to get to the crate"),  4000)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   411
	end
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   412
end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   413
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   414
function prepareDialog02(gear)
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   415
	if StoppedGear(gear) and guard1.keepTurning and checkPointReached < 2 then
12558
0116cfdf9074 ASA, Spacetrip: Fix not properly recognizing crate collection
Wuzzy <almikes@aol.com>
parents: 12557
diff changeset
   416
		SetGearMessage(gear, 0)
12517
193b5882429d ASA, Spacetrip mission: Fix poor detection of crate collection
Wuzzy <almikes@aol.com>
parents: 12516
diff changeset
   417
		EndTurn(true)
193b5882429d ASA, Spacetrip mission: Fix poor detection of crate collection
Wuzzy <almikes@aol.com>
parents: 12516
diff changeset
   418
		-- save check point
193b5882429d ASA, Spacetrip mission: Fix poor detection of crate collection
Wuzzy <almikes@aol.com>
parents: 12516
diff changeset
   419
		SaveCampaignVar("CosmosCheckPoint", "2")
193b5882429d ASA, Spacetrip mission: Fix poor detection of crate collection
Wuzzy <almikes@aol.com>
parents: 12516
diff changeset
   420
		checkPointReached = 2
193b5882429d ASA, Spacetrip mission: Fix poor detection of crate collection
Wuzzy <almikes@aol.com>
parents: 12516
diff changeset
   421
		AddAnim(dialog02)
12558
0116cfdf9074 ASA, Spacetrip: Fix not properly recognizing crate collection
Wuzzy <almikes@aol.com>
parents: 12557
diff changeset
   422
0116cfdf9074 ASA, Spacetrip: Fix not properly recognizing crate collection
Wuzzy <almikes@aol.com>
parents: 12557
diff changeset
   423
		RemoveEventFunc(onHeroAcquiredSaucer)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
   424
	end
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   425
end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   426
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   427
function heroAcquiredSaucer(gear)
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   428
	-- check if he was spotted by the guard
12558
0116cfdf9074 ASA, Spacetrip: Fix not properly recognizing crate collection
Wuzzy <almikes@aol.com>
parents: 12557
diff changeset
   429
	if guard1.turn and guard1.keepTurning and GetX(gear) > saucerX-150 then
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   430
		guard1.keepTurning = false
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   431
		SetGearVelocity(gear, 0, 0)
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   432
		AddAnim(dialog03)
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   433
	end
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   434
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   435
	prepareDialog02(gear)
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   436
end
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   437
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   438
function onHeroAcquiredSaucer(gear)
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   439
	return saucerAcquired
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   440
end
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   441
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   442
function heroOutOfGuardSight(gear)
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   443
	SetGearMessage(hero.gear, 0)
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   444
	guard1.keepTurning = true
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   445
	AddAnim(dialog04)
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   446
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   447
	if onHeroAcquiredSaucer(gear) then
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   448
		prepareDialog02(gear)
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   449
	end
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   450
end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   451
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   452
function moonLanding(gear)
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   453
	if checkPointReached == 1 and not ropeDestroyed then
12561
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   454
		-- Player climbed the moon with rope.
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   455
		-- THIS IS A CRIMINAL OFFENSE AND WILL BE PUNISHED!
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   456
		ropedToMoon = 1
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   457
		SetGearVelocity(gear, 0, 0)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   458
		SetGearMessage(gear, 0)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   459
		SetInputMask(0)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   460
		AddAnim(dialog09)
9589
20facc736354 cosmos corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
   461
	else
20facc736354 cosmos corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
   462
		if checkPointReached ~= 5 then
20facc736354 cosmos corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
   463
			SaveCampaignVar("CosmosCheckPoint", "4")
20facc736354 cosmos corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
   464
			SaveCampaignVar("HeroHealth",GetHealth(hero.gear))
20facc736354 cosmos corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
   465
		end
20facc736354 cosmos corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
   466
		AnimCaption(hero.gear,loc("Welcome to the moon!"))
12562
68dd14766445 ASA, Spacetrip: Reset turn time on successful Moon landing
Wuzzy <almikes@aol.com>
parents: 12561
diff changeset
   467
		TurnTimeLeft = -1
9640
a6a903a6c2b3 some changes regarding hp save in cosmos and moon
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9639
diff changeset
   468
		SaveCampaignVar("HeroHealth", GetHealth(hero.gear))
9589
20facc736354 cosmos corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
   469
		SaveCampaignVar("Planet", "moon")
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9605
diff changeset
   470
		SaveCampaignVar("UnlockedMissions", "3")
9589
20facc736354 cosmos corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
   471
		SaveCampaignVar("Mission1", "2")
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9605
diff changeset
   472
		SaveCampaignVar("Mission2", "13")
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9605
diff changeset
   473
		SaveCampaignVar("Mission3", "1")
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   474
		sendStats(loc("Hog Solo arrived at the moon!"))
9326
689f591aa226 added saved hero health between missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9310
diff changeset
   475
	end
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   476
end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   477
12561
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   478
function punishHeroForRopingToMoon(gear)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   479
	-- Initiate the secret PAotH anti-rope defense system (5 bazookas dropped from sky)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   480
	AddGear(GetX(gear), 100, gtShell, 0, 0, 0, 0)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   481
	AddGear(GetX(gear), 0, gtShell, 0, 0, 0, 0)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   482
	AddGear(GetX(gear), -100, gtShell, 0, 0, 0, 0)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   483
	AddGear(GetX(gear), -200, gtShell, 0, 0, 0, 0)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   484
	AddGear(GetX(gear), -300, gtShell, 0, 0, 0, 0)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   485
	FollowGear(hero.gear)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   486
	SetInputMask(0)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   487
end
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   488
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   489
function fruitPlanetLanding(gear)
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   490
	if checkPointReached < 5 then
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   491
		AddAnim(dialog06)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
   492
	else
9574
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9572
diff changeset
   493
		AnimCaption(hero.gear,loc("Welcome to the Fruit Planet!"))
9484
a63307092bc6 fruit planet main mission first commit
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9467
diff changeset
   494
		SaveCampaignVar("Planet", "fruitPlanet")
12567
459543ef9b1b ASA: Fix 2 important fruit planet mission unlocking bugs
Wuzzy <almikes@aol.com>
parents: 12566
diff changeset
   495
		if status.fruit01 then
9590
347e799f01de fruit side mission map and some logic
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9589
diff changeset
   496
			SaveCampaignVar("UnlockedMissions", "4")
12567
459543ef9b1b ASA: Fix 2 important fruit planet mission unlocking bugs
Wuzzy <almikes@aol.com>
parents: 12566
diff changeset
   497
			SaveCampaignVar("Mission1", "8")
459543ef9b1b ASA: Fix 2 important fruit planet mission unlocking bugs
Wuzzy <almikes@aol.com>
parents: 12566
diff changeset
   498
			SaveCampaignVar("Mission2", "3")
9590
347e799f01de fruit side mission map and some logic
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9589
diff changeset
   499
			SaveCampaignVar("Mission3", "10")
347e799f01de fruit side mission map and some logic
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9589
diff changeset
   500
			SaveCampaignVar("Mission4", "1")
9587
d6ddcafb1c56 fixed bug not displaying fuit02 after selecting fruitPlanet from cosmos
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9586
diff changeset
   501
		else
9590
347e799f01de fruit side mission map and some logic
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9589
diff changeset
   502
			SaveCampaignVar("UnlockedMissions", "3")
9587
d6ddcafb1c56 fixed bug not displaying fuit02 after selecting fruitPlanet from cosmos
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9586
diff changeset
   503
			SaveCampaignVar("Mission1", "3")
9590
347e799f01de fruit side mission map and some logic
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9589
diff changeset
   504
			SaveCampaignVar("Mission2", "10")
347e799f01de fruit side mission map and some logic
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9589
diff changeset
   505
			SaveCampaignVar("Mission3", "1")
9587
d6ddcafb1c56 fixed bug not displaying fuit02 after selecting fruitPlanet from cosmos
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9586
diff changeset
   506
		end
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   507
		sendStats(loc("Hog Solo arrived at the Fruit Planet!"))
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   508
	end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   509
end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   510
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   511
function desertPlanetLanding(gear)
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   512
	if checkPointReached < 5 then
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   513
		AddAnim(dialog06)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
   514
	else
9574
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9572
diff changeset
   515
		AnimCaption(hero.gear,loc("Welcome to the Desert Planet!"))
9404
4ae9b399fa73 desert planet main mission addition - hwp will be added when fully finished
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9342
diff changeset
   516
		SaveCampaignVar("Planet", "desertPlanet")
9605
66cd14e5bdad part of desert03 side mission - map not finished yet, will be commited later
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9601
diff changeset
   517
		SaveCampaignVar("UnlockedMissions", "4")
9404
4ae9b399fa73 desert planet main mission addition - hwp will be added when fully finished
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9342
diff changeset
   518
		SaveCampaignVar("Mission1", "4")
9467
483a73697535 desert sidwquest map and basic script
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9457
diff changeset
   519
		SaveCampaignVar("Mission2", "7")
9605
66cd14e5bdad part of desert03 side mission - map not finished yet, will be commited later
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9601
diff changeset
   520
		SaveCampaignVar("Mission3", "12")
66cd14e5bdad part of desert03 side mission - map not finished yet, will be commited later
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9601
diff changeset
   521
		SaveCampaignVar("Mission4", "1")
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   522
		sendStats(loc("Hog Solo arrived at the Desert Planet!"))
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   523
	end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   524
end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   525
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   526
function icePlanetLanding(gear)
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   527
	if checkPointReached < 5 then
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   528
		AddAnim(dialog06)
9342
51b5fffe3892 changes about displaying the ice planet mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9328
diff changeset
   529
	else
9574
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9572
diff changeset
   530
		AnimCaption(hero.gear,loc("Welcome to the Planet of Ice!"))
9342
51b5fffe3892 changes about displaying the ice planet mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9328
diff changeset
   531
		SaveCampaignVar("Planet", "icePlanet")
9457
934f4d8370f1 finally most of the mission mechanics seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9455
diff changeset
   532
		SaveCampaignVar("UnlockedMissions", "3")
9342
51b5fffe3892 changes about displaying the ice planet mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9328
diff changeset
   533
		SaveCampaignVar("Mission1", "5")
9455
4bf3fac0e49d added iceplanet sidequest map and stub lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9404
diff changeset
   534
		SaveCampaignVar("Mission2", "6")
4bf3fac0e49d added iceplanet sidequest map and stub lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9404
diff changeset
   535
		SaveCampaignVar("Mission3", "1")
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   536
		sendStats(loc("Hog Solo arrived at the Ice Planet!"))
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   537
	end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   538
end
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   539
9572
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   540
function deathPlanetLanding(gear)
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   541
	if checkPointReached < 5 then
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   542
		AddAnim(dialog06)
9580
49db7a78c2bd fix typo in cosmos
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9578
diff changeset
   543
	elseif not (status.fruit02 and status.ice01 and status.desert01) then
9578
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9574
diff changeset
   544
		AddAnim(dialog07)
9572
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   545
	else
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   546
		AnimCaption(hero.gear,loc("Welcome to the Death Planet!"))
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   547
		SaveCampaignVar("Planet", "deathPlanet")
9601
6af4ca27421a added death planet side mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9590
diff changeset
   548
		SaveCampaignVar("UnlockedMissions", "3")
9572
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   549
		SaveCampaignVar("Mission1", "9")
9601
6af4ca27421a added death planet side mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9590
diff changeset
   550
		SaveCampaignVar("Mission2", "11")
6af4ca27421a added death planet side mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9590
diff changeset
   551
		SaveCampaignVar("Mission3", "1")
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   552
		sendStats(loc("Hog Solo arrived at the Planet of Death!"))
9572
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   553
	end
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   554
end
278cff2a965f added death planet in cosmos without the order restriction yet
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9484
diff changeset
   555
9637
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   556
function meteoriteLanding(gear)
9640
a6a903a6c2b3 some changes regarding hp save in cosmos and moon
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9639
diff changeset
   557
	-- first two conditionals are not possible but I'll leave it there...
9637
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   558
	if checkPointReached < 5 then
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   559
		AddAnim(dialog06)
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   560
	elseif not (status.fruit02 and status.ice01 and status.desert01) then
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   561
		AddAnim(dialog07)
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   562
	else
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   563
		AnimCaption(hero.gear,loc("Welcome to the meteorite!"))
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   564
		SaveCampaignVar("Planet", "meteorite")
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   565
		SaveCampaignVar("UnlockedMissions", "2")
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   566
		SaveCampaignVar("Mission1", "14")
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   567
		SaveCampaignVar("Mission2", "1")
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   568
		sendStats(loc("Hog Solo arrived at the meteorite!"))
9637
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   569
	end
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   570
end
b23f9b7d49fa added event for meteorite mission
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9636
diff changeset
   571
9328
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   572
function noFuelAtLand(gear)
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   573
	AddAnim(dialog06)
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   574
end
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   575
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   576
function heroDeath(gear)
12561
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   577
	if ropedToMoon == 1 then
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   578
		sendStatsOnRopedToMoon()
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   579
	elseif ropedToMoon == 0 then
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   580
		sendStatsOnRetry()
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   581
	end
9328
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   582
end
811574013fed more events in cosmos about GameEnd
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9326
diff changeset
   583
9802
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   584
function setFoundDeviceVisual()
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   585
	--WriteLnToConsole("status: "..status.fruit01.." - "..status.fruit02)
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   586
	if status.moon01 then
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   587
		vgear = AddVisualGear(1116, 848, vgtBeeTrace, 0, false)
11964
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   588
		if status.moon02 then
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   589
			vgear = AddVisualGear(1116, 828, vgtBeeTrace, 0, false)
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   590
		end
9802
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   591
	end
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   592
	if status.ice01 then
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   593
		vgear = AddVisualGear(1512, 120, vgtBeeTrace, 0, false)
11964
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   594
		if status.ice02 then
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   595
			vgear = AddVisualGear(1512, 100, vgtBeeTrace, 0, false)
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   596
		end
9802
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   597
	end
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   598
	if status.desert01 then
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   599
		vgear = AddVisualGear(4015, 316, vgtBeeTrace, 0, false)
11964
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   600
		if status.desert02 and status.desert03 then
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   601
			vgear = AddVisualGear(4015, 296, vgtBeeTrace, 0, false)
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   602
		end
9802
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   603
	end
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   604
	if status.fruit01 and status.fruit02 then
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   605
		vgear = AddVisualGear(2390, 384, vgtBeeTrace, 0, false)
11964
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   606
		if status.fruit03 then
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   607
			vgear = AddVisualGear(2390, 364, vgtBeeTrace, 0, false)
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   608
		end
9802
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   609
	end
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   610
	if status.death01 then
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   611
		vgear = AddVisualGear(444, 400, vgtBeeTrace, 0, false)
11964
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   612
		if status.death02 then
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   613
			vgear = AddVisualGear(444, 380, vgtBeeTrace, 0, false)
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   614
		end
9802
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   615
	end
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   616
	if status.final then
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   617
		vgear = AddVisualGear(3070, 810, vgtBeeTrace, 0, false)
11964
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   618
		vgear = AddVisualGear(3070, 790, vgtBeeTrace, 0, false)
9802
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   619
	end
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   620
end
00216d609140 desert01 fixed destructible terrain marks and cosmos marks for completed main missions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   621
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   622
-------------- ANIMATIONS ------------------
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   623
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   624
function Skipanim(anim)
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   625
	if goals[anim] ~= nil then
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   626
		ShowMission(unpack(goals[anim]))
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   627
	end
12561
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   628
	if anim == dialog09 then
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   629
		SetInputMask(0)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   630
		-- Quick punishment for the impatient
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   631
		AddGear(GetX(hero.gear)-1, GetY(hero.gear)+1, gtDynamite, 0, 0, 0, 1)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   632
		sendStatsOnRopedToMoon()
12566
172157a47986 ASA, Spacetrip: Fix stats screen messages when running out of fuel
Wuzzy <almikes@aol.com>
parents: 12562
diff changeset
   633
	elseif anim == dialog05 then
12561
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   634
		sendStatsOnStuckOnMoon()
12566
172157a47986 ASA, Spacetrip: Fix stats screen messages when running out of fuel
Wuzzy <almikes@aol.com>
parents: 12562
diff changeset
   635
	elseif anim == dialog06 then
172157a47986 ASA, Spacetrip: Fix stats screen messages when running out of fuel
Wuzzy <almikes@aol.com>
parents: 12562
diff changeset
   636
		sendStatsOnRetry()
12561
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   637
	elseif CurrentHedgehog ~= hero.gear and anim ~= dialog03 then
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   638
		AnimSwitchHog(hero.gear)
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   639
	elseif anim == dialog03 then
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   640
		startCombat()
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   641
	end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   642
end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   643
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   644
function AnimationSetup()
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   645
	-- DIALOG 01 - Start
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   646
	AddSkipFunction(dialog01, Skipanim, {dialog01})
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   647
	table.insert(dialog01, {func = AnimWait, args = {doctor.gear, 3000}})
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   648
	table.insert(dialog01, {func = AnimCaption, args = {hero.gear, loc("Near Secret Base 17 of PAotH in the rural Hogland ..."),  4000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   649
	table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("So Hog Solo, here we are ..."), SAY_SAY, 2000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   650
	table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("Behind these trees on the east side there is Secret Base 17."), SAY_SAY, 4000}})
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   651
	table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("You have to continue alone from now on."), SAY_SAY, 3000}})
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   652
	table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("Be careful, the future of Hogera is in your hands!"), SAY_SAY, 7200}})
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   653
	table.insert(dialog01, {func = AnimSay, args = {doctor.gear, loc("We'll use our communicators to contact you."), SAY_SAY, 2600}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   654
	table.insert(dialog01, {func = AnimSay, args = {doctor.gear, loc("In am also entrusting you with some rope."), SAY_SAY, 5000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   655
	table.insert(dialog01, {func = AnimSay, args = {doctor.gear, loc("You may find it handy."), SAY_SAY, 2300}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   656
	table.insert(dialog01, {func = AnimSay, args = {hero.gear, loc("Thank you, Dr. Cornelius."), SAY_SAY, 1600}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   657
	table.insert(dialog01, {func = AnimSay, args = {hero.gear, loc("I'll make good use of it."), SAY_SAY, 4500}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   658
	table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("It would be wiser to steal the space ship while the PAotH guards are taking a brake!"), SAY_SAY, 7000}})
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   659
	table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("Remember! Many will seek the anti-gravity device! Now go, hurry up!"), SAY_SAY, 4000}})
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   660
	table.insert(dialog01, {func = AnimSwitchHog, args = {hero.gear}})
12557
b745e322a366 ASA: Update mission texts properly after watching dialog
Wuzzy <almikes@aol.com>
parents: 12556
diff changeset
   661
	table.insert(dialog01, {func = ShowMission, args = goals[dialog01]})
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   662
	-- DIALOG 02 - Hero got the saucer
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   663
	AddSkipFunction(dialog02, Skipanim, {dialog02})
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   664
	table.insert(dialog02, {func = AnimWait, args = {hero.gear, 500}})
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   665
	table.insert(dialog02, {func = AnimCaption, args = {hero.gear, loc("Checkpoint reached!"),  4000}})
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   666
	table.insert(dialog02, {func = AnimSay, args = {hero.gear, loc("Got the saucer!"), SAY_SHOUT, 2000}})
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   667
	table.insert(dialog02, {func = AnimSay, args = {director.gear, loc("Nice!"), SAY_SHOUT, 1000}})
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9642
diff changeset
   668
	table.insert(dialog02, {func = AnimSay, args = {director.gear, loc("Now use it and go to the moon PAotH station to get more fuel!"), SAY_SHOUT, 5000}})
12557
b745e322a366 ASA: Update mission texts properly after watching dialog
Wuzzy <almikes@aol.com>
parents: 12556
diff changeset
   669
	table.insert(dialog02, {func = AnimGearWait, args = {hero.gear, 500}})
b745e322a366 ASA: Update mission texts properly after watching dialog
Wuzzy <almikes@aol.com>
parents: 12556
diff changeset
   670
	table.insert(dialog02, {func = ShowMission, args = goals[dialog02]})
b745e322a366 ASA: Update mission texts properly after watching dialog
Wuzzy <almikes@aol.com>
parents: 12556
diff changeset
   671
	-- DIALOG 03 - Hero got spotted by guard
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   672
	AddSkipFunction(dialog03, Skipanim, {dialog03})
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   673
	table.insert(dialog03, {func = AnimSay, args = {guard1.gear, string.format(loc("Hey, %s! Look, someone is stealing the saucer!"), guard2.name), SAY_SHOUT, 4000}})
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   674
	table.insert(dialog03, {func = AnimSay, args = {guard2.gear, loc("I'll get him!"), SAY_SAY, 4000}})
12558
0116cfdf9074 ASA, Spacetrip: Fix not properly recognizing crate collection
Wuzzy <almikes@aol.com>
parents: 12557
diff changeset
   675
	table.insert(dialog03, {func = AnimCaption, args = {guard1.gear, loc("Prepare to flee!"), 1000}})
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   676
	table.insert(dialog03, {func = startCombat, args = {guard1.gear}})
12557
b745e322a366 ASA: Update mission texts properly after watching dialog
Wuzzy <almikes@aol.com>
parents: 12556
diff changeset
   677
	table.insert(dialog03, {func = ShowMission, args = goals[dialog03]})
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   678
	-- DIALOG 04 - Hero out of sight
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   679
	AddSkipFunction(dialog04, Skipanim, {dialog04})
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   680
	table.insert(dialog04, {func = AnimCaption, args = {guard1.gear, loc("You are out of danger, time to go to the moon!"),  4000}})
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   681
	table.insert(dialog04, {func = AnimSay, args = {guard1.gear, loc("I guess we lost him!"), SAY_SAY, 3000}})
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   682
	table.insert(dialog04, {func = AnimSay, args = {guard2.gear, loc("We should better report this and continue our watch!"), SAY_SAY, 5000}})
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   683
	table.insert(dialog04, {func = AnimSwitchHog, args = {hero.gear}})
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   684
	-- DIALOG 05 - Hero returned from moon without fuels
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   685
	AddSkipFunction(dialog05, Skipanim, {dialog05})
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   686
	table.insert(dialog05, {func = AnimSay, args = {hero.gear, loc("I guess I can't go far without fuel!"), SAY_THINK, 6000}})
12524
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   687
	if abandonedPlanetMission then
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   688
		-- Hog solo is mad he has to play the moon main mission from start. Very sarcastic tone. ;-)
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   689
		table.insert(dialog05, {func = AnimSay, args = {hero.gear, loc("And I just forgot the checkpoint of my main mission. Great, just great!"), SAY_THINK, 7000}})
a5ddc6b4abbd ASA: Inform the player about a checkpoint reset
Wuzzy <almikes@aol.com>
parents: 12523
diff changeset
   690
	end
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   691
	table.insert(dialog05, {func = AnimSay, args = {hero.gear, loc("Got to go back."), SAY_THINK, 2000}})
12559
199971225506 ASA, Spacetrip: Better behaviour when entering mission while stuck on woon w/o fuel
Wuzzy <almikes@aol.com>
parents: 12558
diff changeset
   692
	table.insert(dialog05, {func = sendStatsOnStuckOnMoon, args = {hero.gear}})
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   693
	-- DIALOG 06 - Landing on wrong planet or on earth if not enough fuels
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   694
	AddSkipFunction(dialog06, Skipanim, {dialog06})
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   695
	table.insert(dialog06, {func = AnimSay, args = {hero.gear, loc("Hm ... Now I ran out of fuel."), SAY_THINK, 3000}})
12519
206cb38d030f ASA, Spacetrip: Improve messages when running out of fuel
Wuzzy <almikes@aol.com>
parents: 12518
diff changeset
   696
	table.insert(dialog06, {func = AnimCaption, args = {hero.gear, loc("You have to try again!"), 0}})
9586
0b2494d87d99 stats in case player hasn't/can't reach a new destination
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9585
diff changeset
   697
	table.insert(dialog06, {func = sendStatsOnRetry, args = {hero.gear}})
9578
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9574
diff changeset
   698
	-- DIALOG 07 - Hero lands on Death Planet but isn't allowed yet to play this map
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9574
diff changeset
   699
	AddSkipFunction(dialog07, Skipanim, {dialog07})
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9574
diff changeset
   700
	table.insert(dialog07, {func = AnimCaption, args = {hero.gear, loc("This planet seems dangerous!"),  5000}})
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   701
	table.insert(dialog07, {func = AnimSay, args = {hero.gear, loc("I am not ready for this planet yet. I should visit it when I have found all the other device parts."), SAY_THINK, 4000}})
9636
e1921235fc78 cosmos, after death01 dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9635
diff changeset
   702
	-- DIALOG 08 - Hero wins death01
e1921235fc78 cosmos, after death01 dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9635
diff changeset
   703
	AddSkipFunction(dialog08, Skipanim, {dialog08})
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   704
	table.insert(dialog08, {func = AnimCaption, args = {hero.gear, loc("Under the meteorites shadow ..."),  4000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   705
	table.insert(dialog08, {func = AnimSay, args = {doctor.gear, loc("You did great, Hog Solo! However, we aren't out of danger yet!"), SAY_SHOUT, 4500}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   706
	table.insert(dialog08, {func = AnimSay, args = {doctor.gear, loc("The meteorite has come too close and the anti-gravity device isn't powerful enough to stop it now."), SAY_SHOUT, 5000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   707
	table.insert(dialog08, {func = AnimSay, args = {doctor.gear, loc("We need it to get split into at least two parts."), SAY_SHOUT, 3000}})
9636
e1921235fc78 cosmos, after death01 dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9635
diff changeset
   708
	table.insert(dialog08, {func = AnimSay, args = {doctor.gear, loc("PAotH has sent explosives but unfortunately the trigger mechanism seems to be faulty!"), SAY_SHOUT, 5000}})
e1921235fc78 cosmos, after death01 dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9635
diff changeset
   709
	table.insert(dialog08, {func = AnimSay, args = {doctor.gear, loc("We need you to go there and detonate them yourself! Good luck!"), SAY_SHOUT, 500}})
e1921235fc78 cosmos, after death01 dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9635
diff changeset
   710
	table.insert(dialog08, {func = AnimWait, args = {doctor.gear, 3000}})
e1921235fc78 cosmos, after death01 dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9635
diff changeset
   711
	table.insert(dialog08, {func = AnimSwitchHog, args = {hero.gear}})
12561
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   712
	table.insert(dialog08, {func = ShowMission, args = goals[dialog08]})
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   713
	-- DIALOG 09 - Hero roped to the moon (how naughty!)
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   714
	AddSkipFunction(dialog09, Skipanim, {dialog09})
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   715
	table.insert(dialog09, {func = AnimSay, args = {doctor.gear, loc("One does not simply rope to the moon!"), SAY_SHOUT, 4500}})
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   716
	table.insert(dialog09, {func = punishHeroForRopingToMoon, args = {hero.gear}})
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   717
	table.insert(dialog09, {func = AnimWait, args = {hero.gear, 5000}})
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   718
	table.insert(dialog09, {func = sendStatsOnRopedToMoon, args = {hero.gear}})
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   719
end
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   720
9266
199c1f066aad added landing event handlers for cosmos.lua
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9258
diff changeset
   721
------------------- custom "animation" functions --------------------------
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   722
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   723
function startCombat()
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   724
	-- Use this so guard2 gains control
12514
d89dabfd07ce Use EndTurn to replace TurnTimeLeft=0 in ASA campaign (fixes #225)
Wuzzy <almikes@aol.com>
parents: 12513
diff changeset
   725
	EndTurn(true)
12556
846fa8bb856e ASA: Spacetrip: Fix guards ignoring stealing completely, fix various other game logic fails
Wuzzy <almikes@aol.com>
parents: 12538
diff changeset
   726
	getReadyForRumble = true
9258
5c760ed50b3d first commit, added cosmos(menu) map and lua script with some functionality
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   727
end
9584
a7bf5464dfb6 add stats to cosmos
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9580
diff changeset
   728
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   729
function sendStats(planetMsg)
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   730
	SendStat(siGameResult, planetMsg)
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   731
	SendStat(siCustomAchievement, loc("Return to the mission menu by pressing the \"Go back\" button."))
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   732
	SendStat(siCustomAchievement, loc("You can choose another planet by replaying this mission."))
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   733
	SendStat(siCustomAchievement, loc("Planets with completed main missions will be marked with a flower."))
11964
f3c1679694d3 Draw 2 flowers for fully completed (w/ side missions) planets in space campaign
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   734
	SendStat(siCustomAchievement, loc("Planets with all missions completed will be marked with two flowers."))
11965
72be38f6d0c0 Complete space campaign's spacetrip mission if all main+side missions are completed
Wuzzy <almikes@aol.com>
parents: 11964
diff changeset
   735
	if GetCampaignVar("Won") == "true" and GetCampaignVar("Mission1Won") ~= "true" then
72be38f6d0c0 Complete space campaign's spacetrip mission if all main+side missions are completed
Wuzzy <almikes@aol.com>
parents: 11964
diff changeset
   736
		SendStat(siCustomAchievement, loc("Complete all main and side missions to complete the spacetrip mission."))
72be38f6d0c0 Complete space campaign's spacetrip mission if all main+side missions are completed
Wuzzy <almikes@aol.com>
parents: 11964
diff changeset
   737
	end
12538
952afc3d2df2 Show correct kill counts in all ASA missions (fixes #147)
Wuzzy <almikes@aol.com>
parents: 12524
diff changeset
   738
	sendSimpleTeamRankings({teamC.name})
9584
a7bf5464dfb6 add stats to cosmos
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9580
diff changeset
   739
	EndGame()
a7bf5464dfb6 add stats to cosmos
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9580
diff changeset
   740
end
9586
0b2494d87d99 stats in case player hasn't/can't reach a new destination
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9585
diff changeset
   741
0b2494d87d99 stats in case player hasn't/can't reach a new destination
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9585
diff changeset
   742
function sendStatsOnRetry()
9642
8a691e0f117a use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9640
diff changeset
   743
	SendStat(siGameResult, loc("You have to travel again"))
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   744
	SendStat(siCustomAchievement, loc("Your first destination is the moon in order to get more fuel."))
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 9831
diff changeset
   745
	SendStat(siCustomAchievement, loc("You have to be careful and must not die!"))
12538
952afc3d2df2 Show correct kill counts in all ASA missions (fixes #147)
Wuzzy <almikes@aol.com>
parents: 12524
diff changeset
   746
	sendSimpleTeamRankings({teamC.name})
9586
0b2494d87d99 stats in case player hasn't/can't reach a new destination
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9585
diff changeset
   747
	EndGame()
0b2494d87d99 stats in case player hasn't/can't reach a new destination
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9585
diff changeset
   748
end
12559
199971225506 ASA, Spacetrip: Better behaviour when entering mission while stuck on woon w/o fuel
Wuzzy <almikes@aol.com>
parents: 12558
diff changeset
   749
199971225506 ASA, Spacetrip: Better behaviour when entering mission while stuck on woon w/o fuel
Wuzzy <almikes@aol.com>
parents: 12558
diff changeset
   750
function sendStatsOnStuckOnMoon()
199971225506 ASA, Spacetrip: Better behaviour when entering mission while stuck on woon w/o fuel
Wuzzy <almikes@aol.com>
parents: 12558
diff changeset
   751
	SendStat(siGameResult, loc("You have to go back to the moon!"))
199971225506 ASA, Spacetrip: Better behaviour when entering mission while stuck on woon w/o fuel
Wuzzy <almikes@aol.com>
parents: 12558
diff changeset
   752
	SendStat(siCustomAchievement, loc("You have to complete the main mission on moon in order to travel to other planets."))
199971225506 ASA, Spacetrip: Better behaviour when entering mission while stuck on woon w/o fuel
Wuzzy <almikes@aol.com>
parents: 12558
diff changeset
   753
	sendSimpleTeamRankings({teamC.name})
199971225506 ASA, Spacetrip: Better behaviour when entering mission while stuck on woon w/o fuel
Wuzzy <almikes@aol.com>
parents: 12558
diff changeset
   754
	EndGame()
199971225506 ASA, Spacetrip: Better behaviour when entering mission while stuck on woon w/o fuel
Wuzzy <almikes@aol.com>
parents: 12558
diff changeset
   755
end
12561
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   756
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   757
function sendStatsOnRopedToMoon()
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   758
	if ropedToMoon ~= 2 then
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   759
		ropedToMoon = 2
12566
172157a47986 ASA, Spacetrip: Fix stats screen messages when running out of fuel
Wuzzy <almikes@aol.com>
parents: 12562
diff changeset
   760
		SendStat(siGameResult, loc("You have violated PAotH regulations!"))
12575
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
   761
		SendStat(siCustomAchievement, loc("You have triggered the secret Do-Not-Rope-to-the-Moon Defense System."))
0c5ce463949b ASA: Improve displaying of mission panels all over the place
Wuzzy <almikes@aol.com>
parents: 12573
diff changeset
   762
		SendStat(siCustomAchievement, loc("Use the flying saucer from the crate to fly to the moon."))
12561
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   763
		sendSimpleTeamRankings({teamC.name})
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   764
		EndGame()
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   765
	end
250a10a48388 ASA, Spacetrip: Drop weapons on player when landing on moon by rope
Wuzzy <almikes@aol.com>
parents: 12560
diff changeset
   766
end