share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/ice01.lua
author Periklis Ntanasis <pntanasis@gmail.com>
Tue, 30 Jul 2013 13:52:53 +0300
branchspacecampaign
changeset 9394 ccc2a2099370
parent 9392 0dd0adee6831
child 9396 fb56c2225f25
permissions -rw-r--r--
event for game win
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
     1
------------------- ABOUT ----------------------
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
     2
--
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
     3
-- In this cold planet hero seeks for a part of the
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
     4
-- antigravity device. He has to capture Icy Pit who
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
     5
-- knows where the device is hidden. Hero will be
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
     6
-- able to use only the ice gun for this mission.
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
     7
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
     8
-- TODO
9394
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
     9
-- TEST TEST AND MORE TEST
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
    10
-- increase health in checkpoint 3
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
    11
-- fix the stats
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
    12
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    13
HedgewarsScriptLoad("/Scripts/Locale.lua")
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    14
HedgewarsScriptLoad("/Scripts/Animate.lua")
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    15
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    16
----------------- VARIABLES --------------------
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    17
-- globals
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
    18
local campaignName = loc("A Space Adventure")
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
    19
local missionName = loc("Ice planet, a frozen adventure!")
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    20
local heroAtAntiFlyArea = false
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
    21
local heroVisitedAntiFlyArea = false
9390
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
    22
local heroAtFinalStep = false
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
    23
local iceGunTaken = false
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
    24
local checkPointReached = 1 -- 1 is normal spawn
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
    25
-- dialogs
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
    26
local dialog01 = {}
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
    27
-- mission objectives
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
    28
local goals = {
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
    29
	[dialog01] = {missionName, loc("Getting ready"), loc("Collect the icegun and get the device part from Thanta"), 1, 4500},
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
    30
}
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    31
-- crates
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    32
local icegunY = 1950
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    33
local icegunX = 260
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    34
-- hogs
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    35
local hero = {}
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    36
local ally = {}
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    37
local bandit1 = {}
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    38
local bandit2 = {}
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    39
local bandit3 = {}
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    40
local bandit4 = {}
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    41
local bandit5 = {}
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    42
-- teams
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    43
local teamA = {}
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    44
local teamB = {}
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    45
local teamC = {}
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    46
local teamD = {}
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    47
-- hedgehogs values
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    48
hero.name = "Hog Solo"
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    49
hero.x = 340
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    50
hero.y = 1840
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    51
hero.dead = false
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    52
ally.name = "Paul McHoggy"
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    53
ally.x = 300
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    54
ally.y = 1840
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    55
bandit1.name = "Thanta"
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    56
bandit1.x = 3240
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    57
bandit1.y = 1280
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
    58
bandit1.dead = false
9390
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
    59
bandit1.frozen = false
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
    60
bandit1.roundsToUnfreeze = 0
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    61
bandit2.name = "Billy Frost"
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    62
bandit2.x = 1480
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    63
bandit2.y = 1990
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    64
bandit3.name = "Ice Jake"
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    65
bandit3.x = 1860
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    66
bandit3.y = 1150
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    67
bandit4.name = "John Snow"
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
    68
bandit4.x = 3200
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    69
bandit4.y = 970
9390
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
    70
bandit4.frozen = false
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
    71
bandit4.roundsToUnfreeze = 0
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    72
bandit5.name = "White Tee"
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
    73
bandit5.x = 3280
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    74
bandit5.y = 600
9390
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
    75
bandit5.frozen = false
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
    76
