share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/fruit02.lua
author sheepluva
Fri, 06 Dec 2013 23:53:35 +0100
changeset 9760 395ca7fe6362
parent 9758 3b8058b251b8
child 9782 6c3cad32d4f4
permissions -rw-r--r--
It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution, as that can happen if you e.g. fail a mission more than once in the same tick (e.g. destroying two essential crates at the same time) Otherwise you can get a blank / stuck frontend (e.g. when using deagle to shoot the two last crates at the same time)! the best approach might be to never call the function that sends stats and ends game from any event handler directly, but instead have a flag 'isFailed' that is set to true when any of the possible fails happen and to check that flag every tick to send stats and end game if true
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     1
------------------- ABOUT ----------------------
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     2
--
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     3
-- In this adventure hero gets the lost part with
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     4
-- the help of the green bananas hogs.
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     5
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     6
HedgewarsScriptLoad("/Scripts/Locale.lua")
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     7
HedgewarsScriptLoad("/Scripts/Animate.lua")
9578
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9574
diff changeset
     8
HedgewarsScriptLoad("/Missions/Campaign/A_Space_Adventure/global_functions.lua")
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     9
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    10
----------------- VARIABLES --------------------
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    11
-- globals
9574
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9554
diff changeset
    12
local missionName = loc("Getting to the device")
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    13
local inBattle = false
9529
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
    14
local tookPartInBattle = false
9536
7456b28a3421 this seems to work fine for the escape scenario
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9534
diff changeset
    15
local previousHog = -1
9548
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
    16
local checkPointReached = 1 -- 1 is normal spawn
9746
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
    17
local permitCaptainLimeDeath = false
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    18
-- dialogs
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    19
local dialog01 = {}
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    20
local dialog02 = {}
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    21
local dialog03 = {}
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
    22
local dialog04 = {}
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    23
-- mission objectives
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    24
local goals = {
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
    25
	[dialog01] = {missionName, loc("Exploring the tunnel"), loc("Search for the device with the help of the other hedgehogs ").."|"..loc("Hog Solo has to reach the last crates"), 1, 4000},
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
    26
	[dialog02] = {missionName, loc("Exploring the tunnel"), loc("Explore the tunnel with the other hedgehogs and search for the device").."|"..loc("Hog Solo has to reach the last crates"), 1, 4000},
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
    27
	[dialog03] = {missionName, loc("Return to the Surface"), loc("Go to the surface!").."|"..loc("Attack Captain Lime before he attacks back"), 1, 4000},
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
    28
	[dialog04] = {missionName, loc("Return to the Surface"), loc("Go to the surface!").."|"..loc("Attack the assassins before they attack back"), 1, 4000},
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    29
}
9542
d1ea2d1540f2 custom stats
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9540
diff changeset
    30
-- crates
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
    31
local eagleCrate = {name = amDEagle, x = 1680, y = 1650}
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
    32
local girderCrate =	{name = amGirder, x = 1680, y = 1160}
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
    33
local ropeCrate = {name = amRope, x = 1400, y = 1870}
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
    34
local weaponCrate = { x = 1360, y = 1870}
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    35
-- hogs
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    36
local hero = {}
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    37
local green1 = {}
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    38
local green2 = {}
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    39
local green3 = {}
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    40
-- teams
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    41
local teamA = {}
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    42
local teamB = {}
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    43
local teamC = {}
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    44
-- hedgehogs values
9574
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9554
diff changeset
    45
hero.name = loc("Hog Solo")
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    46
hero.x = 1200
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    47
hero.y = 820
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    48
hero.dead = false
9574
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9554
diff changeset
    49
green1.name = loc("Captain Lime")
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    50
green1.x = 1050
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    51
green1.y = 820
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
    52
green1.dead = false
9574
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9554
diff changeset
    53
green2.name = loc("Mister Pear")
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    54
green2.x = 1350
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    55
green2.y = 820
9574
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9554
diff changeset
    56
green3.name = loc("Lady Mango")
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    57
green3.x = 1450
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    58
green3.y = 820
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    59
local redHedgehogs = {
9574
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9554
diff changeset
    60
	{ name = loc("Poisonous Apple") },
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9554
diff changeset
    61
	{ name = loc("Dark Strawberry") },
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9554
diff changeset
    62
	{ name = loc("Watermelon Heart") },
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9554
diff changeset
    63
	{ name = loc("Deadly Grape") }
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    64
}
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    65
teamA.name = loc("Hog Solo and GB")
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    66
teamA.color = tonumber("38D61C",16) -- green
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    67
teamB.name = loc("Captain Lime")
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
    68
