share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/moon02.lua
author Wuzzy <almikes@aol.com>
Thu, 21 Sep 2017 04:25:10 +0200
changeset 12467 de69155f976b
parent 12088 1da37e2ba6fd
child 12468 d652c6f5d5f1
permissions -rw-r--r--
Use new turn ending method in moon02.lua
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     1
------------------- ABOUT ----------------------
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     2
--
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     3
-- Hog Solo has to catch the other hog in order
9614
7fa70d381c75 added custom stats
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9613
diff changeset
     4
-- to get informations about the origin of Pr. Hogevil
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     5
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     6
HedgewarsScriptLoad("/Scripts/Locale.lua")
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     7
HedgewarsScriptLoad("/Scripts/Animate.lua")
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     8
HedgewarsScriptLoad("/Missions/Campaign/A_Space_Adventure/global_functions.lua")
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     9
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    10
----------------- VARIABLES --------------------
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    11
-- globals
9615
86b82816b222 image and description
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9614
diff changeset
    12
local missionName = loc("Chasing the blue hog")
9757
9be28be004d4 string tweaks and whitespace fixes
sheepluva
parents: 9645
diff changeset
    13
local challengeObjectives = loc("Use the rope in order to catch the blue hedgehog").."|"..
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    14
	loc("You have to stand very close to him")
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    15
local currentPosition = 1
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    16
local previousTimeLeft = 0
9772
30a9e740ec09 moon02 fixes: bug that didn't called win(), changed map so blue hog not placed on edges, teleport animations, removed amSkip, also error when drow hero and enemy seems fixed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
    17
local startChallenge = false
11891
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
    18
local winningTime = nil
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    19
-- dialogs
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    20
local dialog01 = {}
9613
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
    21
local dialog02 = {}
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    22
-- mission objectives
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    23
local goals = {
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
    24
	[dialog01] = {missionName, loc("Challenge objectives"), challengeObjectives, 1, 4500},
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    25
}
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    26
-- hogs
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    27
local hero = {
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    28
	name = loc("Hog Solo"),
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    29
	x = 1300,
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    30
	y = 850
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    31
}
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    32
local runner = {
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    33
	name = loc("Crazy Runner"),
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    34
	places = {
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    35
		{x = 1400,y = 850, turnTime = 0},
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    36
		{x = 3880,y = 33, turnTime = 30000},
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    37
		{x = 250,y = 1780, turnTime = 25000},
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    38
		{x = 3850,y = 1940, turnTime = 20000},
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    39
	}
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    40
}
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    41
-- teams
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    42
local teamA = {
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    43
	name = loc("Hog Solo"),
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    44
	color = tonumber("38D61C",16) -- green
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    45
}
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    46
local teamB = {
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    47
	name = loc("Crazy Runner"),
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    48
	color = tonumber("FF0000",16) -- red
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    49
}
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    50
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    51
-------------- LuaAPI EVENT HANDLERS ------------------
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    52
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    53
function onGameInit()
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    54
	GameFlags = gfDisableWind
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    55
	Seed = 1
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    56
	TurnTime = 25000
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    57
	CaseFreq = 0
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    58
	MinesNum = 0
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    59
	MinesTime = 1
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    60
	Explosives = 0
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    61
	Map = "moon02_map"
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    62
	Theme = "Cheese"
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9757
diff changeset
    63
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    64
	-- Hog Solo
12049
030464f34d47 Tweak flags used in all missions to fit more to the theme
Wuzzy <almikes@aol.com>
parents: 11965
diff changeset
    65
	AddTeam(teamA.name, teamA.color, "Bone", "Island", "HillBilly", "hedgewars")
9612
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
    66
	hero.gear = AddHog(hero.name, 0, 1, "war_desertgrenadier1")
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    67
	AnimSetGearPosition(hero.gear, hero.x, hero.y)
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    68
	-- Crazy Runner
12049
030464f34d47 Tweak flags used in all missions to fit more to the theme
Wuzzy <almikes@aol.com>
parents: 11965
diff changeset
    69
	AddTeam(teamB.name, teamB.color, "Bone", "Island", "HillBilly", "cm_sonic")
9615
86b82816b222 image and description
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9614
diff changeset
    70
	runner.gear = AddHog(runner.name, 0, 100, "sth_Sonic")
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    71
	AnimSetGearPosition(runner.gear, runner.places[1].x, runner.places[1].y)
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    72
	HogTurnLeft(runner.gear, true)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9757
diff changeset
    73
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    74
	initCheckpoint("moon02")
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9757
diff changeset
    75
