1 /* $NetBSD: display.c,v 1.10 2012/06/19 05:30:43 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.10 2012/06/19 05:30:43 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(void) 30 { 31 recalc(); 32 bot1f = 1; 33 } 34 35 void 36 bottomhp(void) 37 { 38 bot2f = 1; 39 } 40 41 void 42 bottomspell(void) 43 { 44 bot3f = 1; 45 } 46 47 void 48 bottomdo(void) 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(void) 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(void) 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(int xmin, int xmax, int ymin, int ymax) 248 { 249 int i, idx; 250 if (xmin == 0 && xmax == MAXX) { /* clear section of screen as 251 * needed */ 252 if (ymin == 0) 253 cl_up(79, ymax); 254 else 255 for (i = ymin; i < ymin; i++) 256 cl_line(1, i + 1); 257 xmin = -1; 258 } 259 d_xmin = xmin; 260 d_xmax = xmax; 261 d_ymin = ymin; 262 d_ymax = ymax; /* for limited screen drawing */ 263 drawscreen(); 264 if (xmin <= 0 && xmax == MAXX) { /* draw stuff on right side 265 * of screen as needed */ 266 for (i = ymin; i < ymax; i++) { 267 idx = bot_data[i].typ; 268 if (c[idx]) { 269 cursor(70, i + 1); 270 lprcat(bot_data[i].string); 271 } 272 cbak[idx] = c[idx]; 273 } 274 } 275 } 276 277 /* 278 drawscreen() 279 280 subroutine to redraw the whole screen as the player knows it 281 */ 282 u_char screen[MAXX][MAXY]; /* template for the screen */ 283 static u_char d_flag; 284 void 285 drawscreen(void) 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(int x, int y) 379 { 380 int i, j, kk, mm; 381 if (c[BLINDCOUNT]) 382 return; /* see nothing if blind */ 383 if (c[AWARENESS]) { 384 minx = x - 3; 385 maxx = x + 3; 386 miny = y - 3; 387 maxy = y + 3; 388 } else { 389 minx = x - 1; 390 maxx = x + 1; 391 miny = y - 1; 392 maxy = y + 1; 393 } 394 395 if (minx < 0) 396 minx = 0; 397 if (maxx > MAXX - 1) 398 maxx = MAXX - 1; 399 if (miny < 0) 400 miny = 0; 401 if (maxy > MAXY - 1) 402 maxy = MAXY - 1; 403 404 for (j = miny; j <= maxy; j++) 405 for (mm = minx; mm <= maxx; mm++) 406 if (know[mm][j] == 0) { 407 cursor(mm + 1, j + 1); 408 x = maxx; 409 while (know[x][j]) 410 --x; 411 for (i = mm; i <= x; i++) { 412 if ((kk = mitem[i][j]) != 0) 413 lprc(monstnamelist[kk]); 414 else 415 switch (kk = item[i][j]) { 416 case OWALL: 417 case 0: 418 case OIVTELETRAP: 419 case OTRAPARROWIV: 420 case OIVDARTRAP: 421 case OIVTRAPDOOR: 422 lprc(objnamelist[kk]); 423 break; 424 425 default: 426 setbold(); 427 lprc(objnamelist[kk]); 428 resetbold(); 429 }; 430 know[i][j] = 1; 431 } 432 mm = maxx; 433 } 434 } 435 436 /* 437 this routine shows only the spot that is given it. the spaces around 438 these coordinated are not shown 439 used in godirect() in monster.c for missile weapons display 440 */ 441 void 442 show1cell(int x, int y) 443 { 444 if (c[BLINDCOUNT]) 445 return; /* see nothing if blind */ 446 cursor(x + 1, y + 1); 447 if ((k = mitem[x][y]) != 0) 448 lprc(monstnamelist[k]); 449 else 450 switch (k = item[x][y]) { 451 case OWALL: 452 case 0: 453 case OIVTELETRAP: 454 case OTRAPARROWIV: 455 case OIVDARTRAP: 456 case OIVTRAPDOOR: 457 lprc(objnamelist[k]); 458 break; 459 460 default: 461 setbold(); 462 lprc(objnamelist[k]); 463 resetbold(); 464 }; 465 know[x][y] |= 1; /* we end up knowing about it */ 466 } 467 468 /* 469 showplayer() 470 471 subroutine to show where the player is on the screen 472 cursor values start from 1 up 473 */ 474 void 475 showplayer(void) 476 { 477 cursor(playerx + 1, playery + 1); 478 oldx = playerx; 479 oldy = playery; 480 } 481 482 /* 483 moveplayer(dir) 484 485 subroutine to move the player from one room to another 486 returns 0 if can't move in that direction or hit a monster or on an object 487 else returns 1 488 nomove is set to 1 to stop the next move (inadvertent monsters hitting 489 players when walking into walls) if player walks off screen or into wall 490 */ 491 short diroffx[] = {0, 0, 1, 0, -1, 1, -1, 1, -1}; 492 short diroffy[] = {0, 1, 0, -1, 0, -1, -1, 1, 1}; 493 int 494 moveplayer(int dir) 495 /* from = present room # direction = 496 * [1-north] [2-east] [3-south] [4-west] 497 * [5-northeast] [6-northwest] [7-southeast] 498 * [8-southwest] if direction=0, don't 499 * move--just show where he is */ 500 { 501 int kk, mm, i, j; 502 if (c[CONFUSE]) 503 if (c[LEVEL] < rnd(30)) 504 dir = rund(9); /* if confused any dir */ 505 kk = playerx + diroffx[dir]; 506 mm = playery + diroffy[dir]; 507 if (kk < 0 || kk >= MAXX || mm < 0 || mm >= MAXY) { 508 nomove = 1; 509 return (yrepcount = 0); 510 } 511 i = item[kk][mm]; 512 j = mitem[kk][mm]; 513 if (i == OWALL && c[WTW] == 0) { 514 nomove = 1; 515 return (yrepcount = 0); 516 } /* hit a wall */ 517 if (kk == 33 && mm == MAXY - 1 && level == 1) { 518 newcavelevel(0); 519 for (kk = 0; kk < MAXX; kk++) 520 for (mm = 0; mm < MAXY; mm++) 521 if (item[kk][mm] == OENTRANCE) { 522 playerx = kk; 523 playery = mm; 524 positionplayer(); 525 drawscreen(); 526 return (0); 527 } 528 } 529 if (j > 0) { 530 hitmonster(kk, mm); 531 return (yrepcount = 0); 532 } /* hit a monster */ 533 lastpx = playerx; 534 lastpy = playery; 535 playerx = kk; 536 playery = mm; 537 if (i && i != OTRAPARROWIV && i != OIVTELETRAP && i != OIVDARTRAP && i != OIVTRAPDOOR) 538 return (yrepcount = 0); 539 else 540 return (1); 541 } 542 543 544 /* 545 * function to show what magic items have been discovered thus far 546 * enter with -1 for just spells, anything else will give scrolls & potions 547 */ 548 static int lincount, count; 549 void 550 seemagic(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 static void 618 seepage(void) 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
Indexes created Sat Sep 20 22:09:52 GMT 2025