![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to moreobj.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 moreobj.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / larn |
1.1 ! root 1: /* moreobj.c Larn is copyrighted 1986 by Noah Morgan. ! 2: * ! 3: * Routines in this file: ! 4: * ! 5: * oaltar() ! 6: * othrone() ! 7: * ochest() ! 8: * ofountain() ! 9: */ ! 10: #include "header.h" ! 11: ! 12: /* ! 13: * ****** ! 14: * OALTAR ! 15: * ****** ! 16: * ! 17: * subroutine to process an altar object ! 18: */ ! 19: oaltar() ! 20: { ! 21: unsigned long k; ! 22: ! 23: lprcat("\nDo you (p) pray (d) desecrate"); iopts(); ! 24: while (1) ! 25: { ! 26: while (1) switch(getchar()) ! 27: { ! 28: case 'p': lprcat(" pray\nDo you (m) give money or (j) just pray? "); ! 29: while (1) switch(getchar()) ! 30: { ! 31: case 'j': if (rnd(100)<75) ! 32: lprcat("\nnothing happens"); ! 33: else if (rnd(13)<4) ohear(); ! 34: else if (rnd(43) == 10) ! 35: { ! 36: if (c[WEAR]) lprcat("\nYou feel your armor vibrate for a moment"); ! 37: enchantarmor(); return; ! 38: } ! 39: else if (rnd(43) == 10) ! 40: { ! 41: if (c[WIELD]) lprcat("\nYou feel your weapon vibrate for a moment"); ! 42: enchweapon(); return; ! 43: } ! 44: else createmonster(makemonst(level+1)); ! 45: return; ! 46: ! 47: case 'm': lprcat("\n\n"); cursor(1,24); cltoeoln(); ! 48: cursor(1,23); cltoeoln(); ! 49: lprcat("how much do you donate? "); ! 50: k = readnum((long)c[GOLD]); ! 51: if (c[GOLD]<k) ! 52: { ! 53: lprcat("\nYou don't have that much!"); ! 54: return; ! 55: } ! 56: c[GOLD] -= k; ! 57: if (k < c[GOLD]/10 || k<rnd(50)) ! 58: { createmonster(makemonst(level+1)); c[AGGRAVATE] += 200; } ! 59: else if (rnd(101) > 50) { ohear(); return; } ! 60: else if (rnd(43) == 5) ! 61: { ! 62: if (c[WEAR]) lprcat("\nYou feel your armor vibrate for a moment"); ! 63: enchantarmor(); return; ! 64: } ! 65: else if (rnd(43) == 8) ! 66: { ! 67: if (c[WIELD]) lprcat("\nYou feel your weapon vibrate for a moment"); ! 68: enchweapon(); return; ! 69: } ! 70: else lprcat("\nThank You."); ! 71: bottomline(); return; ! 72: ! 73: case '\33': return; ! 74: }; ! 75: ! 76: case 'd': lprcat(" desecrate"); ! 77: if (rnd(100)<60) ! 78: { createmonster(makemonst(level+2)+8); c[AGGRAVATE] += 2500; } ! 79: else ! 80: if (rnd(101)<30) ! 81: { ! 82: lprcat("\nThe altar crumbles into a pile of dust before your eyes"); ! 83: forget(); /* remember to destroy the altar */ ! 84: } ! 85: else ! 86: lprcat("\nnothing happens"); ! 87: return; ! 88: ! 89: case 'i': ! 90: case '\33': ignore(); ! 91: if (rnd(100)<30) { createmonster(makemonst(level+1)); c[AGGRAVATE] += rnd(450); } ! 92: else lprcat("\nnothing happens"); ! 93: return; ! 94: }; ! 95: } ! 96: } ! 97: ! 98: /* ! 99: function to cast a +3 protection on the player ! 100: */ ! 101: static ohear() ! 102: { ! 103: lprcat("\nYou have been heard!"); ! 104: if (c[ALTPRO]==0) c[MOREDEFENSES]+=3; ! 105: c[ALTPRO] += 500; /* protection field */ ! 106: bottomline(); ! 107: } ! 108: ! 109: /* ! 110: ******* ! 111: OTHRONE ! 112: ******* ! 113: ! 114: subroutine to process a throne object ! 115: */ ! 116: othrone(arg) ! 117: int arg; ! 118: { ! 119: register int i,k; ! 120: ! 121: lprcat("\nDo you (p) pry off jewels, (s) sit down"); iopts(); ! 122: while (1) ! 123: { ! 124: while (1) switch(getchar()) ! 125: { ! 126: case 'p': lprcat(" pry off"); k=rnd(101); ! 127: if (k<25) ! 128: { ! 129: for (i=0; i<rnd(4); i++) creategem(); /* gems pop off the throne */ ! 130: item[playerx][playery]=ODEADTHRONE; ! 131: know[playerx][playery]=0; ! 132: } ! 133: else if (k<40 && arg==0) ! 134: { ! 135: createmonster(GNOMEKING); ! 136: item[playerx][playery]=OTHRONE2; ! 137: know[playerx][playery]=0; ! 138: } ! 139: else lprcat("\nnothing happens"); ! 140: return; ! 141: ! 142: case 's': lprcat(" sit down"); k=rnd(101); ! 143: if (k<30 && arg==0) ! 144: { ! 145: createmonster(GNOMEKING); ! 146: item[playerx][playery]=OTHRONE2; ! 147: know[playerx][playery]=0; ! 148: } ! 149: else if (k<35) { lprcat("\nZaaaappp! You've been teleported!\n"); beep(); oteleport(0); } ! 150: else lprcat("\nnothing happens"); ! 151: return; ! 152: ! 153: case 'i': ! 154: case '\33': ignore(); return; ! 155: }; ! 156: } ! 157: } ! 158: ! 159: odeadthrone() ! 160: { ! 161: register int k; ! 162: ! 163: lprcat("\nDo you (s) sit down"); iopts(); ! 164: while (1) ! 165: { ! 166: while (1) switch(getchar()) ! 167: { ! 168: case 's': lprcat(" sit down"); k=rnd(101); ! 169: if (k<35) { lprcat("\nZaaaappp! You've been teleported!\n"); beep(); oteleport(0); } ! 170: else lprcat("\nnothing happens"); ! 171: return; ! 172: ! 173: case 'i': ! 174: case '\33': ignore(); return; ! 175: }; ! 176: } ! 177: } ! 178: ! 179: /* ! 180: ****** ! 181: OCHEST ! 182: ****** ! 183: ! 184: subroutine to process a throne object ! 185: */ ! 186: ochest() ! 187: { ! 188: register int i,k; ! 189: lprcat("\nDo you (t) take it, (o) try to open it"); iopts(); ! 190: while (1) ! 191: { ! 192: while (1) switch(getchar()) ! 193: { ! 194: case 'o': lprcat(" open it"); k=rnd(101); ! 195: if (k<40) ! 196: { ! 197: lprcat("\nThe chest explodes as you open it"); beep(); ! 198: i = rnd(10); lastnum=281; /* in case he dies */ ! 199: lprintf("\nYou suffer %d hit points damage!",(long)i); ! 200: checkloss(i); ! 201: switch(rnd(10)) /* see if he gets a curse */ ! 202: { ! 203: case 1: c[ITCHING]+= rnd(1000)+100; ! 204: lprcat("\nYou feel an irritation spread over your skin!"); ! 205: beep(); ! 206: break; ! 207: ! 208: case 2: c[CLUMSINESS]+= rnd(1600)+200; ! 209: lprcat("\nYou begin to lose hand to eye coordination!"); ! 210: beep(); ! 211: break; ! 212: ! 213: case 3: c[HALFDAM]+= rnd(1600)+200; ! 214: beep(); ! 215: lprcat("\nA sickness engulfs you!"); break; ! 216: }; ! 217: item[playerx][playery]=know[playerx][playery]=0; ! 218: if (rnd(100)<69) creategem(); /* gems from the chest */ ! 219: dropgold(rnd(110*iarg[playerx][playery]+200)); ! 220: for (i=0; i<rnd(4); i++) something(iarg[playerx][playery]+2); ! 221: } ! 222: else lprcat("\nnothing happens"); ! 223: return; ! 224: ! 225: case 't': lprcat(" take"); ! 226: if (take(OCHEST,iarg[playerx][playery])==0) ! 227: item[playerx][playery]=know[playerx][playery]=0; ! 228: return; ! 229: ! 230: case 'i': ! 231: case '\33': ignore(); return; ! 232: }; ! 233: } ! 234: } ! 235: ! 236: /* ! 237: ********* ! 238: OFOUNTAIN ! 239: ********* ! 240: */ ! 241: ! 242: ofountain() ! 243: { ! 244: register int x; ! 245: cursors(); ! 246: lprcat("\nDo you (d) drink, (w) wash yourself"); iopts(); ! 247: while (1) switch(getchar()) ! 248: { ! 249: case 'd': lprcat("drink"); ! 250: if (rnd(1501)<2) ! 251: { ! 252: lprcat("\nOops! You seem to have caught the dreadful sleep!"); ! 253: beep(); lflush(); sleep(3); died(280); return; ! 254: } ! 255: x = rnd(100); ! 256: if (x<7) ! 257: { ! 258: c[HALFDAM] += 200+rnd(200); ! 259: lprcat("\nYou feel a sickness coming on"); ! 260: } ! 261: else if (x<13) quaffpotion(23); /* see invisible */ ! 262: else if (x < 45) ! 263: lprcat("\nnothing seems to have happened"); ! 264: else if (rnd(3) != 2) ! 265: fntchange(1); /* change char levels upward */ ! 266: else ! 267: fntchange(-1); /* change char levels downward */ ! 268: if (rnd(12)<3) ! 269: { ! 270: lprcat("\nThe fountains bubbling slowly quiets"); ! 271: item[playerx][playery]=ODEADFOUNTAIN; /* dead fountain */ ! 272: know[playerx][playery]=0; ! 273: } ! 274: return; ! 275: ! 276: case '\33': ! 277: case 'i': ignore(); return; ! 278: ! 279: case 'w': lprcat("wash yourself"); ! 280: if (rnd(100) < 11) ! 281: { ! 282: x=rnd((level<<2)+2); ! 283: lprintf("\nOh no! The water was foul! You suffer %d hit points!",(long)x); ! 284: lastnum=273; losehp(x); bottomline(); cursors(); ! 285: } ! 286: else ! 287: if (rnd(100) < 29) ! 288: lprcat("\nYou got the dirt off!"); ! 289: else ! 290: if (rnd(100) < 31) ! 291: lprcat("\nThis water seems to be hard water! The dirt didn't come off!"); ! 292: else ! 293: if (rnd(100) < 34) ! 294: createmonster(WATERLORD); /* make water lord */ ! 295: else ! 296: lprcat("\nnothing seems to have happened"); ! 297: return; ! 298: } ! 299: } ! 300: ! 301: /* ! 302: a subroutine to raise or lower character levels ! 303: if x > 0 they are raised if x < 0 they are lowered ! 304: */ ! 305: fntchange(how) ! 306: int how; ! 307: { ! 308: register long j; ! 309: lprc('\n'); ! 310: switch(rnd(9)) ! 311: { ! 312: case 1: lprcat("Your strength"); fch(how,&c[0]); break; ! 313: case 2: lprcat("Your intelligence"); fch(how,&c[1]); break; ! 314: case 3: lprcat("Your wisdom"); fch(how,&c[2]); break; ! 315: case 4: lprcat("Your constitution"); fch(how,&c[3]); break; ! 316: case 5: lprcat("Your dexterity"); fch(how,&c[4]); break; ! 317: case 6: lprcat("Your charm"); fch(how,&c[5]); break; ! 318: case 7: j=rnd(level+1); ! 319: if (how < 0) ! 320: { lprintf("You lose %d hit point",(long)j); if (j>1) lprcat("s!"); else lprc('!'); losemhp((int)j); } ! 321: else ! 322: { lprintf("You gain %d hit point",(long)j); if (j>1) lprcat("s!"); else lprc('!'); raisemhp((int)j); } ! 323: bottomline(); break; ! 324: ! 325: case 8: j=rnd(level+1); ! 326: if (how > 0) ! 327: { ! 328: lprintf("You just gained %d spell",(long)j); raisemspells((int)j); ! 329: if (j>1) lprcat("s!"); else lprc('!'); ! 330: } ! 331: else ! 332: { ! 333: lprintf("You just lost %d spell",(long)j); losemspells((int)j); ! 334: if (j>1) lprcat("s!"); else lprc('!'); ! 335: } ! 336: bottomline(); break; ! 337: ! 338: case 9: j = 5*rnd((level+1)*(level+1)); ! 339: if (how < 0) ! 340: { ! 341: lprintf("You just lost %d experience point",(long)j); ! 342: if (j>1) lprcat("s!"); else lprc('!'); loseexperience((long)j); ! 343: } ! 344: else ! 345: { ! 346: lprintf("You just gained %d experience point",(long)j); ! 347: if (j>1) lprcat("s!"); else lprc('!'); raiseexperience((long)j); ! 348: } ! 349: break; ! 350: } ! 351: cursors(); ! 352: } ! 353: ! 354: /* ! 355: *** ! 356: FCH ! 357: *** ! 358: ! 359: subroutine to process an up/down of a character attribute for ofountain ! 360: */ ! 361: static fch(how,x) ! 362: int how; ! 363: long *x; ! 364: { ! 365: if (how < 0) { lprcat(" went down by one!"); --(*x); } ! 366: else { lprcat(" went up by one!"); (*x)++; } ! 367: bottomline(); ! 368: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.