12088
1da37e2ba6fd Fix A Space Adventure Missions allowing player to walk before 1st animation and screw things up
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
    76
	AnimInit(true)
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    77
	AnimationSetup()
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    78
end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    79
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    80
function onGameStart()
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    81
	AnimWait(hero.gear, 3000)
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    82
	FollowGear(hero.gear)
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
    83
	ShowMission(missionName, loc("Challenge objectives"), challengeObjectives, -amSkip, 0)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9757
diff changeset
    84
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    85
	AddEvent(onHeroDeath, {hero.gear}, heroDeath, {hero.gear}, 0)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9757
diff changeset
    86
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    87
	AddAmmo(hero.gear, amRope, 1)
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9757
diff changeset
    88
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    89
	SendHealthStatsOff()
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    90
	hogTurn = runner.gear
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    91
	AddAnim(dialog01)
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    92
end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    93
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    94
function onNewTurn()
9772
30a9e740ec09 moon02 fixes: bug that didn't called win(), changed map so blue hog not placed on edges, teleport animations, removed amSkip, also error when drow hero and enemy seems fixed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
    95
	if startChallenge and currentPosition < 5 then
9612
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
    96
		if CurrentHedgehog ~= hero.gear then
12467
de69155f976b Use new turn ending method in moon02.lua
Wuzzy <almikes@aol.com>
parents: 12088
diff changeset
    97
			EndTurn(true)
9612
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
    98
		else
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
    99
			if GetAmmoCount(hero.gear, amRope) == 0  then
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
   100
				lose()
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
   101
			end
10289
c3a77ff02a23 lua api: SetWeapon(ammoType)
sheepluva
parents: 9772
diff changeset
   102
			SetWeapon(amRope)
9612
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
   103
			TurnTimeLeft = runner.places[currentPosition].turnTime + previousTimeLeft
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
   104
			previousTimeLeft = 0
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
   105
		end
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   106
	end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   107
end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   108
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   109
function onGameTick()
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   110
	AnimUnWait()
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   111
	if ShowAnimation() == false then
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   112
		return
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   113
	end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   114
	ExecuteAfterAnimations()
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   115
	CheckEvents()
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   116
end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   117
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   118
function onGameTick20()
9772
30a9e740ec09 moon02 fixes: bug that didn't called win(), changed map so blue hog not placed on edges, teleport animations, removed amSkip, also error when drow hero and enemy seems fixed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   119
	if GetHealth(hero.gear) and startChallenge and isHeroNextToRunner() and currentPosition < 5 then
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   120
		moveRunner()
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   121
	end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   122
end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   123
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   124
function onPrecise()
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   125
	if GameTime > 3000 then
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9757
diff changeset
   126
		SetAnimSkip(true)
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   127
	end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   128
end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   129
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   130
-------------- EVENTS ------------------
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   131
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   132
function onHeroDeath(gear)
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   133
	if not GetHealth(hero.gear) then
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   134
		return true
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   135
	end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   136
	return false
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   137
end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   138
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   139
-------------- ACTIONS ------------------
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   140
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   141
function heroDeath(gear)
9614
7fa70d381c75 added custom stats
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9613
diff changeset
   142
	lose()
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   143
end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   144
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   145
-------------- ANIMATIONS ------------------
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   146
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   147
function Skipanim(anim)
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   148
	if goals[anim] ~= nil then
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   149
		ShowMission(unpack(goals[anim]))
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   150
    end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   151
    if anim == dialog01 then
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   152
		moveRunner()
9772
30a9e740ec09 moon02 fixes: bug that didn't called win(), changed map so blue hog not placed on edges, teleport animations, removed amSkip, also error when drow hero and enemy seems fixed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   153
	elseif anim == dialog02 then
30a9e740ec09 moon02 fixes: bug that didn't called win(), changed map so blue hog not placed on edges, teleport animations, removed amSkip, also error when drow hero and enemy seems fixed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   154
		win()
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   155
    end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   156