teamB.color = tonumber("38D61D",16) -- greenish
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    69
teamC.name = loc("Fruit Assasins")
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    70
teamC.color = tonumber("FF0000",16) -- red
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    71
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    72
function onGameInit()
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
    73
	GameFlags = gfDisableWind
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    74
	Seed = 1
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    75
	TurnTime = 20000
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    76
	CaseFreq = 0
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    77
	MinesNum = 0
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    78
	MinesTime = 1
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    79
	Explosives = 0
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    80
	Delay = 3
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
    81
	SuddenDeathTurns = 200
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    82
	Map = "fruit02_map"
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    83
	Theme = "Fruit"
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
    84
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
    85
	-- load checkpoints, problem getting the campaign variable
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
    86
	local health = 100
9582
bf314b2258b3 less variables used to save the checkpoints - potential breakage xD
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9578
diff changeset
    87
	checkPointReached = initCheckpoint("fruit02")
bf314b2258b3 less variables used to save the checkpoints - potential breakage xD
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9578
diff changeset
    88
	if checkPointReached ~= 1 then
bf314b2258b3 less variables used to save the checkpoints - potential breakage xD
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9578
diff changeset
    89
		loadHogsPositions()
bf314b2258b3 less variables used to save the checkpoints - potential breakage xD
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9578
diff changeset
    90
		health = tonumber(GetCampaignVar("HeroHealth"))
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
    91
	end
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
    92
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    93
	-- Hog Solo and Green Bananas
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    94
	AddTeam(teamA.name, teamA.color, "Bone", "Island", "HillBilly", "cm_birdy")
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
    95
	hero.gear = AddHog(hero.name, 0, health, "war_desertgrenadier1")
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    96
	AnimSetGearPosition(hero.gear, hero.x, hero.y)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
    97
	HogTurnLeft(hero.gear, true)
9629
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
    98
	green2.gear = AddHog(green2.name, 0, 100, "war_britmedic")
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    99
	AnimSetGearPosition(green2.gear, green2.x, green2.y)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   100
	HogTurnLeft(green2.gear, true)
9629
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
   101
	green3.gear = AddHog(green3.name, 0, 100, "hair_red")
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   102
	AnimSetGearPosition(green3.gear, green3.x, green3.y)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   103
	HogTurnLeft(green3.gear, true)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   104
	-- Captain Lime
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   105
	AddTeam(teamB.name, teamB.color, "Bone", "Island", "HillBilly", "cm_birdy")
9629
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
   106
	green1.human = AddHog(green1.name, 0, 100, "war_desertofficer")
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   107
	AnimSetGearPosition(green1.human, green1.x, green1.y)
9629
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
   108
	green1.bot = AddHog(green1.name, 1, 100, "war_desertofficer")
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   109
	AnimSetGearPosition(green1.bot, green1.x, green1.y)
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   110
	green1.gear = green1.human
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   111
	-- Fruit Assasins
9629
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
   112
	local assasinsHats = { "NinjaFull", "NinjaStraight", "NinjaTriangle" }
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   113
	AddTeam(teamC.name, teamC.color, "Bone", "Island", "HillBilly", "cm_birdy")
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   114
	for i=1,table.getn(redHedgehogs) do
9629
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9587
diff changeset
   115
		redHedgehogs[i].gear =  AddHog(redHedgehogs[i].name, 1, 100, assasinsHats[math.random(1,3)])
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   116
		AnimSetGearPosition(redHedgehogs[i].gear, 2010 + 50*i, 630)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   117
	end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   118
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   119
	AnimInit()
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   120
	AnimationSetup()
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   121
end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   122
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   123
function onGameStart()
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   124
	AnimWait(hero.gear, 3000)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   125
	FollowGear(hero.gear)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   126
9540
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   127
	if GetCampaignVar("Fruit01JoinedBattle") and GetCampaignVar("Fruit01JoinedBattle") == "true" then
9529
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   128
		tookPartInBattle = true
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   129
	end
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   130
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   131
	AddEvent(onHeroDeath, {hero.gear}, heroDeath, {hero.gear}, 0)
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   132
	AddEvent(onDeviceCrates, {hero.gear}, deviceCrates, {hero.gear}, 0)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   133
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   134
	-- Hog Solo and GB weapons
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   135
	AddAmmo(hero.gear, amSwitch, 100)
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   136
	-- Captain Lime weapons
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   137
	AddAmmo(green1.bot, amBazooka, 6)
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   138
	AddAmmo(green1.bot, amGrenade, 6)
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   139
	AddAmmo(green1.bot, amDEagle, 2)
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   140
	HideHog(green1.bot)
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   141
	-- Assasins weapons
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   142
	AddAmmo(redHedgehogs[1].gear, amBazooka, 6)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   143
	AddAmmo(redHedgehogs[1].gear, amGrenade, 6)
