author | Wuzzy <Wuzzy2@mail.ru> |
Thu, 20 Dec 2018 17:51:46 +0100 | |
changeset 14487 | d4aa64f51c9f |
parent 14480 | 2113296b7a29 |
child 14489 | 764ba6182389 |
permissions | -rw-r--r-- |
5278 | 1 |
|
2 |
||
8043 | 3 |
HedgewarsScriptLoad("/Scripts/Locale.lua") |
14480
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
4 |
HedgewarsScriptLoad("/Scripts/Utils.lua") |
13501
cbda0f842364
Standardize hidden mission achievement in new Lua library "Achievements"
Wuzzy <Wuzzy2@mail.ru>
parents:
12938
diff
changeset
|
5 |
HedgewarsScriptLoad("/Scripts/Achievements.lua") |
5278 | 6 |
|
7 |
local player |
|
14487
d4aa64f51c9f
Use player-chosen team identity for most challenges and scenarios
Wuzzy <Wuzzy2@mail.ru>
parents:
14480
diff
changeset
|
8 |
local playerTeamName, haplessTeamName |
5278 | 9 |
local hh = {} |
10 |
local hhCount = 8 |
|
11 |
local GameOver = false |
|
12 |
local introStage = 0 |
|
13 |
local genCounter = 0 |
|
14 |
local waterCounter = 0 |
|
15 |
local waterPix = 0 |
|
5823 | 16 |
local frig = 0 |
17 |
local watGear = nil |
|
11526
dc36fad455f4
add cinematic effect to "sinking feeling" intro sequence
sheepluva
parents:
11266
diff
changeset
|
18 |
local cinematic = false |
5278 | 19 |
|
14480
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
20 |
function printMission() |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
21 |
local highscore = tonumber(GetMissionVar("Highscore")) |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
22 |
local show = (type(highscore) == "number") and (highscore > 0) |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
23 |
local recordInfo = "" |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
24 |
if show then |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
25 |
recordInfo = getReadableChallengeRecord("Highscore") |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
26 |
end |
14487
d4aa64f51c9f
Use player-chosen team identity for most challenges and scenarios
Wuzzy <Wuzzy2@mail.ru>
parents:
14480
diff
changeset
|
27 |
ShowMission(loc("That Sinking Feeling"), loc("Challenge"), loc("Save as many hogs as possible!") |
14480
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
28 |
.. "|" .. recordInfo, 4, 0) |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
29 |
end |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
30 |
|
5278 | 31 |
-- allow skipping of the intro via hitting precise key |
32 |
function onPrecise() |
|
33 |
if introStage < 100 then |
|
34 |
introStage = 110 |
|
35 |
genCounter = 0 |
|
36 |
FollowGear(CurrentHedgehog) |
|
37 |
AddCaption(loc("Good luck out there!")) |
|
14480
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
38 |
printMission() |
11009 | 39 |
SetInputMask(0xFFFFFFFF) |
5278 | 40 |
end |
41 |
end |
|
42 |
||
43 |
function onGameInit() |
|
44 |
||
45 |
Seed = 0 |
|
11009 | 46 |
GameFlags = gfInfAttack + gfInvulnerable + gfOneClanMode |
5278 | 47 |
TurnTime = 90000 |
48 |
CaseFreq = 0 |
|
49 |
MinesNum = 0 |
|
50 |
MinesTime = 3000 |
|
51 |
Explosives = 0 |
|
52 |
Map = "Islands" |
|
53 |
Theme = "City" |
|
14408
8af01d65ccda
Properly disable SD in That Sinking Feeling
Wuzzy <Wuzzy2@mail.ru>
parents:
14406
diff
changeset
|
54 |
HealthDecrease = 0 |
8af01d65ccda
Properly disable SD in That Sinking Feeling
Wuzzy <Wuzzy2@mail.ru>
parents:
14406
diff
changeset
|
55 |
WaterRise = 0 |
5278 | 56 |
|
14487
d4aa64f51c9f
Use player-chosen team identity for most challenges and scenarios
Wuzzy <Wuzzy2@mail.ru>
parents:
14480
diff
changeset
|
57 |
local idx = AddTeam(loc("Hapless Hogs"), -1, "Simple", "Island", "Default") |
d4aa64f51c9f
Use player-chosen team identity for most challenges and scenarios
Wuzzy <Wuzzy2@mail.ru>
parents:
14480
diff
changeset
|
58 |
haplessTeamName = GetTeamName(idx) |
5823 | 59 |
hh[0] = AddHog(loc("Sinky"), 1, 100, "fr_lemon") |
60 |
hh[1] = AddHog(loc("Drowner"), 1, 100, "fr_orange") |
|
61 |
hh[2] = AddHog(loc("Heavy"), 1, 100, "dish_Teapot") |
|
62 |
hh[3] = AddHog(loc("Clumsy"), 1, 100, "dish_SauceBoatSilver") |
|
63 |
hh[4] = AddHog(loc("Silly"), 1, 100, "dish_Ladle") |
|
5278 | 64 |
hh[5] = AddHog(loc("Careless"), 1, 100, "StrawHatEyes") |
5823 | 65 |
hh[6] = AddHog(loc("Sponge"), 1, 100, "sf_chunli") |
66 |
hh[7] = AddHog(loc("Deadweight"), 1, 100, "dish_Teacup") |
|
5278 | 67 |
|
14487
d4aa64f51c9f
Use player-chosen team identity for most challenges and scenarios
Wuzzy <Wuzzy2@mail.ru>
parents:
14480
diff
changeset
|
68 |
idx = AddMissionTeam(-1) |
d4aa64f51c9f
Use player-chosen team identity for most challenges and scenarios
Wuzzy <Wuzzy2@mail.ru>
parents:
14480
diff
changeset
|
69 |
playerTeamName = GetTeamName(idx) |
d4aa64f51c9f
Use player-chosen team identity for most challenges and scenarios
Wuzzy <Wuzzy2@mail.ru>
parents:
14480
diff
changeset
|
70 |
player = AddMissionHog(1) |
11009 | 71 |
|
5278 | 72 |
SetGearPosition(player, 3992, 733) |
73 |
SetGearPosition(hh[0], 938, 1369) |
|
74 |
SetGearPosition(hh[1], 1301, 1439) |
|
75 |
SetGearPosition(hh[2], 2093, 447) |
|
76 |
SetGearPosition(hh[3], 2971, 926) |
|
77 |
SetGearPosition(hh[4], 719, 545) |
|
78 |
SetGearPosition(hh[5], 1630, 821) |
|
79 |
SetGearPosition(hh[6], 2191, 810) |
|
80 |
SetGearPosition(hh[7], 3799, 945) |
|
81 |
||
11009 | 82 |
-- Disable all input except [Precise] for the intro |
83 |
SetInputMask(gmPrecise) |
|
5278 | 84 |
end |
85 |
||
86 |
||
87 |
function onGameStart() |
|
14480
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
88 |
cinematic = true |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
89 |
SetCinematicMode(true) |
11009 | 90 |
SendHealthStatsOff() |
5278 | 91 |
|
14480
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
92 |
printMission() |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
93 |
HideMission() |
5278 | 94 |
|
95 |
HogTurnLeft(hh[0], false) |
|
96 |
HogTurnLeft(hh[1], true) |
|
97 |
||
12938
e65aa3c3d4e6
Refactor scripts to use SpawnSupplyCrate (where it makes sense)
Wuzzy <Wuzzy2@mail.ru>
parents:
12351
diff
changeset
|
98 |
SpawnSupplyCrate(148,265,amLowGravity) |
e65aa3c3d4e6
Refactor scripts to use SpawnSupplyCrate (where it makes sense)
Wuzzy <Wuzzy2@mail.ru>
parents:
12351
diff
changeset
|
99 |
SpawnSupplyCrate(2124,1516,amJetpack) |
5278 | 100 |
|
101 |
end |
|
102 |
||
103 |
||
104 |
function onNewTurn() |
|
13755
110d6c1e817f
Lua: Rename globals: NoPointX→NO_CURSOR, cMaxTurnTime→MAX_TURN_TIME, cMaxHogHealth→MAX_HOG_HEALTH
Wuzzy <Wuzzy2@mail.ru>
parents:
13745
diff
changeset
|
105 |
SetTurnTimeLeft(MAX_TURN_TIME) |
5278 | 106 |
end |
107 |
||
108 |
function onGameTick() |
|
109 |
||
110 |
-- intro sequence |
|
111 |
if introStage < 100 then |
|
112 |
||
5823 | 113 |
frig = frig + 1 |
114 |
if frig == 50 then |
|
115 |
frig = 0 |
|
116 |
AddCaption(loc("Press [Precise] to skip intro")) |
|
117 |
if watGear ~= nil then |
|
118 |
FollowGear(watGear) |
|
119 |
end |
|
120 |
end |
|
5278 | 121 |
|
5823 | 122 |
|
123 |
--AddCaption(loc("Press [Precise] to skip intro")) |
|
5278 | 124 |
genCounter = genCounter + 1 |
125 |
||
126 |
if introStage == 0 then |
|
127 |
||
5823 | 128 |
|
129 |
--FollowGear(hh[0]) |
|
5278 | 130 |
|
131 |
if genCounter == 2000 then |
|
5823 | 132 |
watGear = hh[0] |
5278 | 133 |
HogSay(hh[0], loc("This rain is really something..."), SAY_SAY,2) |
134 |
elseif genCounter == 5000 then |
|
135 |
introStage = 1 |
|
136 |
genCounter = 0 |
|
137 |
end |
|
138 |
||
139 |
elseif introStage == 1 then |
|
5823 | 140 |
|
141 |
--FollowGear(hh[1]) |
|
5278 | 142 |
|
143 |
if genCounter == 2000 then |
|
5823 | 144 |
watGear = hh[1] |
5278 | 145 |
HogSay(hh[1], loc("Heh, it's not that bad."), SAY_SAY,2) |
146 |
elseif genCounter == 5000 then |
|
147 |
introStage = 2 |
|
148 |
genCounter = 0 |
|
149 |
end |
|
150 |
||
151 |
elseif introStage == 2 then |
|
152 |
||
5823 | 153 |
--FollowGear(hh[0]) |
5278 | 154 |
|
155 |
if genCounter == 2000 then |
|
5823 | 156 |
watGear = hh[0] |
5278 | 157 |
HogSay(hh[0], loc("You'd almost swear the water was rising!"), SAY_SHOUT,2) |
158 |
elseif genCounter == 6000 then |
|
159 |
introStage = 3 |
|
160 |
genCounter = 0 |
|
161 |
end |
|
162 |
||
163 |
elseif introStage == 3 then |
|
164 |
||
5823 | 165 |
--FollowGear(hh[1]) |
5278 | 166 |
|
167 |
if genCounter == 2000 then |
|
5823 | 168 |
watGear = hh[1] |
5278 | 169 |
HogSay(hh[1], loc("Haha, now THAT would be something!"), SAY_SAY,2) |
170 |
elseif genCounter == 6000 then |
|
171 |
introStage = 4 |
|
172 |
genCounter = 0 |
|
173 |
end |
|
174 |
||
175 |
elseif introStage == 4 then |
|
176 |
||
5823 | 177 |
--FollowGear(hh[0]) |
5278 | 178 |
|
179 |
if genCounter == 2000 then |
|
5823 | 180 |
watGear = hh[0] |
5278 | 181 |
HogSay(hh[0], loc("Hahahaha!"), SAY_SHOUT,2) |
182 |
HogSay(hh[1], loc("Hahahaha!"), SAY_SHOUT,2) |
|
183 |
elseif genCounter == 3000 then |
|
184 |
introStage = 5 |
|
185 |
genCounter = 0 |
|
186 |
end |
|
187 |
||
188 |
elseif introStage == 5 then |
|
189 |
||
5823 | 190 |
--FollowGear(hh[1]) |
5278 | 191 |
|
192 |
if genCounter == 2000 then |
|
5823 | 193 |
watGear = hh[1] |
5278 | 194 |
HogSay(hh[0], loc("..."), SAY_THINK,2) |
195 |
HogSay(hh[1], loc("..."), SAY_THINK,2) |
|
196 |
elseif genCounter == 5000 then |
|
197 |
introStage = 6 |
|
198 |
genCounter = 0 |
|
199 |
end |
|
200 |
||
201 |
elseif introStage == 6 then |
|
202 |
||
5823 | 203 |
--FollowGear(hh[0]) |
5278 | 204 |
|
205 |
if genCounter == 2000 then |
|
5823 | 206 |
watGear = hh[0] |
5278 | 207 |
HogSay(hh[0], loc("It's a good thing SUDDEN DEATH is 99 turns away..."), SAY_THINK,2) |
208 |
elseif genCounter == 6000 then |
|
209 |
introStage = 7 |
|
210 |
genCounter = 0 |
|
211 |
end |
|
212 |
||
213 |
||
214 |
elseif introStage == 7 then |
|
215 |
||
216 |
if genCounter == 2000 then |
|
217 |
introStage = 110 |
|
218 |
FollowGear(CurrentHedgehog) |
|
14487
d4aa64f51c9f
Use player-chosen team identity for most challenges and scenarios
Wuzzy <Wuzzy2@mail.ru>
parents:
14480
diff
changeset
|
219 |
ShowMission(loc("That Sinking Feeling"), loc("User Challenge"), loc("Save as many hogs as possible!"), 4, 0) |
11009 | 220 |
SetInputMask(0xFFFFFFFF) |
5278 | 221 |
end |
222 |
||
223 |
end |
|
224 |
||
225 |
end |
|
226 |
||
227 |
-- start the water rising when the intro is finished |
|
228 |
if introStage == 110 then |
|
229 |
||
11526
dc36fad455f4
add cinematic effect to "sinking feeling" intro sequence
sheepluva
parents:
11266
diff
changeset
|
230 |
if cinematic then |
dc36fad455f4
add cinematic effect to "sinking feeling" intro sequence
sheepluva
parents:
11266
diff
changeset
|
231 |
SetCinematicMode(false) |
dc36fad455f4
add cinematic effect to "sinking feeling" intro sequence
sheepluva
parents:
11266
diff
changeset
|
232 |
cinematic = false |
dc36fad455f4
add cinematic effect to "sinking feeling" intro sequence
sheepluva
parents:
11266
diff
changeset
|
233 |
end |
dc36fad455f4
add cinematic effect to "sinking feeling" intro sequence
sheepluva
parents:
11266
diff
changeset
|
234 |
|
5278 | 235 |
waterCounter = waterCounter + 1 |
236 |
if (waterCounter == 100) and (waterPix < 1615) then |
|
237 |
waterCounter = 0 |
|
238 |
SetTag(AddGear(0, 0, gtWaterUp, 0, 0, 0, 0), 1) |
|
239 |
waterPix = waterPix +1 |
|
240 |
--AddCaption(waterPix) |
|
241 |
||
242 |
if (waterPix >= 1615) and (GameOver == false) then |
|
243 |
GameOver = true |
|
11266
6e1aa1144a2b
- Finally added rus localization for all User Missions
antonc27 <antonc27@mail.ru>
parents:
11009
diff
changeset
|
244 |
AddCaption(loc("The flood has stopped! Challenge over.")) |
11009 | 245 |
SendStat(siGameResult, loc("Challenge completed!")) |
12351
fb22caa19600
Fix incorrect PointsType in sniper rifle training and That Sinking Feeling
Wuzzy <almikes@aol.com>
parents:
12349
diff
changeset
|
246 |
SendStat(siPointType, loc("rescues")) |
14487
d4aa64f51c9f
Use player-chosen team identity for most challenges and scenarios
Wuzzy <Wuzzy2@mail.ru>
parents:
14480
diff
changeset
|
247 |
SendStat(siPlayerKills, tostring(hhCount), playerTeamName) |
5823 | 248 |
|
11009 | 249 |
-- Do not count drowning hedgehogs |
250 |
local hhLeft = hhCount |
|
251 |
for i=1,#hh do |
|
252 |
local isDrowning = band(GetState(hh[i]),gstDrowning) ~= 0 |
|
253 |
if isDrowning then |
|
254 |
hhLeft = hhLeft - 1 |
|
255 |
end |
|
5823 | 256 |
end |
257 |
||
14487
d4aa64f51c9f
Use player-chosen team identity for most challenges and scenarios
Wuzzy <Wuzzy2@mail.ru>
parents:
14480
diff
changeset
|
258 |
SendStat(siCustomAchievement, string.format(loc("You saved %d of 8 hegehogs."), hhLeft)) |
11009 | 259 |
|
14480
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
260 |
-- Update highscore |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
261 |
updateChallengeRecord("Highscore", hhLeft) |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
262 |
|
11009 | 263 |
if hhLeft == 8 then |
14469
ead8928a59f8
Report mission victory for most missions
Wuzzy <Wuzzy2@mail.ru>
parents:
14408
diff
changeset
|
264 |
SaveMissionVar("Won", "true") |
13501
cbda0f842364
Standardize hidden mission achievement in new Lua library "Achievements"
Wuzzy <Wuzzy2@mail.ru>
parents:
12938
diff
changeset
|
265 |
awardAchievement(loc("Lively Lifeguard")) |
11009 | 266 |
end |
267 |
EndGame() |
|
268 |
||
5278 | 269 |
end |
270 |
||
271 |
end |
|
272 |
||
273 |
end |
|
274 |
end |
|
275 |
||
276 |
||
277 |
function onAmmoStoreInit() |
|
278 |
||
279 |
SetAmmo(amBazooka, 9, 0, 0, 0) |
|
280 |
||
281 |
SetAmmo(amRope, 9, 0, 0, 0) |
|
282 |
SetAmmo(amParachute, 9, 0, 0, 0) |
|
283 |
SetAmmo(amJetpack, 2, 0, 0, 2) |
|
284 |
||
285 |
SetAmmo(amGirder, 9, 0, 0, 0) |
|
286 |
SetAmmo(amBaseballBat, 9, 0, 0, 0) |
|
287 |
||
288 |
SetAmmo(amTeleport, 1, 0, 0, 1) |
|
289 |
SetAmmo(amPortalGun, 3, 0, 0, 1) |
|
290 |
||
291 |
SetAmmo(amLowGravity, 0, 0, 0, 1) |
|
292 |
||
293 |
end |
|
294 |
||
295 |
function onGearDelete(gear) |
|
296 |
||
297 |
if GetGearType(gear) == gtHedgehog then |
|
14487
d4aa64f51c9f
Use player-chosen team identity for most challenges and scenarios
Wuzzy <Wuzzy2@mail.ru>
parents:
14480
diff
changeset
|
298 |
if GetHogTeamName(gear) == haplessTeamName then |
5278 | 299 |
hhCount = hhCount - 1 |
14487
d4aa64f51c9f
Use player-chosen team identity for most challenges and scenarios
Wuzzy <Wuzzy2@mail.ru>
parents:
14480
diff
changeset
|
300 |
AddCaption(string.format(loc("Hedgehogs left: %d"), hhCount)) |
5278 | 301 |
end |
302 |
end |
|
303 |
||
304 |
if ((gear == player) or (hhCount == 0)) and (GameOver == false) then |
|
305 |
SetHealth(player, 0) |
|
11009 | 306 |
AddCaption(loc("Disqualified!")) |
307 |
if gear == player then |
|
308 |
SendStat(siCustomAchievement, loc("Your hedgehog died!")) |
|
309 |
SendStat(siCustomAchievement, loc("You must survive the flood in order to score.")) |
|
310 |
else |
|
311 |
SendStat(siCustomAchievement, loc("You haven't rescued anyone.")) |
|
312 |
end |
|
12351
fb22caa19600
Fix incorrect PointsType in sniper rifle training and That Sinking Feeling
Wuzzy <almikes@aol.com>
parents:
12349
diff
changeset
|
313 |
SendStat(siPointType, loc("points")) |
14487
d4aa64f51c9f
Use player-chosen team identity for most challenges and scenarios
Wuzzy <Wuzzy2@mail.ru>
parents:
14480
diff
changeset
|
314 |
SendStat(siPlayerKills, "0", playerTeamName) |
14480
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
315 |
local highscore = tonumber(GetMissionVar("Highscore")) |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
316 |
show = (type(highscore) == "number") and (highscore > 0) |
2113296b7a29
Keep track of singleplayer high scores in challenges
Wuzzy <Wuzzy2@mail.ru>
parents:
14469
diff
changeset
|
317 |
updateChallengeRecord("Highscore", 0, show) |
11009 | 318 |
|
319 |
SendStat(siGameResult, loc("Disqualified!")) |
|
5278 | 320 |
GameOver = true |
11009 | 321 |
EndGame() |
5278 | 322 |
end |
323 |
||
324 |
end |