![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hack.potion.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack|
Return to hack.potion.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack |
1.1 ! root 1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ ! 2: /* hack.potion.c - version 1.0.3 */ ! 3: ! 4: #include "hack.h" ! 5: extern int float_down(); ! 6: extern char *nomovemsg; ! 7: extern struct monst youmonst; ! 8: extern struct monst *makemon(); ! 9: ! 10: dodrink() { ! 11: register struct obj *otmp,*objs; ! 12: register struct monst *mtmp; ! 13: register int unkn = 0, nothing = 0; ! 14: ! 15: otmp = getobj("!", "drink"); ! 16: if(!otmp) return(0); ! 17: if(!strcmp(objects[otmp->otyp].oc_descr, "smoky") && !rn2(13)) { ! 18: ghost_from_bottle(); ! 19: goto use_it; ! 20: } ! 21: switch(otmp->otyp){ ! 22: case POT_RESTORE_STRENGTH: ! 23: unkn++; ! 24: pline("Wow! This makes you feel great!"); ! 25: if(u.ustr < u.ustrmax) { ! 26: u.ustr = u.ustrmax; ! 27: flags.botl = 1; ! 28: } ! 29: break; ! 30: case POT_BOOZE: ! 31: unkn++; ! 32: pline("Ooph! This tastes like liquid fire!"); ! 33: Confusion += d(3,8); ! 34: /* the whiskey makes us feel better */ ! 35: if(u.uhp < u.uhpmax) losehp(-1, "bottle of whiskey"); ! 36: if(!rn2(4)) { ! 37: pline("You pass out."); ! 38: multi = -rnd(15); ! 39: nomovemsg = "You awake with a headache."; ! 40: } ! 41: break; ! 42: case POT_INVISIBILITY: ! 43: if(Invis || See_invisible) ! 44: nothing++; ! 45: else { ! 46: if(!Blind) ! 47: pline("Gee! All of a sudden, you can't see yourself."); ! 48: else ! 49: pline("You feel rather airy."), unkn++; ! 50: newsym(u.ux,u.uy); ! 51: } ! 52: Invis += rn1(15,31); ! 53: break; ! 54: case POT_FRUIT_JUICE: ! 55: pline("This tastes like fruit juice."); ! 56: lesshungry(20); ! 57: break; ! 58: case POT_HEALING: ! 59: pline("You begin to feel better."); ! 60: flags.botl = 1; ! 61: u.uhp += rnd(10); ! 62: if(u.uhp > u.uhpmax) ! 63: u.uhp = ++u.uhpmax; ! 64: if(Blind) Blind = 1; /* see on next move */ ! 65: if(Sick) Sick = 0; ! 66: break; ! 67: case POT_PARALYSIS: ! 68: if(Levitation) ! 69: pline("You are motionlessly suspended."); ! 70: else ! 71: pline("Your feet are frozen to the floor!"); ! 72: nomul(-(rn1(10,25))); ! 73: break; ! 74: case POT_MONSTER_DETECTION: ! 75: if(!fmon) { ! 76: strange_feeling(otmp, "You feel threatened."); ! 77: return(1); ! 78: } else { ! 79: cls(); ! 80: for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) ! 81: if(mtmp->mx > 0) ! 82: at(mtmp->mx,mtmp->my,mtmp->data->mlet); ! 83: prme(); ! 84: pline("You sense the presence of monsters."); ! 85: more(); ! 86: docrt(); ! 87: } ! 88: break; ! 89: case POT_OBJECT_DETECTION: ! 90: if(!fobj) { ! 91: strange_feeling(otmp, "You feel a pull downward."); ! 92: return(1); ! 93: } else { ! 94: for(objs = fobj; objs; objs = objs->nobj) ! 95: if(objs->ox != u.ux || objs->oy != u.uy) ! 96: goto outobjmap; ! 97: pline("You sense the presence of objects close nearby."); ! 98: break; ! 99: outobjmap: ! 100: cls(); ! 101: for(objs = fobj; objs; objs = objs->nobj) ! 102: at(objs->ox,objs->oy,objs->olet); ! 103: prme(); ! 104: pline("You sense the presence of objects."); ! 105: more(); ! 106: docrt(); ! 107: } ! 108: break; ! 109: case POT_SICKNESS: ! 110: pline("Yech! This stuff tastes like poison."); ! 111: if(Poison_resistance) ! 112: pline("(But in fact it was biologically contaminated orange juice.)"); ! 113: losestr(rn1(4,3)); ! 114: losehp(rnd(10), "contaminated potion"); ! 115: break; ! 116: case POT_CONFUSION: ! 117: if(!Confusion) ! 118: pline("Huh, What? Where am I?"); ! 119: else ! 120: nothing++; ! 121: Confusion += rn1(7,16); ! 122: break; ! 123: case POT_GAIN_STRENGTH: ! 124: pline("Wow do you feel strong!"); ! 125: if(u.ustr >= 118) break; /* > 118 is impossible */ ! 126: if(u.ustr > 17) u.ustr += rnd(118-u.ustr); ! 127: else u.ustr++; ! 128: if(u.ustr > u.ustrmax) u.ustrmax = u.ustr; ! 129: flags.botl = 1; ! 130: break; ! 131: case POT_SPEED: ! 132: if(Wounded_legs) { ! 133: heal_legs(); ! 134: unkn++; ! 135: break; ! 136: } ! 137: if(!(Fast & ~INTRINSIC)) ! 138: pline("You are suddenly moving much faster."); ! 139: else ! 140: pline("Your legs get new energy."), unkn++; ! 141: Fast += rn1(10,100); ! 142: break; ! 143: case POT_BLINDNESS: ! 144: if(!Blind) ! 145: pline("A cloud of darkness falls upon you."); ! 146: else ! 147: nothing++; ! 148: Blind += rn1(100,250); ! 149: seeoff(0); ! 150: break; ! 151: case POT_GAIN_LEVEL: ! 152: pluslvl(); ! 153: break; ! 154: case POT_EXTRA_HEALING: ! 155: pline("You feel much better."); ! 156: flags.botl = 1; ! 157: u.uhp += d(2,20)+1; ! 158: if(u.uhp > u.uhpmax) ! 159: u.uhp = (u.uhpmax += 2); ! 160: if(Blind) Blind = 1; ! 161: if(Sick) Sick = 0; ! 162: break; ! 163: case POT_LEVITATION: ! 164: if(!Levitation) ! 165: float_up(); ! 166: else ! 167: nothing++; ! 168: Levitation += rnd(100); ! 169: u.uprops[PROP(RIN_LEVITATION)].p_tofn = float_down; ! 170: break; ! 171: default: ! 172: impossible("What a funny potion! (%u)", otmp->otyp); ! 173: return(0); ! 174: } ! 175: if(nothing) { ! 176: unkn++; ! 177: pline("You have a peculiar feeling for a moment, then it passes."); ! 178: } ! 179: if(otmp->dknown && !objects[otmp->otyp].oc_name_known) { ! 180: if(!unkn) { ! 181: objects[otmp->otyp].oc_name_known = 1; ! 182: more_experienced(0,10); ! 183: } else if(!objects[otmp->otyp].oc_uname) ! 184: docall(otmp); ! 185: } ! 186: use_it: ! 187: useup(otmp); ! 188: return(1); ! 189: } ! 190: ! 191: pluslvl() ! 192: { ! 193: register num; ! 194: ! 195: pline("You feel more experienced."); ! 196: num = rnd(10); ! 197: u.uhpmax += num; ! 198: u.uhp += num; ! 199: if(u.ulevel < 14) { ! 200: extern long newuexp(); ! 201: ! 202: u.uexp = newuexp()+1; ! 203: pline("Welcome to experience level %u.", ++u.ulevel); ! 204: } ! 205: flags.botl = 1; ! 206: } ! 207: ! 208: strange_feeling(obj,txt) ! 209: register struct obj *obj; ! 210: register char *txt; ! 211: { ! 212: if(flags.beginner) ! 213: pline("You have a strange feeling for a moment, then it passes."); ! 214: else ! 215: pline(txt); ! 216: if(!objects[obj->otyp].oc_name_known && !objects[obj->otyp].oc_uname) ! 217: docall(obj); ! 218: useup(obj); ! 219: } ! 220: ! 221: char *bottlenames[] = { ! 222: "bottle", "phial", "flagon", "carafe", "flask", "jar", "vial" ! 223: }; ! 224: ! 225: potionhit(mon, obj) ! 226: register struct monst *mon; ! 227: register struct obj *obj; ! 228: { ! 229: extern char *xname(); ! 230: register char *botlnam = bottlenames[rn2(SIZE(bottlenames))]; ! 231: boolean uclose, isyou = (mon == &youmonst); ! 232: ! 233: if(isyou) { ! 234: uclose = TRUE; ! 235: pline("The %s crashes on your head and breaks into shivers.", ! 236: botlnam); ! 237: losehp(rnd(2), "thrown potion"); ! 238: } else { ! 239: uclose = (dist(mon->mx,mon->my) < 3); ! 240: /* perhaps 'E' and 'a' have no head? */ ! 241: pline("The %s crashes on %s's head and breaks into shivers.", ! 242: botlnam, monnam(mon)); ! 243: if(rn2(5) && mon->mhp > 1) ! 244: mon->mhp--; ! 245: } ! 246: pline("The %s evaporates.", xname(obj)); ! 247: ! 248: if(!isyou && !rn2(3)) switch(obj->otyp) { ! 249: ! 250: case POT_RESTORE_STRENGTH: ! 251: case POT_GAIN_STRENGTH: ! 252: case POT_HEALING: ! 253: case POT_EXTRA_HEALING: ! 254: if(mon->mhp < mon->mhpmax) { ! 255: mon->mhp = mon->mhpmax; ! 256: pline("%s looks sound and hale again!", Monnam(mon)); ! 257: } ! 258: break; ! 259: case POT_SICKNESS: ! 260: if(mon->mhpmax > 3) ! 261: mon->mhpmax /= 2; ! 262: if(mon->mhp > 2) ! 263: mon->mhp /= 2; ! 264: break; ! 265: case POT_CONFUSION: ! 266: case POT_BOOZE: ! 267: mon->mconf = 1; ! 268: break; ! 269: case POT_INVISIBILITY: ! 270: unpmon(mon); ! 271: mon->minvis = 1; ! 272: pmon(mon); ! 273: break; ! 274: case POT_PARALYSIS: ! 275: mon->mfroz = 1; ! 276: break; ! 277: case POT_SPEED: ! 278: mon->mspeed = MFAST; ! 279: break; ! 280: case POT_BLINDNESS: ! 281: mon->mblinded |= 64 + rn2(64); ! 282: break; ! 283: /* ! 284: case POT_GAIN_LEVEL: ! 285: case POT_LEVITATION: ! 286: case POT_FRUIT_JUICE: ! 287: case POT_MONSTER_DETECTION: ! 288: case POT_OBJECT_DETECTION: ! 289: break; ! 290: */ ! 291: } ! 292: if(uclose && rn2(5)) ! 293: potionbreathe(obj); ! 294: obfree(obj, Null(obj)); ! 295: } ! 296: ! 297: potionbreathe(obj) ! 298: register struct obj *obj; ! 299: { ! 300: switch(obj->otyp) { ! 301: case POT_RESTORE_STRENGTH: ! 302: case POT_GAIN_STRENGTH: ! 303: if(u.ustr < u.ustrmax) u.ustr++, flags.botl = 1; ! 304: break; ! 305: case POT_HEALING: ! 306: case POT_EXTRA_HEALING: ! 307: if(u.uhp < u.uhpmax) u.uhp++, flags.botl = 1; ! 308: break; ! 309: case POT_SICKNESS: ! 310: if(u.uhp <= 5) u.uhp = 1; else u.uhp -= 5; ! 311: flags.botl = 1; ! 312: break; ! 313: case POT_CONFUSION: ! 314: case POT_BOOZE: ! 315: if(!Confusion) ! 316: pline("You feel somewhat dizzy."); ! 317: Confusion += rnd(5); ! 318: break; ! 319: case POT_INVISIBILITY: ! 320: pline("For an instant you couldn't see your right hand."); ! 321: break; ! 322: case POT_PARALYSIS: ! 323: pline("Something seems to be holding you."); ! 324: nomul(-rnd(5)); ! 325: break; ! 326: case POT_SPEED: ! 327: Fast += rnd(5); ! 328: pline("Your knees seem more flexible now."); ! 329: break; ! 330: case POT_BLINDNESS: ! 331: if(!Blind) pline("It suddenly gets dark."); ! 332: Blind += rnd(5); ! 333: seeoff(0); ! 334: break; ! 335: /* ! 336: case POT_GAIN_LEVEL: ! 337: case POT_LEVITATION: ! 338: case POT_FRUIT_JUICE: ! 339: case POT_MONSTER_DETECTION: ! 340: case POT_OBJECT_DETECTION: ! 341: break; ! 342: */ ! 343: } ! 344: /* note: no obfree() */ ! 345: } ! 346: ! 347: /* ! 348: * -- rudimentary -- to do this correctly requires much more work ! 349: * -- all sharp weapons get one or more qualities derived from the potions ! 350: * -- texts on scrolls may be (partially) wiped out; do they become blank? ! 351: * -- or does their effect change, like under Confusion? ! 352: * -- all objects may be made invisible by POT_INVISIBILITY ! 353: * -- If the flask is small, can one dip a large object? Does it magically ! 354: * -- become a jug? Etc. ! 355: */ ! 356: dodip(){ ! 357: register struct obj *potion, *obj; ! 358: ! 359: if(!(obj = getobj("#", "dip"))) ! 360: return(0); ! 361: if(!(potion = getobj("!", "dip into"))) ! 362: return(0); ! 363: pline("Interesting..."); ! 364: if(obj->otyp == ARROW || obj->otyp == DART || ! 365: obj->otyp == CROSSBOW_BOLT) { ! 366: if(potion->otyp == POT_SICKNESS) { ! 367: useup(potion); ! 368: if(obj->spe < 7) obj->spe++; /* %% */ ! 369: } ! 370: } ! 371: return(1); ! 372: } ! 373: ! 374: ghost_from_bottle(){ ! 375: extern struct permonst pm_ghost; ! 376: register struct monst *mtmp; ! 377: ! 378: if(!(mtmp = makemon(PM_GHOST,u.ux,u.uy))){ ! 379: pline("This bottle turns out to be empty."); ! 380: return; ! 381: } ! 382: mnexto(mtmp); ! 383: pline("As you open the bottle, an enormous ghost emerges!"); ! 384: pline("You are frightened to death, and unable to move."); ! 385: nomul(-3); ! 386: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.