9540
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   144
	AddAmmo(redHedgehogs[1].bot, amDEagle, 6)
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   145
	for i=1,table.getn(redHedgehogs) do
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   146
		HideHog(redHedgehogs[i].gear)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   147
	end
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   148
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   149
	-- explosives
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   150
	-- I wanted to use FindPlace but doesn't accept height values...
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   151
	local x1 = 950
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   152
	local x2 = 1306
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   153
	local y1 = 1210
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   154
	local y2 = 1620
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   155
	while true do
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   156
		if y2<y1 then
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   157
			break
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   158
		end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   159
		if x2<x1 then
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   160
			x2 = 1305
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   161
			y2 = y2 - 50
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   162
		end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   163
		if not TestRectForObstacle(x2+25, y2+25, x2-25, y2-25, true) then
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   164
			AddGear(x2, y2, gtExplosives, 0, 0, 0, 0)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   165
		end
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   166
		x2 = x2 - 25
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   167
	end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   168
	AddGear(3128, 1680, gtExplosives, 0, 0, 0, 0)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   169
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   170
	--mines
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   171
	AddGear(3135, 1680, gtMine, 0, 0, 0, 0)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   172
	AddGear(3145, 1680, gtMine, 0, 0, 0, 0)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   173
	AddGear(3155, 1680, gtMine, 0, 0, 0, 0)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   174
	AddGear(3165, 1680, gtMine, 0, 0, 0, 0)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   175
	AddGear(3175, 1680, gtMine, 0, 0, 0, 0)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   176
	AddGear(3115, 1680, gtMine, 0, 0, 0, 0)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   177
	AddGear(3105, 1680, gtMine, 0, 0, 0, 0)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   178
	AddGear(3095, 1680, gtMine, 0, 0, 0, 0)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   179
	AddGear(3085, 1680, gtMine, 0, 0, 0, 0)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   180
	AddGear(3075, 1680, gtMine, 0, 0, 0, 0)
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   181
9548
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   182
	if checkPointReached == 1 then
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   183
		AddAmmo(hero.gear, amFirePunch, 3)
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   184
		AddEvent(onCheckPoint1, {hero.gear}, checkPoint1, {hero.gear}, 0)
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   185
		AddEvent(onCheckPoint2, {hero.gear}, checkPoint2, {hero.gear}, 0)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   186
		AddEvent(onCheckPoint3, {hero.gear}, checkPoint3, {hero.gear}, 0)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   187
		AddEvent(onCheckPoint4, {hero.gear}, checkPoint4, {hero.gear}, 0)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   188
		if tookPartInBattle then
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   189
			AddAnim(dialog01)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   190
		else
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   191
			AddAnim(dialog02)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   192
		end
9548
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   193
	elseif checkPointReached == 2 then
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   194
		AddEvent(onCheckPoint2, {hero.gear}, checkPoint2, {hero.gear}, 0)
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   195
		AddEvent(onCheckPoint3, {hero.gear}, checkPoint3, {hero.gear}, 0)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   196
		AddEvent(onCheckPoint4, {hero.gear}, checkPoint4, {hero.gear}, 0)
9548
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   197
	elseif checkPointReached == 3 then
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   198
		AddEvent(onCheckPoint1, {hero.gear}, checkPoint1, {hero.gear}, 0)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   199
		AddEvent(onCheckPoint3, {hero.gear}, checkPoint3, {hero.gear}, 0)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   200
		AddEvent(onCheckPoint4, {hero.gear}, checkPoint4, {hero.gear}, 0)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   201
	elseif checkPointReached == 4 then
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   202
		AddEvent(onCheckPoint4, {hero.gear}, checkPoint4, {hero.gear}, 0)
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   203
	elseif checkPointReached == 5 then
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   204
		-- EMPTY
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   205
	end
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   206
	if checkPointReached ~= 1 then
9548
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   207
		loadWeapons()
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   208
	end
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   209
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   210
	-- girders
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   211
	if checkPointReached > 1 then
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   212
		PlaceGirder(1580, 875, 4)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   213
		PlaceGirder(1800, 875, 4)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   214
	end
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   215
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   216
	-- place crates
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   217
	if checkPointReached < 2 then
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   218
		SpawnAmmoCrate(girderCrate.x, girderCrate.y, girderCrate.name)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   219
	end
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   220
	if checkPointReached < 5 then
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   221
		SpawnAmmoCrate(eagleCrate.x, eagleCrate.y, eagleCrate.name)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   222
	end
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   223
	SpawnAmmoCrate(ropeCrate.x, ropeCrate.y, ropeCrate.name)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   224
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   225
	if tookPartInBattle then
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   226
		SpawnAmmoCrate(weaponCrate.x, weaponCrate.y, amWatermelon)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   227
	else
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   228
		SpawnAmmoCrate(weaponCrate.x, weaponCrate.y, amSniperRifle)
9548
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   229
	end
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   230
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   231
	SendHealthStatsOff()
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   232
end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   233
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   234
function onNewTurn()
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   235
	if not inBattle and CurrentHedgehog == green1.gear then
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   236
		TurnTimeLeft = 0
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   237
	elseif CurrentHedgehog == green2.gear or CurrentHedgehog == green3.gear then
9544
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   238
		TurnTimeLeft = 0
