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