git.zerfleddert.de Git - micropolis/blob - 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 #ifndef ORIGINAL_MONSTER_BEHAVIOUR
1057       || ((c == RIVER) &&
1058        (sprite->count != 0) &&
1059        (sprite->count < 900) &&
1060        (sprite->control == -1))
1061 #endif
1062      ) {
1063     sprite->frame = 0; /* kill zilla */
1064   }
1065
1066   { SimSprite *s;
1067     for (s = sim->sprite; s != NULL; s = s->next) {
1068       if ((s->frame != 0) &&
1069           ((s->type == AIR) ||
1070            (s->type == COP) ||
1071            (s->type == SHI) ||
1072            (s->type == TRA)) &&
1073           CheckSpriteCollision(sprite, s)) {
1074           ExplodeSprite(s);
1075         }
1076       }
1077     }
1078
1079   Destroy(sprite->x + 48, sprite->y + 16);
1080 }
1081
1082
1083 void
1084 DoTornadoSprite(SimSprite *sprite)
1085 {
1086   static short CDx[9] = {  2,  3,  2,  0, -2, -3 };
1087   static short CDy[9] = { -2,  0,  2,  3,  2,  0 };
1088   register short z;
1089
1090   z = sprite->frame;
1091
1092   if (z == 2) /* cycle animation... post Rel */
1093     if (sprite->flag)
1094       z = 3;
1095     else
1096       z = 1;
1097   else {
1098     if (z == 1)
1099       sprite->flag = 1;
1100     else
1101       sprite->flag = 0;
1102     z = 2;
1103   }
1104
1105   if (sprite->count > 0) sprite->count--;
1106
1107   sprite->frame = z;
1108
1109   { SimSprite *s;
1110     for (s = sim->sprite; s != NULL; s = s->next) {
1111       if ((s->frame != 0) &&
1112           ((s->type == AIR) ||
1113            (s->type == COP) ||
1114            (s->type == SHI) ||
1115            (s->type == TRA)) &&
1116           CheckSpriteCollision(sprite, s)) {
1117           ExplodeSprite(s);
1118         }
1119       }
1120     }
1121
1122   z = Rand(5);
1123   sprite->x += CDx[z];
1124   sprite->y += CDy[z];
1125   if (SpriteNotInBounds(sprite)) sprite->frame = 0;
1126
1127   if ((sprite->count != 0) &&
1128       (!Rand(500)))
1129     sprite->frame = 0;
1130
1131   Destroy(sprite->x + 48, sprite->y + 40);
1132 }
1133
1134
1135 void
1136 DoExplosionSprite(SimSprite *sprite)
1137 {
1138   short x, y;
1139
1140   if (!(Cycle & 1)) {
1141     if (sprite->frame == 1) {
1142       MakeSound("city", "Explosion-High"); /* explosion */
1143       x = (sprite->x >>4) + 3;
1144       y = (sprite->y >>4);
1145       SendMesAt(32, x, y);
1146     }
1147     sprite->frame++;
1148   }
1149
1150   if (sprite->frame > 6) {
1151     sprite->frame = 0;
1152
1153     StartFire(sprite->x + 48 - 8, sprite->y + 16);
1154     StartFire(sprite->x + 48 - 24, sprite->y);
1155     StartFire(sprite->x + 48 + 8, sprite->y);
1156     StartFire(sprite->x + 48 - 24, sprite->y + 32);
1157     StartFire(sprite->x + 48 + 8, sprite->y + 32);
1158     return;
1159   }
1160 }
1161
1162
1163 void
1164 DoBusSprite(SimSprite *sprite)
1165 {
1166   static short Dx[5] = {   0,   1,   0,  -1,   0 };
1167   static short Dy[5] = {  -1,   0,   1,   0,   0 };
1168   static short Dir2Frame[4] = { 1, 2, 1, 2 };
1169   int dx, dy, tx, ty, otx, oty;
1170   int turned = 0;
1171   int speed = 0, z;
1172
1173 #ifdef DEBUGBUS
1174 printf("Bus dir %d turn %d frame %d\n",
1175        sprite->dir, sprite->turn, sprite->frame);
1176 #endif
1177
1178   if (sprite->turn) {
1179     if (sprite->turn < 0) { /* ccw */
1180       if (sprite->dir & 1) { /* up or down */
1181         sprite->frame = 4;
1182       } else { /* left or right */
1183         sprite->frame = 3;
1184       }
1185       sprite->turn++;
1186       sprite->dir = (sprite->dir - 1) & 3;
1187     } else { /* cw */
1188       if (sprite->dir & 1) { /* up or down */
1189         sprite->frame = 3;
1190       } else { /* left or right */
1191         sprite->frame = 4;
1192       }
1193       sprite->turn--;
1194       sprite->dir = (sprite->dir + 1) & 3;
1195     }
1196     turned = 1;
1197   } else {
1198     /* finish turn */
1199     if ((sprite->frame == 3) || (sprite->frame == 4)) {
1200       turned = 1;
1201       sprite->frame = Dir2Frame[sprite->dir];
1202     }
1203   }
1204
1205   if (sprite->speed == 0) {
1206     /* brake */
1207     dx = 0; dy = 0;
1208   } else { /* cruise at traffic speed */
1209
1210     tx = (sprite->x + sprite->x_hot) >>5;
1211     ty = (sprite->y + sprite->y_hot) >>5;
1212     if ((tx >= 0) &&
1213         (tx < (WORLD_X >>1)) &&
1214         (ty >= 0) &&
1215         (ty < (WORLD_Y >>1))) {
1216       z = TrfDensity[tx][ty] >>6;
1217       if (z > 1) z--;
1218     } else z = 0;
1219
1220     switch (z) {
1221     case 0:
1222       speed = 8;
1223       break;
1224     case 1:
1225       speed = 4;
1226       break;
1227     case 2:
1228       speed = 1;
1229       break;
1230     }
1231
1232     /* govern speed */
1233     if (speed > sprite->speed)
1234       speed = sprite->speed;
1235
1236     if (turned) {
1237 #ifdef DEBUGBUS
1238 printf("turned\n");
1239 #endif
1240       if (speed > 1) speed = 1;
1241       dx = Dx[sprite->dir] * speed;
1242       dy = Dy[sprite->dir] * speed;
1243     } else {
1244       dx = Dx[sprite->dir] * speed;
1245       dy = Dy[sprite->dir] * speed;
1246
1247       tx = (sprite->x + sprite->x_hot) >>4;
1248       ty = (sprite->y + sprite->y_hot) >>4;
1249
1250       /* drift into the right lane */
1251       switch (sprite->dir) {
1252       case 0: /* up */
1253         z = ((tx <<4) + 4) - (sprite->x + sprite->x_hot);
1254         if (z < 0) dx = -1;
1255         else if (z > 0) dx = 1;
1256 #ifdef DEBUGBUS
1257 printf("moving up x %x z %d dx %d\n", sprite->x + sprite->x_hot, z, dx);
1258 #endif
1259         break;
1260       case 1: /* right */
1261         z = ((ty <<4) + 4) - (sprite->y + sprite->y_hot);
1262         if (z < 0) dy = -1;
1263         else if (z > 0) dy = 1;
1264 #ifdef DEBUGBUS
1265 printf("moving right y %x z %d dy %d\n", sprite->y + sprite->y_hot, z, dy);
1266 #endif
1267         break;
1268       case 2: /* down */
1269         z = ((tx <<4)) - (sprite->x + sprite->x_hot);
1270         if (z < 0) dx = -1;
1271         else if (z > 0) dx = 1;
1272 #ifdef DEBUGBUS
1273 printf("moving down x %x z %d dx %d\n", sprite->x + sprite->x_hot, z, dx);
1274 #endif
1275         break;
1276       case 3: /* left */
1277         z = ((ty <<4)) - (sprite->y + sprite->y_hot);
1278         if (z < 0) dy = -1;
1279         else if (z > 0) dy = 1;
1280 #ifdef DEBUGBUS
1281 printf("moving left y %x z %d dy %d\n", sprite->y + sprite->y_hot, z, dy);
1282 #endif
1283         break;
1284       }
1285     }
1286   }
1287 #ifdef DEBUGBUS
1288 printf("speed dx %d dy %d\n", dx, dy);
1289 #endif
1290
1291 #define AHEAD 8
1292
1293   otx = (sprite->x + sprite->x_hot + (Dx[sprite->dir] * AHEAD)) >>4;
1294   oty = (sprite->y + sprite->y_hot + (Dy[sprite->dir] * AHEAD)) >>4;
1295   if (otx < 0) otx = 0; else if (otx >= WORLD_X) otx = WORLD_X - 1;
1296   if (oty < 0) oty = 0; else if (oty >= WORLD_Y) oty = WORLD_Y - 1;
1297
1298   tx = (sprite->x + sprite->x_hot + dx + (Dx[sprite->dir] * AHEAD)) >>4;
1299   ty = (sprite->y + sprite->y_hot + dy + (Dy[sprite->dir] * AHEAD)) >>4;
1300   if (tx < 0) tx = 0; else if (tx >= WORLD_X) tx = WORLD_X - 1;
1301   if (ty < 0) ty = 0; else if (ty >= WORLD_Y) ty = WORLD_Y - 1;
1302
1303   if ((tx != otx) || (ty != oty)) {
1304 #ifdef DEBUGBUS
1305 printf("drive from tile %d %d to %d %d\n",
1306        otx, oty, tx, ty);
1307 #endif
1308     z = CanDriveOn(tx, ty);
1309     if (z == 0) {
1310       /* can't drive forward into a new tile */
1311       if (speed == 8) {
1312         bulldozer_tool(NULL, tx, ty);
1313       } else {
1314       }
1315     } else {
1316       /* drive forward into a new tile */
1317       if (z > 0) {
1318         /* smooth */
1319       } else {
1320         /* bumpy */
1321         dx /= 2;
1322         dy /= 2;
1323       }
1324     }
1325   }
1326
1327   tx = (sprite->x + sprite->x_hot + dx) >>4;
1328   ty = (sprite->y + sprite->y_hot + dy) >>4;
1329   z = CanDriveOn(tx, ty);
1330   if (z > 0) {
1331     /* cool, cruise along */
1332   } else {
1333     if (z < 0) {
1334       /* bumpy */
1335     } else {
1336       /* something in the way */
1337     }
1338   }
1339
1340   sprite->x += dx;
1341   sprite->y += dy;
1342
1343   if (!NoDisasters) {
1344     SimSprite *s;
1345     int explode = 0;
1346
1347     for (s = sim->sprite; s != NULL; s = s->next) {
1348       if ((sprite != s) &&
1349           (s->frame != 0) &&
1350           ((s->type == BUS) ||
1351            ((s->type == TRA) &&
1352             (s->frame != 5))) &&
1353           CheckSpriteCollision(sprite, s)) {
1354         ExplodeSprite(s);
1355         explode = 1;
1356       }
1357     }
1358     if (explode)
1359       ExplodeSprite(sprite);
1360   }
1361 }
1362
1363
1364 int
1365 CanDriveOn(int x, int y)
1366 {
1367   int tile;
1368
1369   if (!TestBounds(x, y))
1370     return 0;
1371
1372   tile = Map[x][y] & LOMASK;
1373
1374   if (((tile >= ROADBASE) &&
1375        (tile <= LASTROAD) &&
1376        (tile != BRWH) &&
1377        (tile != BRWV)) ||
1378       (tile == HRAILROAD) ||
1379       (tile == VRAILROAD))
1380     return 1;
1381
1382   if ((tile == DIRT) || tally(tile))
1383     return -1;
1384
1385   return 0;
1386 }
1387
1388
1389 void
1390 ExplodeSprite(SimSprite *sprite)
1391 {
1392   int x, y;
1393
1394   sprite->frame = 0;
1395
1396   x = sprite->x + sprite->x_hot;
1397   y = sprite->y + sprite->y_hot;
1398   MakeExplosionAt(x, y);
1399
1400   x = (x >>4);
1401   y = (y >>4);
1402
1403   switch (sprite->type) {
1404   case AIR:
1405     CrashX = x;
1406     CrashY = y;
1407     SendMesAt(-24, x, y);
1408     break;
1409   case SHI:
1410     CrashX = x;
1411     CrashY = y;
1412     SendMesAt(-25, x, y);
1413     break;
1414   case TRA:
1415     CrashX = x;
1416     CrashY = y;
1417     SendMesAt(-26, x, y);
1418     break;
1419   case COP:
1420     CrashX = x;
1421     CrashY = y;
1422     SendMesAt(-27, x, y);
1423     break;
1424   case BUS:
1425     CrashX = x;
1426     CrashY = y;
1427     SendMesAt(-26, x, y); /* XXX for now */
1428     break;
1429   }
1430   MakeSound("city", "Explosion-High"); /* explosion */
1431   return;
1432 }
1433
1434
1435 int checkWet(int x)
1436 {
1437   if ((x == POWERBASE) || (x == POWERBASE + 1) ||
1438       (x == RAILBASE) || (x == RAILBASE + 1) ||
1439       (x == BRWH) || (x == BRWV))
1440     return(1);
1441   else
1442     return(0);
1443 }
1444
1445
1446 void
1447 Destroy(int ox, int oy)
1448 {
1449   short t, z, x, y;
1450
1451   x = ox >>4;
1452   y = oy >>4;
1453   if (!TestBounds(x, y))
1454     return;
1455   z = Map[x][y];
1456   t = z & LOMASK;
1457   if (t >= TREEBASE) {
1458     /* TILE_IS_BRIDGE(t) */
1459     if (!(z & BURNBIT)) {
1460       if ((t >= ROADBASE) && (t <= LASTROAD))
1461         Map[x][y] = RIVER;
1462       return;
1463     }
1464     if (z & ZONEBIT) {
1465       OFireZone(x, y, z);
1466       if (t > RZB) {
1467         MakeExplosionAt(ox, oy);
1468       }
1469     }
1470     if (checkWet(t))
1471       Map[x][y] = RIVER;
1472     else
1473       Map[x][y] = (DoAnimation
1474                    ? TINYEXP
1475                    : (LASTTINYEXP - 3)) | BULLBIT | ANIMBIT;
1476   }
1477 }
1478
1479
1480 void
1481 OFireZone(int Xloc, int Yloc, int ch)
1482 {
1483   register short Xtem, Ytem;
1484   short x, y, XYmax;
1485
1486   RateOGMem[Xloc >>3][Yloc >>3] -= 20;
1487
1488   ch &= LOMASK;
1489   if (ch < PORTBASE)
1490     XYmax = 2;
1491   else
1492     if (ch == AIRPORT) XYmax = 5;
1493     else XYmax = 4;
1494
1495   for (x = -1; x < XYmax; x++)
1496     for (y = -1; y < XYmax; y++) {
1497       Xtem = Xloc + x;
1498       Ytem = Yloc + y;
1499       if ((Map[Xtem][Ytem] & LOMASK) >= ROADBASE)
1500         Map[Xtem][Ytem] |= BULLBIT;
1501     }
1502 }
1503
1504
1505 void
1506 StartFire(int x, int y)
1507 {
1508   register int t, z;
1509
1510   x >>= 4;
1511   y >>= 4;
1512   if ((x >= WORLD_X) ||
1513       (y >= WORLD_Y) ||
1514       (x < 0) || (y < 0))
1515     return;
1516   z = Map[x][y];
1517   t = z & LOMASK;
1518   if ((!(z & BURNBIT)) && (t != 0)) return;
1519   if (z & ZONEBIT) return;
1520   Map[x][y] = FIRE + (Rand16() & 3) + ANIMBIT;
1521 }
1522
1523
1524 void
1525 GenerateTrain(int x, int y)
1526 {
1527   if ((TotalPop > 20) &&
1528       (GetSprite(TRA) == NULL) &&
1529       (!Rand(25))) {
1530     MakeSprite(TRA, (x <<4) + TRA_GROOVE_X, (y <<4) + TRA_GROOVE_Y);
1531   }
1532 }
1533
1534
1535 void
1536 GenerateBus(int x, int y)
1537 {
1538   if ((GetSprite(BUS) == NULL) &&
1539       (!Rand(25))) {
1540     MakeSprite(BUS, (x <<4) + BUS_GROOVE_X, (y <<4) + BUS_GROOVE_Y);
1541   }
1542 }
1543
1544
1545 void
1546 GenerateShip(void)
1547 {
1548   register short x, y;
1549
1550   if (!(Rand16() & 3))
1551     for (x = 4; x < WORLD_X - 2; x++)
1552       if (Map[x][0] == CHANNEL)  {
1553         MakeShipHere(x, 0);
1554         return;
1555       }
1556   if (!(Rand16() & 3))
1557     for (y = 1; y < WORLD_Y - 2; y++)
1558       if (Map[0][y] == CHANNEL)  {
1559         MakeShipHere(0, y);
1560         return;
1561       }
1562   if (!(Rand16() & 3))
1563     for (x = 4; x < WORLD_X - 2; x++)
1564       if (Map[x][WORLD_Y - 1] == CHANNEL)  {
1565         MakeShipHere(x, WORLD_Y - 1);
1566         return;
1567       }
1568   if (!(Rand16() & 3))
1569     for (y = 1; y < WORLD_Y - 2; y++)
1570       if (Map[WORLD_X - 1][y] == CHANNEL)  {
1571         MakeShipHere(WORLD_X - 1, y);
1572         return;
1573       }
1574 }
1575
1576
1577 void
1578 MakeShipHere(int x, int y)
1579 {
1580   MakeSprite(SHI, (x <<4) - (48 - 1), (y <<4));
1581 }
1582
1583
1584 void
1585 MakeMonster(void)
1586 {
1587   register int x, y, z, done = 0;
1588   SimSprite *sprite;
1589
1590   if ((sprite = GetSprite(GOD)) != NULL) {
1591     sprite->sound_count = 1;
1592     sprite->count = 1000;
1593     sprite->dest_x = PolMaxX <<4;
1594     sprite->dest_y = PolMaxY <<4;
1595     return;
1596   }
1597
1598   for (z = 0; z < 300; z++)  {
1599     x = Rand(WORLD_X - 20) + 10;
1600     y = Rand(WORLD_Y - 10) + 5;
1601     if ((Map[x][y] == RIVER) || (Map[x][y] == RIVER + BULLBIT)) {
1602       MonsterHere(x, y);
1603       done = 1;
1604       break;
1605     }
1606   }
1607   if (!done == 0)
1608     MonsterHere(60, 50);
1609 }
1610
1611
1612 void
1613 MonsterHere(int x, int y)
1614 {
1615   MakeSprite(GOD, (x <<4) + 48, (y <<4));
1616   ClearMes();
1617   SendMesAt(-21, x + 5, y);
1618 }
1619
1620
1621 void
1622 GenerateCopter(int x, int y)
1623 {
1624   if (GetSprite(COP) != NULL) return;
1625
1626   MakeSprite(COP, (x <<4), (y <<4) + 30);
1627 }
1628
1629
1630 void
1631 GeneratePlane(int x, int y)
1632 {
1633   if (GetSprite(AIR) != NULL) return;
1634
1635   MakeSprite(AIR, (x <<4) + 48, (y <<4) + 12);
1636 }
1637
1638
1639 void
1640 MakeAirCrash(void)
1641 {
1642 #ifndef NO_AIRCRASH
1643   if (GetSprite(AIR) == NULL) {
1644     short x, y;
1645
1646     x = Rand(WORLD_X - 20) + 10;
1647     y = Rand(WORLD_Y - 10) + 5;
1648
1649     GeneratePlane(x, y);
1650   }
1651
1652   ExplodeSprite(GetSprite(AIR));
1653 #endif
1654 }
1655
1656
1657 void
1658 MakeTornado(void)
1659 {
1660   short x, y;
1661   SimSprite *sprite;
1662
1663   if ((sprite = GetSprite(TOR)) != NULL) {
1664     sprite->count = 200;
1665     return;
1666   }
1667
1668   x = Rand((WORLD_X <<4) - 800) + 400;
1669   y = Rand((WORLD_Y <<4) - 200) + 100;
1670   MakeSprite(TOR, x, y);
1671   ClearMes();
1672   SendMesAt(-22, (x >>4) + 3, (y >>4) + 2);
1673 }
1674
1675
1676 void
1677 MakeExplosion(int x, int y)
1678 {
1679   if ((x >= 0) && (x < WORLD_X) &&
1680       (y >= 0) && (y < WORLD_Y)) {
1681     MakeExplosionAt((x << 4) + 8, (y << 4) + 8);
1682   }
1683 }
1684
1685
1686 void
1687 MakeExplosionAt(int x, int y)
1688 {
1689   MakeNewSprite(EXP, x - 40, y - 16);
1690 }
1691