9536
7456b28a3421 this seems to work fine for the escape scenario
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9534
diff changeset
   239
	elseif inBattle then
7456b28a3421 this seems to work fine for the escape scenario
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9534
diff changeset
   240
		if CurrentHedgehog == green1.gear and previousHog ~= hero.gear then
7456b28a3421 this seems to work fine for the escape scenario
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9534
diff changeset
   241
			TurnTimeLeft = 0
7456b28a3421 this seems to work fine for the escape scenario
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9534
diff changeset
   242
			return
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   243
		end
9540
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   244
		for i=1,table.getn(redHedgehogs) do
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   245
			if CurrentHedgehog == redHedgehogs[i].gear and previousHog ~= hero.gear then
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   246
				TurnTimeLeft = 0
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   247
				return
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   248
			end
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   249
		end
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   250
		TurnTimeLeft = 20000
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   251
		wind()
9540
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   252
	elseif not inBattle and CurrentHedgehog == hero.gear then
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   253
		TurnTimeLeft = -1
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   254
		wind()
9536
7456b28a3421 this seems to work fine for the escape scenario
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9534
diff changeset
   255
	else
7456b28a3421 this seems to work fine for the escape scenario
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9534
diff changeset
   256
		TurnTimeLeft = 0
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   257
	end
9536
7456b28a3421 this seems to work fine for the escape scenario
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9534
diff changeset
   258
	previousHog = CurrentHedgehog
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   259
end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   260
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   261
function onGameTick()
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   262
	AnimUnWait()
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   263
	if ShowAnimation() == false then
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   264
		return
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   265
	end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   266
	ExecuteAfterAnimations()
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   267
	CheckEvents()
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   268
end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   269
9746
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   270
function onGameTick20()
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   271
	if not permitCaptainLimeDeath and not GetHealth(green1.gear) then
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   272
		-- game ends with the according stat messages
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   273
		heroDeath()
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   274
		permitCaptainLimeDeath = true
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   275
	end
9747
abe0c8a2d573 adjusting the wind in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9746
diff changeset
   276
	if CurrentHedgehog and GetY(CurrentHedgehog) > 1350 then
abe0c8a2d573 adjusting the wind in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9746
diff changeset
   277
		SetWind(-40)
abe0c8a2d573 adjusting the wind in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9746
diff changeset
   278
	end
9746
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   279
end
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   280
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   281
function onGearDelete(gear)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   282
	if gear == hero.gear then
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   283
		hero.dead = true
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   284
	elseif gear == green1.bot then
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   285
		green1.dead = true
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   286
	end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   287
end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   288
9746
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   289
function onGearDamage(gear, damage)
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   290
	if GetGearType(gear) == gtCase then
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   291
		-- in this mode every crate is essential in order to complete the mission
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   292
		-- destroying a crate ends the game
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   293
		heroDeath()
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   294
	end
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   295
end
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   296
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   297
function onAmmoStoreInit()
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   298
	SetAmmo(amDEagle, 0, 0, 0, 6)
9587
d6ddcafb1c56 fixed bug not displaying fuit02 after selecting fruitPlanet from cosmos
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9582
diff changeset
   299
	SetAmmo(amGirder, 0, 0, 0, 2)
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   300
	SetAmmo(amRope, 0, 0, 0, 1)
9630
df942cfac4e6 add bonuses
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9629
diff changeset
   301
	if tonumber(getBonus(2)) == 1 then
df942cfac4e6 add bonuses
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9629
diff changeset
   302
		SetAmmo(amWatermelon, 0, 0, 0, 2)
df942cfac4e6 add bonuses
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9629
diff changeset
   303
		SetAmmo(amSniperRifle, 0, 0, 0, 2)
df942cfac4e6 add bonuses
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9629
diff changeset
   304
	else
df942cfac4e6 add bonuses
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9629
diff changeset
   305
		SetAmmo(amWatermelon, 0, 0, 0, 1)
df942cfac4e6 add bonuses
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9629
diff changeset
   306
		SetAmmo(amSniperRifle, 0, 0, 0, 1)
df942cfac4e6 add bonuses
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9629
diff changeset
   307
	end
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   308
end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   309
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   310
function onPrecise()
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   311
	if GameTime > 3000 then
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   312
		SetAnimSkip(true)
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   313
	end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   314
end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   315
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   316
-------------- EVENTS ------------------
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   317
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   318
function onHeroDeath(gear)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   319
	if hero.dead then
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   320
		return true
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   321
	end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   322
	return false
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   323
end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   324
9532
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   325
function onDeviceCrates(gear)
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   326
	if not hero.dead and GetY(hero.gear)>1850 and GetX(hero.gear)>1340 and GetX(hero.gear)<1640 then
