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 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 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], d_flag;   /* template for the screen */
 284 void
 285 drawscreen()
 286 {
 287         int    i, j, kk;
 288         int             lastx, lasty;   /* variables used to optimize the
 289                                          * object printing */
 290         if (d_xmin == 0 && d_xmax == MAXX && d_ymin == 0 && d_ymax == MAXY) {
 291                 d_flag = 1;
 292                 clear();        /* clear the screen */
 293         } else {
 294                 d_flag = 0;
 295                 cursor(1, 1);
 296         }
 297         if (d_xmin < 0)
 298                 d_xmin = 0;     /* d_xmin=-1 means display all without
 299                                  * bottomline */
 300
 301         for (i = d_ymin; i < d_ymax; i++)
 302                 for (j = d_xmin; j < d_xmax; j++)
 303                         if (know[j][i] == 0)
 304                                 screen[j][i] = ' ';
 305                         else if ((kk = mitem[j][i]) != 0)
 306                                 screen[j][i] = monstnamelist[kk];
 307                         else if ((kk = item[j][i]) == OWALL)
 308                                 screen[j][i] = '#';
 309                         else
 310                                 screen[j][i] = ' ';
 311
 312         for (i = d_ymin; i < d_ymax; i++) {
 313                 j = d_xmin;
 314                 while ((screen[j][i] == ' ') && (j < d_xmax))
 315                         j++;
 316                 /* was m=0 */
 317                 if (j >= d_xmax)
 318                         m = d_xmin;     /* don't search backwards if blank
 319                                          * line */
 320                 else {          /* search backwards for end of line */
 321                         m = d_xmax - 1;
 322                         while ((screen[m][i] == ' ') && (m > d_xmin))
 323                                 --m;
 324                         if (j <= m)
 325                                 cursor(j + 1, i + 1);
 326                         else
 327                                 continue;
 328                 }
 329                 while (j <= m) {
 330                         if (j <= m - 3) {
 331                                 for (kk = j; kk <= j + 3; kk++)
 332                                         if (screen[kk][i] != ' ')
 333                                                 kk = 1000;
 334                                 if (kk < 1000) {
 335                                         while (screen[j][i] == ' ' && j <= m)
 336                                                 j++;
 337                                         cursor(j + 1, i + 1);
 338                                 }
 339                         }
 340                         lprc(screen[j++][i]);
 341                 }
 342         }
 343         setbold();              /* print out only bold objects now */
 344
 345         for (lastx = lasty = 127, i = d_ymin; i < d_ymax; i++)
 346                 for (j = d_xmin; j < d_xmax; j++) {
 347                         if ((kk = item[j][i]) != 0)
 348                                 if (kk != OWALL)
 349                                         if ((know[j][i]) && (mitem[j][i] == 0))
 350                                                 if (objnamelist[kk] != ' ') {
 351                                                         if (lasty != i + 1 || lastx != j)
 352                                                                 cursor(lastx = j + 1, lasty = i + 1);
 353                                                         else
 354                                                                 lastx++;
 355                                                         lprc(objnamelist[kk]);
 356                                                 }
 357                 }
 358
 359         resetbold();
 360         if (d_flag) {
 361                 always = 1;
 362                 botside();
 363                 always = 1;
 364                 bot_linex();
 365         }
 366         oldx = 99;
 367         d_xmin = 0, d_xmax = MAXX, d_ymin = 0, d_ymax = MAXY;   /* for limited screen
 368                                                                  * drawing */
 369 }
 370
 371
 372 /*
 373         showcell(x,y)
 374
 375         subroutine to display a cell location on the screen
 376  */
 377 void
 378 showcell(x, y)
 379         int             x, y;
 380 {
 381         int    i, j, kk, mm;
 382         if (c[BLINDCOUNT])
 383                 return;         /* see nothing if blind          */
 384         if (c[AWARENESS]) {
 385                 minx = x - 3;
 386                 maxx = x + 3;
 387                 miny = y - 3;
 388                 maxy = y + 3;
 389         } else {
 390                 minx = x - 1;
 391                 maxx = x + 1;
 392                 miny = y - 1;
 393                 maxy = y + 1;
 394         }
 395
 396         if (minx < 0)
 397                 minx = 0;
 398         if (maxx > MAXX - 1)
 399                 maxx = MAXX - 1;
 400         if (miny < 0)
 401                 miny = 0;
 402         if (maxy > MAXY - 1)
 403                 maxy = MAXY - 1;
 404
 405         for (j = miny; j <= maxy; j++)
 406                 for (mm = minx; mm <= maxx; mm++)
 407                         if (know[mm][j] == 0) {
 408                                 cursor(mm + 1, j + 1);
 409                                 x = maxx;
 410                                 while (know[x][j])
 411                                         --x;
 412                                 for (i = mm; i <= x; i++) {
 413                                         if ((kk = mitem[i][j]) != 0)
 414                                                 lprc(monstnamelist[kk]);
 415                                         else
 416                                                 switch (kk = item[i][j]) {
 417                                                 case OWALL:
 418                                                 case 0:
 419                                                 case OIVTELETRAP:
 420                                                 case OTRAPARROWIV:
 421                                                 case OIVDARTRAP:
 422                                                 case OIVTRAPDOOR:
 423                                                         lprc(objnamelist[kk]);
 424                                                         break;
 425
 426                                                 default:
 427                                                         setbold();
 428                                                         lprc(objnamelist[kk]);
 429                                                         resetbold();
 430                                                 };
 431                                         know[i][j] = 1;
 432                                 }
 433                                 mm = maxx;
 434                         }
 435 }
 436
 437 /*
 438         this routine shows only the spot that is given it.  the spaces around
 439         these coordinated are not shown
 440         used in godirect() in monster.c for missile weapons display
 441  */
 442 void
 443 show1cell(x, y)
 444         int             x, y;
 445 {
 446         if (c[BLINDCOUNT])
 447                 return;         /* see nothing if blind          */
 448         cursor(x + 1, y + 1);
 449         if ((k = mitem[x][y]) != 0)
 450                 lprc(monstnamelist[k]);
 451         else
 452                 switch (k = item[x][y]) {
 453                 case OWALL:
 454                 case 0:
 455                 case OIVTELETRAP:
 456                 case OTRAPARROWIV:
 457                 case OIVDARTRAP:
 458                 case OIVTRAPDOOR:
 459                         lprc(objnamelist[k]);
 460                         break;
 461
 462                 default:
 463                         setbold();
 464                         lprc(objnamelist[k]);
 465                         resetbold();
 466                 };
 467         know[x][y] |= 1;        /* we end up knowing about it */
 468 }
 469
 470 /*
 471         showplayer()
 472
 473         subroutine to show where the player is on the screen
 474         cursor values start from 1 up
 475  */
 476 void
 477 showplayer()
 478 {
 479         cursor(playerx + 1, playery + 1);
 480         oldx = playerx;
 481         oldy = playery;
 482 }
 483
 484 /*
 485         moveplayer(dir)
 486
 487         subroutine to move the player from one room to another
 488         returns 0 if can't move in that direction or hit a monster or on an object
 489         else returns 1
 490         nomove is set to 1 to stop the next move (inadvertent monsters hitting
 491         players when walking into walls) if player walks off screen or into wall
 492  */
 493 short           diroffx[] = {0, 0, 1, 0, -1, 1, -1, 1, -1};
 494 short           diroffy[] = {0, 1, 0, -1, 0, -1, -1, 1, 1};
 495 int
 496 moveplayer(dir)
 497         int             dir;    /* from = present room #  direction =
 498                                  * [1-north] [2-east] [3-south] [4-west]
 499                                  * [5-northeast] [6-northwest] [7-southeast]
 500                                  * [8-southwest] if direction=0, don't
 501                                  * move--just show where he is */
 502 {
 503         int    kk, mm, i, j;
 504         if (c[CONFUSE])
 505                 if (c[LEVEL] < rnd(30))
 506                         dir = rund(9);  /* if confused any dir */
 507         kk = playerx + diroffx[dir];
 508         mm = playery + diroffy[dir];
 509         if (kk < 0 || kk >= MAXX || mm < 0 || mm >= MAXY) {
 510                 nomove = 1;
 511                 return (yrepcount = 0);
 512         }
 513         i = item[kk][mm];
 514         j = mitem[kk][mm];
 515         if (i == OWALL && c[WTW] == 0) {
 516                 nomove = 1;
 517                 return (yrepcount = 0);
 518         }                       /* hit a wall    */
 519         if (kk == 33 && mm == MAXY - 1 && level == 1) {
 520                 newcavelevel(0);
 521                 for (kk = 0; kk < MAXX; kk++)
 522                         for (mm = 0; mm < MAXY; mm++)
 523                                 if (item[kk][mm] == OENTRANCE) {
 524                                         playerx = kk;
 525                                         playery = mm;
 526                                         positionplayer();
 527                                         drawscreen();
 528                                         return (0);
 529                                 }
 530         }
 531         if (j > 0) {
 532                 hitmonster(kk, mm);
 533                 return (yrepcount = 0);
 534         }                       /* hit a monster */
 535         lastpx = playerx;
 536         lastpy = playery;
 537         playerx = kk;
 538         playery = mm;
 539         if (i && i != OTRAPARROWIV && i != OIVTELETRAP && i != OIVDARTRAP && i != OIVTRAPDOOR)
 540                 return (yrepcount = 0);
 541         else
 542                 return (1);
 543 }
 544
 545
 546 /*
 547  *      function to show what magic items have been discovered thus far
 548  *      enter with -1 for just spells, anything else will give scrolls & potions
 549  */
 550 static int      lincount, count;
 551 void
 552 seemagic(arg)
 553         int             arg;
 554 {
 555         int    i, number = 0;
 556         count = lincount = 0;
 557         nosignal = 1;
 558
 559         if (arg == -1) {        /* if display spells while casting one */
 560                 for (number = i = 0; i < SPNUM; i++)
 561                         if (spelknow[i])
 562                                 number++;
 563                 number = (number + 2) / 3 + 4;  /* # lines needed to display */
 564                 cl_up(79, number);
 565                 cursor(1, 1);
 566         } else {
 567                 resetscroll();
 568                 clear();
 569         }
 570
 571         lprcat("The magic spells you have discovered thus far:\n\n");
 572         for (i = 0; i < SPNUM; i++)
 573                 if (spelknow[i]) {
 574                         lprintf("%s %-20s ", spelcode[i], spelname[i]);
 575                         seepage();
 576                 }
 577         if (arg == -1) {
 578                 seepage();
 579                 more();
 580                 nosignal = 0;
 581                 draws(0, MAXX, 0, number);
 582                 return;
 583         }
 584         lincount += 3;
 585         if (count != 0) {
 586                 count = 2;
 587                 seepage();
 588         }
 589         lprcat("\nThe magic scrolls you have found to date are:\n\n");
 590         count = 0;
 591         for (i = 0; i < MAXSCROLL; i++)
 592                 if (scrollname[i][0])
 593                         if (scrollname[i][1] != ' ') {
 594                                 lprintf("%-26s", &scrollname[i][1]);
 595                                 seepage();
 596                         }
 597         lincount += 3;
 598         if (count != 0) {
 599                 count = 2;
 600                 seepage();
 601         }
 602         lprcat("\nThe magic potions you have found to date are:\n\n");
 603         count = 0;
 604         for (i = 0; i < MAXPOTION; i++)
 605                 if (potionname[i][0])
 606                         if (potionname[i][1] != ' ') {
 607                                 lprintf("%-26s", &potionname[i][1]);
 608                                 seepage();
 609                         }
 610         if (lincount != 0)
 611                 more();
 612         nosignal = 0;
 613         setscroll();
 614         drawscreen();
 615 }
 616
 617 /*
 618  *      subroutine to paginate the seemagic function
 619  */
 620 static void
 621 seepage(void)
 622 {
 623         if (++count == 3) {
 624                 lincount++;
 625                 count = 0;
 626                 lprc('\n');
 627                 if (lincount > 17) {
 628                         lincount = 0;
 629                         more();
 630                         clear();
 631                 }
 632         }
 633 }