end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   157
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   158
function AnimationSetup()
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   159
	-- DIALOG 01 - Start, game instructions
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   160
	AddSkipFunction(dialog01, Skipanim, {dialog01})
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   161
	table.insert(dialog01, {func = AnimWait, args = {hero.gear, 3200}})
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   162
	table.insert(dialog01, {func = AnimCaption, args = {hero.gear, loc("On the other side of the moon ..."), 5000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   163
	table.insert(dialog01, {func = AnimSay, args = {runner.gear, loc("So you are interested in Professor Hogevil, huh?"), SAY_SAY, 3000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   164
	table.insert(dialog01, {func = AnimSay, args = {runner.gear, loc("We'll play a game first."), SAY_SAY, 3000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   165
	table.insert(dialog01, {func = AnimSay, args = {runner.gear, loc("I'll let you know whatever I know about him if you manage to catch me 3 times."), SAY_SAY, 4000}})
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9757
diff changeset
   166
	table.insert(dialog01, {func = AnimSay, args = {runner.gear, loc("Let's go!"), SAY_SAY, 2000}})
9613
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   167
	table.insert(dialog01, {func = moveRunner, args = {}})
9758
3b8058b251b8 some more campaign string tweaks
sheepluva
parents: 9757
diff changeset
   168
	-- DIALOG 02 - Hog Solo story
9613
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   169
	AddSkipFunction(dialog02, Skipanim, {dialog02})
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   170
	table.insert(dialog02, {func = AnimWait, args = {hero.gear, 3200}})
9757
9be28be004d4 string tweaks and whitespace fixes
sheepluva
parents: 9645
diff changeset
   171
	table.insert(dialog02, {func = AnimCaption, args = {hero.gear, loc("The truth about Professor Hogevil"), 5000}})
9be28be004d4 string tweaks and whitespace fixes
sheepluva
parents: 9645
diff changeset
   172
	table.insert(dialog02, {func = AnimSay, args = {runner.gear, loc("Amazing! I was never beaten in a race before!"), SAY_SAY, 4000}})
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   173
	table.insert(dialog02, {func = AnimSay, args = {runner.gear, loc("So, let me tell you what I know about Professor Hogevil."), SAY_SAY, 4000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   174
	table.insert(dialog02, {func = AnimSay, args = {runner.gear, loc("Professor Hogevil, then known as James Hogus, worked for PAotH back in my time."), SAY_SAY, 4000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   175
	table.insert(dialog02, {func = AnimSay, args = {runner.gear, loc("He was the lab assistant of Dr. Goodhogan, the inventor of the anti-gravity device."), SAY_SAY, 5000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   176
	table.insert(dialog02, {func = AnimSay, args = {runner.gear, loc("During the final testing of the device an accident happened."), SAY_SAY, 5000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   177
	table.insert(dialog02, {func = AnimSay, args = {runner.gear, loc("In this accident, Professor Hogevil lost all his spines on his head!"), SAY_SAY, 5000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   178
	table.insert(dialog02, {func = AnimSay, args = {runner.gear, loc("That's why he always wears a hat since then."), SAY_SAY, 4000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   179
	table.insert(dialog02, {func = AnimSay, args = {runner.gear, loc("After that incident he went underground and started working on his plan to steal the device."), SAY_SAY, 5000}})
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   180
	table.insert(dialog02, {func = AnimSay, args = {runner.gear, loc("He is a very tough and very determined hedgehog. I would be extremely careful if I were you."), SAY_SAY, 5000}})
9613
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   181
	table.insert(dialog02, {func = AnimSay, args = {runner.gear, loc("I should go now, goodbye!"), SAY_SAY, 3000}})
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   182
	table.insert(dialog02, {func = win, args = {}})
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   183
end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   184
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   185
------------- other functions ---------------
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   186
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   187
function isHeroNextToRunner()
11492
806da449d355 Fix Lua error spam in "Chasing the blue hog" after drowning both Crazy Runner and Hog Solo
Wuzzy <almikes@aol.com>
parents: 10289
diff changeset
   188
	if GetGearType(hero.gear) == gtHedgehog and GetGearType(runner.gear) == gtHedgehog and
806da449d355 Fix Lua error spam in "Chasing the blue hog" after drowning both Crazy Runner and Hog Solo
Wuzzy <almikes@aol.com>
parents: 10289
diff changeset
   189
			math.abs(GetX(hero.gear) - GetX(runner.gear)) < 75 and
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   190
			math.abs(GetY(hero.gear) - GetY(runner.gear)) < 75 and StoppedGear(hero.gear) then
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   191
		return true
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   192
	end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   193
	return false
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   194
end
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   195
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   196
function moveRunner()
9772
30a9e740ec09 moon02 fixes: bug that didn't called win(), changed map so blue hog not placed on edges, teleport animations, removed amSkip, also error when drow hero and enemy seems fixed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   197
	if currentPosition == 4 then
30a9e740ec09 moon02 fixes: bug that didn't called win(), changed map so blue hog not placed on edges, teleport animations, removed amSkip, also error when drow hero and enemy seems fixed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   198
		currentPosition = currentPosition + 1
9613
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   199
		if GetX(hero.gear) > GetX(runner.gear) then
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   200
			HogTurnLeft(runner.gear, false)
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   201
		end
9772
30a9e740ec09 moon02 fixes: bug that didn't called win(), changed map so blue hog not placed on edges, teleport animations, removed amSkip, also error when drow hero and enemy seems fixed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   202
		AddAnim(dialog02)
11891
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   203
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   204
		-- Update time record
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   205
		local baseTime = 0
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   206
		for i=1, #runner.places do
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   207
			baseTime = baseTime + runner.places[i].turnTime
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   208
		end
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   209
		winningTime = baseTime - TurnTimeLeft
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   210
		SendStat(siCustomAchievement, string.format(loc("You have managed to catch the blue hedgehog in %.3f seconds."), winningTime/1000))
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   211
		local record = tonumber(GetCampaignVar("FastestBlueHogCatch"))
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   212
		if record ~= nil and winningTime >= record then
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   213
			SendStat(siCustomAchievement, string.format(loc("Your personal best time so far: %.3f seconds"), record/1000))
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   214
		end
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   215
		if record == nil or winningTime < record then
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   216
			SaveCampaignVar("FastestBlueHogCatch", tostring(winningTime))
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   217
			if record ~= nil then
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   218
				SendStat(siCustomAchievement, loc("This is a new personal best time, congratulations!"))
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   219
			end
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   220
		end
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   221
12467
de69155f976b Use new turn ending method in moon02.lua
Wuzzy <almikes@aol.com>
parents: 12088
diff changeset
   222
		EndTurn(true)
9772
30a9e740ec09 moon02 fixes: bug that didn't called win(), changed map so blue hog not placed on edges, teleport animations, removed amSkip, also error when drow hero and enemy seems fixed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   223
	elseif currentPosition < 4 then
9613
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   224
		if not startChallenge then
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   225
			startChallenge = true
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   226
		end
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   227
		AddAmmo(hero.gear, amRope, 1)
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   228
		if currentPosition ~= 1 then
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   229
			PlaySound(sndVictory)
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   230
			if currentPosition > 1 and currentPosition < 4 then
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   231
				AnimCaption(hero.gear, loc("Go, get him again!"), 3000)
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   232
				AnimSay(runner.gear, loc("You got me!"), SAY_SAY, 3000)
9613
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   233
			end
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   234
			previousTimeLeft = TurnTimeLeft
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   235
		end
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   236
		currentPosition = currentPosition + 1
9772
30a9e740ec09 moon02 fixes: bug that didn't called win(), changed map so blue hog not placed on edges, teleport animations, removed amSkip, also error when drow hero and enemy seems fixed
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9758
diff changeset
   237
		AddVisualGear(GetX(runner.gear), GetY(runner.gear), vgtExplosion, 0, false) 
9613
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   238
		SetGearPosition(runner.gear, runner.places[currentPosition].x, runner.places[currentPosition].y)
12467
de69155f976b Use new turn ending method in moon02.lua
Wuzzy <almikes@aol.com>
parents: 12088
diff changeset
   239
		EndTurn(true)
9612
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
   240
	end
9611
ef374528a9fb moon side mission map and most of the logic
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
   241
end
9612
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
   242
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
   243
function lose()
11692
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   244
	SendStat(siGameResult, loc("Too slow! Try again ..."))
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   245
	SendStat(siCustomAchievement, loc("You have to catch the other hog 3 times."))
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   246
	SendStat(siCustomAchievement, loc("The time that you have left when you reach the blue hedgehog will be added to the next turn."))
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   247
	SendStat(siCustomAchievement, loc("Each turn you'll have only one rope to use."))
68eddcdc9f26 Typo fixes for A Space Adventure campaign
Wuzzy <almikes@aol.com>
parents: 11492
diff changeset
   248
	SendStat(siCustomAchievement, loc("You'll lose if you die or if your time is up."))
9642
8a691e0f117a use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9615
diff changeset
   249
	SendStat(siPlayerKills,'0',teamA.name)
9612
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
   250
	EndGame()
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
   251
end
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
   252
9613
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   253
function win()
9642
8a691e0f117a use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9615
diff changeset
   254
	SendStat(siGameResult, loc("Congratulations, you are the fastest!"))
11891
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   255
	-- siCustomAchievements were added earlier
d79621bcb709 Save record time for Chasing the blue hog mission
Wuzzy <almikes@aol.com>
parents: 11692
diff changeset
   256
	SendStat(siPlayerKills,'0',teamA.name)
11952
63988f36debf Save mission success for A Space Adventure missions
Wuzzy <almikes@aol.com>
parents: 11891
diff changeset
   257
	SaveCampaignVar("Mission13Won", "true")
11965
72be38f6d0c0 Complete space campaign's spacetrip mission if all main+side missions are completed
Wuzzy <almikes@aol.com>
parents: 11952
diff changeset
   258
	checkAllMissionsCompleted()
9613
142ba1d08205 cleanup - removed debug prints
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9612
diff changeset
   259
	EndGame()
9612
825856c67563 many corrections
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9611
diff changeset
   260
end