9532
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   327
		return true
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   328
	end
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   329
	return false
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   330
end
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   331
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   332
function onSurface(gear)
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   333
	if not hero.dead and GetY(hero.gear)<850 and  StoppedGear(hero.gear) then
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   334
		return true
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   335
	end
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   336
	return false
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   337
end
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   338
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   339
function onGaptainLimeDeath(gear)
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   340
	if green1.dead then
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   341
		return true
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   342
	end
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   343
	return false
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   344
end
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   345
9540
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   346
function onRedTeamDeath(gear)
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   347
	local redDead = true
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   348
	for i=1,table.getn(redHedgehogs) do
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   349
		if GetHealth(redHedgehogs[i].gear) then
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   350
			redDead = false
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   351
			break
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   352
		end
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   353
	end
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   354
	return redDead
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   355
end
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   356
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   357
function onCheckPoint1(gear)
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   358
	-- before barrel jump
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   359
	if not hero.dead and GetX(hero.gear) > 2850 and GetX(hero.gear) < 2945
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   360
			and GetY(hero.gear) > 808 and GetY(hero.gear) < 852 and	not isHeroAtWrongPlace() then
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   361
		return true
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   362
	end
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   363
	return false
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   364
end
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   365
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   366
function onCheckPoint2(gear)
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   367
	-- before barrel jump
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   368
	if ((GetHealth(green2.gear) and GetX(green2.gear) > 2850 and GetX(green2.gear) < 2945 and GetY(green2.gear) > 808 and GetY(green2.gear) < 852)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   369
			or (GetHealth(green3.gear) and GetX(green3.gear) > 2850 and GetX(green3.gear) < 2945 and GetY(green3.gear) > 808 and GetY(green3.gear) < 852))
9548
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   370
			and not isHeroAtWrongPlace() then
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   371
		return true
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   372
	end
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   373
	return false
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   374
end
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   375
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   376
function onCheckPoint3(gear)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   377
	-- after barrel jump
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   378
	if ((GetHealth(green2.gear) and GetY(green2.gear) > 1550 and GetX(green2.gear) < 3000 and StoppedGear(green2.gear))
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   379
			or (GetHealth(green3.gear) and GetY(green3.gear) > 1550 and GetX(green3.gear) < 3000 and StoppedGear(green2.gear)))
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   380
			and not isHeroAtWrongPlace() then
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   381
		return true
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   382
	end
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   383
	return false
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   384
end
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   385
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   386
function onCheckPoint4(gear)
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   387
	-- hero at crates
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   388
	if not hero.dead and GetX(hero.gear) > 1288 and GetX(hero.gear) < 1420
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   389
			and GetY(hero.gear) > 1840 and	not isHeroAtWrongPlace() then
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   390
		return true
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   391
	end
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   392
	return false
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   393
end
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   394
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   395
-------------- ACTIONS ------------------
9760
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   396
ended = false
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   397
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   398
function heroDeath(gear)
9760
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   399
	if not ended then
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   400
		SendStat(siGameResult, loc("Hog Solo lost, try again!"))
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   401
		SendStat(siCustomAchievement, loc("To win the game, Hog Solo has to get the bottom crates and come back to the surface"))
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   402
		SendStat(siCustomAchievement, loc("You can use the other 2 hogs to assist you"))
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   403
		SendStat(siCustomAchievement, loc("Do not destroy the crates"))
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   404
		if tookPartInBattle then
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   405
			SendStat(siCustomAchievement, loc("You'll have to eliminate the Strawberry Assassins at the end"))
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   406
		else
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   407
			SendStat(siCustomAchievement, loc("You'll have to eliminate Captain Lime at the end"))
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   408
		SendStat(siCustomAchievement, loc("Don't eliminate Captain Lime before collecting the last crate!"))
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   409
		end
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   410
		SendStat(siPlayerKills,'0',teamA.name)
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   411
		EndGame()
395ca7fe6362 It seems that at the current state it is necessary to protect sending stats/ending game from multiple execution,
sheepluva
parents: 9758
diff changeset
   412
		ended = true
9542
d1ea2d1540f2 custom stats
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9540
diff changeset
   413
	end
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   414
end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   415
9532
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   416
function deviceCrates(gear)
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   417
	TurnTimeLeft = 0
9532
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   418
	if not tookPartInBattle then
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   419
		AddAnim(dialog03)
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   420
	else
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   421
		for i=1,table.getn(redHedgehogs) do
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   422
			RestoreHog(redHedgehogs[i].gear)
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   423
		end
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   424
		AddAnim(dialog04)
9532
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   425
	end
9746
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   426
	-- needs to be set to true for both plots
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   427
	permitCaptainLimeDeath = true
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   428
	AddAmmo(hero.gear, amSwitch, 0)
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   429
	AddEvent(onSurface, {hero.gear}, surface, {hero.gear}, 0)
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   430
end
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   431
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   432
function surface(gear)
9536
7456b28a3421 this seems to work fine for the escape scenario
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9534
diff changeset
   433
	previousHog = -1
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   434
	if tookPartInBattle then
