1 /* ScummVM - Graphic Adventure Engine
2  *
3  * ScummVM is the legal property of its developers, whose names
4  * are too numerous to list here. Please refer to the COPYRIGHT
5  * file distributed with this source distribution.
6  *
7  * This program is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU General Public License
9  * as published by the Free Software Foundation; either version 2
10  * of the License, or (at your option) any later version.
11  *
12  * This program is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
20  *
21  */
22 
23 #include "lastexpress/entities/alouan.h"
24 
25 #include "lastexpress/game/entities.h"
26 #include "lastexpress/game/logic.h"
27 #include "lastexpress/game/object.h"
28 #include "lastexpress/game/savepoint.h"
29 #include "lastexpress/game/state.h"
30 
31 #include "lastexpress/lastexpress.h"
32 
33 namespace LastExpress {
34 
Alouan(LastExpressEngine * engine)35 Alouan::Alouan(LastExpressEngine *engine) : Entity(engine, kEntityAlouan) {
36 	ADD_CALLBACK_FUNCTION(Alouan, reset);
37 	ADD_CALLBACK_FUNCTION_SI(Alouan, enterExitCompartment);
38 	ADD_CALLBACK_FUNCTION_S(Alouan, playSound);
39 	ADD_CALLBACK_FUNCTION_I(Alouan, updateFromTime);
40 	ADD_CALLBACK_FUNCTION_II(Alouan, updateEntity);
41 	ADD_CALLBACK_FUNCTION(Alouan, peekF);
42 	ADD_CALLBACK_FUNCTION(Alouan, peekH);
43 	ADD_CALLBACK_FUNCTION(Alouan, goFtoH);
44 	ADD_CALLBACK_FUNCTION(Alouan, goHtoF);
45 	ADD_CALLBACK_FUNCTION(Alouan, chapter1);
46 	ADD_CALLBACK_FUNCTION(Alouan, chapter1Handler);
47 	ADD_CALLBACK_FUNCTION(Alouan, function12);
48 	ADD_CALLBACK_FUNCTION(Alouan, chapter2);
49 	ADD_CALLBACK_FUNCTION(Alouan, chapter2Handler);
50 	ADD_CALLBACK_FUNCTION(Alouan, chapter3);
51 	ADD_CALLBACK_FUNCTION(Alouan, chapter3Handler);
52 	ADD_CALLBACK_FUNCTION(Alouan, chapter4);
53 	ADD_CALLBACK_FUNCTION(Alouan, chapter4Handler);
54 	ADD_CALLBACK_FUNCTION(Alouan, function19);
55 	ADD_CALLBACK_FUNCTION(Alouan, chapter5);
56 	ADD_CALLBACK_FUNCTION(Alouan, chapter5Handler);
57 	ADD_CALLBACK_FUNCTION(Alouan, function22);
58 	ADD_CALLBACK_FUNCTION(Alouan, hiding);
59 	ADD_NULL_FUNCTION();
60 }
61 
62 //////////////////////////////////////////////////////////////////////////
63 IMPLEMENT_FUNCTION(1, Alouan, reset)
64 	Entity::reset(savepoint);
65 IMPLEMENT_FUNCTION_END
66 
67 //////////////////////////////////////////////////////////////////////////
68 IMPLEMENT_FUNCTION_SI(2, Alouan, enterExitCompartment, ObjectIndex)
69 	Entity::enterExitCompartment(savepoint);
70 IMPLEMENT_FUNCTION_END
71 
72 //////////////////////////////////////////////////////////////////////////
73 IMPLEMENT_FUNCTION_S(3, Alouan, playSound)
74 	Entity::playSound(savepoint);
75 IMPLEMENT_FUNCTION_END
76 
77 //////////////////////////////////////////////////////////////////////////
78 IMPLEMENT_FUNCTION_I(4, Alouan, updateFromTime, uint32)
79 	Entity::updateFromTime(savepoint);
80 IMPLEMENT_FUNCTION_END
81 
82 //////////////////////////////////////////////////////////////////////////
83 IMPLEMENT_FUNCTION_II(5, Alouan, updateEntity, CarIndex, EntityPosition)
84 	Entity::updateEntity(savepoint, true);
85 IMPLEMENT_FUNCTION_END
86 
87 //////////////////////////////////////////////////////////////////////////
88 IMPLEMENT_FUNCTION(6, Alouan, peekF)
89 	Entity::goToCompartment(savepoint, kObjectCompartment6, kPosition_4070, "621Cf", "621Df");
90 IMPLEMENT_FUNCTION_END
91 
92 //////////////////////////////////////////////////////////////////////////
93 IMPLEMENT_FUNCTION(7, Alouan, peekH)
94 	Entity::goToCompartment(savepoint, kObjectCompartment8, kPosition_2740, "621Ch", "621Dh");
95 IMPLEMENT_FUNCTION_END
96 
97 //////////////////////////////////////////////////////////////////////////
98 IMPLEMENT_FUNCTION(8, Alouan, goFtoH)
99 	Entity::goToCompartmentFromCompartment(savepoint, kObjectCompartment6, kPosition_4070, "621Bf", kObjectCompartment8, kPosition_2740, "621Ah");
100 IMPLEMENT_FUNCTION_END
101 
102 //////////////////////////////////////////////////////////////////////////
103 IMPLEMENT_FUNCTION(9, Alouan, goHtoF)
104 	Entity::goToCompartmentFromCompartment(savepoint, kObjectCompartment8, kPosition_2740, "621Bh", kObjectCompartment6, kPosition_4070, "621Af");
105 IMPLEMENT_FUNCTION_END
106 
107 //////////////////////////////////////////////////////////////////////////
108 IMPLEMENT_FUNCTION(10, Alouan, chapter1)
109 	switch (savepoint.action) {
110 	default:
111 		break;
112 
113 	case kActionNone:
114 		Entity::timeCheck(kTimeChapter1, params->param1, WRAP_SETUP_FUNCTION(Alouan, setup_chapter1Handler));
115 		break;
116 
117 	case kActionDefault:
118 		getData()->entityPosition = kPosition_2740;
119 		getData()->location = kLocationInsideCompartment;
120 		getData()->car = kCarGreenSleeping;
121 
122 		break;
123 	}
124 IMPLEMENT_FUNCTION_END
125 
126 //////////////////////////////////////////////////////////////////////////
127 IMPLEMENT_FUNCTION(11, Alouan, chapter1Handler)
128 	switch (savepoint.action) {
129 	default:
130 		break;
131 
132 	case kActionNone:
133 
134 		if (Entity::timeCheckCallback(kTime1096200, params->param1, 1, WRAP_SETUP_FUNCTION(Alouan, setup_goHtoF)))
135 			break;
136 
137 label_callback1:
138 		if (getState()->time > kTime1162800 && !params->param2) {
139 			params->param2 = 1;
140 			getSavePoints()->push(kEntityAlouan, kEntityTrain, kAction191070912, kPosition_4070);
141 			getData()->entityPosition = kPosition_4070;
142 		}
143 
144 		if (getState()->time > kTime1179000 && !params->param3) {
145 			params->param3 = 1;
146 			getSavePoints()->push(kEntityAlouan, kEntityTrain, kAction191070912, kPosition_4840);
147 
148 			setCallback(2);
149 			setup_goFtoH();
150 		}
151 		break;
152 
153 	case kActionCallback:
154 		switch (getCallback()) {
155 		default:
156 			break;
157 
158 		case 1:
159 			getData()->entityPosition = kPosition_4840;
160 			goto label_callback1;
161 		}
162 		break;
163 	}
164 IMPLEMENT_FUNCTION_END
165 
166 //////////////////////////////////////////////////////////////////////////
167 IMPLEMENT_FUNCTION(12, Alouan, function12)
168 	if (savepoint.action == kActionDefault) {
169 		getObjects()->update(kObjectCompartment7, kEntityPlayer, kObjectLocation3, kCursorHandKnock, kCursorHand);
170 		getObjects()->update(kObjectCompartment5, kEntityPlayer, kObjectLocation3, kCursorHandKnock, kCursorHand);
171 
172 		getData()->entityPosition = kPosition_4070;
173 		getData()->location = kLocationInsideCompartment;
174 		getData()->car = kCarGreenSleeping;
175 
176 		getEntities()->clearSequences(kEntityAlouan);
177 	}
178 IMPLEMENT_FUNCTION_END
179 
180 //////////////////////////////////////////////////////////////////////////
181 IMPLEMENT_FUNCTION(13, Alouan, chapter2)
182 	if (savepoint.action != kActionDefault)
183 		return;
184 
185 	getEntities()->clearSequences(kEntityAlouan);
186 
187 	getData()->entityPosition = kPosition_2740;
188 	getData()->location = kLocationInsideCompartment;
189 	getData()->car = kCarGreenSleeping;
190 	getData()->clothes = kClothesDefault;
191 	getData()->inventoryItem = kItemNone;
192 
193 	setup_chapter2Handler();
194 IMPLEMENT_FUNCTION_END
195 
196 //////////////////////////////////////////////////////////////////////////
197 IMPLEMENT_FUNCTION(14, Alouan, chapter2Handler)
198 	switch (savepoint.action) {
199 	default:
200 		break;
201 
202 	case kActionNone:
203 		if (params->param2 == kTimeInvalid)
204 			break;
205 
206 		if (getState()->time <= kTime1777500) {
207 			if (!getEntities()->isPlayerInCar(kCarGreenSleeping) || !params->param2)
208 				params->param2 = (uint)getState()->time + 75;
209 
210 			if (params->param2 >= getState()->time)
211 				break;
212 		}
213 
214 		params->param2 = kTimeInvalid;
215 
216 		setCallback(params->param1 ? 1 : 2);
217 		if (params->param1)
218 			setup_peekH();
219 		else
220 			setup_peekF();
221 		break;
222 
223 	case kActionDefault:
224 		getSavePoints()->push(kEntityAlouan, kEntityTrain, kAction191070912, kPosition_4840);
225 		params->param1 = 1;
226 		break;
227 
228 	case kActionCallback:
229 		switch (getCallback()) {
230 		default:
231 			break;
232 
233 		case 3:
234 			params->param1 = 0;
235 			setCallback(4);
236 			setup_playSound("Har2011");
237 			break;
238 
239 		case 4:
240 			setCallback(5);
241 			setup_updateFromTime(900);
242 			break;
243 
244 		case 5:
245 			getSavePoints()->push(kEntityAlouan, kEntityFrancois, kAction190219584);
246 			break;
247 		}
248 		break;
249 
250 	case kAction189489753:
251 		setCallback(3);
252 		setup_goHtoF();
253 		break;
254 	}
255 IMPLEMENT_FUNCTION_END
256 
257 //////////////////////////////////////////////////////////////////////////
258 IMPLEMENT_FUNCTION(15, Alouan, chapter3)
259 	switch (savepoint.action) {
260 	default:
261 		break;
262 
263 	case kActionNone:
264 		setup_chapter3Handler();
265 		break;
266 
267 	case kActionDefault:
268 		getEntities()->clearSequences(kEntityAlouan);
269 
270 		getData()->entityPosition = kPosition_2740;
271 		getData()->location = kLocationInsideCompartment;
272 		getData()->car = kCarGreenSleeping;
273 
274 		break;
275 	}
276 IMPLEMENT_FUNCTION_END
277 
278 //////////////////////////////////////////////////////////////////////////
279 IMPLEMENT_FUNCTION(16, Alouan, chapter3Handler)
280 	switch (savepoint.action) {
281 	default:
282 		break;
283 
284 	case kActionNone:
285 		if (Entity::timeCheckCallback(kTimeCitySalzbourg, params->param1, 1, WRAP_SETUP_FUNCTION(Alouan, setup_goHtoF)))
286 			break;
287 
288 label_callback1:
289 		if (params->param2 != kTimeInvalid && getState()->time > kTime1989000) {
290 			if (Entity::timeCheckCar(kTime2119500, params->param2, 2, WRAP_SETUP_FUNCTION(Alouan, setup_peekF)))
291 				break;
292 		}
293 
294 label_callback2:
295 		if (Entity::timeCheckCallback(kTime2052000, params->param3, 3, "Har1005", WRAP_SETUP_FUNCTION_S(Alouan, setup_playSound)))
296 			break;
297 
298 label_callback3:
299 		if (Entity::timeCheckCallback(kTime2133000, params->param4, 4, WRAP_SETUP_FUNCTION(Alouan, setup_goFtoH)))
300 			break;
301 
302 label_callback4:
303 		if (params->param5 != kTimeInvalid && getState()->time > kTime2151000) {
304 			if (Entity::timeCheckCar(kTime2241000, params->param5, 5, WRAP_SETUP_FUNCTION(Alouan, setup_peekH)))
305 				break;
306 		}
307 		break;
308 
309 	case kActionDefault:
310 		getSavePoints()->push(kEntityAlouan, kEntityTrain, kAction191070912, kPosition_4840);
311 		break;
312 
313 	case kActionCallback:
314 		switch (getCallback()) {
315 		default:
316 			break;
317 
318 		case 1:
319 			getData()->entityPosition = kPosition_4840;
320 			goto label_callback1;
321 
322 		case 2:
323 			goto label_callback2;
324 
325 		case 3:
326 			goto label_callback3;
327 
328 		case 4:
329 			goto label_callback4;
330 		}
331 		break;
332 	}
333 IMPLEMENT_FUNCTION_END
334 
335 //////////////////////////////////////////////////////////////////////////
336 IMPLEMENT_FUNCTION(17, Alouan, chapter4)
337 	switch (savepoint.action) {
338 	default:
339 		break;
340 
341 	case kActionNone:
342 		setup_chapter4Handler();
343 		break;
344 
345 	case kActionDefault:
346 		getEntities()->clearSequences(kEntityAlouan);
347 
348 		getData()->entityPosition = kPosition_2740;
349 		getData()->location = kLocationInsideCompartment;
350 		getData()->car = kCarGreenSleeping;
351 
352 		break;
353 	}
354 IMPLEMENT_FUNCTION_END
355 
356 //////////////////////////////////////////////////////////////////////////
357 IMPLEMENT_FUNCTION(18, Alouan, chapter4Handler)
358 	switch (savepoint.action) {
359 	default:
360 		break;
361 
362 	case kActionNone:
363 		if (params->param1 != kTimeInvalid) {
364 			if (Entity::timeCheckCar(kTime2443500, params->param1, 1, WRAP_SETUP_FUNCTION(Alouan, setup_peekH)))
365 				break;
366 		}
367 
368 label_callback1:
369 		if (Entity::timeCheckCallback(kTime2455200, params->param2, 2, WRAP_SETUP_FUNCTION(Alouan, setup_goHtoF)))
370 			break;
371 
372 label_callback2:
373 		if (getState()->time > kTime2475000 && !params->param3) {
374 			params->param3 = 1;
375 			getSavePoints()->push(kEntityAlouan, kEntityTrain, kAction191070912, kPosition_4840);
376 
377 			setCallback(3);
378 			setup_goFtoH();
379 		}
380 		break;
381 
382 	case kActionDefault:
383 		getSavePoints()->push(kEntityAlouan, kEntityTrain, kAction191070912, kPosition_4840);
384 		break;
385 
386 	case kActionCallback:
387 		switch (getCallback()) {
388 		default:
389 			break;
390 
391 		case 1:
392 			goto label_callback1;
393 
394 		case 2:
395 			getSavePoints()->push(kEntityAlouan, kEntityTrain, kAction191070912, kPosition_4070);
396 			goto label_callback2;
397 		}
398 		break;
399 	}
400 IMPLEMENT_FUNCTION_END
401 
402 //////////////////////////////////////////////////////////////////////////
403 IMPLEMENT_FUNCTION(19, Alouan, function19)
404 	if (savepoint.action == kActionDefault) {
405 		getObjects()->update(kObjectCompartment7, kEntityPlayer, kObjectLocation3, kCursorHandKnock, kCursorHand);
406 		getObjects()->update(kObjectCompartment5, kEntityPlayer, kObjectLocation3, kCursorHandKnock, kCursorHand);
407 
408 		getData()->entityPosition = kPosition_2740;
409 		getData()->location = kLocationInsideCompartment;
410 		getData()->car = kCarGreenSleeping;
411 
412 		getEntities()->clearSequences(kEntityAlouan);
413 	}
414 IMPLEMENT_FUNCTION_END
415 
416 //////////////////////////////////////////////////////////////////////////
417 IMPLEMENT_FUNCTION(20, Alouan, chapter5)
418 	switch (savepoint.action) {
419 	default:
420 		break;
421 
422 	case kActionNone:
423 		setup_chapter5Handler();
424 		break;
425 
426 	case kActionDefault:
427 		getEntities()->clearSequences(kEntityAlouan);
428 
429 		getData()->entityPosition = kPosition_3969;
430 		getData()->location = kLocationInsideCompartment;
431 		getData()->car = kCarRestaurant;
432 		getData()->clothes = kClothesDefault;
433 		getData()->inventoryItem = kItemNone;
434 
435 		break;
436 	}
437 IMPLEMENT_FUNCTION_END
438 
439 //////////////////////////////////////////////////////////////////////////
440 IMPLEMENT_FUNCTION(21, Alouan, chapter5Handler)
441 	if (savepoint.action == kActionProceedChapter5)
442 		setup_function22();
443 IMPLEMENT_FUNCTION_END
444 
445 //////////////////////////////////////////////////////////////////////////
446 IMPLEMENT_FUNCTION(22, Alouan, function22)
447 	switch (savepoint.action) {
448 	default:
449 		break;
450 
451 	case kActionNone:
452 		if (!Entity::updateParameter(params->param1, getState()->time, 2700))
453 			break;
454 
455 		setup_hiding();
456 		break;
457 
458 	case kActionDefault:
459 		getData()->entityPosition = kPosition_5000;
460 		getData()->location = kLocationOutsideCompartment;
461 		getData()->car = kCarGreenSleeping;
462 		break;
463 
464 	case kActionDrawScene:
465 		if (getEntities()->isInsideTrainCar(kEntityPlayer, kCarGreenSleeping))
466 			setup_hiding();
467 		break;
468 	}
469 IMPLEMENT_FUNCTION_END
470 
471 //////////////////////////////////////////////////////////////////////////
472 IMPLEMENT_FUNCTION(23, Alouan, hiding)
473 	switch (savepoint.action) {
474 	default:
475 		break;
476 
477 	case kActionDefault:
478 		setCallback(1);
479 		setup_updateEntity(kCarGreenSleeping, kPosition_4070);
480 		break;
481 
482 	case kActionCallback:
483 		switch (getCallback()) {
484 		default:
485 			break;
486 
487 		case 1:
488 			setCallback(2);
489 			setup_enterExitCompartment("619AF", kObjectCompartment6);
490 			break;
491 
492 		case 2:
493 			getEntities()->clearSequences(kEntityAlouan);
494 
495 			getData()->entityPosition = kPosition_4070;
496 			getData()->location = kLocationInsideCompartment;
497 
498 			getObjects()->update(kObjectCompartment6, kEntityPlayer, kObjectLocation1, kCursorHandKnock, kCursorHand);
499 			break;
500 		}
501 		break;
502 
503 	case kAction135800432:
504 		setup_nullfunction();
505 		break;
506 	}
507 IMPLEMENT_FUNCTION_END
508 
509 //////////////////////////////////////////////////////////////////////////
510 IMPLEMENT_NULL_FUNCTION(24, Alouan)
511 
512 } // End of namespace LastExpress
513