games/larn/display.c

   1 /*      $NetBSD: display.c,v 1.8 2008/02/03 19:20:41 dholland Exp $     */
   2
   3 /* display.c            Larn is copyrighted 1986 by Noah Morgan. */
   4 #include <sys/cdefs.h>
   5 #ifndef lint
   6 __RCSID("$NetBSD: display.c,v 1.8 2008/02/03 19:20:41 dholland Exp $");
   7 #endif /* not lint */
   8
   9 #include "header.h"
  10 #include "extern.h"
  11
  12 #define makecode(_a,_b,_c) (((_a)<<16) + ((_b)<<8) + (_c))
  13
  14 static void bot_hpx(void);
  15 static void bot_spellx(void);
  16 static void botside(void);
  17 static void botsub(int, const char *);
  18 static void seepage(void);
  19
  20 static int      minx, maxx, miny, maxy, k, m;
  21 static char     bot1f = 0, bot2f = 0, bot3f = 0;
  22 static char always = 0;
  23 /*
  24         bottomline()
  25
  26         now for the bottom line of the display
  27  */
  28 void
  29 bottomline()
  30 {
  31         recalc();
  32         bot1f = 1;
  33 }
  34
  35 void
  36 bottomhp()
  37 {
  38         bot2f = 1;
  39 }
  40
  41 void
  42 bottomspell()
  43 {
  44         bot3f = 1;
  45 }
  46
  47 void
  48 bottomdo()
  49 {
  50         if (bot1f) {
  51                 bot3f = bot1f = bot2f = 0;
  52                 bot_linex();
  53                 return;
  54         }
  55         if (bot2f) {
  56                 bot2f = 0;
  57                 bot_hpx();
  58         }
  59         if (bot3f) {
  60                 bot3f = 0;
  61                 bot_spellx();
  62         }
  63 }
  64
  65 void
  66 bot_linex()
  67 {
  68         int    i;
  69         if (cbak[SPELLS] <= -50 || (always)) {
  70                 cursor(1, 18);
  71                 if (c[SPELLMAX] > 99)
  72                         lprintf("Spells:%3ld(%3ld)", (long) c[SPELLS], (long) c[SPELLMAX]);
  73                 else
  74                         lprintf("Spells:%3ld(%2ld) ", (long) c[SPELLS], (long) c[SPELLMAX]);
  75                 lprintf(" AC: %-3ld  WC: %-3ld  Level", (long) c[AC], (long) c[WCLASS]);
  76                 if (c[LEVEL] > 99)
  77                         lprintf("%3ld", (long) c[LEVEL]);
  78                 else
  79                         lprintf(" %-2ld", (long) c[LEVEL]);
  80                 lprintf(" Exp: %-9ld %s\n", (long) c[EXPERIENCE], class[c[LEVEL] - 1]);
  81                 lprintf("HP: %3ld(%3ld) STR=%-2ld INT=%-2ld ",
  82                         (long) c[HP], (long) c[HPMAX], (long) (c[STRENGTH] + c[STREXTRA]), (long) c[INTELLIGENCE]);
  83                 lprintf("WIS=%-2ld CON=%-2ld DEX=%-2ld CHA=%-2ld LV:",
  84                         (long) c[WISDOM], (long) c[CONSTITUTION], (long) c[DEXTERITY], (long) c[CHARISMA]);
  85
  86                 if ((level == 0) || (wizard))
  87                         c[TELEFLAG] = 0;
  88                 if (c[TELEFLAG])
  89                         lprcat(" ?");
  90                 else
  91                         lprcat(levelname[level]);
  92                 lprintf("  Gold: %-6ld", (long) c[GOLD]);
  93                 always = 1;
  94                 botside();
  95                 c[TMP] = c[STRENGTH] + c[STREXTRA];
  96                 for (i = 0; i < 100; i++)
  97                         cbak[i] = c[i];
  98                 return;
  99         }
 100         botsub(makecode(SPELLS, 8, 18), "%3ld");
 101         if (c[SPELLMAX] > 99)
 102                 botsub(makecode(SPELLMAX, 12, 18), "%3ld)");
 103         else
 104                 botsub(makecode(SPELLMAX, 12, 18), "%2ld) ");
 105         botsub(makecode(HP, 5, 19), "%3ld");
 106         botsub(makecode(HPMAX, 9, 19), "%3ld");
 107         botsub(makecode(AC, 21, 18), "%-3ld");
 108         botsub(makecode(WCLASS, 30, 18), "%-3ld");
 109         botsub(makecode(EXPERIENCE, 49, 18), "%-9ld");
 110         if (c[LEVEL] != cbak[LEVEL]) {
 111                 cursor(59, 18);
 112                 lprcat(class[c[LEVEL] - 1]);
 113         }
 114         if (c[LEVEL] > 99)
 115                 botsub(makecode(LEVEL, 40, 18), "%3ld");
 116         else
 117                 botsub(makecode(LEVEL, 40, 18), " %-2ld");
 118         c[TMP] = c[STRENGTH] + c[STREXTRA];
 119         botsub(makecode(TMP, 18, 19), "%-2ld");
 120         botsub(makecode(INTELLIGENCE, 25, 19), "%-2ld");
 121         botsub(makecode(WISDOM, 32, 19), "%-2ld");
 122         botsub(makecode(CONSTITUTION, 39, 19), "%-2ld");
 123         botsub(makecode(DEXTERITY, 46, 19), "%-2ld");
 124         botsub(makecode(CHARISMA, 53, 19), "%-2ld");
 125         if ((level != cbak[CAVELEVEL]) || (c[TELEFLAG] != cbak[TELEFLAG])) {
 126                 if ((level == 0) || (wizard))
 127                         c[TELEFLAG] = 0;
 128                 cbak[TELEFLAG] = c[TELEFLAG];
 129                 cbak[CAVELEVEL] = level;
 130                 cursor(59, 19);
 131                 if (c[TELEFLAG])
 132                         lprcat(" ?");
 133                 else
 134                         lprcat(levelname[level]);
 135         }
 136         botsub(makecode(GOLD, 69, 19), "%-6ld");
 137         botside();
 138 }
 139
 140 /*
 141         special subroutine to update only the gold number on the bottomlines
 142         called from ogold()
 143  */
 144 void
 145 bottomgold()
 146 {
 147         botsub(makecode(GOLD, 69, 19), "%-6ld");
 148         /* botsub(GOLD,"%-6ld",69,19); */
 149 }
 150
 151 /*
 152         special routine to update hp and level fields on bottom lines
 153         called in monster.c hitplayer() and spattack()
 154  */
 155 static void
 156 bot_hpx(void)
 157 {
 158         if (c[EXPERIENCE] != cbak[EXPERIENCE]) {
 159                 recalc();
 160                 bot_linex();
 161         } else
 162                 botsub(makecode(HP, 5, 19), "%3ld");
 163 }
 164
 165 /*
 166         special routine to update number of spells called from regen()
 167  */
 168 static void
 169 bot_spellx(void)
 170 {
 171         botsub(makecode(SPELLS, 9, 18), "%2ld");
 172 }
 173
 174 /*
 175         common subroutine for a more economical bottomline()
 176  */
 177 static struct bot_side_def {
 178         int             typ;
 179         const char     *string;
 180 }
 181                 bot_data[] =
 182 {
 183         { STEALTH, "stealth"},
 184         { UNDEADPRO, "undead pro" },
 185         { SPIRITPRO, "spirit pro" },
 186         { CHARMCOUNT, "Charm"},
 187         { TIMESTOP, "Time Stop" },
 188         { HOLDMONST, "Hold Monst" },
 189         { GIANTSTR, "Giant Str"},
 190         { FIRERESISTANCE, "Fire Resit" },
 191         { DEXCOUNT, "Dexterity" },
 192         { STRCOUNT, "Strength"},
 193         { SCAREMONST, "Scare" },
 194         { HASTESELF, "Haste Self" },
 195         { CANCELLATION, "Cancel"},
 196         { INVISIBILITY, "Invisible" },
 197         { ALTPRO, "Protect 3" },
 198         { PROTECTIONTIME, "Protect 2"},
 199         { WTW, "Wall-Walk" }
 200 };
 201
 202 static void
 203 botside(void)
 204 {
 205         int    i, idx;
 206         for (i = 0; i < 17; i++) {
 207                 idx = bot_data[i].typ;
 208                 if ((always) || (c[idx] != cbak[idx])) {
 209                         if ((always) || (cbak[idx] == 0)) {
 210                                 if (c[idx]) {
 211                                         cursor(70, i + 1);
 212                                         lprcat(bot_data[i].string);
 213                                 }
 214                         } else if (c[idx] == 0) {
 215                                 cursor(70, i + 1);
 216                                 lprcat("          ");
 217                         }
 218                         cbak[idx] = c[idx];
 219                 }
 220         }
 221         always = 0;
 222 }
 223
 224 static void
 225 botsub(int idx, const char *str)
 226 {
 227         int    x, y;
 228         y = idx & 0xff;
 229         x = (idx >> 8) & 0xff;
 230         idx >>= 16;
 231         if (c[idx] != cbak[idx]) {
 232                 cbak[idx] = c[idx];
 233                 cursor(x, y);
 234                 lprintf(str, (long) c[idx]);
 235         }
 236 }
 237
 238 /*
 239  *      subroutine to draw only a section of the screen
 240  *      only the top section of the screen is updated.
 241  *      If entire lines are being drawn, then they will be cleared first.
 242  */
 243 /* for limited screen drawing */
 244 static int d_xmin = 0, d_xmax = MAXX, d_ymin = 0, d_ymax = MAXY;
 245
 246 void
 247 draws(xmin, xmax, ymin, ymax)
 248         int             xmin, xmax, ymin, ymax;
 249 {
 250         int    i, idx;
 251         if (xmin == 0 && xmax == MAXX) {        /* clear section of screen as
 252                                                  * needed */
 253                 if (ymin == 0)
 254                         cl_up(79, ymax);
 255                 else
 256                         for (i = ymin; i < ymin; i++)
 257                                 cl_line(1, i + 1);
 258                 xmin = -1;
 259         }
 260         d_xmin = xmin;
 261         d_xmax = xmax;
 262         d_ymin = ymin;
 263         d_ymax = ymax;          /* for limited screen drawing */
 264         drawscreen();
 265         if (xmin <= 0 && xmax == MAXX) {        /* draw stuff on right side
 266                                                  * of screen as needed */
 267                 for (i = ymin; i < ymax; i++) {
 268                         idx = bot_data[i].typ;
 269                         if (c[idx]) {
 270                                 cursor(70, i + 1);
 271                                 lprcat(bot_data[i].string);
 272                         }
 273                         cbak[idx] = c[idx];
 274                 }
 275         }
 276 }
 277
 278 /*
 279         drawscreen()
 280
 281         subroutine to redraw the whole screen as the player knows it
 282  */
 283 u_char            screen[MAXX][MAXY];   /* template for the screen */
 284 static u_char d_flag;
 285 void
 286 drawscreen()
 287 {
 288         int    i, j, kk;
 289         int             lastx, lasty;   /* variables used to optimize the
 290                                          * object printing */
 291         if (d_xmin == 0 && d_xmax == MAXX && d_ymin == 0 && d_ymax == MAXY) {
 292                 d_flag = 1;
 293                 clear();        /* clear the screen */
 294         } else {
 295                 d_flag = 0;
 296                 cursor(1, 1);
 297         }
 298         if (d_xmin < 0)
 299                 d_xmin = 0;     /* d_xmin=-1 means display all without
 300                                  * bottomline */
 301
 302         for (i = d_ymin; i < d_ymax; i++)
 303                 for (j = d_xmin; j < d_xmax; j++)
 304                         if (know[j][i] == 0)
 305                                 screen[j][i] = ' ';
 306                         else if ((kk = mitem[j][i]) != 0)
 307                                 screen[j][i] = monstnamelist[kk];
 308                         else if ((kk = item[j][i]) == OWALL)
 309                                 screen[j][i] = '#';
 310                         else
 311                                 screen[j][i] = ' ';
 312
 313         for (i = d_ymin; i < d_ymax; i++) {
 314                 j = d_xmin;
 315                 while ((screen[j][i] == ' ') && (j < d_xmax))
 316                         j++;
 317                 /* was m=0 */
 318                 if (j >= d_xmax)
 319                         m = d_xmin;     /* don't search backwards if blank
 320                                          * line */
 321                 else {          /* search backwards for end of line */
 322                         m = d_xmax - 1;
 323                         while ((screen[m][i] == ' ') && (m > d_xmin))
 324                                 --m;
 325                         if (j <= m)
 326                                 cursor(j + 1, i + 1);
 327                         else
 328                                 continue;
 329                 }
 330                 while (j <= m) {
 331                         if (j <= m - 3) {
 332                                 for (kk = j; kk <= j + 3; kk++)
 333                                         if (screen[kk][i] != ' ')
 334                                                 kk = 1000;
 335                                 if (kk < 1000) {
 336                                         while (screen[j][i] == ' ' && j <= m)
 337                                                 j++;
 338                                         cursor(j + 1, i + 1);
 339                                 }
 340                         }
 341                         lprc(screen[j++][i]);
 342                 }
 343         }
 344         setbold();              /* print out only bold objects now */
 345
 346         for (lastx = lasty = 127, i = d_ymin; i < d_ymax; i++)
 347                 for (j = d_xmin; j < d_xmax; j++) {
 348                         if ((kk = item[j][i]) != 0)
 349                                 if (kk != OWALL)
 350                                         if ((know[j][i]) && (mitem[j][i] == 0))
 351                                                 if (objnamelist[kk] != ' ') {
 352                                                         if (lasty != i + 1 || lastx != j)
 353                                                                 cursor(lastx = j + 1, lasty = i + 1);
 354                                                         else
 355                                                                 lastx++;
 356                                                         lprc(objnamelist[kk]);
 357                                                 }
 358                 }
 359
 360         resetbold();
 361         if (d_flag) {
 362                 always = 1;
 363                 botside();
 364                 always = 1;
 365                 bot_linex();
 366         }
 367         oldx = 99;
 368         d_xmin = 0, d_xmax = MAXX, d_ymin = 0, d_ymax = MAXY;   /* for limited screen
 369                                                                  * drawing */
 370 }
 371
 372
 373 /*
 374         showcell(x,y)
 375
 376         subroutine to display a cell location on the screen
 377  */
 378 void
 379 showcell(x, y)
 380         int             x, y;
 381 {
 382         int    i, j, kk, mm;
 383         if (c[BLINDCOUNT])
 384                 return;         /* see nothing if blind          */
 385         if (c[AWARENESS]) {
 386                 minx = x - 3;
 387                 maxx = x + 3;
 388                 miny = y - 3;
 389                 maxy = y + 3;
 390         } else {
 391                 minx = x - 1;
 392                 maxx = x + 1;
 393                 miny = y - 1;
 394                 maxy = y + 1;
 395         }
 396
 397         if (minx < 0)
 398                 minx = 0;
 399         if (maxx > MAXX - 1)
 400                 maxx = MAXX - 1;
 401         if (miny < 0)
 402                 miny = 0;
 403         if (maxy > MAXY - 1)
 404                 maxy = MAXY - 1;
 405
 406         for (j = miny; j <= maxy; j++)
 407                 for (mm = minx; mm <= maxx; mm++)
 408                         if (know[mm][j] == 0) {
 409                                 cursor(mm + 1, j + 1);
 410                                 x = maxx;
 411                                 while (know[x][j])
 412                                         --x;
 413                                 for (i = mm; i <= x; i++) {
 414                                         if ((kk = mitem[i][j]) != 0)
 415                                                 lprc(monstnamelist[kk]);
 416                                         else
 417                                                 switch (kk = item[i][j]) {
 418                                                 case OWALL:
 419                                                 case 0:
 420                                                 case OIVTELETRAP:
 421                                                 case OTRAPARROWIV:
 422                                                 case OIVDARTRAP:
 423                                                 case OIVTRAPDOOR:
 424                                                         lprc(objnamelist[kk]);
 425                                                         break;
 426
 427                                                 default:
 428                                                         setbold();
 429                                                         lprc(objnamelist[kk]);
 430                                                         resetbold();
 431                                                 };
 432                                         know[i][j] = 1;
 433                                 }
 434                                 mm = maxx;
 435                         }
 436 }
 437
 438 /*
 439         this routine shows only the spot that is given it.  the spaces around
 440         these coordinated are not shown
 441         used in godirect() in monster.c for missile weapons display
 442  */
 443 void
 444 show1cell(x, y)
 445         int             x, y;
 446 {
 447         if (c[BLINDCOUNT])
 448                 return;         /* see nothing if blind          */
 449         cursor(x + 1, y + 1);
 450         if ((k = mitem[x][y]) != 0)
 451                 lprc(monstnamelist[k]);
 452         else
 453                 switch (k = item[x][y]) {
 454                 case OWALL:
 455                 case 0:
 456                 case OIVTELETRAP:
 457                 case OTRAPARROWIV:
 458                 case OIVDARTRAP:
 459                 case OIVTRAPDOOR:
 460                         lprc(objnamelist[k]);
 461                         break;
 462
 463                 default:
 464                         setbold();
 465                         lprc(objnamelist[k]);
 466                         resetbold();
 467                 };
 468         know[x][y] |= 1;        /* we end up knowing about it */
 469 }
 470
 471 /*
 472         showplayer()
 473
 474         subroutine to show where the player is on the screen
 475         cursor values start from 1 up
 476  */
 477 void
 478 showplayer()
 479 {
 480         cursor(playerx + 1, playery + 1);
 481         oldx = playerx;
 482         oldy = playery;
 483 }
 484
 485 /*
 486         moveplayer(dir)
 487
 488         subroutine to move the player from one room to another
 489         returns 0 if can't move in that direction or hit a monster or on an object
 490         else returns 1
 491         nomove is set to 1 to stop the next move (inadvertent monsters hitting
 492         players when walking into walls) if player walks off screen or into wall
 493  */
 494 short           diroffx[] = {0, 0, 1, 0, -1, 1, -1, 1, -1};
 495 short           diroffy[] = {0, 1, 0, -1, 0, -1, -1, 1, 1};
 496 int
 497 moveplayer(dir)
 498         int             dir;    /* from = present room #  direction =
 499                                  * [1-north] [2-east] [3-south] [4-west]
 500                                  * [5-northeast] [6-northwest] [7-southeast]
 501                                  * [8-southwest] if direction=0, don't
 502                                  * move--just show where he is */
 503 {
 504         int    kk, mm, i, j;
 505         if (c[CONFUSE])
 506                 if (c[LEVEL] < rnd(30))
 507                         dir = rund(9);  /* if confused any dir */
 508         kk = playerx + diroffx[dir];
 509         mm = playery + diroffy[dir];
 510         if (kk < 0 || kk >= MAXX || mm < 0 || mm >= MAXY) {
 511                 nomove = 1;
 512                 return (yrepcount = 0);
 513         }
 514         i = item[kk][mm];
 515         j = mitem[kk][mm];
 516         if (i == OWALL && c[WTW] == 0) {
 517                 nomove = 1;
 518                 return (yrepcount = 0);
 519         }                       /* hit a wall    */
 520         if (kk == 33 && mm == MAXY - 1 && level == 1) {
 521                 newcavelevel(0);
 522                 for (kk = 0; kk < MAXX; kk++)
 523                         for (mm = 0; mm < MAXY; mm++)
 524                                 if (item[kk][mm] == OENTRANCE) {
 525                                         playerx = kk;
 526                                         playery = mm;
 527                                         positionplayer();
 528                                         drawscreen();
 529                                         return (0);
 530                                 }
 531         }
 532         if (j > 0) {
 533                 hitmonster(kk, mm);
 534                 return (yrepcount = 0);
 535         }                       /* hit a monster */
 536         lastpx = playerx;
 537         lastpy = playery;
 538         playerx = kk;
 539         playery = mm;
 540         if (i && i != OTRAPARROWIV && i != OIVTELETRAP && i != OIVDARTRAP && i != OIVTRAPDOOR)
 541                 return (yrepcount = 0);
 542         else
 543                 return (1);
 544 }
 545
 546
 547 /*
 548  *      function to show what magic items have been discovered thus far
 549  *      enter with -1 for just spells, anything else will give scrolls & potions
 550  */
 551 static int      lincount, count;
 552 void
 553 seemagic(arg)
 554         int             arg;
 555 {
 556         int    i, number = 0;
 557         count = lincount = 0;
 558         nosignal = 1;
 559
 560         if (arg == -1) {        /* if display spells while casting one */
 561                 for (number = i = 0; i < SPNUM; i++)
 562                         if (spelknow[i])
 563                                 number++;
 564                 number = (number + 2) / 3 + 4;  /* # lines needed to display */
 565                 cl_up(79, number);
 566                 cursor(1, 1);
 567         } else {
 568                 resetscroll();
 569                 clear();
 570         }
 571
 572         lprcat("The magic spells you have discovered thus far:\n\n");
 573         for (i = 0; i < SPNUM; i++)
 574                 if (spelknow[i]) {
 575                         lprintf("%s %-20s ", spelcode[i], spelname[i]);
 576                         seepage();
 577                 }
 578         if (arg == -1) {
 579                 seepage();
 580                 more();
 581                 nosignal = 0;
 582                 draws(0, MAXX, 0, number);
 583                 return;
 584         }
 585         lincount += 3;
 586         if (count != 0) {
 587                 count = 2;
 588                 seepage();
 589         }
 590         lprcat("\nThe magic scrolls you have found to date are:\n\n");
 591         count = 0;
 592         for (i = 0; i < MAXSCROLL; i++)
 593                 if (scrollname[i][0])
 594                         if (scrollname[i][1] != ' ') {
 595                                 lprintf("%-26s", &scrollname[i][1]);
 596                                 seepage();
 597                         }
 598         lincount += 3;
 599         if (count != 0) {
 600                 count = 2;
 601                 seepage();
 602         }
 603         lprcat("\nThe magic potions you have found to date are:\n\n");
 604         count = 0;
 605         for (i = 0; i < MAXPOTION; i++)
 606                 if (potionname[i][0])
 607                         if (potionname[i][1] != ' ') {
 608                                 lprintf("%-26s", &potionname[i][1]);
 609                                 seepage();
 610                         }
 611         if (lincount != 0)
 612                 more();
 613         nosignal = 0;
 614         setscroll();
 615         drawscreen();
 616 }
 617
 618 /*
 619  *      subroutine to paginate the seemagic function
 620  */
 621 static void
 622 seepage(void)
 623 {
 624         if (++count == 3) {
 625                 lincount++;
 626                 count = 0;
 627                 lprc('\n');
 628                 if (lincount > 17) {
 629                         lincount = 0;
 630                         more();
 631                         clear();
 632                 }
 633         }
 634 }