9540
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   435
		if GetHealth(green1.gear) then
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   436
			HideHog(green1.gear)
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   437
		end
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   438
		AddEvent(onRedTeamDeath, {green1.gear}, redTeamDeath, {green1.gear}, 0)
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   439
	else
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   440
		DeleteGear(green1.human)
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   441
		RestoreHog(green1.bot)
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   442
		green1.gear = green1.bot
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   443
		AddEvent(onGaptainLimeDeath, {green1.gear}, captainLimeDeath, {green1.gear}, 0)
9536
7456b28a3421 this seems to work fine for the escape scenario
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9534
diff changeset
   444
	end
9540
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   445
	if GetHealth(green2.gear) then
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   446
		HideHog(green2.gear)
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   447
	end
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   448
	if GetHealth(green3.gear) then
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   449
		HideHog(green3.gear)
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   450
	end
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   451
	inBattle = true
9532
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   452
end
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   453
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   454
function captainLimeDeath(gear)
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   455
	-- hero win in scenario of escape in 1st part
9578
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9574
diff changeset
   456
	saveCompletedStatus(3)
9642
8a691e0f117a use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9630
diff changeset
   457
	SendStat(siGameResult, loc("Congratulations, you won!"))
8a691e0f117a use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9630
diff changeset
   458
	SendStat(siCustomAchievement, loc("You retrieved the lost part"))
8a691e0f117a use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9630
diff changeset
   459
	SendStat(siCustomAchievement, loc("You defended yourself against Captain Lime"))
8a691e0f117a use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9630
diff changeset
   460
	SendStat(siPlayerKills,'1',teamA.name)
8a691e0f117a use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9630
diff changeset
   461
	SendStat(siPlayerKills,'0',teamB.name)
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   462
	EndGame()
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   463
end
9540
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   464
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   465
function redTeamDeath(gear)
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   466
	-- hero win in battle scenario
9578
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9574
diff changeset
   467
	saveCompletedStatus(3)
9642
8a691e0f117a use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9630
diff changeset
   468
	SendStat(siGameResult, loc("Congratulations, you won!"))
8a691e0f117a use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9630
diff changeset
   469
	SendStat(siCustomAchievement, loc("You retrieved the lost part"))
8a691e0f117a use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9630
diff changeset
   470
	SendStat(siCustomAchievement, loc("You defended yourself against Strawberry Assasins"))
8a691e0f117a use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9630
diff changeset
   471
	SendStat(siPlayerKills,'1',teamA.name)
8a691e0f117a use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9630
diff changeset
   472
	SendStat(siPlayerKills,'0',teamC.name)
9540
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   473
	EndGame()
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   474
end
92329918463f game against red team seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9538
diff changeset
   475
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   476
function checkPoint1(gear)
9582
bf314b2258b3 less variables used to save the checkpoints - potential breakage xD
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9578
diff changeset
   477
	saveCheckPointLocal(2)
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   478
end
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   479
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   480
function checkPoint2(gear)
9582
bf314b2258b3 less variables used to save the checkpoints - potential breakage xD
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9578
diff changeset
   481
	saveCheckPointLocal(3)
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   482
end
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   483
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   484
function checkPoint3(gear)
9582
bf314b2258b3 less variables used to save the checkpoints - potential breakage xD
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9578
diff changeset
   485
	saveCheckPointLocal(4)
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   486
end
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   487
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   488
function checkPoint4(gear)
9582
bf314b2258b3 less variables used to save the checkpoints - potential breakage xD
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9578
diff changeset
   489
	saveCheckPointLocal(5)
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   490
end
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   491
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   492
-------------- ANIMATIONS ------------------
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   493
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   494
function Skipanim(anim)
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   495
	if goals[anim] ~= nil then
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   496
		ShowMission(unpack(goals[anim]))
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   497
    end
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   498
    TurnTimeLeft = 0
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   499
end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   500
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   501
function AnimationSetup()
9529
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   502
	-- DIALOG 01 - Start, Captain Lime helps Hog Solo because he took part in the battle
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   503
	AddSkipFunction(dialog01, Skipanim, {dialog01})
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   504
	table.insert(dialog01, {func = AnimWait, args = {hero.gear, 3000}})
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   505
	table.insert(dialog01, {func = AnimCaption, args = {hero.gear, loc("Somewhere else on the planet of fruits Captain Lime helps Hog Solo..."), 5000}})
9529
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   506
	table.insert(dialog01, {func = AnimSay, args = {green1.gear, loc("You fought bravely and you helped us win this battle!"), SAY_SAY, 5000}})
9574
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9554
diff changeset
   507
	table.insert(dialog01, {func = AnimSay, args = {green1.gear, loc("So, as promised I have brought you where I think that the device you are looking for is hidden."), SAY_SAY, 7000}})
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   508
	table.insert(dialog01, {func = AnimSay, args = {green1.gear, loc("I know that your resources are low due to the battle but I'll send two of my best hogs to assist you."), SAY_SAY, 7000}})