bandit5.roundsToUnfreeze = 0
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    77
teamA.name = loc("Allies")
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    78
teamA.color = tonumber("FF0000",16) -- red
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    79
teamB.name = loc("Frozen Bandits")
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    80
teamB.color = tonumber("0033FF",16) -- blues
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    81
teamC.name = loc("Hog Solo")
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    82
teamC.color = tonumber("38D61C",16) -- green
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    83
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    84
-------------- LuaAPI EVENT HANDLERS ------------------
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    85
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    86
function onGameInit()
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    87
	Seed = 1
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    88
	--GameFlags = gfDisableWind
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    89
	TurnTime = 25000
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    90
	CaseFreq = 0
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    91
	MinesNum = 0
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
    92
	MinesTime = 1
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    93
	Explosives = 0
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
    94
	Delay = 3
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    95
	Map = "ice01_map"
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    96
	Theme = "Snow"
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    97
	
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    98
	-- Hog Solo
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
    99
	AddTeam(teamC.name, teamC.color, "Bone", "Island", "HillBilly", "cm_birdy")
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   100
	hero.gear = AddHog(hero.name, 0, 100, "war_desertgrenadier1")
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   101
	AnimSetGearPosition(hero.gear, hero.x, hero.y)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   102
	HogTurnLeft(hero.gear, true)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   103
	-- Ally
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   104
	AddTeam(teamA.name, teamA.color, "Bone", "Island", "HillBilly", "cm_birdy")
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   105
	ally.gear = AddHog(ally.name, 0, 100, "tophats")
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   106
	AnimSetGearPosition(ally.gear, ally.x, ally.y)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   107
	-- Frozen Bandits
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   108
	AddTeam(teamB.name, teamB.color, "Bone", "Island", "HillBilly", "cm_birdy")
9390
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   109
	bandit1.gear = AddHog(bandit1.name, 1, 120, "tophats")
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   110
	AnimSetGearPosition(bandit1.gear, bandit1.x, bandit1.y)	
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   111
	HogTurnLeft(bandit1.gear, true)
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   112
	bandit2.gear = AddHog(bandit2.name, 1, 100, "tophats")
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   113
	AnimSetGearPosition(bandit2.gear, bandit2.x, bandit2.y)
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   114
	bandit3.gear = AddHog(bandit3.name, 1, 100, "tophats")
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   115
	AnimSetGearPosition(bandit3.gear, bandit3.x, bandit3.y)
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   116
	bandit4.gear = AddHog(bandit4.name, 1, 40, "tophats")
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   117
	AnimSetGearPosition(bandit4.gear, bandit4.x, bandit4.y)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   118
	HogTurnLeft(bandit4.gear, true)
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   119
	bandit5.gear = AddHog(bandit5.name, 1, 40, "tophats")
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   120
	AnimSetGearPosition(bandit5.gear, bandit5.x, bandit5.y)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   121
	HogTurnLeft(bandit5.gear, true)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   122
	
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   123
	-- get the check point
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   124
	if tonumber(GetCampaignVar("Ice01CheckPoint")) then
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   125
		checkPointReached = tonumber(GetCampaignVar("Ice01CheckPoint"))
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   126
	end
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   127
	
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   128
	if checkPointReached == 1 then
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   129
		-- Start of the game
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   130
	elseif checkPointReached == 2 then
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   131
		iceGunTaken = true
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   132
		AnimSetGearPosition(hero.gear, 840, 1650)
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   133
	elseif checkPointReached == 3 then		
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   134
		iceGunTaken = true
9390
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   135
		heroAtFinalStep = true
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   136
		heroVisitedAntiFlyArea = true
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   137
		AnimSetGearPosition(hero.gear, 1450, 910)
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   138
	end
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   139
	
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   140
	AnimInit()
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   141
	AnimationSetup()	
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   142
end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   143
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   144
function onGameStart()
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   145
	AnimWait(hero.gear, 3000)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   146
	FollowGear(hero.gear)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   147
	
