]> git.zerfleddert.de Git - micropolis/blob - src/sim/w_sprite.c
Enable warnings and fix them, all of them
[micropolis] / src / sim / w_sprite.c
1 /* w_sprite.c
2 *
3 * Micropolis, Unix Version. This game was released for the Unix platform
4 * in or about 1990 and has been modified for inclusion in the One Laptop
5 * Per Child program. Copyright (C) 1989 - 2007 Electronic Arts Inc. If
6 * you need assistance with this program, you may contact:
7 * http://wiki.laptop.org/go/Micropolis or email micropolis@laptop.org.
8 *
9 * This program is free software: you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation, either version 3 of the License, or (at
12 * your option) any later version.
13 *
14 * This program is distributed in the hope that it will be useful, but
15 * WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * General Public License for more details. You should have received a
18 * copy of the GNU General Public License along with this program. If
19 * not, see <http://www.gnu.org/licenses/>.
20 *
21 * ADDITIONAL TERMS per GNU GPL Section 7
22 *
23 * No trademark or publicity rights are granted. This license does NOT
24 * give you any right, title or interest in the trademark SimCity or any
25 * other Electronic Arts trademark. You may not distribute any
26 * modification of this program using the trademark SimCity or claim any
27 * affliation or association with Electronic Arts Inc. or its employees.
28 *
29 * Any propagation or conveyance of this program must include this
30 * copyright notice and these terms.
31 *
32 * If you convey this program (or any modifications of it) and assume
33 * contractual liability for the program to recipients of it, you agree
34 * to indemnify Electronic Arts for any liability that those contractual
35 * assumptions impose on Electronic Arts.
36 *
37 * You may not misrepresent the origins of this program; modified
38 * versions of the program must be marked as such and not identified as
39 * the original program.
40 *
41 * This disclaimer supplements the one included in the General Public
42 * License. TO THE FULLEST EXTENT PERMISSIBLE UNDER APPLICABLE LAW, THIS
43 * PROGRAM IS PROVIDED TO YOU "AS IS," WITH ALL FAULTS, WITHOUT WARRANTY
44 * OF ANY KIND, AND YOUR USE IS AT YOUR SOLE RISK. THE ENTIRE RISK OF
45 * SATISFACTORY QUALITY AND PERFORMANCE RESIDES WITH YOU. ELECTRONIC ARTS
46 * DISCLAIMS ANY AND ALL EXPRESS, IMPLIED OR STATUTORY WARRANTIES,
47 * INCLUDING IMPLIED WARRANTIES OF MERCHANTABILITY, SATISFACTORY QUALITY,
48 * FITNESS FOR A PARTICULAR PURPOSE, NONINFRINGEMENT OF THIRD PARTY
49 * RIGHTS, AND WARRANTIES (IF ANY) ARISING FROM A COURSE OF DEALING,
50 * USAGE, OR TRADE PRACTICE. ELECTRONIC ARTS DOES NOT WARRANT AGAINST
51 * INTERFERENCE WITH YOUR ENJOYMENT OF THE PROGRAM; THAT THE PROGRAM WILL
52 * MEET YOUR REQUIREMENTS; THAT OPERATION OF THE PROGRAM WILL BE
53 * UNINTERRUPTED OR ERROR-FREE, OR THAT THE PROGRAM WILL BE COMPATIBLE
54 * WITH THIRD PARTY SOFTWARE OR THAT ANY ERRORS IN THE PROGRAM WILL BE
55 * CORRECTED. NO ORAL OR WRITTEN ADVICE PROVIDED BY ELECTRONIC ARTS OR
56 * ANY AUTHORIZED REPRESENTATIVE SHALL CREATE A WARRANTY. SOME
57 * JURISDICTIONS DO NOT ALLOW THE EXCLUSION OF OR LIMITATIONS ON IMPLIED
58 * WARRANTIES OR THE LIMITATIONS ON THE APPLICABLE STATUTORY RIGHTS OF A
59 * CONSUMER, SO SOME OR ALL OF THE ABOVE EXCLUSIONS AND LIMITATIONS MAY
60 * NOT APPLY TO YOU.
61 */
62 #include "sim.h"
63
64
65 Tcl_HashTable SpriteCmds;
66 short CrashX, CrashY;
67 int absDist;
68 short Cycle;
69
70 SimSprite *GlobalSprites[OBJN];
71
72 SimSprite *NewSprite(char *name, int type, int x, int y);
73 void MonsterHere(int x, int y);
74 void MakeShipHere(int x, int y);
75 void StartFire(int x, int y);
76 void OFireZone(int Xloc, int Yloc, int ch);
77 void Destroy(int ox, int oy);
78 void ExplodeSprite(SimSprite *sprite);
79 int CanDriveOn(int x, int y);
80 void DoBusSprite(SimSprite *sprite);
81 void DoExplosionSprite(SimSprite *sprite);
82 void DoTornadoSprite(SimSprite *sprite);
83 void DoMonsterSprite(SimSprite *sprite);
84 void DoShipSprite(SimSprite *sprite);
85 void DoAirplaneSprite(SimSprite *sprite);
86 void DoCopterSprite(SimSprite *sprite);
87 void DoTrainSprite(SimSprite *sprite);
88 void DrawSprite(SimView *view, SimSprite *sprite);
89 void InitSprite(SimSprite *sprite, int x, int y);
90
91
92 #define TRA_GROOVE_X -39
93 #define TRA_GROOVE_Y 6
94 #define BUS_GROOVE_X -39
95 #define BUS_GROOVE_Y 6
96
97 #define SPRITECMD_ACCESS_INT(var) \
98 int SpriteCmd##var(SPRITE_ARGS) { \
99 int val; \
100 if ((argc != 2) && (argc != 3)) return (TCL_ERROR); \
101 if (argc == 3) { \
102 if (Tcl_GetInt(interp, argv[2], &val) != TCL_OK) return (TCL_ERROR); \
103 sprite->var = val; \
104 } \
105 sprintf(interp->result, "%d", sprite->var); \
106 return (TCL_OK); \
107 }
108
109
110 #define SPRITECMD_GET_STR(var) \
111 int SpriteCmd##var(SPRITE_ARGS) { \
112 sprintf(interp->result, "%s", sprite->var); \
113 return (TCL_OK); \
114 }
115
116
117 int
118 DoSpriteCmd(CLIENT_ARGS)
119 {
120 SimSprite *sprite = (SimSprite *) clientData;
121 Tcl_HashEntry *ent;
122 int result = TCL_OK;
123 int (*cmd)();
124
125 if (argc < 2) {
126 return TCL_ERROR;
127 }
128
129 if ((ent = Tcl_FindHashEntry(&SpriteCmds, argv[1]))) {
130 cmd = (int (*)())ent->clientData;
131 Tk_Preserve((ClientData) sprite);
132 result = cmd(sprite, interp, argc, argv);
133 Tk_Release((ClientData) sprite);
134 } else {
135 Tcl_AppendResult(interp, "unknown command name: \"",
136 argv[0], " ", argv[1], "\".", (char *) NULL);
137 result = TCL_ERROR;
138 }
139 return result;
140 }
141
142
143 int
144 SpriteCmd(CLIENT_ARGS)
145 {
146 SimSprite *sprite;
147 int type;
148
149 if ((argc != 3) ||
150 (Tcl_GetInt(interp, argv[2], &type) != TCL_OK) ||
151 (type < 1) || (type >= OBJN)) {
152 return TCL_ERROR;
153 }
154
155 sprite = NewSprite(argv[1], type, 0, 0);
156 sprite->frame = 0;
157
158 Tcl_CreateCommand(interp, sprite->name,
159 DoSpriteCmd, (ClientData) sprite, (void (*)()) NULL);
160
161 interp->result = sprite->name;
162 return TCL_OK;
163 }
164
165
166 SPRITECMD_GET_STR(name)
167 SPRITECMD_ACCESS_INT(type)
168 SPRITECMD_ACCESS_INT(frame)
169 SPRITECMD_ACCESS_INT(x)
170 SPRITECMD_ACCESS_INT(y)
171 SPRITECMD_ACCESS_INT(width)
172 SPRITECMD_ACCESS_INT(height)
173 SPRITECMD_ACCESS_INT(x_offset)
174 SPRITECMD_ACCESS_INT(y_offset)
175 SPRITECMD_ACCESS_INT(x_hot)
176 SPRITECMD_ACCESS_INT(y_hot)
177 SPRITECMD_ACCESS_INT(orig_x)
178 SPRITECMD_ACCESS_INT(orig_y)
179 SPRITECMD_ACCESS_INT(dest_x)
180 SPRITECMD_ACCESS_INT(dest_y)
181 SPRITECMD_ACCESS_INT(count)
182 SPRITECMD_ACCESS_INT(sound_count)
183 SPRITECMD_ACCESS_INT(dir)
184 SPRITECMD_ACCESS_INT(new_dir)
185 SPRITECMD_ACCESS_INT(step)
186 SPRITECMD_ACCESS_INT(flag)
187 SPRITECMD_ACCESS_INT(control)
188 SPRITECMD_ACCESS_INT(turn)
189 SPRITECMD_ACCESS_INT(accel)
190 SPRITECMD_ACCESS_INT(speed)
191
192
193 int SpriteCmdExplode(SPRITE_ARGS)
194 {
195 ExplodeSprite(sprite);
196 return TCL_OK;
197 }
198
199
200 int SpriteCmdInit(SPRITE_ARGS)
201 {
202 int x, y;
203
204 if (argc != 4) {
205 return (TCL_ERROR);
206 }
207 if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK) ||
208 (x < 0) || (x >= (WORLD_X <<4)) ||
209 (Tcl_GetInt(interp, argv[3], &y) != TCL_OK) ||
210 (y < 0) || (y >= (WORLD_Y <<4))) {
211 return (TCL_ERROR);
212 }
213 InitSprite(sprite, x, y);
214 return TCL_OK;
215 }
216
217
218 void
219 sprite_command_init(void)
220 {
221 int i;
222
223 Tcl_CreateCommand(tk_mainInterp, "sprite", SpriteCmd,
224 (ClientData)NULL, (void (*)()) NULL);
225
226 Tcl_InitHashTable(&SpriteCmds, TCL_STRING_KEYS);
227
228 #define SPRITE_CMD(cmd) HASHED_CMD(Sprite, cmd)
229
230 SPRITE_CMD(name);
231 SPRITE_CMD(type);
232 SPRITE_CMD(frame);
233 SPRITE_CMD(x);
234 SPRITE_CMD(y);
235 SPRITE_CMD(width);
236 SPRITE_CMD(height);
237 SPRITE_CMD(x_offset);
238 SPRITE_CMD(y_offset);
239 SPRITE_CMD(x_hot);
240 SPRITE_CMD(y_hot);
241 SPRITE_CMD(orig_x);
242 SPRITE_CMD(orig_y);
243 SPRITE_CMD(dest_x);
244 SPRITE_CMD(dest_y);
245 SPRITE_CMD(count);
246 SPRITE_CMD(sound_count);
247 SPRITE_CMD(dir);
248 SPRITE_CMD(new_dir);
249 SPRITE_CMD(step);
250 SPRITE_CMD(flag);
251 SPRITE_CMD(control);
252 SPRITE_CMD(turn);
253 SPRITE_CMD(accel);
254 SPRITE_CMD(speed);
255 SPRITE_CMD(Explode);
256 SPRITE_CMD(Init);
257
258 for (i = 0; i < OBJN; i++) {
259 GlobalSprites[i] = NULL;
260 }
261 }
262
263
264 SimSprite *FreeSprites = NULL;
265
266 SimSprite *
267 NewSprite(char *name, int type, int x, int y)
268 {
269 SimSprite *sprite;
270
271 if (FreeSprites) {
272 sprite = FreeSprites;
273 FreeSprites = sprite->next;
274 } else {
275 sprite = (SimSprite *)ckalloc(sizeof (SimSprite));
276 }
277
278 sprite->name = (char *)ckalloc(strlen(name) + 1);
279 strcpy(sprite->name, name);
280 sprite->type = type;
281
282 InitSprite(sprite, x, y);
283
284 sim->sprites++; sprite->next = sim->sprite; sim->sprite = sprite;
285
286 return sprite;
287 }
288
289
290 void
291 InitSprite(SimSprite *sprite, int x, int y)
292 {
293 sprite->x = x; sprite->y = y;
294 sprite->frame = 0;
295 sprite->orig_x = sprite->orig_y = 0;
296 sprite->dest_x = sprite->dest_y = 0;
297 sprite->count = sprite->sound_count = 0;
298 sprite->dir = sprite->new_dir = 0;
299 sprite->step = sprite->flag = 0;
300 sprite->control = -1;
301 sprite->turn = 0;
302 sprite->accel = 0;
303 sprite->speed = 100;
304
305 if (GlobalSprites[sprite->type] == NULL) {
306 GlobalSprites[sprite->type] = sprite;
307 }
308
309 switch (sprite->type) {
310
311 case TRA:
312 sprite->width = sprite->height = 32;
313 sprite->x_offset = 32; sprite->y_offset = -16;
314 sprite->x_hot = 40; sprite->y_hot = -8;
315 sprite->frame = 1;
316 sprite->dir = 4;
317 break;
318
319 case SHI:
320 sprite->width = sprite->height = 48;
321 sprite->x_offset = 32; sprite->y_offset = -16;
322 sprite->x_hot = 48; sprite->y_hot = 0;
323 if (x < (4 <<4)) sprite->frame = 3;
324 else if (x >= ((WORLD_X - 4) <<4)) sprite->frame = 7;
325 else if (y < (4 <<4)) sprite->frame = 5;
326 else if (y >= ((WORLD_Y - 4) <<4)) sprite->frame = 1;
327 else sprite->frame = 3;
328 sprite->new_dir = sprite->frame;
329 sprite->dir = 10;
330 sprite->count = 1;
331 break;
332
333 case GOD:
334 sprite->width = sprite->height = 48;
335 sprite->x_offset = 24; sprite->y_offset = 0;
336 sprite->x_hot = 40; sprite->y_hot = 16;
337 if (x > ((WORLD_X <<4) / 2)) {
338 if (y > ((WORLD_Y <<4) / 2)) sprite->frame = 10;
339 else sprite->frame = 7;
340 } else if (y > ((WORLD_Y <<4) / 2)) sprite->frame = 1;
341 else sprite->frame = 4;
342 sprite->count = 1000;
343 sprite->dest_x = PolMaxX <<4;
344 sprite->dest_y = PolMaxY <<4;
345 sprite->orig_x = sprite->x;
346 sprite->orig_y = sprite->y;
347 break;
348
349 case COP:
350 sprite->width = sprite->height = 32;
351 sprite->x_offset = 32; sprite->y_offset = -16;
352 sprite->x_hot = 40; sprite->y_hot = -8;
353 sprite->frame = 5;
354 sprite->count = 1500;
355 sprite->dest_x = Rand((WORLD_X <<4) - 1);
356 sprite->dest_y = Rand((WORLD_Y <<4) - 1);
357 sprite->orig_x = x - 30;
358 sprite->orig_y = y;
359 break;
360
361 case AIR:
362 sprite->width = sprite->height = 48;
363 sprite->x_offset = 24; sprite->y_offset = 0;
364 sprite->x_hot = 48; sprite->y_hot = 16;
365 if (x > ((WORLD_X - 20) <<4)) {
366 sprite->x -= 100 + 48;
367 sprite->dest_x = sprite->x - 200;
368 sprite->frame = 7;
369 } else {
370 sprite->dest_x = sprite->x + 200;
371 sprite->frame = 11;
372 }
373 sprite->dest_y = sprite->y;
374 break;
375
376 case TOR:
377 sprite->width = sprite->height = 48;
378 sprite->x_offset = 24; sprite->y_offset = 0;
379 sprite->x_hot = 40; sprite->y_hot = 36;
380 sprite->frame = 1;
381 sprite->count = 200;
382 break;
383
384 case EXP:
385 sprite->width = sprite->height = 48;
386 sprite->x_offset = 24; sprite->y_offset = 0;
387 sprite->x_hot = 40; sprite->y_hot = 16;
388 sprite->frame = 1;
389 break;
390
391 case BUS:
392 sprite->width = sprite->height = 32;
393 sprite->x_offset = 30; sprite->y_offset = -18;
394 sprite->x_hot = 40; sprite->y_hot = -8;
395 sprite->frame = 1;
396 sprite->dir = 1;
397 break;
398
399 }
400 }
401
402
403 void
404 DestroyAllSprites(void)
405 {
406 SimSprite *sprite;
407
408 for (sprite = sim->sprite; sprite != NULL; sprite = sprite->next) {
409 sprite->frame = 0;
410 }
411 }
412
413
414 void
415 DestroySprite(SimSprite *sprite)
416 {
417 SimView *view;
418 SimSprite **sp;
419
420 for (view = sim->editor; view != NULL; view = view->next)
421 if (view->follow == sprite)
422 view->follow = NULL;
423
424 if (GlobalSprites[sprite->type] == sprite) {
425 GlobalSprites[sprite->type] = (SimSprite *)NULL;
426 }
427
428 if (sprite->name != NULL) {
429 ckfree(sprite->name);
430 sprite->name = NULL;
431 }
432
433 for (sp = &sim->sprite; *sp != NULL; sp = &((*sp)->next)) {
434 if (sprite == (*sp)) {
435 *sp = sprite->next;
436 break;
437 }
438 }
439
440 sprite->next = FreeSprites;
441 FreeSprites = sprite;
442 }
443
444
445 SimSprite *
446 GetSprite(int type)
447 {
448 SimSprite *sprite;
449
450 if (((sprite = GlobalSprites[type]) == NULL) ||
451 (sprite->frame == 0))
452 return (SimSprite *)NULL;
453 else
454 return sprite;
455 }
456
457
458 SimSprite *
459 MakeSprite(int type, int x, int y)
460 {
461 SimSprite *sprite;
462
463 if ((sprite = GlobalSprites[type]) == NULL) {
464 sprite = NewSprite("", type, x, y);
465 } else {
466 InitSprite(sprite, x, y);
467 }
468 return sprite;
469 }
470
471
472 SimSprite *
473 MakeNewSprite(int type, int x, int y)
474 {
475 SimSprite *sprite;
476
477 sprite = NewSprite("", type, x, y);
478 return sprite;
479 }
480
481
482 void
483 DrawObjects(SimView *view)
484 {
485 SimSprite *sprite;
486
487 /* XXX: sort these by layer */
488 /*
489 if (z = Oframe[TRA]) DrawTrain(view, z);
490 if (z = Oframe[SHI]) DrawBoat(view, z);
491 if (z = Oframe[GOD]) DrawMonster(view, z);
492 if (z = Oframe[COP]) DrawCopter(view, z);
493 if (z = Oframe[AIR]) DrawPlane(view, z);
494 if (z = Oframe[TOR]) DrawTor(view, z);
495 if (z = Oframe[EXP]) DrawExp(view, z);
496 */
497
498 for (sprite = sim->sprite; sprite != NULL; sprite = sprite->next) {
499 DrawSprite(view, sprite);
500 }
501 }
502
503
504 void
505 DrawSprite(SimView *view, SimSprite *sprite)
506 {
507 Pixmap pict, mask;
508 int x, y, i;
509
510 if (sprite->frame == 0)
511 return;
512
513 i = (sprite->frame - 1) * 2;
514 pict = view->x->objects[sprite->type][i];
515 mask = view->x->objects[sprite->type][i + 1];
516
517 x = sprite->x
518 - ((view->tile_x <<4) - view->screen_x)
519 + sprite->x_offset;
520 y = sprite->y
521 - ((view->tile_y <<4) - view->screen_y)
522 + sprite->y_offset;
523
524 XSetClipMask(view->x->dpy, view->x->gc, mask);
525 XSetClipOrigin(view->x->dpy, view->x->gc, x, y);
526 XCopyArea(view->x->dpy, pict, view->pixmap2, view->x->gc,
527 0, 0, sprite->width, sprite->height, x, y);
528 XSetClipMask(view->x->dpy, view->x->gc, None);
529 XSetClipOrigin(view->x->dpy, view->x->gc, 0, 0);
530 }
531
532
533 short GetChar(int x, int y)
534 {
535 x >>= 4;
536 y >>= 4;
537 if (!TestBounds(x, y))
538 return(-1);
539 else
540 return(Map[x][y] & LOMASK);
541 }
542
543
544 short TurnTo(int p, int d)
545 {
546 if (p == d) return(p);
547 if (p < d)
548 if ((d - p) < 4) p++;
549 else p--;
550 else
551 if ((p - d) < 4) p--;
552 else p++;
553 if (p > 8) p = 1;
554 if (p < 1) p = 8;
555 return(p);
556 }
557
558
559 int
560 TryOther(int Tpoo, int Told, int Tnew)
561 {
562 register short z;
563
564 z = Told + 4;
565 if (z > 8) z -= 8;
566 if (Tnew != z) return(0);
567 if ((Tpoo == POWERBASE) || (Tpoo == POWERBASE + 1) ||
568 (Tpoo == RAILBASE) || (Tpoo == RAILBASE + 1))
569 return(1);
570 return(0);
571 }
572
573
574 short SpriteNotInBounds(SimSprite *sprite)
575 {
576 int x = sprite->x + sprite->x_hot;
577 int y = sprite->y + sprite->y_hot;
578
579 if ((x < 0) || (y < 0) ||
580 (x >= (WORLD_X <<4)) ||
581 (y >= (WORLD_Y <<4))) {
582 return (1);
583 }
584 return (0);
585 }
586
587
588 short GetDir(int orgX, int orgY, int desX, int desY)
589 {
590 static short Gdtab[13] = { 0, 3, 2, 1, 3, 4, 5, 7, 6, 5, 7, 8, 1 };
591 int dispX, dispY, z;
592
593 dispX = desX - orgX;
594 dispY = desY - orgY;
595 if (dispX < 0)
596 if (dispY < 0) z = 11;
597 else z = 8;
598 else
599 if (dispY < 0) z = 2;
600 else z = 5;
601 if (dispX < 0) dispX = -dispX;
602 if (dispY < 0) dispY = -dispY;
603
604 absDist = dispX + dispY;
605
606 if ((dispX <<1) < dispY) z++;
607 else if ((dispY <<1) < dispY) z--;
608
609 if ((z < 0) || (z > 12)) z = 0;
610
611 return (Gdtab[z]);
612 }
613
614
615 int
616 GetDis(int x1, int y1, int x2, int y2)
617 {
618 register short dispX, dispY;
619
620 if (x1 > x2) dispX = x1 - x2;
621 else dispX = x2 - x1;
622 if (y1 > y2) dispY = y1 - y2;
623 else dispY = y2 - y1;
624
625 return (dispX + dispY);
626 }
627
628
629 int CheckSpriteCollision(SimSprite *s1, SimSprite *s2)
630 {
631 if ((s1->frame != 0) && (s2->frame != 0) &&
632 GetDis(s1->x + s1->x_hot, s1->y + s1->y_hot,
633 s2->x + s2->x_hot, s2->y + s2->y_hot) < 30)
634 return(1);
635 return(0);
636 }
637
638
639 void MoveObjects(void)
640 {
641 SimSprite *sprite;
642
643 if (!SimSpeed) return;
644 Cycle++;
645
646 for (sprite = sim->sprite; sprite != NULL;) {
647 if (sprite->frame) {
648 switch (sprite->type) {
649 case TRA:
650 DoTrainSprite(sprite);
651 break;
652 case COP:
653 DoCopterSprite(sprite);
654 break;
655 case AIR:
656 DoAirplaneSprite(sprite);
657 break;
658 case SHI:
659 DoShipSprite(sprite);
660 break;
661 case GOD:
662 DoMonsterSprite(sprite);
663 break;
664 case TOR:
665 DoTornadoSprite(sprite);
666 break;
667 case EXP:
668 DoExplosionSprite(sprite);
669 break;
670 case BUS:
671 DoBusSprite(sprite);
672 break;
673 }
674 sprite = sprite->next;
675 } else {
676 if (sprite->name[0] == '\0') {
677 SimSprite *s = sprite;
678 sprite = sprite->next;
679 DestroySprite(s);
680 } else {
681 sprite = sprite->next;
682 }
683 }
684 }
685 }
686
687
688 void
689 DoTrainSprite(SimSprite *sprite)
690 {
691 static short Cx[4] = { 0, 16, 0, -16 };
692 static short Cy[4] = { -16, 0, 16, 0 };
693 static short Dx[5] = { 0, 4, 0, -4, 0 };
694 static short Dy[5] = { -4, 0, 4, 0, 0 };
695 static short TrainPic2[5] = { 1, 2, 1, 2, 5 };
696 register short z, dir, dir2;
697 short c;
698
699 if ((sprite->frame == 3) || (sprite->frame == 4))
700 sprite->frame = TrainPic2[sprite->dir];
701 sprite->x += Dx[sprite->dir];
702 sprite->y += Dy[sprite->dir];
703 if (!(Cycle & 3)) {
704 dir = Rand16() & 3;
705 for (z = dir; z < (dir + 4); z++) {
706 dir2 = z & 3;
707 if (sprite->dir != 4) {
708 if (dir2 == ((sprite->dir + 2) & 3)) continue;
709 }
710 c = GetChar(sprite->x + Cx[dir2] + 48,
711 sprite->y + Cy[dir2]);
712 if (((c >= RAILBASE) && (c <= LASTRAIL)) || /* track? */
713 (c == RAILVPOWERH) ||
714 (c == RAILHPOWERV)) {
715 if ((sprite->dir != dir2) &&
716 (sprite->dir != 4)) {
717 if ((sprite->dir + dir2) == 3)
718 sprite->frame = 3;
719 else
720 sprite->frame = 4;
721 } else
722 sprite->frame = TrainPic2[dir2];
723
724 if ((c == RAILBASE) || (c == (RAILBASE + 1)))
725 sprite->frame = 5;
726 sprite->dir = dir2;
727 return;
728 }
729 }
730 if (sprite->dir == 4) {
731 sprite->frame = 0;
732 return;
733 }
734 sprite->dir = 4;
735 }
736 }
737
738
739 void
740 DoCopterSprite(SimSprite *sprite)
741 {
742 static short CDx[9] = { 0, 0, 3, 5, 3, 0, -3, -5, -3 };
743 static short CDy[9] = { 0, -5, -3, 0, 3, 5, 3, 0, -3 };
744 register short z, d, x, y;
745
746 if (sprite->sound_count > 0) sprite->sound_count--;
747
748 if (sprite->control < 0) {
749
750 if (sprite->count > 0) sprite->count--;
751
752 if (!sprite->count) {
753 /* Attract copter to monster and tornado so it blows up more often */
754 SimSprite *s = GetSprite(GOD);
755 if (s != NULL) {
756 sprite->dest_x = s->x;
757 sprite->dest_y = s->y;
758 } else {
759 s = GetSprite(TOR);
760 if (s != NULL) {
761 sprite->dest_x = s->x;
762 sprite->dest_y = s->y;
763 } else {
764 sprite->dest_x = sprite->orig_x;
765 sprite->dest_y = sprite->orig_y;
766 }
767 }
768 }
769 if (!sprite->count) { /* land */
770 GetDir(sprite->x, sprite->y, sprite->orig_x, sprite->orig_y);
771 if (absDist < 30) {
772 sprite->frame = 0;
773 return;
774 }
775 }
776 } else {
777 GetDir(sprite->x, sprite->y, sprite->dest_x, sprite->dest_y);
778 if (absDist < 16) {
779 sprite->dest_x = sprite->orig_x;
780 sprite->dest_y = sprite->orig_y;
781 sprite->control = -1;
782 }
783 }
784
785 if (!sprite->sound_count) { /* send report */
786 x = (sprite->x + 48) >>5;
787 y = sprite->y >>5;
788 if ((x >= 0) &&
789 (x < (WORLD_X >>1)) &&
790 (y >= 0) &&
791 (y < (WORLD_Y >>1))) {
792 /* Don changed from 160 to 170 to shut the #$%#$% thing up! */
793 if ((TrfDensity[x][y] > 170) && ((Rand16() & 7) == 0)) {
794 SendMesAt(-41, (x <<1) + 1, (y <<1) + 1);
795 MakeSound("city", "HeavyTraffic"); /* chopper */
796 sprite->sound_count = 200;
797 }
798 }
799 }
800 z = sprite->frame;
801 if (!(Cycle & 3)) {
802 d = GetDir(sprite->x, sprite->y, sprite->dest_x, sprite->dest_y);
803 z = TurnTo(z, d);
804 sprite->frame = z;
805 }
806
807 sprite->x += CDx[z];
808 sprite->y += CDy[z];
809 }
810
811
812 void
813 DoAirplaneSprite(SimSprite *sprite)
814 {
815 static short CDx[12] = { 0, 0, 6, 8, 6, 0, -6, -8, -6, 8, 8, 8 };
816 static short CDy[12] = { 0, -8, -6, 0, 6, 8, 6, 0, -6, 0, 0, 0 };
817
818 register short z, d;
819
820 z = sprite->frame;
821
822 if (!(Cycle % 5)) {
823 if (z > 8) { /* TakeOff */
824 z--;
825 if (z < 9) z = 3;
826 sprite->frame = z;
827 } else { /* goto destination */
828 d = GetDir(sprite->x, sprite->y, sprite->dest_x, sprite->dest_y);
829 z = TurnTo(z, d);
830 sprite->frame = z;
831 }
832 }
833
834 if (absDist < 50) { /* at destination */
835 sprite->dest_x = Rand((WORLD_X * 16) + 100) - 50;
836 sprite->dest_y = Rand((WORLD_Y * 16) + 100) - 50;
837 }
838
839 /* deh added test for !Disasters */
840 if (!NoDisasters) {
841 SimSprite *s;
842 int explode = 0;
843
844 for (s = sim->sprite; s != NULL; s = s->next) {
845 if ((s->frame != 0) &&
846 ((s->type == COP) ||
847 ((sprite != s) &&
848 (s->type == AIR))) &&
849 CheckSpriteCollision(sprite, s)) {
850 ExplodeSprite(s);
851 explode = 1;
852 }
853 }
854 if (explode)
855 ExplodeSprite(sprite);
856 }
857
858 sprite->x += CDx[z];
859 sprite->y += CDy[z];
860 if (SpriteNotInBounds(sprite)) sprite->frame = 0;
861 }
862
863
864 void
865 DoShipSprite(SimSprite *sprite)
866 {
867 static short BDx[9] = { 0, 0, 1, 1, 1, 0, -1, -1, -1 };
868 static short BDy[9] = { 0, -1, -1, 0, 1, 1, 1, 0, -1 };
869 static short BPx[9] = { 0, 0, 2, 2, 2, 0, -2, -2, -2 };
870 static short BPy[9] = { 0, -2, -2, 0, 2, 2, 2, 0, -2 };
871 static short BtClrTab[8] = { RIVER, CHANNEL, POWERBASE, POWERBASE + 1,
872 RAILBASE, RAILBASE + 1, BRWH, BRWV };
873 register short x, y, z, t = RIVER;
874 short tem, pem;
875
876 if (sprite->sound_count > 0) sprite->sound_count--;
877 if (!sprite->sound_count) {
878 if ((Rand16() & 3) == 1) {
879 if ((ScenarioID == 2) && /* San Francisco */
880 (Rand(10) < 5)) {
881 MakeSound("city", "HonkHonk-Low");
882 } else {
883 MakeSound("city", "HonkHonk-Low");
884 }
885 }
886 sprite->sound_count = 200;
887 }
888
889 if (sprite->count > 0) sprite->count--;
890 if (!sprite->count) {
891 sprite->count = 9;
892 if (sprite->frame != sprite->new_dir) {
893 sprite->frame = TurnTo(sprite->frame, sprite->new_dir);
894 return;
895 }
896 tem = Rand16() & 7;
897 for (pem = tem; pem < (tem + 8); pem++) {
898 z = (pem & 7) + 1;
899
900 if (z == sprite->dir) continue;
901 x = ((sprite->x + (48 - 1)) >>4) + BDx[z];
902 y = (sprite->y >>4) + BDy[z];
903 if (TestBounds(x, y)) {
904 t = Map[x][y] & LOMASK;
905 if ((t == CHANNEL) || (t == BRWH) || (t == BRWV) ||
906 TryOther(t, sprite->dir, z)) {
907 sprite->new_dir = z;
908 sprite->frame = TurnTo(sprite->frame, sprite->new_dir);
909 sprite->dir = z + 4;
910 if (sprite->dir > 8) sprite->dir -= 8;
911 break;
912 }
913 }
914 }
915 if (pem == (tem + 8)) {
916 sprite->dir = 10;
917 sprite->new_dir = (Rand16() & 7) + 1;
918 }
919 } else {
920 z = sprite->frame;
921 if (z == sprite->new_dir) {
922 sprite->x += BPx[z];
923 sprite->y += BPy[z];
924 }
925 }
926 if (SpriteNotInBounds(sprite)) {
927 sprite->frame = 0;
928 return;
929 }
930 if (!NoDisasters) {
931 for (z = 0; z < 8; z++) {
932 if (t == BtClrTab[z]) break;
933 if (z == 7) {
934 ExplodeSprite(sprite);
935 Destroy(sprite->x + 48, sprite->y);
936 }
937 }
938 }
939 }
940
941
942 void
943 DoMonsterSprite(SimSprite *sprite)
944 {
945 static short Gx[5] = { 2, 2, -2, -2, 0 };
946 static short Gy[5] = { -2, 2, 2, -2, 0 };
947 static short ND1[4] = { 0, 1, 2, 3 };
948 static short ND2[4] = { 1, 2, 3, 0 };
949 static short nn1[4] = { 2, 5, 8, 11 };
950 static short nn2[4] = { 11, 2, 5, 8 };
951 register short d, z, c;
952
953 if (sprite->sound_count > 0) sprite->sound_count--;
954
955 if (sprite->control < 0) {
956 /* business as usual */
957
958 if (sprite->control == -2) {
959 d = (sprite->frame - 1) / 3;
960 z = (sprite->frame - 1) % 3;
961 if (z == 2) sprite->step = 0;
962 if (z == 0) sprite->step = 1;
963 if (sprite->step) z++;
964 else z--;
965 c = GetDir(sprite->x, sprite->y, sprite->dest_x, sprite->dest_y);
966 if (absDist < 18) {
967 sprite->control = -1;
968 sprite->count = 1000;
969 sprite->flag = 1;
970 sprite->dest_x = sprite->orig_x;
971 sprite->dest_y = sprite->orig_y;
972 } else {
973 c = (c - 1) / 2;
974 if (((c != d) && (!Rand(5))) ||
975 (!Rand(20))) {
976 int diff = (c - d) & 3;
977 if ((diff == 1) || (diff == 3)) {
978 d = c;
979 } else {
980 if (Rand16() & 1) d++; else d--;
981 d &= 3;
982 }
983 } else {
984 if (!Rand(20)) {
985 if (Rand16() & 1) d++; else d--;
986 d &= 3;
987 }
988 }
989 }
990 } else {
991
992 d = (sprite->frame - 1) / 3;
993
994 if (d < 4) { /* turn n s e w */
995 z = (sprite->frame - 1) % 3;
996 if (z == 2) sprite->step = 0;
997 if (z == 0) sprite->step = 1;
998 if (sprite->step) z++;
999 else z--;
1000 GetDir(sprite->x, sprite->y, sprite->dest_x, sprite->dest_y);
1001 if (absDist < 60) {
1002 if (sprite->flag == 0) {
1003 sprite->flag = 1;
1004 sprite->dest_x = sprite->orig_x;
1005 sprite->dest_y = sprite->orig_y;
1006 } else {
1007 sprite->frame = 0;
1008 return;
1009 }
1010 }
1011 c = GetDir(sprite->x, sprite->y, sprite->dest_x, sprite->dest_y);
1012 c = (c - 1) / 2;
1013 if ((c != d) && (!Rand(10))) {
1014 if (Rand16() & 1) z = ND1[d];
1015 else z = ND2[d];
1016 d = 4;
1017 if (!sprite->sound_count) {
1018 MakeSound("city", "Monster"); /* monster */
1019 sprite->sound_count = 50 + Rand(100);
1020 }
1021 }
1022 } else {
1023 d = 4;
1024 c = sprite->frame;
1025 z = (c - 13) & 3;
1026 if (!(Rand16() & 3)) {
1027 if (Rand16() & 1) z = nn1[z];
1028 else z = nn2[z];
1029 d = (z - 1) / 3;
1030 z = (z - 1) % 3;
1031 }
1032 }
1033 }
1034 } else {
1035 /* somebody's taken control of the monster */
1036
1037 d = sprite->control;
1038 z = (sprite->frame - 1) % 3;
1039
1040 if (z == 2) sprite->step = 0;
1041 if (z == 0) sprite->step = 1;
1042 if (sprite->step) z++;
1043 else z--;
1044 }
1045
1046 z = (((d * 3) + z) + 1);
1047 if (z > 16) z = 16;
1048 sprite->frame = z;
1049
1050 sprite->x += Gx[d];
1051 sprite->y += Gy[d];
1052
1053 if (sprite->count > 0) sprite->count--;
1054 c = GetChar(sprite->x + sprite->x_hot, sprite->y + sprite->y_hot);
1055 if ((c == -1) ||
1056 ((c == RIVER) &&
1057 (sprite->count != 0) &&
1058 (sprite->control == -1))) {
1059 sprite->frame = 0; /* kill zilla */
1060 }
1061
1062 { SimSprite *s;
1063 for (s = sim->sprite; s != NULL; s = s->next) {
1064 if ((s->frame != 0) &&
1065 ((s->type == AIR) ||
1066 (s->type == COP) ||
1067 (s->type == SHI) ||
1068 (s->type == TRA)) &&
1069 CheckSpriteCollision(sprite, s)) {
1070 ExplodeSprite(s);
1071 }
1072 }
1073 }
1074
1075 Destroy(sprite->x + 48, sprite->y + 16);
1076 }
1077
1078
1079 void
1080 DoTornadoSprite(SimSprite *sprite)
1081 {
1082 static short CDx[9] = { 2, 3, 2, 0, -2, -3 };
1083 static short CDy[9] = { -2, 0, 2, 3, 2, 0 };
1084 register short z;
1085
1086 z = sprite->frame;
1087
1088 if (z == 2) /* cycle animation... post Rel */
1089 if (sprite->flag)
1090 z = 3;
1091 else
1092 z = 1;
1093 else {
1094 if (z == 1)
1095 sprite->flag = 1;
1096 else
1097 sprite->flag = 0;
1098 z = 2;
1099 }
1100
1101 if (sprite->count > 0) sprite->count--;
1102
1103 sprite->frame = z;
1104
1105 { SimSprite *s;
1106 for (s = sim->sprite; s != NULL; s = s->next) {
1107 if ((s->frame != 0) &&
1108 ((s->type == AIR) ||
1109 (s->type == COP) ||
1110 (s->type == SHI) ||
1111 (s->type == TRA)) &&
1112 CheckSpriteCollision(sprite, s)) {
1113 ExplodeSprite(s);
1114 }
1115 }
1116 }
1117
1118 z = Rand(5);
1119 sprite->x += CDx[z];
1120 sprite->y += CDy[z];
1121 if (SpriteNotInBounds(sprite)) sprite->frame = 0;
1122
1123 if ((sprite->count != 0) &&
1124 (!Rand(500)))
1125 sprite->frame = 0;
1126
1127 Destroy(sprite->x + 48, sprite->y + 40);
1128 }
1129
1130
1131 void
1132 DoExplosionSprite(SimSprite *sprite)
1133 {
1134 short x, y;
1135
1136 if (!(Cycle & 1)) {
1137 if (sprite->frame == 1) {
1138 MakeSound("city", "Explosion-High"); /* explosion */
1139 x = (sprite->x >>4) + 3;
1140 y = (sprite->y >>4);
1141 SendMesAt(32, x, y);
1142 }
1143 sprite->frame++;
1144 }
1145
1146 if (sprite->frame > 6) {
1147 sprite->frame = 0;
1148
1149 StartFire(sprite->x + 48 - 8, sprite->y + 16);
1150 StartFire(sprite->x + 48 - 24, sprite->y);
1151 StartFire(sprite->x + 48 + 8, sprite->y);
1152 StartFire(sprite->x + 48 - 24, sprite->y + 32);
1153 StartFire(sprite->x + 48 + 8, sprite->y + 32);
1154 return;
1155 }
1156 }
1157
1158
1159 void
1160 DoBusSprite(SimSprite *sprite)
1161 {
1162 static short Dx[5] = { 0, 1, 0, -1, 0 };
1163 static short Dy[5] = { -1, 0, 1, 0, 0 };
1164 static short Dir2Frame[4] = { 1, 2, 1, 2 };
1165 int dx, dy, tx, ty, otx, oty;
1166 int turned = 0;
1167 int speed = 0, z;
1168
1169 #ifdef DEBUGBUS
1170 printf("Bus dir %d turn %d frame %d\n",
1171 sprite->dir, sprite->turn, sprite->frame);
1172 #endif
1173
1174 if (sprite->turn) {
1175 if (sprite->turn < 0) { /* ccw */
1176 if (sprite->dir & 1) { /* up or down */
1177 sprite->frame = 4;
1178 } else { /* left or right */
1179 sprite->frame = 3;
1180 }
1181 sprite->turn++;
1182 sprite->dir = (sprite->dir - 1) & 3;
1183 } else { /* cw */
1184 if (sprite->dir & 1) { /* up or down */
1185 sprite->frame = 3;
1186 } else { /* left or right */
1187 sprite->frame = 4;
1188 }
1189 sprite->turn--;
1190 sprite->dir = (sprite->dir + 1) & 3;
1191 }
1192 turned = 1;
1193 } else {
1194 /* finish turn */
1195 if ((sprite->frame == 3) || (sprite->frame == 4)) {
1196 turned = 1;
1197 sprite->frame = Dir2Frame[sprite->dir];
1198 }
1199 }
1200
1201 if (sprite->speed == 0) {
1202 /* brake */
1203 dx = 0; dy = 0;
1204 } else { /* cruise at traffic speed */
1205
1206 tx = (sprite->x + sprite->x_hot) >>5;
1207 ty = (sprite->y + sprite->y_hot) >>5;
1208 if ((tx >= 0) &&
1209 (tx < (WORLD_X >>1)) &&
1210 (ty >= 0) &&
1211 (ty < (WORLD_Y >>1))) {
1212 z = TrfDensity[tx][ty] >>6;
1213 if (z > 1) z--;
1214 } else z = 0;
1215
1216 switch (z) {
1217 case 0:
1218 speed = 8;
1219 break;
1220 case 1:
1221 speed = 4;
1222 break;
1223 case 2:
1224 speed = 1;
1225 break;
1226 }
1227
1228 /* govern speed */
1229 if (speed > sprite->speed)
1230 speed = sprite->speed;
1231
1232 if (turned) {
1233 #ifdef DEBUGBUS
1234 printf("turned\n");
1235 #endif
1236 if (speed > 1) speed = 1;
1237 dx = Dx[sprite->dir] * speed;
1238 dy = Dy[sprite->dir] * speed;
1239 } else {
1240 dx = Dx[sprite->dir] * speed;
1241 dy = Dy[sprite->dir] * speed;
1242
1243 tx = (sprite->x + sprite->x_hot) >>4;
1244 ty = (sprite->y + sprite->y_hot) >>4;
1245
1246 /* drift into the right lane */
1247 switch (sprite->dir) {
1248 case 0: /* up */
1249 z = ((tx <<4) + 4) - (sprite->x + sprite->x_hot);
1250 if (z < 0) dx = -1;
1251 else if (z > 0) dx = 1;
1252 #ifdef DEBUGBUS
1253 printf("moving up x %x z %d dx %d\n", sprite->x + sprite->x_hot, z, dx);
1254 #endif
1255 break;
1256 case 1: /* right */
1257 z = ((ty <<4) + 4) - (sprite->y + sprite->y_hot);
1258 if (z < 0) dy = -1;
1259 else if (z > 0) dy = 1;
1260 #ifdef DEBUGBUS
1261 printf("moving right y %x z %d dy %d\n", sprite->y + sprite->y_hot, z, dy);
1262 #endif
1263 break;
1264 case 2: /* down */
1265 z = ((tx <<4)) - (sprite->x + sprite->x_hot);
1266 if (z < 0) dx = -1;
1267 else if (z > 0) dx = 1;
1268 #ifdef DEBUGBUS
1269 printf("moving down x %x z %d dx %d\n", sprite->x + sprite->x_hot, z, dx);
1270 #endif
1271 break;
1272 case 3: /* left */
1273 z = ((ty <<4)) - (sprite->y + sprite->y_hot);
1274 if (z < 0) dy = -1;
1275 else if (z > 0) dy = 1;
1276 #ifdef DEBUGBUS
1277 printf("moving left y %x z %d dy %d\n", sprite->y + sprite->y_hot, z, dy);
1278 #endif
1279 break;
1280 }
1281 }
1282 }
1283 #ifdef DEBUGBUS
1284 printf("speed dx %d dy %d\n", dx, dy);
1285 #endif
1286
1287 #define AHEAD 8
1288
1289 otx = (sprite->x + sprite->x_hot + (Dx[sprite->dir] * AHEAD)) >>4;
1290 oty = (sprite->y + sprite->y_hot + (Dy[sprite->dir] * AHEAD)) >>4;
1291 if (otx < 0) otx = 0; else if (otx >= WORLD_X) otx = WORLD_X - 1;
1292 if (oty < 0) oty = 0; else if (oty >= WORLD_Y) oty = WORLD_Y - 1;
1293
1294 tx = (sprite->x + sprite->x_hot + dx + (Dx[sprite->dir] * AHEAD)) >>4;
1295 ty = (sprite->y + sprite->y_hot + dy + (Dy[sprite->dir] * AHEAD)) >>4;
1296 if (tx < 0) tx = 0; else if (tx >= WORLD_X) tx = WORLD_X - 1;
1297 if (ty < 0) ty = 0; else if (ty >= WORLD_Y) ty = WORLD_Y - 1;
1298
1299 if ((tx != otx) || (ty != oty)) {
1300 #ifdef DEBUGBUS
1301 printf("drive from tile %d %d to %d %d\n",
1302 otx, oty, tx, ty);
1303 #endif
1304 z = CanDriveOn(tx, ty);
1305 if (z == 0) {
1306 /* can't drive forward into a new tile */
1307 if (speed == 8) {
1308 bulldozer_tool(NULL, tx, ty);
1309 } else {
1310 }
1311 } else {
1312 /* drive forward into a new tile */
1313 if (z > 0) {
1314 /* smooth */
1315 } else {
1316 /* bumpy */
1317 dx /= 2;
1318 dy /= 2;
1319 }
1320 }
1321 }
1322
1323 tx = (sprite->x + sprite->x_hot + dx) >>4;
1324 ty = (sprite->y + sprite->y_hot + dy) >>4;
1325 z = CanDriveOn(tx, ty);
1326 if (z > 0) {
1327 /* cool, cruise along */
1328 } else {
1329 if (z < 0) {
1330 /* bumpy */
1331 } else {
1332 /* something in the way */
1333 }
1334 }
1335
1336 sprite->x += dx;
1337 sprite->y += dy;
1338
1339 if (!NoDisasters) {
1340 SimSprite *s;
1341 int explode = 0;
1342
1343 for (s = sim->sprite; s != NULL; s = s->next) {
1344 if ((sprite != s) &&
1345 (s->frame != 0) &&
1346 ((s->type == BUS) ||
1347 ((s->type == TRA) &&
1348 (s->frame != 5))) &&
1349 CheckSpriteCollision(sprite, s)) {
1350 ExplodeSprite(s);
1351 explode = 1;
1352 }
1353 }
1354 if (explode)
1355 ExplodeSprite(sprite);
1356 }
1357 }
1358
1359
1360 int
1361 CanDriveOn(int x, int y)
1362 {
1363 int tile;
1364
1365 if (!TestBounds(x, y))
1366 return 0;
1367
1368 tile = Map[x][y] & LOMASK;
1369
1370 if (((tile >= ROADBASE) &&
1371 (tile <= LASTROAD) &&
1372 (tile != BRWH) &&
1373 (tile != BRWV)) ||
1374 (tile == HRAILROAD) ||
1375 (tile == VRAILROAD))
1376 return 1;
1377
1378 if ((tile == DIRT) || tally(tile))
1379 return -1;
1380
1381 return 0;
1382 }
1383
1384
1385 void
1386 ExplodeSprite(SimSprite *sprite)
1387 {
1388 int x, y;
1389
1390 sprite->frame = 0;
1391
1392 x = sprite->x + sprite->x_hot;
1393 y = sprite->y + sprite->y_hot;
1394 MakeExplosionAt(x, y);
1395
1396 x = (x >>4);
1397 y = (y >>4);
1398
1399 switch (sprite->type) {
1400 case AIR:
1401 CrashX = x;
1402 CrashY = y;
1403 SendMesAt(-24, x, y);
1404 break;
1405 case SHI:
1406 CrashX = x;
1407 CrashY = y;
1408 SendMesAt(-25, x, y);
1409 break;
1410 case TRA:
1411 CrashX = x;
1412 CrashY = y;
1413 SendMesAt(-26, x, y);
1414 break;
1415 case COP:
1416 CrashX = x;
1417 CrashY = y;
1418 SendMesAt(-27, x, y);
1419 break;
1420 case BUS:
1421 CrashX = x;
1422 CrashY = y;
1423 SendMesAt(-26, x, y); /* XXX for now */
1424 break;
1425 }
1426 MakeSound("city", "Explosion-High"); /* explosion */
1427 return;
1428 }
1429
1430
1431 int checkWet(int x)
1432 {
1433 if ((x == POWERBASE) || (x == POWERBASE + 1) ||
1434 (x == RAILBASE) || (x == RAILBASE + 1) ||
1435 (x == BRWH) || (x == BRWV))
1436 return(1);
1437 else
1438 return(0);
1439 }
1440
1441
1442 void
1443 Destroy(int ox, int oy)
1444 {
1445 short t, z, x, y;
1446
1447 x = ox >>4;
1448 y = oy >>4;
1449 if (!TestBounds(x, y))
1450 return;
1451 z = Map[x][y];
1452 t = z & LOMASK;
1453 if (t >= TREEBASE) {
1454 /* TILE_IS_BRIDGE(t) */
1455 if (!(z & BURNBIT)) {
1456 if ((t >= ROADBASE) && (t <= LASTROAD))
1457 Map[x][y] = RIVER;
1458 return;
1459 }
1460 if (z & ZONEBIT) {
1461 OFireZone(x, y, z);
1462 if (t > RZB) {
1463 MakeExplosionAt(ox, oy);
1464 }
1465 }
1466 if (checkWet(t))
1467 Map[x][y] = RIVER;
1468 else
1469 Map[x][y] = (DoAnimation
1470 ? TINYEXP
1471 : (LASTTINYEXP - 3)) | BULLBIT | ANIMBIT;
1472 }
1473 }
1474
1475
1476 void
1477 OFireZone(int Xloc, int Yloc, int ch)
1478 {
1479 register short Xtem, Ytem;
1480 short x, y, XYmax;
1481
1482 RateOGMem[Xloc >>3][Yloc >>3] -= 20;
1483
1484 ch &= LOMASK;
1485 if (ch < PORTBASE)
1486 XYmax = 2;
1487 else
1488 if (ch == AIRPORT) XYmax = 5;
1489 else XYmax = 4;
1490
1491 for (x = -1; x < XYmax; x++)
1492 for (y = -1; y < XYmax; y++) {
1493 Xtem = Xloc + x;
1494 Ytem = Yloc + y;
1495 if ((Map[Xtem][Ytem] & LOMASK) >= ROADBASE)
1496 Map[Xtem][Ytem] |= BULLBIT;
1497 }
1498 }
1499
1500
1501 void
1502 StartFire(int x, int y)
1503 {
1504 register int t, z;
1505
1506 x >>= 4;
1507 y >>= 4;
1508 if ((x >= WORLD_X) ||
1509 (y >= WORLD_Y) ||
1510 (x < 0) || (y < 0))
1511 return;
1512 z = Map[x][y];
1513 t = z & LOMASK;
1514 if ((!(z & BURNBIT)) && (t != 0)) return;
1515 if (z & ZONEBIT) return;
1516 Map[x][y] = FIRE + (Rand16() & 3) + ANIMBIT;
1517 }
1518
1519
1520 void
1521 GenerateTrain(int x, int y)
1522 {
1523 if ((TotalPop > 20) &&
1524 (GetSprite(TRA) == NULL) &&
1525 (!Rand(25))) {
1526 MakeSprite(TRA, (x <<4) + TRA_GROOVE_X, (y <<4) + TRA_GROOVE_Y);
1527 }
1528 }
1529
1530
1531 void
1532 GenerateBus(int x, int y)
1533 {
1534 if ((GetSprite(BUS) == NULL) &&
1535 (!Rand(25))) {
1536 MakeSprite(BUS, (x <<4) + BUS_GROOVE_X, (y <<4) + BUS_GROOVE_Y);
1537 }
1538 }
1539
1540
1541 void
1542 GenerateShip(void)
1543 {
1544 register short x, y;
1545
1546 if (!(Rand16() & 3))
1547 for (x = 4; x < WORLD_X - 2; x++)
1548 if (Map[x][0] == CHANNEL) {
1549 MakeShipHere(x, 0);
1550 return;
1551 }
1552 if (!(Rand16() & 3))
1553 for (y = 1; y < WORLD_Y - 2; y++)
1554 if (Map[0][y] == CHANNEL) {
1555 MakeShipHere(0, y);
1556 return;
1557 }
1558 if (!(Rand16() & 3))
1559 for (x = 4; x < WORLD_X - 2; x++)
1560 if (Map[x][WORLD_Y - 1] == CHANNEL) {
1561 MakeShipHere(x, WORLD_Y - 1);
1562 return;
1563 }
1564 if (!(Rand16() & 3))
1565 for (y = 1; y < WORLD_Y - 2; y++)
1566 if (Map[WORLD_X - 1][y] == CHANNEL) {
1567 MakeShipHere(WORLD_X - 1, y);
1568 return;
1569 }
1570 }
1571
1572
1573 void
1574 MakeShipHere(int x, int y)
1575 {
1576 MakeSprite(SHI, (x <<4) - (48 - 1), (y <<4));
1577 }
1578
1579
1580 void
1581 MakeMonster(void)
1582 {
1583 register int x, y, z, done = 0;
1584 SimSprite *sprite;
1585
1586 if ((sprite = GetSprite(GOD)) != NULL) {
1587 sprite->sound_count = 1;
1588 sprite->count = 1000;
1589 sprite->dest_x = PolMaxX <<4;
1590 sprite->dest_y = PolMaxY <<4;
1591 return;
1592 }
1593
1594 for (z = 0; z < 300; z++) {
1595 x = Rand(WORLD_X - 20) + 10;
1596 y = Rand(WORLD_Y - 10) + 5;
1597 if ((Map[x][y] == RIVER) || (Map[x][y] == RIVER + BULLBIT)) {
1598 MonsterHere(x, y);
1599 done = 1;
1600 break;
1601 }
1602 }
1603 if (!done == 0)
1604 MonsterHere(60, 50);
1605 }
1606
1607
1608 void
1609 MonsterHere(int x, int y)
1610 {
1611 MakeSprite(GOD, (x <<4) + 48, (y <<4));
1612 ClearMes();
1613 SendMesAt(-21, x + 5, y);
1614 }
1615
1616
1617 void
1618 GenerateCopter(int x, int y)
1619 {
1620 if (GetSprite(COP) != NULL) return;
1621
1622 MakeSprite(COP, (x <<4), (y <<4) + 30);
1623 }
1624
1625
1626 void
1627 GeneratePlane(int x, int y)
1628 {
1629 if (GetSprite(AIR) != NULL) return;
1630
1631 MakeSprite(AIR, (x <<4) + 48, (y <<4) + 12);
1632 }
1633
1634
1635 void
1636 MakeAirCrash(void)
1637 {
1638 #ifndef NO_AIRCRASH
1639 if (GetSprite(AIR) == NULL) {
1640 short x, y;
1641
1642 x = Rand(WORLD_X - 20) + 10;
1643 y = Rand(WORLD_Y - 10) + 5;
1644
1645 GeneratePlane(x, y);
1646 }
1647
1648 ExplodeSprite(GetSprite(AIR));
1649 #endif
1650 }
1651
1652
1653 void
1654 MakeTornado(void)
1655 {
1656 short x, y;
1657 SimSprite *sprite;
1658
1659 if ((sprite = GetSprite(TOR)) != NULL) {
1660 sprite->count = 200;
1661 return;
1662 }
1663
1664 x = Rand((WORLD_X <<4) - 800) + 400;
1665 y = Rand((WORLD_Y <<4) - 200) + 100;
1666 MakeSprite(TOR, x, y);
1667 ClearMes();
1668 SendMesAt(-22, (x >>4) + 3, (y >>4) + 2);
1669 }
1670
1671
1672 void
1673 MakeExplosion(int x, int y)
1674 {
1675 if ((x >= 0) && (x < WORLD_X) &&
1676 (y >= 0) && (y < WORLD_Y)) {
1677 MakeExplosionAt((x << 4) + 8, (y << 4) + 8);
1678 }
1679 }
1680
1681
1682 void
1683 MakeExplosionAt(int x, int y)
1684 {
1685 MakeNewSprite(EXP, x - 40, y - 16);
1686 }
1687
Impressum, Datenschutz