9529
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   509
	table.insert(dialog01, {func = AnimSay, args = {green1.gear, loc("Good luck!"), SAY_SAY, 2000}})
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   510
	table.insert(dialog01, {func = AnimWait, args = {hero.gear, 500}})
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   511
	table.insert(dialog01, {func = AnimSwitchHog, args = {hero.gear}})
9529
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   512
	-- DIALOG02 - Start, Hog Solo escaped from the previous battle
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   513
	AddSkipFunction(dialog02, Skipanim, {dialog02})
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   514
	table.insert(dialog02, {func = AnimWait, args = {hero.gear, 3000}})
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   515
	table.insert(dialog02, {func = AnimCaption, args = {hero.gear, loc("Somewhere else on the planet of fruits Hog Solo gets closer to the device..."), 5000}})
9529
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   516
	table.insert(dialog02, {func = AnimSay, args = {green1.gear, loc("You are the one who fled! So, you are alive..."), SAY_SAY, 4000}})
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   517
	table.insert(dialog02, {func = AnimSay, args = {green1.gear, loc("I'm still low on hogs. If you are not afraid I could use a set of extra hands"), SAY_SAY, 4000}})
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   518
	table.insert(dialog02, {func = AnimWait, args = {hero.gear, 8000}})
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   519
	table.insert(dialog02, {func = AnimSay, args = {hero.gear, loc("I am sorry but I was looking for a device that may be hidden somewhere around here"), SAY_SAY, 4500}})
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   520
	table.insert(dialog02, {func = AnimWait, args = {green1.gear, 12500}})
9574
da3d39667881 strings checked, all ok except ice02 that will be probably changed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9554
diff changeset
   521
	table.insert(dialog02, {func = AnimSay, args = {green1.gear, loc("Many long forgotten things can be found in the same tunnels that we are about to explore!"), SAY_SAY, 7000}})
9529
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   522
	table.insert(dialog02, {func = AnimSay, args = {green1.gear, loc("If you help us you can keep the device if you find it but we'll keep everything else"), SAY_SAY, 7000}})
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   523
	table.insert(dialog02, {func = AnimSay, args = {green1.gear, loc("What do you say? Are you in?"), SAY_SAY, 3000}})
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   524
	table.insert(dialog02, {func = AnimWait, args = {hero.gear, 1800}})
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   525
	table.insert(dialog02, {func = AnimSay, args = {hero.gear, loc("Ok then!"), SAY_SAY, 2000}})
e95aab9130d8 first dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9527
diff changeset
   526
	table.insert(dialog02, {func = AnimSwitchHog, args = {hero.gear}})
9532
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   527
	-- DIALOG03 - At crates, hero learns that Captain Lime is bad
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   528
	AddSkipFunction(dialog03, Skipanim, {dialog03})
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   529
	table.insert(dialog03, {func = AnimWait, args = {hero.gear, 4000}})
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   530
	table.insert(dialog03, {func = FollowGear, args = {hero.gear}})
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   531
	table.insert(dialog03, {func = AnimSay, args = {hero.gear, loc("Hoorah! I've found it, now I have to get back to Captain Lime!"), SAY_SAY, 4000}})
9532
4fa58a49ace1 more dialogs
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9529
diff changeset
   532
	table.insert(dialog03, {func = AnimWait, args = {green1.gear, 4000}})
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   533
	table.insert(dialog03, {func = AnimSay, args = {green1.gear, loc("This Hog Solo is so naive! When he returns I'll shoot him and keep that device for myself!"), SAY_THINK, 4000}})
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   534
	table.insert(dialog03, {func = goToThesurface, args = {hero.gear}})
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   535
	-- DIALOG04 - At crates, hero learns about the assasins ambush
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   536
	AddSkipFunction(dialog04, Skipanim, {dialog04})
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   537
	table.insert(dialog04, {func = AnimWait, args = {hero.gear, 4000}})
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   538
	table.insert(dialog04, {func = FollowGear, args = {hero.gear}})
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9747
diff changeset
   539
	table.insert(dialog04, {func = AnimSay, args = {hero.gear, loc("Hoorah! I've found it, now I have to get back to Captain Lime!"), SAY_SAY, 4000}})
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   540
	table.insert(dialog04, {func = AnimWait, args = {redHedgehogs[1].gear, 4000}})
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   541
	table.insert(dialog04, {func = AnimSay, args = {redHedgehogs[1].gear, loc("We have spotted the enemy! We'll attack when the enemies start gathering!"), SAY_THINK, 4000}})
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   542
	table.insert(dialog04, {func = goToThesurface, args = {hero.gear}})
9527
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   543
end
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   544
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   545
------------- OTHER FUNCTIONS ---------------
676fc574ff42 fruit planet part 2
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   546
9534
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   547
function goToThesurface()
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   548
	TurnTimeLeft = 0
