hack/hack.eat.c

   1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
   2 /* hack.eat.c - version 1.0.3 */
   3
   4 #include        "hack.h"
   5 char POISONOUS[] = "ADKSVabhks";
   6 extern char *nomovemsg;
   7 extern int (*afternmv)();
   8 extern int (*occupation)();
   9 extern char *occtxt;
  10 extern struct obj *splitobj(), *addinv();
  11
  12 /* hunger texts used on bottom line (each 8 chars long) */
  13 #define SATIATED        0
  14 #define NOT_HUNGRY      1
  15 #define HUNGRY          2
  16 #define WEAK            3
  17 #define FAINTING        4
  18 #define FAINTED         5
  19 #define STARVED         6
  20
  21 char *hu_stat[] = {
  22         "Satiated",
  23         "        ",
  24         "Hungry  ",
  25         "Weak    ",
  26         "Fainting",
  27         "Fainted ",
  28         "Starved "
  29 };
  30
  31 init_uhunger(){
  32         u.uhunger = 900;
  33         u.uhs = NOT_HUNGRY;
  34 }
  35
  36 #define TTSZ    SIZE(tintxts)
  37 struct { char *txt; int nut; } tintxts[] = {
  38         "It contains first quality peaches - what a surprise!", 40,
  39         "It contains salmon - not bad!",        60,
  40         "It contains apple juice - perhaps not what you hoped for.", 20,
  41         "It contains some nondescript substance, tasting awfully.", 500,
  42         "It contains rotten meat. You vomit.", -50,
  43         "It turns out to be empty.",    0
  44 };
  45
  46 static struct {
  47         struct obj *tin;
  48         int usedtime, reqtime;
  49 } tin;
  50
  51 opentin(){
  52         register int r;
  53
  54         if(!carried(tin.tin))           /* perhaps it was stolen? */
  55                 return(0);              /* %% probably we should use tinoid */
  56         if(tin.usedtime++ >= 50) {
  57                 pline("You give up your attempt to open the tin.");
  58                 return(0);
  59         }
  60         if(tin.usedtime < tin.reqtime)
  61                 return(1);              /* still busy */
  62
  63         pline("You succeed in opening the tin.");
  64         useup(tin.tin);
  65         r = rn2(2*TTSZ);
  66         if(r < TTSZ){
  67             pline(tintxts[r].txt);
  68             lesshungry(tintxts[r].nut);
  69             if(r == 1)  /* SALMON */ {
  70                 Glib = rnd(15);
  71                 pline("Eating salmon made your fingers very slippery.");
  72             }
  73         } else {
  74             pline("It contains spinach - this makes you feel like Popeye!");
  75             lesshungry(600);
  76             if(u.ustr < 118)
  77                 u.ustr += rnd( ((u.ustr < 17) ? 19 : 118) - u.ustr);
  78             if(u.ustr > u.ustrmax) u.ustrmax = u.ustr;
  79             flags.botl = 1;
  80         }
  81         return(0);
  82 }
  83
  84 Meatdone(){
  85         u.usym = '@';
  86         prme();
  87 }
  88
  89 doeat(){
  90         register struct obj *otmp;
  91         register struct objclass *ftmp;
  92         register tmp;
  93
  94         /* Is there some food (probably a heavy corpse) here on the ground? */
  95         if(!Levitation)
  96         for(otmp = fobj; otmp; otmp = otmp->nobj) {
  97                 if(otmp->ox == u.ux && otmp->oy == u.uy &&
  98                    otmp->olet == FOOD_SYM) {
  99                         pline("There %s %s here; eat %s? [ny] ",
 100                                 (otmp->quan == 1) ? "is" : "are",
 101                                 doname(otmp),
 102                                 (otmp->quan == 1) ? "it" : "one");
 103                         if(readchar() == 'y') {
 104                                 if(otmp->quan != 1)
 105                                         (void) splitobj(otmp, 1);
 106                                 freeobj(otmp);
 107                                 otmp = addinv(otmp);
 108                                 addtobill(otmp);
 109                                 goto gotit;
 110                         }
 111                 }
 112         }
 113         otmp = getobj("%", "eat");
 114         if(!otmp) return(0);
 115 gotit:
 116         if(otmp->otyp == TIN){
 117                 if(uwep) {
 118                         switch(uwep->otyp) {
 119                         case CAN_OPENER:
 120                                 tmp = 1;
 121                                 break;
 122                         case DAGGER:
 123                         case CRYSKNIFE:
 124                                 tmp = 3;
 125                                 break;
 126                         case PICK_AXE:
 127                         case AXE:
 128                                 tmp = 6;
 129                                 break;
 130                         default:
 131                                 goto no_opener;
 132                         }
 133                         pline("Using your %s you try to open the tin.",
 134                                 aobjnam(uwep, (char *) 0));
 135                 } else {
 136                 no_opener:
 137                         pline("It is not so easy to open this tin.");
 138                         if(Glib) {
 139                                 pline("The tin slips out of your hands.");
 140                                 if(otmp->quan > 1) {
 141                                         register struct obj *obj;
 142                                         extern struct obj *splitobj();
 143
 144                                         obj = splitobj(otmp, 1);
 145                                         if(otmp == uwep) setuwep(obj);
 146                                 }
 147                                 dropx(otmp);
 148                                 return(1);
 149                         }
 150                         tmp = 10 + rn2(1 + 500/((int)(u.ulevel + u.ustr)));
 151                 }
 152                 tin.reqtime = tmp;
 153                 tin.usedtime = 0;
 154                 tin.tin = otmp;
 155                 occupation = opentin;
 156                 occtxt = "opening the tin";
 157                 return(1);
 158         }
 159         ftmp = &objects[otmp->otyp];
 160         multi = -ftmp->oc_delay;
 161         if(otmp->otyp >= CORPSE && eatcorpse(otmp)) goto eatx;
 162         if(!rn2(7) && otmp->otyp != FORTUNE_COOKIE) {
 163                 pline("Blecch!  Rotten food!");
 164                 if(!rn2(4)) {
 165                         pline("You feel rather light headed.");
 166                         Confusion += d(2,4);
 167                 } else if(!rn2(4)&& !Blind) {
 168                         pline("Everything suddenly goes dark.");
 169                         Blind = d(2,10);
 170                         seeoff(0);
 171                 } else if(!rn2(3)) {
 172                         if(Blind)
 173                           pline("The world spins and you slap against the floor.");
 174                         else
 175                           pline("The world spins and goes dark.");
 176                         nomul(-rnd(10));
 177                         nomovemsg = "You are conscious again.";
 178                 }
 179                 lesshungry(ftmp->nutrition / 4);
 180         } else {
 181                 if(u.uhunger >= 1500) {
 182                         pline("You choke over your food.");
 183                         pline("You die...");
 184                         killer = ftmp->oc_name;
 185                         done("choked");
 186                 }
 187                 switch(otmp->otyp){
 188                 case FOOD_RATION:
 189                         if(u.uhunger <= 200)
 190                                 pline("That food really hit the spot!");
 191                         else if(u.uhunger <= 700)
 192                                 pline("That satiated your stomach!");
 193                         else {
 194         pline("You're having a hard time getting all that food down.");
 195                                 multi -= 2;
 196                         }
 197                         lesshungry(ftmp->nutrition);
 198                         if(multi < 0) nomovemsg = "You finished your meal.";
 199                         break;
 200                 case TRIPE_RATION:
 201                         pline("Yak - dog food!");
 202                         more_experienced(1,0);
 203                         flags.botl = 1;
 204                         if(rn2(2)){
 205                                 pline("You vomit.");
 206                                 morehungry(20);
 207                                 if(Sick) {
 208                                         Sick = 0;       /* David Neves */
 209                                         pline("What a relief!");
 210                                 }
 211                         } else  lesshungry(ftmp->nutrition);
 212                         break;
 213                 default:
 214                         if(otmp->otyp >= CORPSE)
 215                         pline("That %s tasted terrible!",ftmp->oc_name);
 216                         else
 217                         pline("That %s was delicious!",ftmp->oc_name);
 218                         lesshungry(ftmp->nutrition);
 219                         if(otmp->otyp == DEAD_LIZARD && (Confusion > 2))
 220                                 Confusion = 2;
 221                         else
 222 #ifdef QUEST
 223                         if(otmp->otyp == CARROT && !Blind){
 224                                 u.uhorizon++;
 225                                 setsee();
 226                                 pline("Your vision improves.");
 227                         } else
 228 #endif QUEST
 229                         if(otmp->otyp == FORTUNE_COOKIE) {
 230                           if(Blind) {
 231                             pline("This cookie has a scrap of paper inside!");
 232                             pline("What a pity, that you cannot read it!");
 233                           } else
 234                             outrumor();
 235                         } else
 236                         if(otmp->otyp == LUMP_OF_ROYAL_JELLY) {
 237                                 /* This stuff seems to be VERY healthy! */
 238                                 if(u.ustrmax < 118) u.ustrmax++;
 239                                 if(u.ustr < u.ustrmax) u.ustr++;
 240                                 u.uhp += rnd(20);
 241                                 if(u.uhp > u.uhpmax) {
 242                                         if(!rn2(17)) u.uhpmax++;
 243                                         u.uhp = u.uhpmax;
 244                                 }
 245                                 heal_legs();
 246                         }
 247                         break;
 248                 }
 249         }
 250 eatx:
 251         if(multi<0 && !nomovemsg){
 252                 static char msgbuf[BUFSZ];
 253                 (void) sprintf(msgbuf, "You finished eating the %s.",
 254                                 ftmp->oc_name);
 255                 nomovemsg = msgbuf;
 256         }
 257         useup(otmp);
 258         return(1);
 259 }
 260
 261 /* called in hack.main.c */
 262 gethungry(){
 263         --u.uhunger;
 264         if(moves % 2) {
 265                 if(Regeneration) u.uhunger--;
 266                 if(Hunger) u.uhunger--;
 267                 /* a3:  if(Hunger & LEFT_RING) u.uhunger--;
 268                         if(Hunger & RIGHT_RING) u.uhunger--;
 269                    etc. */
 270         }
 271         if(moves % 20 == 0) {                   /* jimt@asgb */
 272                 if(uleft) u.uhunger--;
 273                 if(uright) u.uhunger--;
 274         }
 275         newuhs(TRUE);
 276 }
 277
 278 /* called after vomiting and after performing feats of magic */
 279 morehungry(num) register num; {
 280         u.uhunger -= num;
 281         newuhs(TRUE);
 282 }
 283
 284 /* called after eating something (and after drinking fruit juice) */
 285 lesshungry(num) register num; {
 286         u.uhunger += num;
 287         newuhs(FALSE);
 288 }
 289
 290 unfaint(){
 291         u.uhs = FAINTING;
 292         flags.botl = 1;
 293 }
 294
 295 newuhs(incr) boolean incr; {
 296         register int newhs, h = u.uhunger;
 297
 298         newhs = (h > 1000) ? SATIATED :
 299                 (h > 150) ? NOT_HUNGRY :
 300                 (h > 50) ? HUNGRY :
 301                 (h > 0) ? WEAK : FAINTING;
 302
 303         if(newhs == FAINTING) {
 304                 if(u.uhs == FAINTED)
 305                         newhs = FAINTED;
 306                 if(u.uhs <= WEAK || rn2(20-u.uhunger/10) >= 19) {
 307                         if(u.uhs != FAINTED && multi >= 0 /* %% */) {
 308                                 pline("You faint from lack of food.");
 309                                 nomul(-10+(u.uhunger/10));
 310                                 nomovemsg = "You regain consciousness.";
 311                                 afternmv = unfaint;
 312                                 newhs = FAINTED;
 313                         }
 314                 } else
 315                 if(u.uhunger < -(int)(200 + 25*u.ulevel)) {
 316                         u.uhs = STARVED;
 317                         flags.botl = 1;
 318                         bot();
 319                         pline("You die from starvation.");
 320                         done("starved");
 321                 }
 322         }
 323
 324         if(newhs != u.uhs) {
 325                 if(newhs >= WEAK && u.uhs < WEAK)
 326                         losestr(1);     /* this may kill you -- see below */
 327                 else
 328                 if(newhs < WEAK && u.uhs >= WEAK && u.ustr < u.ustrmax)
 329                         losestr(-1);
 330                 switch(newhs){
 331                 case HUNGRY:
 332                         pline((!incr) ? "You only feel hungry now." :
 333                               (u.uhunger < 145) ? "You feel hungry." :
 334                                 "You are beginning to feel hungry.");
 335                         break;
 336                 case WEAK:
 337                         pline((!incr) ? "You feel weak now." :
 338                               (u.uhunger < 45) ? "You feel weak." :
 339                                 "You are beginning to feel weak.");
 340                         break;
 341                 }
 342                 u.uhs = newhs;
 343                 flags.botl = 1;
 344                 if(u.uhp < 1) {
 345                         pline("You die from hunger and exhaustion.");
 346                         killer = "exhaustion";
 347                         done("starved");
 348                 }
 349         }
 350 }
 351
 352 #define CORPSE_I_TO_C(otyp)     (char) ((otyp >= DEAD_ACID_BLOB)\
 353                      ?  'a' + (otyp - DEAD_ACID_BLOB)\
 354                      :  '@' + (otyp - DEAD_HUMAN))
 355 poisonous(otmp)
 356 register struct obj *otmp;
 357 {
 358         return(index(POISONOUS, CORPSE_I_TO_C(otmp->otyp)) != 0);
 359 }
 360
 361 /* returns 1 if some text was printed */
 362 eatcorpse(otmp) register struct obj *otmp; {
 363 register char let = CORPSE_I_TO_C(otmp->otyp);
 364 register tp = 0;
 365         if(let != 'a' && moves > otmp->age + 50 + rn2(100)) {
 366                 tp++;
 367                 pline("Ulch -- that meat was tainted!");
 368                 pline("You get very sick.");
 369                 Sick = 10 + rn2(10);
 370                 u.usick_cause = objects[otmp->otyp].oc_name;
 371         } else if(index(POISONOUS, let) && rn2(5)){
 372                 tp++;
 373                 pline("Ecch -- that must have been poisonous!");
 374                 if(!Poison_resistance){
 375                         losestr(rnd(4));
 376                         losehp(rnd(15), "poisonous corpse");
 377                 } else
 378                         pline("You don't seem affected by the poison.");
 379         } else if(index("ELNOPQRUuxz", let) && rn2(5)){
 380                 tp++;
 381                 pline("You feel sick.");
 382                 losehp(rnd(8), "cadaver");
 383         }
 384         switch(let) {
 385         case 'L':
 386         case 'N':
 387         case 't':
 388                 Teleportation |= INTRINSIC;
 389                 break;
 390         case 'W':
 391                 pluslvl();
 392                 break;
 393         case 'n':
 394                 u.uhp = u.uhpmax;
 395                 flags.botl = 1;
 396                 /* fall into next case */
 397         case '@':
 398                 pline("You cannibal! You will be sorry for this!");
 399                 /* not tp++; */
 400                 /* fall into next case */
 401         case 'd':
 402                 Aggravate_monster |= INTRINSIC;
 403                 break;
 404         case 'I':
 405                 if(!Invis) {
 406                         Invis = 50+rn2(100);
 407                         if(!See_invisible)
 408                                 newsym(u.ux, u.uy);
 409                 } else {
 410                         Invis |= INTRINSIC;
 411                         See_invisible |= INTRINSIC;
 412                 }
 413                 /* fall into next case */
 414         case 'y':
 415 #ifdef QUEST
 416                 u.uhorizon++;
 417 #endif QUEST
 418                 /* fall into next case */
 419         case 'B':
 420                 Confusion = 50;
 421                 break;
 422         case 'D':
 423                 Fire_resistance |= INTRINSIC;
 424                 break;
 425         case 'E':
 426                 Telepat |= INTRINSIC;
 427                 break;
 428         case 'F':
 429         case 'Y':
 430                 Cold_resistance |= INTRINSIC;
 431                 break;
 432         case 'k':
 433         case 's':
 434                 Poison_resistance |= INTRINSIC;
 435                 break;
 436         case 'c':
 437                 pline("You turn to stone.");
 438                 killer = "dead cockatrice";
 439                 done("died");
 440                 /* NOTREACHED */
 441         case 'a':
 442           if(Stoned) {
 443               pline("What a pity - you just destroyed a future piece of art!");
 444               tp++;
 445               Stoned = 0;
 446           }
 447           break;
 448         case 'M':
 449           pline("You cannot resist the temptation to mimic a treasure chest.");
 450           tp++;
 451           nomul(-30);
 452           afternmv = Meatdone;
 453           nomovemsg = "You now again prefer mimicking a human.";
 454           u.usym = '$';
 455           prme();
 456           break;
 457         }
 458         return(tp);
 459 }