moreobj.c revision 1.4
1 /* $NetBSD: moreobj.c,v 1.4 1997/10/18 20:03:32 christos Exp $ */ 2 3 /* 4 * moreobj.c Larn is copyrighted 1986 by Noah Morgan. 5 * 6 * Routines in this file: 7 * 8 * oaltar() othrone() ochest() ofountain() 9 */ 10 #include <sys/cdefs.h> 11 #ifndef lint 12 __RCSID("$NetBSD: moreobj.c,v 1.4 1997/10/18 20:03:32 christos Exp $"); 13 #endif /* not lint */ 14 #include <stdio.h> 15 #include <stdlib.h> 16 #include <unistd.h> 17 #include "header.h" 18 #include "extern.h" 19 20 static void ohear __P((void)); 21 static void fch __P((int, long *)); 22 23 /* 24 * ****** 25 * OALTAR 26 * ****** 27 * 28 * subroutine to process an altar object 29 */ 30 void 31 oaltar() 32 { 33 unsigned long k; 34 35 lprcat("\nDo you (p) pray (d) desecrate"); 36 iopts(); 37 while (1) { 38 while (1) 39 switch (getchar()) { 40 case 'p': 41 lprcat(" pray\nDo you (m) give money or (j) just pray? "); 42 while (1) 43 switch (getchar()) { 44 case 'j': 45 if (rnd(100) < 75) 46 lprcat("\nnothing happens"); 47 else if (rnd(13) < 4) 48 ohear(); 49 else if (rnd(43) == 10) { 50 if (c[WEAR]) 51 lprcat("\nYou feel your armor vibrate for a moment"); 52 enchantarmor(); 53 return; 54 } else if (rnd(43) == 10) { 55 if (c[WIELD]) 56 lprcat("\nYou feel your weapon vibrate for a moment"); 57 enchweapon(); 58 return; 59 } else 60 createmonster(makemonst(level + 1)); 61 return; 62 63 case 'm': 64 lprcat("\n\n"); 65 cursor(1, 24); 66 cltoeoln(); 67 cursor(1, 23); 68 cltoeoln(); 69 lprcat("how much do you donate? "); 70 k = readnum((long) c[GOLD]); 71 if (c[GOLD] < k) { 72 lprcat("\nYou don't have that much!"); 73 return; 74 } 75 c[GOLD] -= k; 76 if (k < c[GOLD] / 10 || k < rnd(50)) { 77 createmonster(makemonst(level + 1)); 78 c[AGGRAVATE] += 200; 79 } else if (rnd(101) > 50) { 80 ohear(); 81 return; 82 } else if (rnd(43) == 5) { 83 if (c[WEAR]) 84 lprcat("\nYou feel your armor vibrate for a moment"); 85 enchantarmor(); 86 return; 87 } else if (rnd(43) == 8) { 88 if (c[WIELD]) 89 lprcat("\nYou feel your weapon vibrate for a moment"); 90 enchweapon(); 91 return; 92 } else 93 lprcat("\nThank You."); 94 bottomline(); 95 return; 96 97 case '\33': 98 return; 99 }; 100 101 case 'd': 102 lprcat(" desecrate"); 103 if (rnd(100) < 60) { 104 createmonster(makemonst(level + 2) + 8); 105 c[AGGRAVATE] += 2500; 106 } else if (rnd(101) < 30) { 107 lprcat("\nThe altar crumbles into a pile of dust before your eyes"); 108 forget(); /* remember to destroy 109 * the altar */ 110 } else 111 lprcat("\nnothing happens"); 112 return; 113 114 case 'i': 115 case '\33': 116 ignore(); 117 if (rnd(100) < 30) { 118 createmonster(makemonst(level + 1)); 119 c[AGGRAVATE] += rnd(450); 120 } else 121 lprcat("\nnothing happens"); 122 return; 123 }; 124 } 125 } 126 127 /* 128 function to cast a +3 protection on the player 129 */ 130 static void 131 ohear() 132 { 133 lprcat("\nYou have been heard!"); 134 if (c[ALTPRO] == 0) 135 c[MOREDEFENSES] += 3; 136 c[ALTPRO] += 500; /* protection field */ 137 bottomline(); 138 } 139 140 /* 141 ******* 142 OTHRONE 143 ******* 144 145 subroutine to process a throne object 146 */ 147 void 148 othrone(arg) 149 int arg; 150 { 151 int i, k; 152 153 lprcat("\nDo you (p) pry off jewels, (s) sit down"); 154 iopts(); 155 while (1) { 156 while (1) 157 switch (getchar()) { 158 case 'p': 159 lprcat(" pry off"); 160 k = rnd(101); 161 if (k < 25) { 162 for (i = 0; i < rnd(4); i++) 163 creategem(); /* gems pop off the 164 * throne */ 165 item[playerx][playery] = ODEADTHRONE; 166 know[playerx][playery] = 0; 167 } else if (k < 40 && arg == 0) { 168 createmonster(GNOMEKING); 169 item[playerx][playery] = OTHRONE2; 170 know[playerx][playery] = 0; 171 } else 172 lprcat("\nnothing happens"); 173 return; 174 175 case 's': 176 lprcat(" sit down"); 177 k = rnd(101); 178 if (k < 30 && arg == 0) { 179 createmonster(GNOMEKING); 180 item[playerx][playery] = OTHRONE2; 181 know[playerx][playery] = 0; 182 } else if (k < 35) { 183 lprcat("\nZaaaappp! You've been teleported!\n"); 184 beep(); 185 oteleport(0); 186 } else 187 lprcat("\nnothing happens"); 188 return; 189 190 case 'i': 191 case '\33': 192 ignore(); 193 return; 194 }; 195 } 196 } 197 198 void 199 odeadthrone() 200 { 201 int k; 202 203 lprcat("\nDo you (s) sit down"); 204 iopts(); 205 while (1) { 206 while (1) 207 switch (getchar()) { 208 case 's': 209 lprcat(" sit down"); 210 k = rnd(101); 211 if (k < 35) { 212 lprcat("\nZaaaappp! You've been teleported!\n"); 213 beep(); 214 oteleport(0); 215 } else 216 lprcat("\nnothing happens"); 217 return; 218 219 case 'i': 220 case '\33': 221 ignore(); 222 return; 223 }; 224 } 225 } 226 227 /* 228 ****** 229 OCHEST 230 ****** 231 232 subroutine to process a throne object 233 */ 234 void 235 ochest() 236 { 237 int i, k; 238 lprcat("\nDo you (t) take it, (o) try to open it"); 239 iopts(); 240 while (1) { 241 while (1) 242 switch (getchar()) { 243 case 'o': 244 lprcat(" open it"); 245 k = rnd(101); 246 if (k < 40) { 247 lprcat("\nThe chest explodes as you open it"); 248 beep(); 249 i = rnd(10); 250 lastnum = 281; /* in case he dies */ 251 lprintf("\nYou suffer %d hit points damage!", (long) i); 252 checkloss(i); 253 switch (rnd(10)) { /* see if he gets a 254 * curse */ 255 case 1: 256 c[ITCHING] += rnd(1000) + 100; 257 lprcat("\nYou feel an irritation spread over your skin!"); 258 beep(); 259 break; 260 261 case 2: 262 c[CLUMSINESS] += rnd(1600) + 200; 263 lprcat("\nYou begin to lose hand to eye coordination!"); 264 beep(); 265 break; 266 267 case 3: 268 c[HALFDAM] += rnd(1600) + 200; 269 beep(); 270 lprcat("\nA sickness engulfs you!"); 271 break; 272 }; 273 item[playerx][playery] = know[playerx][playery] = 0; 274 if (rnd(100) < 69) 275 creategem(); /* gems from the chest */ 276 dropgold(rnd(110 * iarg[playerx][playery] + 200)); 277 for (i = 0; i < rnd(4); i++) 278 something(iarg[playerx][playery] + 2); 279 } else 280 lprcat("\nnothing happens"); 281 return; 282 283 case 't': 284 lprcat(" take"); 285 if (take(OCHEST, iarg[playerx][playery]) == 0) 286 item[playerx][playery] = know[playerx][playery] = 0; 287 return; 288 289 case 'i': 290 case '\33': 291 ignore(); 292 return; 293 }; 294 } 295 } 296 297 /* 298 ********* 299 OFOUNTAIN 300 ********* 301 */ 302 303 void 304 ofountain() 305 { 306 int x; 307 cursors(); 308 lprcat("\nDo you (d) drink, (w) wash yourself"); 309 iopts(); 310 while (1) 311 switch (getchar()) { 312 case 'd': 313 lprcat("drink"); 314 if (rnd(1501) < 2) { 315 lprcat("\nOops! You seem to have caught the dreadful sleep!"); 316 beep(); 317 lflush(); 318 sleep(3); 319 died(280); 320 return; 321 } 322 x = rnd(100); 323 if (x < 7) { 324 c[HALFDAM] += 200 + rnd(200); 325 lprcat("\nYou feel a sickness coming on"); 326 } else if (x < 13) 327 quaffpotion(23); /* see invisible */ 328 else if (x < 45) 329 lprcat("\nnothing seems to have happened"); 330 else if (rnd(3) != 2) 331 fntchange(1); /* change char levels upward */ 332 else 333 fntchange(-1); /* change char levels 334 * downward */ 335 if (rnd(12) < 3) { 336 lprcat("\nThe fountains bubbling slowly quiets"); 337 item[playerx][playery] = ODEADFOUNTAIN; /* dead fountain */ 338 know[playerx][playery] = 0; 339 } 340 return; 341 342 case '\33': 343 case 'i': 344 ignore(); 345 return; 346 347 case 'w': 348 lprcat("wash yourself"); 349 if (rnd(100) < 11) { 350 x = rnd((level << 2) + 2); 351 lprintf("\nOh no! The water was foul! You suffer %d hit points!", (long) x); 352 lastnum = 273; 353 losehp(x); 354 bottomline(); 355 cursors(); 356 } else if (rnd(100) < 29) 357 lprcat("\nYou got the dirt off!"); 358 else if (rnd(100) < 31) 359 lprcat("\nThis water seems to be hard water! The dirt didn't come off!"); 360 else if (rnd(100) < 34) 361 createmonster(WATERLORD); /* make water lord */ 362 else 363 lprcat("\nnothing seems to have happened"); 364 return; 365 } 366 } 367 368 /* 369 *** 370 FCH 371 *** 372 373 subroutine to process an up/down of a character attribute for ofountain 374 */ 375 static void 376 fch(how, x) 377 int how; 378 long *x; 379 { 380 if (how < 0) { 381 lprcat(" went down by one!"); 382 --(*x); 383 } else { 384 lprcat(" went up by one!"); 385 (*x)++; 386 } 387 bottomline(); 388 } 389 390 /* 391 a subroutine to raise or lower character levels 392 if x > 0 they are raised if x < 0 they are lowered 393 */ 394 void 395 fntchange(how) 396 int how; 397 { 398 long j; 399 lprc('\n'); 400 switch (rnd(9)) { 401 case 1: 402 lprcat("Your strength"); 403 fch(how, &c[0]); 404 break; 405 case 2: 406 lprcat("Your intelligence"); 407 fch(how, &c[1]); 408 break; 409 case 3: 410 lprcat("Your wisdom"); 411 fch(how, &c[2]); 412 break; 413 case 4: 414 lprcat("Your constitution"); 415 fch(how, &c[3]); 416 break; 417 case 5: 418 lprcat("Your dexterity"); 419 fch(how, &c[4]); 420 break; 421 case 6: 422 lprcat("Your charm"); 423 fch(how, &c[5]); 424 break; 425 case 7: 426 j = rnd(level + 1); 427 if (how < 0) { 428 lprintf("You lose %d hit point", (long) j); 429 if (j > 1) 430 lprcat("s!"); 431 else 432 lprc('!'); 433 losemhp((int) j); 434 } else { 435 lprintf("You gain %d hit point", (long) j); 436 if (j > 1) 437 lprcat("s!"); 438 else 439 lprc('!'); 440 raisemhp((int) j); 441 } 442 bottomline(); 443 break; 444 445 case 8: 446 j = rnd(level + 1); 447 if (how > 0) { 448 lprintf("You just gained %d spell", (long) j); 449 raisemspells((int) j); 450 if (j > 1) 451 lprcat("s!"); 452 else 453 lprc('!'); 454 } else { 455 lprintf("You just lost %d spell", (long) j); 456 losemspells((int) j); 457 if (j > 1) 458 lprcat("s!"); 459 else 460 lprc('!'); 461 } 462 bottomline(); 463 break; 464 465 case 9: 466 j = 5 * rnd((level + 1) * (level + 1)); 467 if (how < 0) { 468 lprintf("You just lost %d experience point", (long) j); 469 if (j > 1) 470 lprcat("s!"); 471 else 472 lprc('!'); 473 loseexperience((long) j); 474 } else { 475 lprintf("You just gained %d experience point", (long) j); 476 if (j > 1) 477 lprcat("s!"); 478 else 479 lprc('!'); 480 raiseexperience((long) j); 481 } 482 break; 483 } 484 cursors(); 485 } 486
Indexes created Tue Sep 30 11:09:46 GMT 2025