662edfec06be many dialogs and events
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9532
diff changeset
   549
end
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   550
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   551
function wind()
9747
abe0c8a2d573 adjusting the wind in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9746
diff changeset
   552
	SetWind(math.random(-100,100))
9538
51596e01c5df scenario of escape seems ok
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9536
diff changeset
   553
end
9544
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   554
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   555
function saveHogsPositions()
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   556
	local positions;
9544
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   557
	positions = GetX(hero.gear)..","..GetY(hero.gear)
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   558
	if GetHealth(green2.gear) then
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   559
		positions = positions..","..GetX(green2.gear)..","..GetY(green2.gear)
9746
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   560
	else
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   561
		positions = positions..",1,1"
9544
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   562
	end
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   563
	if GetHealth(green3.gear) then
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   564
		positions = positions..","..GetX(green3.gear)..","..GetY(green3.gear)
9746
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   565
	else
64abf9862562 fixed wrong saved positions, illegal crate destroying and killing cap.Lime early in fruit02
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9642
diff changeset
   566
		positions = positions..",1,1"
9544
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   567
	end
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   568
	SaveCampaignVar("HogsPosition", positions)
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   569
end
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   570
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   571
function loadHogsPositions()
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   572
	local positions;
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   573
	if GetCampaignVar("HogsPosition") then
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   574
		positions = GetCampaignVar("HogsPosition")
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   575
	else
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   576
		return
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   577
	end
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   578
	positions = split(positions,",")
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   579
	if positions[1] then
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   580
		hero.x = positions[1]
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   581
		hero.y = positions[2]
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   582
	end
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   583
	if positions[3] then
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   584
		green2.x = tonumber(positions[3])
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   585
		green2.y = tonumber(positions[4])
9544
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   586
	end
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   587
	if positions[5] then
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   588
		green3.x = tonumber(positions[5])
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   589
		green3.y = tonumber(positions[6])
9544
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   590
	end
e247251fa751 position saving functions
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9542
diff changeset
   591
end
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   592
9548
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   593
function saveWeapons()
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   594
	-- firepunch - gilder - deagle - watermelon - sniper
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   595
	SaveCampaignVar("HeroAmmo", GetAmmoCount(hero.gear, amFirePunch)..GetAmmoCount(hero.gear, amGirder)..
9548
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   596
			GetAmmoCount(hero.gear, amDEagle)..GetAmmoCount(hero.gear, amWatermelon)..GetAmmoCount(hero.gear, amSniperRifle))
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   597
end
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   598
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   599
function loadWeapons()
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   600
	local ammo = GetCampaignVar("HeroAmmo")
9550
59061246a25c fixed weapon type typo
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9548
diff changeset
   601
	AddAmmo(hero.gear, amFirePunch, tonumber(ammo:sub(1,1)))
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   602
	AddAmmo(hero.gear, amGirder, tonumber(ammo:sub(2,2)))
9548
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   603
	AddAmmo(hero.gear, amDEagle, tonumber(ammo:sub(3,3)))
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   604
	AddAmmo(hero.gear, amWatermelon, tonumber(ammo:sub(4,4)))
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   605
	AddAmmo(hero.gear, amSniperRifle, tonumber(ammo:sub(5,5)))
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   606
end
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   607
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   608
function isHeroAtWrongPlace()
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   609
	if GetX(hero.gear) > 1480 and GetX(hero.gear) < 1892 and GetY(hero.gear) > 1000 and GetY(hero.gear) < 1220 then
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   610
		return true
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   611
	end
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   612
	return false
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   613
end
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   614
9548
38630665c9ab check point fixes
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9546
diff changeset
   615
-- splits number by delimiter
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   616
function split(s, delimiter)
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   617
	local res = {}
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   618
	local first = ""
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   619
	for i=1,s:len() do
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   620
		if s:sub(1,1) == delimiter then
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   621
			table.insert(res, tonumber(first))
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   622
			first = ""
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   623
		else
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   624
			first = first..s:sub(1,1)
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   625
		end
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   626
		s = s:sub(2)
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   627
	end
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   628
	if first:len() > 0 then
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   629
		table.insert(res, tonumber(first))
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   630
	end
9546
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   631
	return res
f7530a7e5612 added custom lua split
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9544
diff changeset
   632
end
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   633
9582
bf314b2258b3 less variables used to save the checkpoints - potential breakage xD
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9578
diff changeset
   634
function saveCheckPointLocal(cpoint)
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   635
	AnimCaption(hero.gear, loc("Checkpoint reached!"), 3000)
9582
bf314b2258b3 less variables used to save the checkpoints - potential breakage xD
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9578
diff changeset
   636
	saveCheckpoint(cpoint)
9552
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   637
	SaveCampaignVar("HeroHealth", GetHealth(hero.gear))
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   638
	saveHogsPositions()
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   639
	saveWeapons()
90d69a2c1729 checkpoint system seems complete
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9550
diff changeset
   640
end