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