9384
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   148
	-- Add mines
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   149
	AddGear(1612, 940, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   150
	AddGear(1622, 945, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   151
	AddGear(1645, 950, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   152
	AddGear(1655, 960, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   153
	AddGear(1665, 965, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   154
	
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   155
	AddGear(1800, 1000, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   156
	AddGear(1810, 1005, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   157
	AddGear(1820, 1010, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   158
	AddGear(1830, 1015, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   159
	AddGear(1840, 1020, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   160
	
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   161
	AddGear(1900, 1020, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   162
	AddGear(1910, 1020, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   163
	AddGear(1920, 1020, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   164
	AddGear(1930, 1030, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   165
	AddGear(1940, 1040, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   166
	
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   167
	AddGear(2130, 1110, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   168
	AddGear(2140, 1120, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   169
	AddGear(2180, 1120, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   170
	AddGear(2200, 1130, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   171
	AddGear(2210, 1130, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   172
	
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   173
	local x=2300
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   174
	local step=0
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   175
	while x<3100 do
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   176
		AddGear(x, 1150, gtMine, 0, 0, 0, 0)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   177
		step = step + 1
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   178
		if step == 5 then
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   179
			step = 0
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   180
			x = x + math.random(100,300)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   181
		else
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   182
			x = x + math.random(10,30)
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   183
		end
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   184
	end
557ae509547b added mines to the ice planet01
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9346
diff changeset
   185
	
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   186
	AddEvent(onHeroDeath, {hero.gear}, heroDeath, {hero.gear}, 1)
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   187
	AddEvent(onHeroFinalStep, {hero.gear}, heroFinalStep, {hero.gear}, 0)
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   188
	AddEvent(onAntiFlyArea, {hero.gear}, antiFlyArea, {hero.gear}, 1)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   189
	AddEvent(onNonAntiFlyArea, {hero.gear}, nonAntiFlyArea, {hero.gear}, 1)
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   190
	AddEvent(onThantaDeath, {bandit1.gear}, thantaDeath, {bandit1.gear}, 1)
9394
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   191
	AddEvent(onHeroWin, {hero.gear}, heroWin, {hero.gear}, 1)
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   192
	
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   193
	AddAmmo(hero.gear, amJetpack, 99)
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   194
	AddAmmo(bandit1.gear, amBazooka, 5)
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   195
	AddAmmo(bandit2.gear, amBazooka, 4)
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   196
	AddAmmo(bandit3.gear, amMine, 2)
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   197
	AddAmmo(bandit3.gear, amGrenade, 3)
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   198
	AddAmmo(bandit4.gear, amBazooka, 5)
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   199
	AddAmmo(bandit5.gear, amBazooka, 5)
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   200
	
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   201
	if checkPointReached == 1 then
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   202
		AddAmmo(hero.gear, amBazooka, 1)
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   203
		SpawnAmmoCrate(icegunX, icegunY, amIceGun)
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   204
		AddEvent(onColumnCheckPoint, {hero.gear}, columnCheckPoint, {hero.gear}, 0)
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   205
		AddEvent(onHeroAtIceGun, {hero.gear}, heroAtIceGun, {hero.gear}, 0)
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   206
		AddAnim(dialog01)
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   207
	elseif checkPointReached == 2 then
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   208
		AddAmmo(hero.gear, amIceGun, 8)
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   209
		AnimCaption(hero.gear, loc("Go to Thanta and get the device part!"), 5000)
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   210
	elseif checkPointReached == 3 then
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   211
		AddAmmo(hero.gear, amIceGun, 6)
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   212
		AnimCaption(hero.gear, loc("Go to Thanta and get the device part!"), 5000)
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   213
	end
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   214
	
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   215
end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   216
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   217
function onNewTurn()		
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   218
	-- round has to start if hero goes near the column
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   219
	if not heroVisitedAntiFlyArea and CurrentHedgehog ~= hero.gear then
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   220
		TurnTimeLeft = 0
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   221
	elseif not heroVisitedAntiFlyArea and CurrentHedgehog == hero.gear then
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   222
		TurnTimeLeft = -1
9390
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   223
	elseif not heroAtFinalStep and (CurrentHedgehog == bandit1.gear or CurrentHedgehog == bandit4.gear or CurrentHedgehog == bandit5.gear) then		
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   224
		AnimSwitchHog(hero.gear)
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   225
		TurnTimeLeft = 0
9390
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   226
	elseif heroAtFinalStep and (CurrentHedgehog == bandit2.gear or CurrentHedgehog == bandit3.gear) then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   227
		if (GetHealth(bandit1.gear) and GetEffect(bandit1.gear,heFrozen) > 256) and
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   228
			((GetHealth(bandit4.gear) and GetEffect(bandit4.gear,heFrozen) > 256) or not GetHealth(bandit4.gear)) and
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   229
			((GetHealth(bandit5.gear) and GetEffect(bandit5.gear,heFrozen) > 256) or not GetHealth(bandit5.gear)) then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   230
			AnimSwitchHog(hero.gear)
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   231
		else
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   232
			AnimSwitchHog(hero.gear)
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   233
			TurnTimeLeft = 0
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   234
		end
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   235
	elseif CurrentHedgehog == ally.gear then
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   236
		TurnTimeLeft = 0
9390
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   237
	end
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   238
	-- frozen hogs accounting
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   239
	if CurrentHedgehog == hero.gear and heroAtFinalStep and TurnTimeLeft > 0 then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   240
		if bandit1.frozen then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   241
			if bandit1.roundsToUnfreeze == 0 then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   242
				SetEffect(bandit1.gear, heFrozen, 255)
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   243
				bandit1.frozen = false
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   244
			else
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   245
				bandit1.roundsToUnfreeze = bandit1.roundsToUnfreeze - 1
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   246
			end
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   247
		end
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   248
		if bandit4.frozen then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   249
			if bandit4.roundsToUnfreeze == 0 then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   250
				SetEffect(bandit4.gear, heFrozen, 255)
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   251
				bandit4.frozen = false
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   252
			else
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   253
				bandit4.roundsToUnfreeze = bandit4.roundsToUnfreeze - 1
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   254
			end
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   255
		end
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   256
		if bandit5.frozen then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   257
			if bandit5.roundsToUnfreeze == 0 then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   258
				SetEffect(bandit5.gear, heFrozen, 255)
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   259
				bandit5.frozen = false
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   260
			else
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   261
				bandit5.roundsToUnfreeze = bandit5.roundsToUnfreeze - 1
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   262
			end
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   263
		end
9392
0dd0adee6831 cleaning up debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9390
diff changeset
   264
	else
9390
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   265
		if bandit1.frozen then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   266
			SetEffect(bandit1.gear, heFrozen, 9999999999)
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   267
		end
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   268
		if bandit4.frozen then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   269
			SetEffect(bandit4.gear, heFrozen, 9999999999)
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   270
		end
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   271
		if bandit5.frozen then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   272
			SetEffect(bandit5.gear, heFrozen, 9999999999)
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   273
		end
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   274
	end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   275
end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   276
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   277
function onGameTick()
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   278
	AnimUnWait()
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   279
	if ShowAnimation() == false then
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   280
		return
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   281
	end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   282
	ExecuteAfterAnimations()
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   283
	CheckEvents()
9390
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   284
	
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   285
	if GetEffect(bandit1.gear, heFrozen) > 256 and not bandit1.frozen then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   286
		bandit1.frozen = true
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   287
		SetEffect(bandit1.gear, heFrozen, 9999999999)
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   288
		bandit1.roundsToUnfreeze = 1
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   289
	end
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   290
	if GetEffect(bandit4.gear, heFrozen) > 256 and not bandit4.frozen then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   291
		bandit4.frozen = true
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   292
		SetEffect(bandit4.gear, heFrozen, 9999999999)
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   293
		bandit4.roundsToUnfreeze = 2
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   294
	end
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   295
	if GetEffect(bandit5.gear, heFrozen) > 256 and not bandit5.frozen then
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   296
		bandit5.frozen = true
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   297
		SetEffect(bandit5.gear, heFrozen, 9999999999)
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   298
		bandit5.roundsToUnfreeze = 2
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   299
	end
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   300
end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   301
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   302
function onAmmoStoreInit()
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   303
	SetAmmo(amIceGun, 0, 0, 0, 8)
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   304
end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   305
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   306
function onGearDelete(gear)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   307
	if gear == hero.gear then
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   308
		hero.dead = true
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   309
	elseif gear == bandit1.gear then
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   310
		bandit1.dead = true
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   311
	end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   312
end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   313
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   314
function onPrecise()
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   315
	if GameTime > 3000 then
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   316
		SetAnimSkip(true)   
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   317
	end
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   318
end
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   319
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   320
-------------- EVENTS ------------------
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   321
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   322
function onAntiFlyArea(gear)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   323
	if not hero.dead and (GetX(gear) > 860 or GetY(gear) < 1400) and not heroAtAntiFlyArea then
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   324
		return true
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   325
	end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   326
	return false
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   327
end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   328
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   329
function onNonAntiFlyArea(gear)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   330
	if not hero.dead and (GetX(gear) < 860 and GetY(gear) > 1400) and heroAtAntiFlyArea then
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   331
		return true
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   332
	end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   333
	return false
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   334
end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   335
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   336
function onHeroDeath(gear)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   337
	if hero.dead then
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   338
		return true
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   339
	end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   340
	return false
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   341
end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   342
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   343
function onHeroFinalStep(gear)
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   344
	if not hero.dead and GetY(gear) < 960 and GetX(gear) > 1400 then
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   345
		return true
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   346
	end
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   347
	return false
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   348
end
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   349
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   350
function onColumnCheckPoint(gear)
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   351
	if not hero.dead and iceGunTaken and GetX(gear) < 870 and GetX(gear) > 850 and GetY(gear) > 1500 and StoppedGear(gear) then
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   352
		return true
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   353
	end
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   354
	return false
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   355
end
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   356
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   357
function onHeroAtIceGun(gear)
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   358
	if not hero.dead and GetX(gear) < icegunX+15 and GetX(gear) > icegunX-15 and GetY(gear) > icegunY-15 and GetY(gear) < icegunY+15 then
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   359
		return true
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   360
	end
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   361
	return false
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   362
end
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   363
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   364
function onThantaDeath(gear)
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   365
	if bandit1.dead then
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   366
		return true
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   367
	end
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   368
	return false
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   369
end
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   370
9394
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   371
function onHeroWin(gear)
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   372
	if (not hero.dead and not bandit1.dead) and (GetX(hero.gear)>=GetX(bandit1.gear)-15 and GetX(hero.gear)<=GetX(bandit1.gear)+15)
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   373
		and (GetY(hero.gear)>=GetY(bandit1.gear)-15 and GetY(hero.gear)<=GetY(bandit1.gear)+15) then
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   374
		return true
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   375
	end
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   376
	return false
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   377
end
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   378
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   379
-------------- OUTCOMES ------------------
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   380
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   381
function antiFlyArea(gear)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   382
	heroAtAntiFlyArea = true
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   383
	if TurnTimeLeft < -1 then
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   384
		heroVisitedAntiFlyArea = true
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   385
		TurnTimeLeft = 0	
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   386
		FollowGear(hero.gear)
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   387
		AddAmmo(hero.gear, amJetpack, 0)
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   388
		AnimSwitchHog(bandit1.gear)	
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   389
		FollowGear(hero.gear)
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   390
		TurnTimeLeft = 0
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   391
	else
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   392
		AddAmmo(hero.gear, amJetpack, 0)	
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   393
	end
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   394
end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   395
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   396
function nonAntiFlyArea(gear)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   397
	heroAtAntiFlyArea = false
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   398
	AddAmmo(hero.gear, amJetpack, 99)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   399
end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   400
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   401
function heroDeath(gear)
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   402
	SendStat('siGameResult', loc("Hog Solo lost, try again!")) --1
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   403
	-- more custom stats
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   404
	EndGame()
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   405
end
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   406
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   407
function heroFinalStep(gear)
9390
9956b1fbac8b rounds that hogs remain frozen seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9388
diff changeset
   408
	heroAtFinalStep = true
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   409
	SaveCampaignVar("Ice01CheckPoint", "3")
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   410
	SaveCampaignVar("HeroHealth", GetHealth(hero.gear))	
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   411
	WriteLnToConsole("Final Step")
9346
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   412
end
1245c7636380 more changes, events and bots fighting - also map drawing corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9344
diff changeset
   413
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   414
function columnCheckPoint(gear)
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   415
	SaveCampaignVar("Ice01CheckPoint", "2")	
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   416
	SaveCampaignVar("HeroHealth", GetHealth(hero.gear))
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   417
	AnimCaption(hero.gear, loc("Checkpoint reached!"), 5000)
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   418
end
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   419
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   420
function heroAtIceGun(gear)
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   421
	iceGunTaken=true
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   422
end
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   423
9388
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   424
function thantaDeath(gear)
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   425
	SendStat('siGameResult', loc("Hog Solo lost, try again!")) --1
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   426
	-- more custom stats
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   427
	EndGame()
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   428
end
790d4f7d57d1 3rd checkpoint, event to stop game when Thanta is dead
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9386
diff changeset
   429
9394
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   430
function heroWin(gear)
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   431
	SendStat('siGameResult', loc("Congratulations, you got the part!"))
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   432
	-- more custom stats
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   433
	EndGame()
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   434
end
ccc2a2099370 event for game win
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9392
diff changeset
   435
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   436
-------------- ANIMATIONS ------------------
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   437
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   438
function Skipanim(anim)
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   439
	if goals[anim] ~= nil then
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   440
		ShowMission(unpack(goals[anim]))
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   441
    end
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   442
end
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   443
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   444
function AnimationSetup()
9386
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   445
	-- DIALOG 01 - Start, welcome to moon
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   446
	AddSkipFunction(dialog01, Skipanim, {dialog01})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   447
	table.insert(dialog01, {func = AnimWait, args = {hero.gear, 3000}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   448
	table.insert(dialog01, {func = AnimCaption, args = {hero.gear, loc("In the ice planet, where ice rules..."), 5000}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   449
	table.insert(dialog01, {func = AnimSay, args = {ally.gear, loc("Finaly you are here..."), SAY_SAY, 2000}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   450
	table.insert(dialog01, {func = AnimWait, args = {hero.gear, 2000}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   451
	table.insert(dialog01, {func = AnimSay, args = {hero.gear, loc("Hi! Nice to meet you"), SAY_SAY, 3000}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   452
	table.insert(dialog01, {func = AnimWait, args = {ally.gear, 2000}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   453
	table.insert(dialog01, {func = AnimSay, args = {ally.gear, loc("Listen carefuly! The bandit leader, Thanta has recently found a very strange device"), SAY_SAY, 4000}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   454
	table.insert(dialog01, {func = AnimSay, args = {ally.gear, loc("He doesn't know it but this device is a part of the antigravity device"), SAY_SAY, 2500}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   455
	table.insert(dialog01, {func = AnimWait, args = {hero.gear, 8000}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   456
	table.insert(dialog01, {func = AnimSay, args = {hero.gear, loc("Nice, then I should get the part as soon as possible!"), SAY_SAY, 4000}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   457
	table.insert(dialog01, {func = AnimWait, args = {ally.gear, 4000}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   458
	table.insert(dialog01, {func = AnimSay, args = {ally.gear, loc("Be careful, your gadgets won't work in the bandit area. You should get an ice gun"), SAY_SAY, 7000}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   459
	table.insert(dialog01, {func = AnimSay, args = {ally.gear, loc("There is one below us!"), SAY_SAY, 4000}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   460
	table.insert(dialog01, {func = AnimWait, args = {hero.gear, 500}})
808d38b2182c map changes to let hog climb, checkpoint one after icegun,starting dialog
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9384
diff changeset
   461
	table.insert(dialog01, {func = AnimSwitchHog, args = {hero.gear}})
9344
f8e7e9858a8c ice planet mission wip
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9340
diff changeset
   462
end