object.c revision 1.3
1 #ifndef lint 2 static char rcsid[] = "$Id: object.c,v 1.3 1993/08/02 17:20:16 mycroft Exp $"; 3 #endif /* not lint */ 4 5 /* object.c Larn is copyrighted 1986 by Noah Morgan. */ 6 #include "header.h" 7 8 /* 9 *************** 10 LOOK_FOR_OBJECT 11 *************** 12 13 subroutine to look for an object and give the player his options 14 if an object was found. 15 */ 16 lookforobject() 17 { 18 register int i,j; 19 if (c[TIMESTOP]) return; /* can't find objects is time is stopped */ 20 i=item[playerx][playery]; if (i==0) return; 21 showcell(playerx,playery); cursors(); yrepcount=0; 22 switch(i) 23 { 24 case OGOLDPILE: case OMAXGOLD: 25 case OKGOLD: case ODGOLD: lprcat("\n\nYou have found some gold!"); ogold(i); break; 26 27 case OPOTION: lprcat("\n\nYou have found a magic potion"); 28 i = iarg[playerx][playery]; 29 if (potionname[i][0]) lprintf(" of %s",&potionname[i][1]); opotion(i); break; 30 31 case OSCROLL: lprcat("\n\nYou have found a magic scroll"); 32 i = iarg[playerx][playery]; 33 if (scrollname[i][0]) lprintf(" of %s",&scrollname[i][1]); 34 oscroll(i); break; 35 36 case OALTAR: if (nearbymonst()) return; 37 lprcat("\n\nThere is a Holy Altar here!"); oaltar(); break; 38 39 case OBOOK: lprcat("\n\nYou have found a book."); obook(); break; 40 41 case OCOOKIE: lprcat("\n\nYou have found a fortune cookie."); ocookie(); break; 42 43 case OTHRONE: if (nearbymonst()) return; 44 lprintf("\n\nThere is %s here!",objectname[i]); othrone(0); break; 45 46 case OTHRONE2: if (nearbymonst()) return; 47 lprintf("\n\nThere is %s here!",objectname[i]); othrone(1); break; 48 49 case ODEADTHRONE: lprintf("\n\nThere is %s here!",objectname[i]); odeadthrone(); break; 50 51 case OORB: lprcat("\n\nYou have found the Orb!!!!!"); oorb(); break; 52 53 case OPIT: lprcat("\n\nYou're standing at the top of a pit."); opit(); break; 54 55 case OSTAIRSUP: lprcat("\n\nThere is a circular staircase here"); ostairs(1); /* up */ break; 56 57 case OELEVATORUP: lprcat("\n\nYou feel heavy for a moment, but the feeling disappears"); 58 oelevator(1); /* up */ break; 59 60 case OFOUNTAIN: if (nearbymonst()) return; 61 lprcat("\n\nThere is a fountain here"); ofountain(); break; 62 63 case OSTATUE: if (nearbymonst()) return; 64 lprcat("\n\nYou are standing in front of a statue"); ostatue(); break; 65 66 case OCHEST: lprcat("\n\nThere is a chest here"); ochest(); break; 67 68 case OIVTELETRAP: if (rnd(11)<6) return; 69 item[playerx][playery] = OTELEPORTER; 70 know[playerx][playery] = 1; 71 72 case OTELEPORTER: lprcat("\nZaaaappp! You've been teleported!\n"); 73 beep(); nap(3000); oteleport(0); 74 break; 75 76 case OSCHOOL: if (nearbymonst()) return; 77 lprcat("\n\nYou have found the College of Larn."); 78 lprcat("\nDo you (g) go inside, or (i) stay here? "); 79 i=0; while ((i!='g') && (i!='i') && (i!='\33')) i=getchar(); 80 if (i == 'g') { oschool(); /* the college of larn */ } 81 else lprcat(" stay here"); 82 break; 83 84 case OMIRROR: if (nearbymonst()) return; 85 lprcat("\n\nThere is a mirror here"); omirror(); break; 86 87 case OBANK2: 88 case OBANK: if (nearbymonst()) return; 89 if (i==OBANK) lprcat("\n\nYou have found the bank of Larn."); 90 else lprcat("\n\nYou have found a branch office of the bank of Larn."); 91 lprcat("\nDo you (g) go inside, or (i) stay here? "); 92 j=0; while ((j!='g') && (j!='i') && (j!='\33')) j=getchar(); 93 if (j == 'g') { if (i==OBANK) obank(); else obank2(); /* the bank of larn */ } 94 else lprcat(" stay here"); 95 break; 96 97 case ODEADFOUNTAIN: if (nearbymonst()) return; 98 lprcat("\n\nThere is a dead fountain here"); break; 99 100 case ODNDSTORE: if (nearbymonst()) return; 101 lprcat("\n\nThere is a DND store here."); 102 lprcat("\nDo you (g) go inside, or (i) stay here? "); 103 i=0; while ((i!='g') && (i!='i') && (i!='\33')) i=getchar(); 104 if (i == 'g') 105 dndstore(); /* the dnd adventurers store */ 106 else lprcat(" stay here"); 107 break; 108 109 case OSTAIRSDOWN: lprcat("\n\nThere is a circular staircase here"); ostairs(-1); /* down */ break; 110 111 case OELEVATORDOWN: lprcat("\n\nYou feel light for a moment, but the feeling disappears"); 112 oelevator(-1); /* down */ 113 break; 114 115 case OOPENDOOR: lprintf("\n\nYou have found %s",objectname[i]); 116 lprcat("\nDo you (c) close it"); iopts(); 117 i=0; while ((i!='c') && (i!='i') && (i!='\33')) i=getchar(); 118 if ((i=='\33') || (i=='i')) { ignore(); break; } 119 lprcat("close"); forget(); 120 item[playerx][playery]=OCLOSEDDOOR; 121 iarg[playerx][playery]=0; 122 playerx = lastpx; playery = lastpy; 123 break; 124 125 case OCLOSEDDOOR: lprintf("\n\nYou have found %s",objectname[i]); 126 lprcat("\nDo you (o) try to open it"); iopts(); 127 i=0; while ((i!='o') && (i!='i') && (i!='\33')) i=getchar(); 128 if ((i=='\33') || (i=='i')) 129 { ignore(); playerx = lastpx; 130 playery = lastpy; break; } 131 else 132 { 133 lprcat("open"); 134 if (rnd(11)<7) 135 { 136 switch(iarg[playerx][playery]) 137 { 138 case 6: c[AGGRAVATE] += rnd(400); break; 139 140 case 7: lprcat("\nYou are jolted by an electric shock "); 141 lastnum=274; losehp(rnd(20)); bottomline(); break; 142 143 case 8: loselevel(); break; 144 145 case 9: lprcat("\nYou suddenly feel weaker "); 146 if (c[STRENGTH]>3) c[STRENGTH]--; 147 bottomline(); break; 148 149 default: break; 150 } 151 playerx = lastpx; playery = lastpy; 152 } 153 else 154 { 155 forget(); item[playerx][playery]=OOPENDOOR; 156 } 157 } 158 break; 159 160 case OENTRANCE: lprcat("\nYou have found "); lprcat(objectname[OENTRANCE]); 161 lprcat("\nDo you (g) go inside"); iopts(); 162 i=0; while ((i!='g') && (i!='i') && (i!='\33')) i=getchar(); 163 if (i == 'g') 164 { 165 newcavelevel(1); playerx=33; playery=MAXY-2; 166 item[33][MAXY-1]=know[33][MAXY-1]=mitem[33][MAXY-1]=0; 167 draws(0,MAXX,0,MAXY); bot_linex(); return; 168 } 169 else ignore(); 170 break; 171 172 case OVOLDOWN: lprcat("\nYou have found "); lprcat(objectname[OVOLDOWN]); 173 lprcat("\nDo you (c) climb down"); iopts(); 174 i=0; while ((i!='c') && (i!='i') && (i!='\33')) i=getchar(); 175 if ((i=='\33') || (i=='i')) { ignore(); break; } 176 if (level!=0) { lprcat("\nThe shaft only extends 5 feet downward!"); return; } 177 if (packweight() > 45+3*(c[STRENGTH]+c[STREXTRA])) { lprcat("\nYou slip and fall down the shaft"); beep(); 178 lastnum=275; losehp(30+rnd(20)); bottomhp(); } 179 180 else lprcat("climb down"); nap(3000); newcavelevel(MAXLEVEL); 181 for (i=0; i<MAXY; i++) for (j=0; j<MAXX; j++) /* put player near volcano shaft */ 182 if (item[j][i]==OVOLUP) { playerx=j; playery=i; j=MAXX; i=MAXY; positionplayer(); } 183 draws(0,MAXX,0,MAXY); bot_linex(); return; 184 185 case OVOLUP: lprcat("\nYou have found "); lprcat(objectname[OVOLUP]); 186 lprcat("\nDo you (c) climb up"); iopts(); 187 i=0; while ((i!='c') && (i!='i') && (i!='\33')) i=getchar(); 188 if ((i=='\33') || (i=='i')) { ignore(); break; } 189 if (level!=11) { lprcat("\nThe shaft only extends 8 feet upwards before you find a blockage!"); return; } 190 if (packweight() > 45+5*(c[STRENGTH]+c[STREXTRA])) { lprcat("\nYou slip and fall down the shaft"); beep(); 191 lastnum=275; losehp(15+rnd(20)); bottomhp(); return; } 192 lprcat("climb up"); lflush(); nap(3000); newcavelevel(0); 193 for (i=0; i<MAXY; i++) for (j=0; j<MAXX; j++) /* put player near volcano shaft */ 194 if (item[j][i]==OVOLDOWN) { playerx=j; playery=i; j=MAXX; i=MAXY; positionplayer(); } 195 draws(0,MAXX,0,MAXY); bot_linex(); return; 196 197 case OTRAPARROWIV: if (rnd(17)<13) return; /* for an arrow trap */ 198 item[playerx][playery] = OTRAPARROW; 199 know[playerx][playery] = 0; 200 201 case OTRAPARROW: lprcat("\nYou are hit by an arrow"); beep(); /* for an arrow trap */ 202 lastnum=259; losehp(rnd(10)+level); 203 bottomhp(); return; 204 205 case OIVDARTRAP: if (rnd(17)<13) return; /* for a dart trap */ 206 item[playerx][playery] = ODARTRAP; 207 know[playerx][playery] = 0; 208 209 case ODARTRAP: lprcat("\nYou are hit by a dart"); beep(); /* for a dart trap */ 210 lastnum=260; losehp(rnd(5)); 211 if ((--c[STRENGTH]) < 3) c[STRENGTH] = 3; 212 bottomline(); return; 213 214 case OIVTRAPDOOR: if (rnd(17)<13) return; /* for a trap door */ 215 item[playerx][playery] = OTRAPDOOR; 216 know[playerx][playery] = 1; 217 218 case OTRAPDOOR: lastnum = 272; /* a trap door */ 219 if ((level==MAXLEVEL-1) || (level==MAXLEVEL+MAXVLEVEL-1)) 220 { lprcat("\nYou fell through a bottomless trap door!"); beep(); nap(3000); died(271); } 221 lprcat("\nYou fall through a trap door!"); beep(); /* for a trap door */ 222 losehp(rnd(5+level)); 223 nap(2000); newcavelevel(level+1); draws(0,MAXX,0,MAXY); bot_linex(); 224 return; 225 226 227 case OTRADEPOST: if (nearbymonst()) return; 228 lprcat("\nYou have found the Larn trading Post."); 229 lprcat("\nDo you (g) go inside, or (i) stay here? "); 230 i=0; while ((i!='g') && (i!='i') && (i!='\33')) i=getchar(); 231 if (i == 'g') otradepost(); else lprcat("stay here"); 232 return; 233 234 case OHOME: if (nearbymonst()) return; 235 lprcat("\nYou have found your way home."); 236 lprcat("\nDo you (g) go inside, or (i) stay here? "); 237 i=0; while ((i!='g') && (i!='i') && (i!='\33')) i=getchar(); 238 if (i == 'g') ohome(); else lprcat("stay here"); 239 return; 240 241 case OWALL: break; 242 243 case OANNIHILATION: died(283); return; /* annihilated by sphere of annihilation */ 244 245 case OLRS: if (nearbymonst()) return; 246 lprcat("\n\nThere is an LRS office here."); 247 lprcat("\nDo you (g) go inside, or (i) stay here? "); 248 i=0; while ((i!='g') && (i!='i') && (i!='\33')) i=getchar(); 249 if (i == 'g') 250 olrs(); /* the larn revenue service */ 251 else lprcat(" stay here"); 252 break; 253 254 default: finditem(i); break; 255 }; 256 } 257 258 /* 259 function to say what object we found and ask if player wants to take it 260 */ 261 finditem(itm) 262 int itm; 263 { 264 int tmp,i; 265 lprintf("\n\nYou have found %s ",objectname[itm]); 266 tmp=iarg[playerx][playery]; 267 switch(itm) 268 { 269 case ODIAMOND: case ORUBY: case OEMERALD: 270 case OSAPPHIRE: case OSPIRITSCARAB: case OORBOFDRAGON: 271 case OCUBEofUNDEAD: case ONOTHEFT: break; 272 273 default: 274 if (tmp>0) lprintf("+ %d",(long)tmp); else if (tmp<0) lprintf(" %d",(long)tmp); 275 } 276 lprcat("\nDo you want to (t) take it"); iopts(); 277 i=0; while (i!='t' && i!='i' && i!='\33') i=getchar(); 278 if (i == 't') 279 { lprcat("take"); if (take(itm,tmp)==0) forget(); return; } 280 ignore(); 281 } 282 283 284 /* 286 ******* 287 OSTAIRS 288 ******* 289 290 subroutine to process the stair cases 291 if dir > 0 the up else down 292 */ 293 ostairs(dir) 294 int dir; 295 { 296 register int k; 297 lprcat("\nDo you (s) stay here "); 298 if (dir > 0) lprcat("(u) go up "); else lprcat("(d) go down "); 299 lprcat("or (f) kick stairs? "); 300 301 while (1) switch(getchar()) 302 { 303 case '\33': 304 case 's': case 'i': lprcat("stay here"); return; 305 306 case 'f': lprcat("kick stairs"); 307 if (rnd(2) == 1) 308 lprcat("\nI hope you feel better. Showing anger rids you of frustration."); 309 else 310 { 311 k=rnd((level+1)<<1); 312 lprintf("\nYou hurt your foot dumb dumb! You suffer %d hit points",(long)k); 313 lastnum=276; losehp(k); bottomline(); 314 } 315 return; 316 317 case 'u': lprcat("go up"); 318 if (dir < 0) lprcat("\nThe stairs don't go up!"); 319 else 320 if (level>=2 && level!=11) 321 { 322 k = level; newcavelevel(level-1); 323 draws(0,MAXX,0,MAXY); bot_linex(); 324 } 325 else lprcat("\nThe stairs lead to a dead end!"); 326 return; 327 328 case 'd': lprcat("go down"); 329 if (dir > 0) lprcat("\nThe stairs don't go down!"); 330 else 331 if (level!=0 && level!=10 && level!=13) 332 { 333 k = level; newcavelevel(level+1); 334 draws(0,MAXX,0,MAXY); bot_linex(); 335 } 336 else lprcat("\nThe stairs lead to a dead end!"); 337 return; 338 }; 339 } 340 341 342 /* 344 ********* 345 OTELEPORTER 346 ********* 347 348 subroutine to handle a teleport trap +/- 1 level maximum 349 */ 350 oteleport(err) 351 int err; 352 { 353 register int tmp; 354 if (err) if (rnd(151)<3) died(264); /* stuck in a rock */ 355 c[TELEFLAG]=1; /* show ?? on bottomline if been teleported */ 356 if (level==0) tmp=0; 357 else if (level < MAXLEVEL) 358 { tmp=rnd(5)+level-3; if (tmp>=MAXLEVEL) tmp=MAXLEVEL-1; 359 if (tmp<1) tmp=1; } 360 else 361 { tmp=rnd(3)+level-2; if (tmp>=MAXLEVEL+MAXVLEVEL) tmp=MAXLEVEL+MAXVLEVEL-1; 362 if (tmp<MAXLEVEL) tmp=MAXLEVEL; } 363 playerx = rnd(MAXX-2); playery = rnd(MAXY-2); 364 if (level != tmp) newcavelevel(tmp); positionplayer(); 365 draws(0,MAXX,0,MAXY); bot_linex(); 366 } 367 368 /* 370 ******* 371 OPOTION 372 ******* 373 374 function to process a potion 375 */ 376 opotion(pot) 377 int pot; 378 { 379 lprcat("\nDo you (d) drink it, (t) take it"); iopts(); 380 while (1) switch(getchar()) 381 { 382 case '\33': 383 case 'i': ignore(); return; 384 385 case 'd': lprcat("drink\n"); forget(); /* destroy potion */ 386 quaffpotion(pot); return; 387 388 case 't': lprcat("take\n"); if (take(OPOTION,pot)==0) forget(); 389 return; 390 }; 391 } 392 393 /* 394 function to drink a potion 395 */ 396 quaffpotion(pot) 397 int pot; 398 { 399 register int i,j,k; 400 if (pot<0 || pot>=MAXPOTION) return; /* check for within bounds */ 401 potionname[pot] = potionhide[pot]; 402 switch(pot) 403 { 404 case 9: lprcat("\nYou feel greedy . . ."); nap(2000); 405 for (i=0; i<MAXY; i++) for (j=0; j<MAXX; j++) 406 if ((item[j][i]==OGOLDPILE) || (item[j][i]==OMAXGOLD)) 407 { 408 know[j][i]=1; show1cell(j,i); 409 } 410 showplayer(); return; 411 412 case 19: lprcat("\nYou feel greedy . . ."); nap(2000); 413 for (i=0; i<MAXY; i++) for (j=0; j<MAXX; j++) 414 { 415 k=item[j][i]; 416 if ((k==ODIAMOND) || (k==ORUBY) || (k==OEMERALD) || (k==OMAXGOLD) 417 || (k==OSAPPHIRE) || (k==OLARNEYE) || (k==OGOLDPILE)) 418 { 419 know[j][i]=1; show1cell(j,i); 420 } 421 } 422 showplayer(); return; 423 424 case 20: c[HP] = c[HPMAX]; break; /* instant healing */ 425 426 case 1: lprcat("\nYou feel better"); 427 if (c[HP] == c[HPMAX]) raisemhp(1); 428 else if ((c[HP] += rnd(20)+20+c[LEVEL]) > c[HPMAX]) c[HP]=c[HPMAX]; break; 429 430 case 2: lprcat("\nSuddenly, you feel much more skillful!"); 431 raiselevel(); raisemhp(1); return; 432 433 case 3: lprcat("\nYou feel strange for a moment"); 434 c[rund(6)]++; break; 435 436 case 4: lprcat("\nYou feel more self confident!"); 437 c[WISDOM] += rnd(2); break; 438 439 case 5: lprcat("\nWow! You feel great!"); 440 if (c[STRENGTH]<12) c[STRENGTH]=12; else c[STRENGTH]++; break; 441 442 case 6: lprcat("\nYour charm went up by one!"); c[CHARISMA]++; break; 443 444 case 8: lprcat("\nYour intelligence went up by one!"); 445 c[INTELLIGENCE]++; break; 446 447 case 10: for (i=0; i<MAXY; i++) for (j=0; j<MAXX; j++) 448 if (mitem[j][i]) 449 { 450 know[j][i]=1; show1cell(j,i); 451 } 452 /* monster detection */ return; 453 454 case 12: lprcat("\nThis potion has no taste to it"); return; 455 456 case 15: lprcat("\nWOW!!! You feel Super-fantastic!!!"); 457 if (c[HERO]==0) for (i=0; i<6; i++) c[i] += 11; 458 c[HERO] += 250; break; 459 460 case 16: lprcat("\nYou have a greater intestinal constitude!"); 461 c[CONSTITUTION]++; break; 462 463 case 17: lprcat("\nYou now have incredibly bulging muscles!!!"); 464 if (c[GIANTSTR]==0) c[STREXTRA] += 21; 465 c[GIANTSTR] += 700; break; 466 467 case 18: lprcat("\nYou feel a chill run up your spine!"); 468 c[FIRERESISTANCE] += 1000; break; 469 470 case 0: lprcat("\nYou fall asleep. . ."); 471 i=rnd(11)-(c[CONSTITUTION]>>2)+2; while(--i>0) { parse2(); nap(1000); } 472 cursors(); lprcat("\nYou woke up!"); return; 473 474 case 7: lprcat("\nYou become dizzy!"); 475 if (--c[STRENGTH] < 3) c[STRENGTH]=3; break; 476 477 case 11: lprcat("\nYou stagger for a moment . ."); 478 for (i=0; i<MAXY; i++) for (j=0; j<MAXX; j++) 479 know[j][i]=0; 480 nap(2000); draws(0,MAXX,0,MAXY); /* potion of forgetfulness */ return; 481 482 case 13: lprcat("\nYou can't see anything!"); /* blindness */ 483 c[BLINDCOUNT]+=500; return; 484 485 case 14: lprcat("\nYou feel confused"); c[CONFUSE]+= 20+rnd(9); return; 486 487 case 21: lprcat("\nYou don't seem to be affected"); return; /* cure dianthroritis */ 488 489 case 22: lprcat("\nYou feel a sickness engulf you"); /* poison */ 490 c[HALFDAM] += 200 + rnd(200); return; 491 492 case 23: lprcat("\nYou feel your vision sharpen"); /* see invisible */ 493 c[SEEINVISIBLE] += rnd(1000)+400; 494 monstnamelist[INVISIBLESTALKER] = 'I'; return; 495 }; 496 bottomline(); /* show new stats */ return; 497 } 498 499 /* 501 ******* 502 OSCROLL 503 ******* 504 505 function to process a magic scroll 506 */ 507 oscroll(typ) 508 int typ; 509 { 510 lprcat("\nDo you "); 511 if (c[BLINDCOUNT]==0) lprcat("(r) read it, "); lprcat("(t) take it"); iopts(); 512 while (1) switch(getchar()) 513 { 514 case '\33': 515 case 'i': ignore(); return; 516 517 case 'r': if (c[BLINDCOUNT]) break; 518 lprcat("read"); forget(); 519 if (typ==2 || typ==15) { show1cell(playerx,playery); cursors(); } 520 /* destroy it */ read_scroll(typ); return; 521 522 case 't': lprcat("take"); if (take(OSCROLL,typ)==0) forget(); /* destroy it */ 523 return; 524 }; 525 } 526 527 /* 528 data for the function to read a scroll 529 */ 530 static int xh,yh,yl,xl; 531 static char curse[] = { BLINDCOUNT, CONFUSE, AGGRAVATE, HASTEMONST, ITCHING, 532 LAUGHING, DRAINSTRENGTH, CLUMSINESS, INFEEBLEMENT, HALFDAM }; 533 static char exten[] = { PROTECTIONTIME, DEXCOUNT, STRCOUNT, CHARMCOUNT, 534 INVISIBILITY, CANCELLATION, HASTESELF, GLOBE, SCAREMONST, HOLDMONST, TIMESTOP }; 535 char time_change[] = { HASTESELF,HERO,ALTPRO,PROTECTIONTIME,DEXCOUNT, 536 STRCOUNT,GIANTSTR,CHARMCOUNT,INVISIBILITY,CANCELLATION, 537 HASTESELF,AGGRAVATE,SCAREMONST,STEALTH,AWARENESS,HOLDMONST,HASTEMONST, 538 FIRERESISTANCE,GLOBE,SPIRITPRO,UNDEADPRO,HALFDAM,SEEINVISIBLE, 539 ITCHING,CLUMSINESS, WTW }; 540 /* 541 * function to adjust time when time warping and taking courses in school 542 */ 543 adjtime(tim) 544 register long tim; 545 { 546 register int j; 547 for (j=0; j<26; j++) /* adjust time related parameters */ 548 if (c[time_change[j]]) 549 if ((c[time_change[j]] -= tim) < 1) c[time_change[j]]=1; 550 regen(); 551 } 552 553 /* 554 function to read a scroll 555 */ 556 read_scroll(typ) 557 int typ; 558 { 559 register int i,j; 560 if (typ<0 || typ>=MAXSCROLL) return; /* be sure we are within bounds */ 561 scrollname[typ] = scrollhide[typ]; 562 switch(typ) 563 { 564 case 0: lprcat("\nYour armor glows for a moment"); enchantarmor(); return; 565 566 case 1: lprcat("\nYour weapon glows for a moment"); enchweapon(); return; /* enchant weapon */ 567 568 case 2: lprcat("\nYou have been granted enlightenment!"); 569 yh = min(playery+7,MAXY); xh = min(playerx+25,MAXX); 570 yl = max(playery-7,0); xl = max(playerx-25,0); 571 for (i=yl; i<yh; i++) for (j=xl; j<xh; j++) know[j][i]=1; 572 nap(2000); draws(xl,xh,yl,yh); return; 573 574 case 3: lprcat("\nThis scroll seems to be blank"); return; 575 576 case 4: createmonster(makemonst(level+1)); return; /* this one creates a monster */ 577 578 case 5: something(level); /* create artifact */ return; 579 580 case 6: c[AGGRAVATE]+=800; return; /* aggravate monsters */ 581 582 case 7: gtime += (i = rnd(1000) - 850); /* time warp */ 583 if (i>=0) lprintf("\nYou went forward in time by %d mobuls",(long)((i+99)/100)); 584 else lprintf("\nYou went backward in time by %d mobuls",(long)(-(i+99)/100)); 585 adjtime((long)i); /* adjust time for time warping */ 586 return; 587 588 case 8: oteleport(0); return; /* teleportation */ 589 590 case 9: c[AWARENESS] += 1800; return; /* expanded awareness */ 591 592 case 10: c[HASTEMONST] += rnd(55)+12; return; /* haste monster */ 593 594 case 11: for (i=0; i<MAXY; i++) for (j=0; j<MAXX; j++) 595 if (mitem[j][i]) 596 hitp[j][i] = monster[mitem[j][i]].hitpoints; 597 return; /* monster healing */ 598 case 12: c[SPIRITPRO] += 300 + rnd(200); bottomline(); return; /* spirit protection */ 599 600 case 13: c[UNDEADPRO] += 300 + rnd(200); bottomline(); return; /* undead protection */ 601 602 case 14: c[STEALTH] += 250 + rnd(250); bottomline(); return; /* stealth */ 603 604 case 15: lprcat("\nYou have been granted enlightenment!"); /* magic mapping */ 605 for (i=0; i<MAXY; i++) for (j=0; j<MAXX; j++) know[j][i]=1; 606 nap(2000); draws(0,MAXX,0,MAXY); return; 607 608 case 16: c[HOLDMONST] += 30; bottomline(); return; /* hold monster */ 609 610 case 17: for (i=0; i<26; i++) /* gem perfection */ 611 switch(iven[i]) 612 { 613 case ODIAMOND: case ORUBY: 614 case OEMERALD: case OSAPPHIRE: 615 j = ivenarg[i]; j &= 255; j <<= 1; 616 if (j > 255) j=255; /* double value */ 617 ivenarg[i] = j; break; 618 } 619 break; 620 621 case 18: for (i=0; i<11; i++) c[exten[i]] <<= 1; /* spell extension */ 622 break; 623 624 case 19: for (i=0; i<26; i++) /* identify */ 625 { 626 if (iven[i]==OPOTION) potionname[ivenarg[i]] = potionhide[ivenarg[i]]; 627 if (iven[i]==OSCROLL) scrollname[ivenarg[i]] = scrollhide[ivenarg[i]]; 628 } 629 break; 630 631 case 20: for (i=0; i<10; i++) /* remove curse */ 632 if (c[curse[i]]) c[curse[i]] = 1; 633 break; 634 635 case 21: annihilate(); break; /* scroll of annihilation */ 636 637 case 22: godirect(22,150,"The ray hits the %s",0,' '); /* pulverization */ 638 break; 639 case 23: c[LIFEPROT]++; break; /* life protection */ 640 }; 641 } 642 643 644 oorb() 646 { 647 } 648 649 opit() 650 { 651 register int i; 652 if (rnd(101)<81) 653 if (rnd(70) > 9*c[DEXTERITY]-packweight() || rnd(101)<5) 654 if (level==MAXLEVEL-1) obottomless(); else 655 if (level==MAXLEVEL+MAXVLEVEL-1) obottomless(); else 656 { 657 if (rnd(101)<20) 658 { 659 i=0; lprcat("\nYou fell into a pit! Your fall is cushioned by an unknown force\n"); 660 } 661 else 662 { 663 i = rnd(level*3+3); 664 lprintf("\nYou fell into a pit! You suffer %d hit points damage",(long)i); 665 lastnum=261; /* if he dies scoreboard will say so */ 666 } 667 losehp(i); nap(2000); newcavelevel(level+1); draws(0,MAXX,0,MAXY); 668 } 669 } 670 671 obottomless() 672 { 673 lprcat("\nYou fell into a bottomless pit!"); beep(); nap(3000); died(262); 674 } 675 oelevator(dir) 676 int dir; 677 { 678 #ifdef lint 679 int x; 680 x=dir; 681 dir=x; 682 #endif lint 683 } 684 685 ostatue() 686 { 687 } 688 689 omirror() 690 { 691 } 692 693 obook() 694 { 695 lprcat("\nDo you "); 696 if (c[BLINDCOUNT]==0) lprcat("(r) read it, "); lprcat("(t) take it"); iopts(); 697 while (1) switch(getchar()) 698 { 699 case '\33': 700 case 'i': ignore(); return; 701 702 case 'r': if (c[BLINDCOUNT]) break; 703 lprcat("read"); 704 /* no more book */ readbook(iarg[playerx][playery]); forget(); return; 705 706 case 't': lprcat("take"); if (take(OBOOK,iarg[playerx][playery])==0) forget(); /* no more book */ 707 return; 708 }; 709 } 710 711 /* 712 function to read a book 713 */ 714 readbook(lev) 715 register int lev; 716 { 717 register int i,tmp; 718 if (lev<=3) i = rund((tmp=splev[lev])?tmp:1); else 719 i = rnd((tmp=splev[lev]-9)?tmp:1) + 9; 720 spelknow[i]=1; 721 lprintf("\nSpell \"%s\": %s\n%s",spelcode[i],spelname[i],speldescript[i]); 722 if (rnd(10)==4) 723 { lprcat("\nYour int went up by one!"); c[INTELLIGENCE]++; bottomline(); } 724 } 725 726 ocookie() 727 { 728 char *p; 729 lprcat("\nDo you (e) eat it, (t) take it"); iopts(); 730 while (1) switch(getchar()) 731 { 732 case '\33': 733 case 'i': ignore(); return; 734 735 case 'e': lprcat("eat\nThe cookie tasted good."); 736 forget(); /* no more cookie */ 737 if (c[BLINDCOUNT]) return; 738 if (!(p=fortune(fortfile))) return; 739 lprcat(" A message inside the cookie reads:\n"); lprcat(p); 740 return; 741 742 case 't': lprcat("take"); if (take(OCOOKIE,0)==0) forget(); /* no more book */ 743 return; 744 }; 745 } 746 747 748 /* routine to pick up some gold -- if arg==OMAXGOLD then the pile is worth 100* the argument */ 749 ogold(arg) 750 int arg; 751 { 752 register long i; 753 i = iarg[playerx][playery]; 754 if (arg==OMAXGOLD) i *= 100; 755 else if (arg==OKGOLD) i *= 1000; 756 else if (arg==ODGOLD) i *= 10; 757 lprintf("\nIt is worth %d!",(long)i); c[GOLD] += i; bottomgold(); 758 item[playerx][playery] = know[playerx][playery] = 0; /* destroy gold */ 759 } 760 761 ohome() 762 { 763 register int i; 764 nosignal = 1; /* disable signals */ 765 for (i=0; i<26; i++) if (iven[i]==OPOTION) if (ivenarg[i]==21) 766 { 767 iven[i]=0; /* remove the potion of cure dianthroritis from inventory */ 768 clear(); lprcat("Congratulations. You found a potion of cure dianthroritis.\n"); 769 lprcat("\nFrankly, No one thought you could do it. Boy! Did you surprise them!\n"); 770 if (gtime>TIMELIMIT) 771 { 772 lprcat("\nThe doctor has the sad duty to inform you that your daughter died!\n"); 773 lprcat("You didn't make it in time. In your agony, you kill the doctor,\nyour wife, and yourself! Too bad!\n"); 774 nap(5000); died(269); 775 } 776 else 777 { 778 lprcat("\nThe doctor is now administering the potion, and in a few moments\n"); 779 lprcat("Your daughter should be well on her way to recovery.\n"); 780 nap(6000); 781 lprcat("\nThe potion is"); nap(3000); lprcat(" working! The doctor thinks that\n"); 782 lprcat("your daughter will recover in a few days. Congratulations!\n"); 783 beep(); nap(5000); died(263); 784 } 785 } 786 787 while (1) 788 { 789 clear(); lprintf("Welcome home %s. Latest word from the doctor is not good.\n",logname); 790 791 if (gtime>TIMELIMIT) 792 { 793 lprcat("\nThe doctor has the sad duty to inform you that your daughter died!\n"); 794 lprcat("You didn't make it in time. In your agony, you kill the doctor,\nyour wife, and yourself! Too bad!\n"); 795 nap(5000); died(269); 796 } 797 798 lprcat("\nThe diagnosis is confirmed as dianthroritis. He guesses that\n"); 799 lprintf("your daughter has only %d mobuls left in this world. It's up to you,\n",(long)((TIMELIMIT-gtime+99)/100)); 800 lprintf("%s, to find the only hope for your daughter, the very rare\n",logname); 801 lprcat("potion of cure dianthroritis. It is rumored that only deep in the\n"); 802 lprcat("depths of the caves can this potion be found.\n\n\n"); 803 lprcat("\n ----- press "); standout("return"); 804 lprcat(" to continue, "); standout("escape"); 805 lprcat(" to leave ----- "); 806 i=getchar(); while (i!='\33' && i!='\n') i=getchar(); 807 if (i=='\33') { drawscreen(); nosignal = 0; /* enable signals */ return; } 808 } 809 } 810 811 /* routine to save program space */ 812 iopts() 813 { lprcat(", or (i) ignore it? "); } 814 ignore() 815 { lprcat("ignore\n"); } 816 817
Indexes created Sat Oct 25 16:10:12 GMT 2025