1: /*      $NetBSD: hack.potion.c,v 1.6 2003/04/02 18:36:39 jsm Exp $   */
    2: 
    3: /*
    4:  * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
    5:  * Amsterdam
    6:  * All rights reserved.
    7:  *
    8:  * Redistribution and use in source and binary forms, with or without
    9:  * modification, are permitted provided that the following conditions are
   10:  * met:
   11:  *
   12:  * - Redistributions of source code must retain the above copyright notice,
   13:  * this list of conditions and the following disclaimer.
   14:  *
   15:  * - Redistributions in binary form must reproduce the above copyright
   16:  * notice, this list of conditions and the following disclaimer in the
   17:  * documentation and/or other materials provided with the distribution.
   18:  *
   19:  * - Neither the name of the Stichting Centrum voor Wiskunde en
   20:  * Informatica, nor the names of its contributors may be used to endorse or
   21:  * promote products derived from this software without specific prior
   22:  * written permission.
   23:  *
   24:  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
   25:  * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
   26:  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
   27:  * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
   28:  * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
   29:  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
   30:  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
   31:  * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
   32:  * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
   33:  * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
   34:  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
   35:  */
   36: 
   37: /*
   38:  * Copyright (c) 1982 Jay Fenlason <hack@gnu.org>
   39:  * All rights reserved.
   40:  *
   41:  * Redistribution and use in source and binary forms, with or without
   42:  * modification, are permitted provided that the following conditions
   43:  * are met:
   44:  * 1. Redistributions of source code must retain the above copyright
   45:  *    notice, this list of conditions and the following disclaimer.
   46:  * 2. Redistributions in binary form must reproduce the above copyright
   47:  *    notice, this list of conditions and the following disclaimer in the
   48:  *    documentation and/or other materials provided with the distribution.
   49:  * 3. The name of the author may not be used to endorse or promote products
   50:  *    derived from this software without specific prior written permission.
   51:  *
   52:  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
   53:  * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
   54:  * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
   55:  * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
   56:  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
   57:  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
   58:  * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
   59:  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
   60:  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
   61:  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
   62:  */
   63: 
   64: #include <sys/cdefs.h>
   65: #ifndef lint
   66: __RCSID("$NetBSD: hack.potion.c,v 1.6 2003/04/02 18:36:39 jsm Exp $");
   67: #endif                          /* not lint */
   68: 
   69: #include "hack.h"
   70: #include "extern.h"
   71: 
   72: int
   73: dodrink()
   74: {
   75:         struct obj     *otmp, *objs;
   76:         struct monst   *mtmp;
   77:         int             unkn = 0, nothing = 0;
   78: 
   79:         otmp = getobj("!", "drink");
   80:         if (!otmp)
   81:                 return (0);
   82:         if (!strcmp(objects[otmp->otyp].oc_descr, "smoky") && !rn2(13)) {
   83:                 ghost_from_bottle();
   84:                 goto use_it;
   85:         }
   86:         switch (otmp->otyp) {
   87:         case POT_RESTORE_STRENGTH:
   88:                 unkn++;
   89:                 pline("Wow!  This makes you feel great!");
   90:                 if (u.ustr < u.ustrmax) {
   91:                         u.ustr = u.ustrmax;
   92:                         flags.botl = 1;
   93:                 }
   94:                 break;
   95:         case POT_BOOZE:
   96:                 unkn++;
   97:                 pline("Ooph!  This tastes like liquid fire!");
   98:                 Confusion += d(3, 8);
   99:                 /* the whiskey makes us feel better */
  100:                 if (u.uhp < u.uhpmax)
  101:                         losehp(-1, "bottle of whiskey");
  102:                 if (!rn2(4)) {
  103:                         pline("You pass out.");
  104:                         multi = -rnd(15);
  105:                         nomovemsg = "You awake with a headache.";
  106:                 }
  107:                 break;
  108:         case POT_INVISIBILITY:
  109:                 if (Invis || See_invisible)
  110:                         nothing++;
  111:                 else {
  112:                         if (!Blind)
  113:                                 pline("Gee!  All of a sudden, you can't see yourself.");
  114:                         else
  115:                                 pline("You feel rather airy."), unkn++;
  116:                         newsym(u.ux, u.uy);
  117:                 }
  118:                 Invis += rn1(15, 31);
  119:                 break;
  120:         case POT_FRUIT_JUICE:
  121:                 pline("This tastes like fruit juice.");
  122:                 lesshungry(20);
  123:                 break;
  124:         case POT_HEALING:
  125:                 pline("You begin to feel better.");
  126:                 flags.botl = 1;
  127:                 u.uhp += rnd(10);
  128:                 if (u.uhp > u.uhpmax)
  129:                         u.uhp = ++u.uhpmax;
  130:                 if (Blind)
  131:                         Blind = 1;   /* see on next move */
  132:                 if (Sick)
  133:                         Sick = 0;
  134:                 break;
  135:         case POT_PARALYSIS:
  136:                 if (Levitation)
  137:                         pline("You are motionlessly suspended.");
  138:                 else
  139:                         pline("Your feet are frozen to the floor!");
  140:                 nomul(-(rn1(10, 25)));
  141:                 break;
  142:         case POT_MONSTER_DETECTION:
  143:                 if (!fmon) {
  144:                         strange_feeling(otmp, "You feel threatened.");
  145:                         return (1);
  146:                 } else {
  147:                         cls();
  148:                         for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
  149:                                 if (mtmp->mx > 0)
  150:                                         at(mtmp->mx, mtmp->my, mtmp->data->mlet);
  151:                         prme();
  152:                         pline("You sense the presence of monsters.");
  153:                         more();
  154:                         docrt();
  155:                 }
  156:                 break;
  157:         case POT_OBJECT_DETECTION:
  158:                 if (!fobj) {
  159:                         strange_feeling(otmp, "You feel a pull downward.");
  160:                         return (1);
  161:                 } else {
  162:                         for (objs = fobj; objs; objs = objs->nobj)
  163:                                 if (objs->ox != u.ux || objs->oy != u.uy)
  164:                                         goto outobjmap;
  165:                         pline("You sense the presence of objects close nearby.");
  166:                         break;
  167:         outobjmap:
  168:                         cls();
  169:                         for (objs = fobj; objs; objs = objs->nobj)
  170:                                 at(objs->ox, objs->oy, objs->olet);
  171:                         prme();
  172:                         pline("You sense the presence of objects.");
  173:                         more();
  174:                         docrt();
  175:                 }
  176:                 break;
  177:         case POT_SICKNESS:
  178:                 pline("Yech! This stuff tastes like poison.");
  179:                 if (Poison_resistance)
  180:                         pline("(But in fact it was biologically contaminated orange juice.)");
  181:                 losestr(rn1(4, 3));
  182:                 losehp(rnd(10), "contaminated potion");
  183:                 break;
  184:         case POT_CONFUSION:
  185:                 if (!Confusion)
  186:                         pline("Huh, What?  Where am I?");
  187:                 else
  188:                         nothing++;
  189:                 Confusion += rn1(7, 16);
  190:                 break;
  191:         case POT_GAIN_STRENGTH:
  192:                 pline("Wow do you feel strong!");
  193:                 if (u.ustr >= 118)
  194:                         break;       /* > 118 is impossible */
  195:                 if (u.ustr > 17)
  196:                         u.ustr += rnd(118 - u.ustr);
  197:                 else
  198:                         u.ustr++;
  199:                 if (u.ustr > u.ustrmax)
  200:                         u.ustrmax = u.ustr;
  201:                 flags.botl = 1;
  202:                 break;
  203:         case POT_SPEED:
  204:                 if (Wounded_legs) {
  205:                         heal_legs();
  206:                         unkn++;
  207:                         break;
  208:                 }
  209:                 if (!(Fast & ~INTRINSIC))
  210:                         pline("You are suddenly moving much faster.");
  211:                 else
  212:                         pline("Your legs get new energy."), unkn++;
  213:                 Fast += rn1(10, 100);
  214:                 break;
  215:         case POT_BLINDNESS:
  216:                 if (!Blind)
  217:                         pline("A cloud of darkness falls upon you.");
  218:                 else
  219:                         nothing++;
  220:                 Blind += rn1(100, 250);
  221:                 seeoff(0);
  222:                 break;
  223:         case POT_GAIN_LEVEL:
  224:                 pluslvl();
  225:                 break;
  226:         case POT_EXTRA_HEALING:
  227:                 pline("You feel much better.");
  228:                 flags.botl = 1;
  229:                 u.uhp += d(2, 20) + 1;
  230:                 if (u.uhp > u.uhpmax)
  231:                         u.uhp = (u.uhpmax += 2);
  232:                 if (Blind)
  233:                         Blind = 1;
  234:                 if (Sick)
  235:                         Sick = 0;
  236:                 break;
  237:         case POT_LEVITATION:
  238:                 if (!Levitation)
  239:                         float_up();
  240:                 else
  241:                         nothing++;
  242:                 Levitation += rnd(100);
  243:                 u.uprops[PROP(RIN_LEVITATION)].p_tofn = float_down;
  244:                 break;
  245:         default:
  246:                 impossible("What a funny potion! (%u)", otmp->otyp);
  247:                 return (0);
  248:         }
  249:         if (nothing) {
  250:                 unkn++;
  251:                 pline("You have a peculiar feeling for a moment, then it passes.");
  252:         }
  253:         if (otmp->dknown && !objects[otmp->otyp].oc_name_known) {
  254:                 if (!unkn) {
  255:                         objects[otmp->otyp].oc_name_known = 1;
  256:                         more_experienced(0, 10);
  257:                 } else if (!objects[otmp->otyp].oc_uname)
  258:                         docall(otmp);
  259:         }
  260: use_it:
  261:         useup(otmp);
  262:         return (1);
  263: }
  264: 
  265: void
  266: pluslvl()
  267: {
  268:         int num;
  269: 
  270:         pline("You feel more experienced.");
  271:         num = rnd(10);
  272:         u.uhpmax += num;
  273:         u.uhp += num;
  274:         if (u.ulevel < 14) {
  275:                 u.uexp = newuexp() + 1;
  276:                 pline("Welcome to experience level %u.", ++u.ulevel);
  277:         }
  278:         flags.botl = 1;
  279: }
  280: 
  281: void
  282: strange_feeling(obj, txt)
  283:         struct obj     *obj;
  284:         const char           *txt;
  285: {
  286:         if (flags.beginner)
  287:                 pline("You have a strange feeling for a moment, then it passes.");
  288:         else
  289:                 pline(txt);
  290:         if (!objects[obj->otyp].oc_name_known && !objects[obj->otyp].oc_uname)
  291:                 docall(obj);
  292:         useup(obj);
  293: }
  294: 
  295: const char           *const bottlenames[] = {
  296:         "bottle", "phial", "flagon", "carafe", "flask", "jar", "vial"
  297: };
  298: 
  299: void
  300: potionhit(mon, obj)
  301:         struct monst   *mon;
  302:         struct obj     *obj;
  303: {
  304:         const char           *botlnam = bottlenames[rn2(SIZE(bottlenames))];
  305:         boolean         uclose, isyou = (mon == &youmonst);
  306: 
  307:         if (isyou) {
  308:                 uclose = TRUE;
  309:                 pline("The %s crashes on your head and breaks into shivers.",
  310:                       botlnam);
  311:                 losehp(rnd(2), "thrown potion");
  312:         } else {
  313:                 uclose = (dist(mon->mx, mon->my) < 3);
  314:                 /* perhaps 'E' and 'a' have no head? */
  315:                 pline("The %s crashes on %s's head and breaks into shivers.",
  316:                       botlnam, monnam(mon));
  317:                 if (rn2(5) && mon->mhp > 1)
  318:                         mon->mhp--;
  319:         }
  320:         pline("The %s evaporates.", xname(obj));
  321: 
  322:         if (!isyou && !rn2(3))
  323:                 switch (obj->otyp) {
  324: 
  325:                 case POT_RESTORE_STRENGTH:
  326:                 case POT_GAIN_STRENGTH:
  327:                 case POT_HEALING:
  328:                 case POT_EXTRA_HEALING:
  329:                         if (mon->mhp < mon->mhpmax) {
  330:                                 mon->mhp = mon->mhpmax;
  331:                                 pline("%s looks sound and hale again!", Monnam(mon));
  332:                         }
  333:                         break;
  334:                 case POT_SICKNESS:
  335:                         if (mon->mhpmax > 3)
  336:                                 mon->mhpmax /= 2;
  337:                         if (mon->mhp > 2)
  338:                                 mon->mhp /= 2;
  339:                         break;
  340:                 case POT_CONFUSION:
  341:                 case POT_BOOZE:
  342:                         mon->mconf = 1;
  343:                         break;
  344:                 case POT_INVISIBILITY:
  345:                         unpmon(mon);
  346:                         mon->minvis = 1;
  347:                         pmon(mon);
  348:                         break;
  349:                 case POT_PARALYSIS:
  350:                         mon->mfroz = 1;
  351:                         break;
  352:                 case POT_SPEED:
  353:                         mon->mspeed = MFAST;
  354:                         break;
  355:                 case POT_BLINDNESS:
  356:                         mon->mblinded |= 64 + rn2(64);
  357:                         break;
  358:                         /*
  359:                          * case POT_GAIN_LEVEL: case POT_LEVITATION: case
  360:                          * POT_FRUIT_JUICE: case POT_MONSTER_DETECTION: case
  361:                          * POT_OBJECT_DETECTION: break;
  362:                          */
  363:                 }
  364:         if (uclose && rn2(5))
  365:                 potionbreathe(obj);
  366:         obfree(obj, Null(obj));
  367: }
  368: 
  369: void
  370: potionbreathe(obj)
  371:         struct obj     *obj;
  372: {
  373:         switch (obj->otyp) {
  374:         case POT_RESTORE_STRENGTH:
  375:         case POT_GAIN_STRENGTH:
  376:                 if (u.ustr < u.ustrmax)
  377:                         u.ustr++, flags.botl = 1;
  378:                 break;
  379:         case POT_HEALING:
  380:         case POT_EXTRA_HEALING:
  381:                 if (u.uhp < u.uhpmax)
  382:                         u.uhp++, flags.botl = 1;
  383:                 break;
  384:         case POT_SICKNESS:
  385:                 if (u.uhp <= 5)
  386:                         u.uhp = 1;
  387:                 else
  388:                         u.uhp -= 5;
  389:                 flags.botl = 1;
  390:                 break;
  391:         case POT_CONFUSION:
  392:         case POT_BOOZE:
  393:                 if (!Confusion)
  394:                         pline("You feel somewhat dizzy.");
  395:                 Confusion += rnd(5);
  396:                 break;
  397:         case POT_INVISIBILITY:
  398:                 pline("For an instant you couldn't see your right hand.");
  399:                 break;
  400:         case POT_PARALYSIS:
  401:                 pline("Something seems to be holding you.");
  402:                 nomul(-rnd(5));
  403:                 break;
  404:         case POT_SPEED:
  405:                 Fast += rnd(5);
  406:                 pline("Your knees seem more flexible now.");
  407:                 break;
  408:         case POT_BLINDNESS:
  409:                 if (!Blind)
  410:                         pline("It suddenly gets dark.");
  411:                 Blind += rnd(5);
  412:                 seeoff(0);
  413:                 break;
  414:                 /*
  415:                  * case POT_GAIN_LEVEL: case POT_LEVITATION: case
  416:                  * POT_FRUIT_JUICE: case POT_MONSTER_DETECTION: case
  417:                  * POT_OBJECT_DETECTION: break;
  418:                  */
  419:         }
  420:         /* note: no obfree() */
  421: }
  422: 
  423: /*
  424:  * -- rudimentary -- to do this correctly requires much more work
  425:  * -- all sharp weapons get one or more qualities derived from the potions
  426:  * -- texts on scrolls may be (partially) wiped out; do they become blank?
  427:  * --   or does their effect change, like under Confusion?
  428:  * -- all objects may be made invisible by POT_INVISIBILITY
  429:  * -- If the flask is small, can one dip a large object? Does it magically
  430:  * --   become a jug? Etc.
  431:  */
  432: int
  433: dodip()
  434: {
  435:         struct obj     *potion, *obj;
  436: 
  437:         if (!(obj = getobj("#", "dip")))
  438:                 return (0);
  439:         if (!(potion = getobj("!", "dip into")))
  440:                 return (0);
  441:         pline("Interesting...");
  442:         if (obj->otyp == ARROW || obj->otyp == DART ||
  443:             obj->otyp == CROSSBOW_BOLT) {
  444:                 if (potion->otyp == POT_SICKNESS) {
  445:                         useup(potion);
  446:                         if (obj->spe < 7)
  447:                                 obj->spe++; /* %% */
  448:                 }
  449:         }
  450:         return (1);
  451: }
  452: 
  453: void
  454: ghost_from_bottle()
  455: {
  456:         struct monst   *mtmp;
  457: 
  458:         if (!(mtmp = makemon(PM_GHOST, u.ux, u.uy))) {
  459:                 pline("This bottle turns out to be empty.");
  460:                 return;
  461:         }
  462:         mnexto(mtmp);
  463:         pline("As you open the bottle, an enormous ghost emerges!");
  464:         pline("You are frightened to death, and unable to move.");
  465:         nomul(-3);
  466: }