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