src/fountain.c

   1 /* NetHack 3.6  fountain.c      $NHDT-Date: 1544442711 2018/12/10 11:51:51 $  $NHDT-Branch: NetHack-3.6.2-beta01 $:$NHDT-Revision: 1.60 $ */
   2 /*      Copyright Scott R. Turner, srt@ucla, 10/27/86 */
   3 /* NetHack may be freely redistributed.  See license for details. */
   4
   5 /* JNetHack Copyright */
   6 /* (c) Issei Numata, Naoki Hamada, Shigehiro Miyashita, 1994-2000  */
   7 /* For 3.4-, Copyright (c) SHIRAKATA Kentaro, 2002-2019            */
   8 /* JNetHack may be freely redistributed.  See license for details. */
   9
  10 /* Code for drinking from fountains. */
  11
  12 #include "hack.h"
  13
  14 STATIC_DCL void NDECL(dowatersnakes);
  15 STATIC_DCL void NDECL(dowaterdemon);
  16 STATIC_DCL void NDECL(dowaternymph);
  17 STATIC_PTR void FDECL(gush, (int, int, genericptr_t));
  18 STATIC_DCL void NDECL(dofindgem);
  19
  20 /* used when trying to dip in or drink from fountain or sink or pool while
  21    levitating above it, or when trying to move downwards in that state */
  22 void
  23 floating_above(what)
  24 const char *what;
  25 {
  26 /*JP
  27     const char *umsg = "are floating high above the %s.";
  28 */
  29     const char *umsg = "%s\82Ì\97y\82©\8fã\95û\82É\95\82\82¢\82Ä\82¢\82é\81D";
  30
  31     if (u.utrap && (u.utraptype == TT_INFLOOR || u.utraptype == TT_LAVA)) {
  32         /* when stuck in floor (not possible at fountain or sink location,
  33            so must be attempting to move down), override the usual message */
  34 /*JP
  35         umsg = "are trapped in the %s.";
  36 */
  37         umsg = "%s\82É\82Â\82©\82Ü\82Á\82Ä\82¢\82é\81D";
  38         what = surface(u.ux, u.uy); /* probably redundant */
  39     }
  40     You(umsg, what);
  41 }
  42
  43 /* Fountain of snakes! */
  44 STATIC_OVL void
  45 dowatersnakes()
  46 {
  47     register int num = rn1(5, 2);
  48     struct monst *mtmp;
  49
  50     if (!(mvitals[PM_WATER_MOCCASIN].mvflags & G_GONE)) {
  51         if (!Blind)
  52 #if 0 /*JP*/
  53             pline("An endless stream of %s pours forth!",
  54                   Hallucination ? makeplural(rndmonnam(NULL)) : "snakes");
  55 #else
  56             pline("%s\82ª\82Ç\82Ç\82Á\82Æ\97¬\82ê\8fo\82Ä\82«\82½\81I",
  57                   Hallucination ? rndmonnam(NULL) : "\8eÖ");
  58 #endif
  59         else
  60 /*JP
  61             You_hear("%s hissing!", something);
  62 */
  63             You_hear("\83V\81[\83b\82Æ\82¢\82¤\89¹\82ð\95·\82¢\82½\81I");
  64         while (num-- > 0)
  65             if ((mtmp = makemon(&mons[PM_WATER_MOCCASIN], u.ux, u.uy,
  66                                 NO_MM_FLAGS)) != 0
  67                 && t_at(mtmp->mx, mtmp->my))
  68                 (void) mintrap(mtmp);
  69     } else
  70 /*JP
  71         pline_The("fountain bubbles furiously for a moment, then calms.");
  72 */
  73         pline("\90ò\82Í\93Ë\91R\8c\83\82µ\82\96A\82¾\82¿\81C\82â\82ª\82Ä\90Ã\82©\82É\82È\82Á\82½\81D");
  74 }
  75
  76 /* Water demon */
  77 STATIC_OVL void
  78 dowaterdemon()
  79 {
  80     struct monst *mtmp;
  81
  82     if (!(mvitals[PM_WATER_DEMON].mvflags & G_GONE)) {
  83         if ((mtmp = makemon(&mons[PM_WATER_DEMON], u.ux, u.uy,
  84                             NO_MM_FLAGS)) != 0) {
  85             if (!Blind)
  86 /*JP
  87                 You("unleash %s!", a_monnam(mtmp));
  88 */
  89                 You("%s\82ð\89ð\82«\95ú\82µ\82½\81I", a_monnam(mtmp));
  90             else
  91 /*JP
  92                 You_feel("the presence of evil.");
  93 */
  94                 You_feel("\8e×\88«\82È\91¶\8dÝ\82ð\8a´\82¶\82½\81I");
  95
  96             /* Give those on low levels a (slightly) better chance of survival
  97              */
  98             if (rnd(100) > (80 + level_difficulty())) {
  99 #if 0 /*JP*/
 100                 pline("Grateful for %s release, %s grants you a wish!",
 101                       mhis(mtmp), mhe(mtmp));
 102 #else
 103                 pline("%s\82Í\89ð\95ú\82ð\82Æ\82Ä\82à\8a´\8eÓ\82µ\81C\82Ì\82¼\82Ý\82ð\82©\82È\82¦\82Ä\82\82ê\82é\82æ\82¤\82¾\81I",
 104                       mhe(mtmp));
 105 #endif
 106                 /* give a wish and discard the monster (mtmp set to null) */
 107                 mongrantswish(&mtmp);
 108             } else if (t_at(mtmp->mx, mtmp->my))
 109                 (void) mintrap(mtmp);
 110         }
 111     } else
 112 /*JP
 113         pline_The("fountain bubbles furiously for a moment, then calms.");
 114 */
 115         pline("\90ò\82Í\93Ë\91R\8c\83\82µ\82\96A\82¾\82¿\81C\82â\82ª\82Ä\90Ã\82©\82É\82È\82Á\82½\81D");
 116 }
 117
 118 /* Water Nymph */
 119 STATIC_OVL void
 120 dowaternymph()
 121 {
 122     register struct monst *mtmp;
 123
 124     if (!(mvitals[PM_WATER_NYMPH].mvflags & G_GONE)
 125         && (mtmp = makemon(&mons[PM_WATER_NYMPH], u.ux, u.uy,
 126                            NO_MM_FLAGS)) != 0) {
 127         if (!Blind)
 128 /*JP
 129             You("attract %s!", a_monnam(mtmp));
 130 */
 131             pline("%s\82ª\8c»\82í\82ê\82½\81I", a_monnam(mtmp));
 132         else
 133 /*JP
 134             You_hear("a seductive voice.");
 135 */
 136             You_hear("\96£\98f\93I\82È\90º\82ð\95·\82¢\82½\81D");
 137         mtmp->msleeping = 0;
 138         if (t_at(mtmp->mx, mtmp->my))
 139             (void) mintrap(mtmp);
 140     } else if (!Blind)
 141 /*JP
 142         pline("A large bubble rises to the surface and pops.");
 143 */
 144         pline("\91å\82«\82È\96A\82ª\95¦\82«\8fo\82Ä\82Í\82¶\82¯\82½\81D");
 145     else
 146 /*JP
 147         You_hear("a loud pop.");
 148 */
 149         You_hear("\91å\82«\82È\82à\82Ì\82ª\82Í\82¶\82¯\82é\89¹\82ð\95·\82¢\82½\81D");
 150 }
 151
 152 /* Gushing forth along LOS from (u.ux, u.uy) */
 153 void
 154 dogushforth(drinking)
 155 int drinking;
 156 {
 157     int madepool = 0;
 158
 159     do_clear_area(u.ux, u.uy, 7, gush, (genericptr_t) &madepool);
 160     if (!madepool) {
 161         if (drinking)
 162 /*JP
 163             Your("thirst is quenched.");
 164 */
 165             Your("\8a\89\82«\82Í\96ü\82³\82ê\82½\81D");
 166         else
 167 /*JP
 168             pline("Water sprays all over you.");
 169 */
 170             pline("\90\85\82µ\82Ô\82«\82ª\82 \82È\82½\82É\82©\82©\82Á\82½\81D");
 171     }
 172 }
 173
 174 STATIC_PTR void
 175 gush(x, y, poolcnt)
 176 int x, y;
 177 genericptr_t poolcnt;
 178 {
 179     register struct monst *mtmp;
 180     register struct trap *ttmp;
 181
 182     if (((x + y) % 2) || (x == u.ux && y == u.uy)
 183         || (rn2(1 + distmin(u.ux, u.uy, x, y))) || (levl[x][y].typ != ROOM)
 184         || (sobj_at(BOULDER, x, y)) || nexttodoor(x, y))
 185         return;
 186
 187     if ((ttmp = t_at(x, y)) != 0 && !delfloortrap(ttmp))
 188         return;
 189
 190     if (!((*(int *) poolcnt)++))
 191 /*JP
 192         pline("Water gushes forth from the overflowing fountain!");
 193 */
 194         pline("\90ò\82©\82ç\90\85\82ª\82Ç\82Ç\82Á\82Æ\88ì\82ê\8fo\82½\81I");
 195
 196     /* Put a pool at x, y */
 197     levl[x][y].typ = POOL, levl[x][y].flags = 0;
 198     /* No kelp! */
 199     del_engr_at(x, y);
 200     water_damage_chain(level.objects[x][y], TRUE);
 201
 202     if ((mtmp = m_at(x, y)) != 0)
 203         (void) minliquid(mtmp);
 204     else
 205         newsym(x, y);
 206 }
 207
 208 /* Find a gem in the sparkling waters. */
 209 STATIC_OVL void
 210 dofindgem()
 211 {
 212     if (!Blind)
 213 /*JP
 214         You("spot a gem in the sparkling waters!");
 215 */
 216         pline("\82«\82ç\82ß\82\90\85\82Ì\92\86\82É\95ó\90Î\82ð\8c©\82Â\82¯\82½\81I");
 217     else
 218 /*JP
 219         You_feel("a gem here!");
 220 */
 221         You_feel("\95ó\90Î\82ª\82 \82é\82æ\82¤\82¾\81I");
 222     (void) mksobj_at(rnd_class(DILITHIUM_CRYSTAL, LUCKSTONE - 1), u.ux, u.uy,
 223                      FALSE, FALSE);
 224     SET_FOUNTAIN_LOOTED(u.ux, u.uy);
 225     newsym(u.ux, u.uy);
 226     exercise(A_WIS, TRUE); /* a discovery! */
 227 }
 228
 229 void
 230 dryup(x, y, isyou)
 231 xchar x, y;
 232 boolean isyou;
 233 {
 234     if (IS_FOUNTAIN(levl[x][y].typ)
 235         && (!rn2(3) || FOUNTAIN_IS_WARNED(x, y))) {
 236         if (isyou && in_town(x, y) && !FOUNTAIN_IS_WARNED(x, y)) {
 237             struct monst *mtmp;
 238
 239             SET_FOUNTAIN_WARNED(x, y);
 240             /* Warn about future fountain use. */
 241             for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
 242                 if (DEADMONSTER(mtmp))
 243                     continue;
 244                 if (is_watch(mtmp->data) && couldsee(mtmp->mx, mtmp->my)
 245                     && mtmp->mpeaceful) {
 246                     if (!Deaf) {
 247 /*JP
 248                         pline("%s yells:", Amonnam(mtmp));
 249 */
 250                         pline("%s\82Í\8b©\82ñ\82¾\81F", Amonnam(mtmp));
 251 /*JP
 252                         verbalize("Hey, stop using that fountain!");
 253 */
 254                         verbalize("\82¨\82¢\81C\90ò\82ð\89\98\82·\82È\81I");
 255                     } else {
 256                         pline("%s earnestly %s %s %s!",
 257                               Amonnam(mtmp),
 258                               nolimbs(mtmp->data) ? "shakes" : "waves",
 259                               mhis(mtmp),
 260                               nolimbs(mtmp->data)
 261                                       ? mbodypart(mtmp, HEAD)
 262                                       : makeplural(mbodypart(mtmp, ARM)));
 263                     }
 264                     break;
 265                 }
 266             }
 267             /* You can see or hear this effect */
 268             if (!mtmp)
 269 /*JP
 270                 pline_The("flow reduces to a trickle.");
 271 */
 272                 pline("\97¬\82ê\82Í\82¿\82å\82ë\82¿\82å\82ë\82É\82È\82Á\82½\81D");
 273             return;
 274         }
 275         if (isyou && wizard) {
 276 /*JP
 277             if (yn("Dry up fountain?") == 'n')
 278 */
 279             if (yn("\90ò\82ð\8a±\8fã\82ª\82ç\82¹\82Ü\82·\82©\81H") == 'n')
 280                 return;
 281         }
 282         /* replace the fountain with ordinary floor */
 283         levl[x][y].typ = ROOM, levl[x][y].flags = 0;
 284         levl[x][y].blessedftn = 0;
 285         if (cansee(x, y))
 286 /*JP
 287             pline_The("fountain dries up!");
 288 */
 289             pline("\90ò\82Í\8a±\8fã\82ª\82Á\82½\81I");
 290         /* The location is seen if the hero/monster is invisible
 291            or felt if the hero is blind. */
 292         newsym(x, y);
 293         level.flags.nfountains--;
 294         if (isyou && in_town(x, y))
 295             (void) angry_guards(FALSE);
 296     }
 297 }
 298
 299 void
 300 drinkfountain()
 301 {
 302     /* What happens when you drink from a fountain? */
 303     register boolean mgkftn = (levl[u.ux][u.uy].blessedftn == 1);
 304     register int fate = rnd(30);
 305
 306     if (Levitation) {
 307 /*JP
 308         floating_above("fountain");
 309 */
 310         floating_above("\90ò");
 311         return;
 312     }
 313
 314     if (mgkftn && u.uluck >= 0 && fate >= 10) {
 315         int i, ii, littleluck = (u.uluck < 4);
 316
 317 /*JP
 318         pline("Wow!  This makes you feel great!");
 319 */
 320         pline("\83\8f\83H\81I\82Æ\82Ä\82à\8bC\8e\9d\82¿\82æ\82\82È\82Á\82½\81I");
 321         /* blessed restore ability */
 322         for (ii = 0; ii < A_MAX; ii++)
 323             if (ABASE(ii) < AMAX(ii)) {
 324                 ABASE(ii) = AMAX(ii);
 325                 context.botl = 1;
 326             }
 327         /* gain ability, blessed if "natural" luck is high */
 328         i = rn2(A_MAX); /* start at a random attribute */
 329         for (ii = 0; ii < A_MAX; ii++) {
 330             if (adjattrib(i, 1, littleluck ? -1 : 0) && littleluck)
 331                 break;
 332             if (++i >= A_MAX)
 333                 i = 0;
 334         }
 335         display_nhwindow(WIN_MESSAGE, FALSE);
 336 /*JP
 337         pline("A wisp of vapor escapes the fountain...");
 338 */
 339         pline("\89\8c\82Ì\82©\82½\82Ü\82è\82ª\90ò\82©\82ç\93¦\82°\82½\81D\81D\81D");
 340         exercise(A_WIS, TRUE);
 341         levl[u.ux][u.uy].blessedftn = 0;
 342         return;
 343     }
 344
 345     if (fate < 10) {
 346 /*JP
 347         pline_The("cool draught refreshes you.");
 348 */
 349         pline("\97â\82½\82¢\88ê\94t\82Å\82³\82Á\82Ï\82è\82µ\82½\81D");
 350         u.uhunger += rnd(10); /* don't choke on water */
 351         newuhs(FALSE);
 352         if (mgkftn)
 353             return;
 354     } else {
 355         switch (fate) {
 356         case 19: /* Self-knowledge */
 357 /*JP
 358             You_feel("self-knowledgeable...");
 359 */
 360             You("\8e©\95ª\8e©\90g\82ª\94»\82é\82æ\82¤\82È\8bC\82ª\82µ\82½\81D\81D\81D");
 361             display_nhwindow(WIN_MESSAGE, FALSE);
 362             enlightenment(MAGICENLIGHTENMENT, ENL_GAMEINPROGRESS);
 363             exercise(A_WIS, TRUE);
 364 /*JP
 365             pline_The("feeling subsides.");
 366 */
 367             pline("\82»\82Ì\8a´\82¶\82Í\82È\82\82È\82Á\82½\81D");
 368             break;
 369         case 20: /* Foul water */
 370 /*JP
 371             pline_The("water is foul!  You gag and vomit.");
 372 */
 373             pline("\90\85\82Í\82Ð\82Ç\82\95s\89õ\82È\96¡\82ª\82µ\82½\81I\82 \82È\82½\82Í\93f\82«\96ß\82µ\82½\81D");
 374             morehungry(rn1(20, 11));
 375             vomit();
 376             break;
 377         case 21: /* Poisonous */
 378 /*JP
 379             pline_The("water is contaminated!");
 380 */
 381             pline("\90\85\82Í\89\98\90õ\82³\82ê\82Ä\82¢\82é\81I");
 382             if (Poison_resistance) {
 383 /*JP
 384                 pline("Perhaps it is runoff from the nearby %s farm.",
 385 */
 386                 pline("\82½\82Ô\82ñ\81C\82±\82ê\82Í\8bß\82\82Ì%s\82Ì\94_\8fê\82©\82ç\97¬\82ê\82Ä\82¢\82é\81D",
 387                       fruitname(FALSE));
 388 /*JP
 389                 losehp(rnd(4), "unrefrigerated sip of juice", KILLED_BY_AN);
 390 */
 391                 losehp(rnd(4),"\95\85\82Á\82½\89Ê\8f`\82Ì\82µ\82½\82½\82è\82Å", KILLED_BY_AN);
 392                 break;
 393             }
 394             losestr(rn1(4, 3));
 395 /*JP
 396             losehp(rnd(10), "contaminated water", KILLED_BY);
 397 */
 398             losehp(rnd(10),"\89\98\90õ\82³\82ê\82½\90\85\82Å", KILLED_BY);
 399             exercise(A_CON, FALSE);
 400             break;
 401         case 22: /* Fountain of snakes! */
 402             dowatersnakes();
 403             break;
 404         case 23: /* Water demon */
 405             dowaterdemon();
 406             break;
 407         case 24: /* Curse an item */ {
 408             register struct obj *obj;
 409
 410 /*JP
 411             pline("This water's no good!");
 412 */
 413             pline("\82±\82Ì\90\85\82Í\82Æ\82Ä\82à\82Ü\82¸\82¢\81I");
 414             morehungry(rn1(20, 11));
 415             exercise(A_CON, FALSE);
 416             for (obj = invent; obj; obj = obj->nobj)
 417                 if (!rn2(5))
 418                     curse(obj);
 419             break;
 420         }
 421         case 25: /* See invisible */
 422             if (Blind) {
 423                 if (Invisible) {
 424 /*JP
 425                     You("feel transparent.");
 426 */
 427                     You("\93§\96¾\82É\82È\82Á\82½\8bC\82ª\82·\82é\81D");
 428                 } else {
 429 /*JP
 430                     You("feel very self-conscious.");
 431 */
 432                     You("\8e©\88Ó\8e¯\89ß\8fè\82É\8a´\82¶\82½\81D");
 433 /*JP
 434                     pline("Then it passes.");
 435 */
 436                     pline("\82»\82Ì\8a´\82¶\82Í\8fÁ\82¦\82½\81D");
 437                 }
 438             } else {
 439 /*JP
 440                 You_see("an image of someone stalking you.");
 441 */
 442                 You("\89½\82©\82ª\8e©\95ª\82Ì\8cã\82ð\82Â\82¯\82Ä\82¢\82é\89f\91\9c\82ð\8c©\82½\81D");
 443 /*JP
 444                 pline("But it disappears.");
 445 */
 446                 pline("\82µ\82©\82µ\81C\82»\82ê\82Í\8fÁ\82¦\82Ä\82µ\82Ü\82Á\82½\81D");
 447             }
 448             HSee_invisible |= FROMOUTSIDE;
 449             newsym(u.ux, u.uy);
 450             exercise(A_WIS, TRUE);
 451             break;
 452         case 26: /* See Monsters */
 453             (void) monster_detect((struct obj *) 0, 0);
 454             exercise(A_WIS, TRUE);
 455             break;
 456         case 27: /* Find a gem in the sparkling waters. */
 457             if (!FOUNTAIN_IS_LOOTED(u.ux, u.uy)) {
 458                 dofindgem();
 459                 break;
 460             }
 461             /*FALLTHRU*/
 462         case 28: /* Water Nymph */
 463             dowaternymph();
 464             break;
 465         case 29: /* Scare */
 466         {
 467             register struct monst *mtmp;
 468
 469 #if 0 /*JP:T*/
 470             pline("This %s gives you bad breath!",
 471                   hliquid("water"));
 472 #else
 473             pline("%s\82ð\88ù\82ñ\82¾\82ç\91§\82ª\8fL\82\82È\82Á\82½\81I",
 474                   hliquid("\90\85"));
 475 #endif
 476             for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
 477                 if (DEADMONSTER(mtmp))
 478                     continue;
 479                 monflee(mtmp, 0, FALSE, FALSE);
 480             }
 481             break;
 482         }
 483         case 30: /* Gushing forth in this room */
 484             dogushforth(TRUE);
 485             break;
 486         default:
 487 #if 0 /*JP*/
 488             pline("This tepid %s is tasteless.",
 489                   hliquid("water"));
 490 #else
 491             pline("\82±\82Ì\82È\82Ü\82Ê\82é\82¢%s\82Í\96¡\82ª\82È\82¢\81D",
 492                   hliquid("\90\85"));
 493 #endif
 494             break;
 495         }
 496     }
 497     dryup(u.ux, u.uy, TRUE);
 498 }
 499
 500 void
 501 dipfountain(obj)
 502 register struct obj *obj;
 503 {
 504     if (Levitation) {
 505 /*JP
 506         floating_above("fountain");
 507 */
 508         floating_above("\90ò");
 509         return;
 510     }
 511
 512     /* Don't grant Excalibur when there's more than one object.  */
 513     /* (quantity could be > 1 if merged daggers got polymorphed) */
 514     if (obj->otyp == LONG_SWORD && obj->quan == 1L && u.ulevel >= 5 && !rn2(6)
 515         && !obj->oartifact
 516         && !exist_artifact(LONG_SWORD, artiname(ART_EXCALIBUR))) {
 517         if (u.ualign.type != A_LAWFUL) {
 518             /* Ha!  Trying to cheat her. */
 519 #if 0 /*JP*/
 520             pline("A freezing mist rises from the %s and envelopes the sword.",
 521                   hliquid("water"));
 522 #else
 523             pline("\97â\82½\82¢\96¶\82ª%s\82©\82ç\97§\82¿\8f¸\82è\81C\8c\95\82ð\82Â\82Â\82ñ\82¾\81D",
 524                   hliquid("\90\85"));
 525 #endif
 526 /*JP
 527             pline_The("fountain disappears!");
 528 */
 529             pline("\90ò\82Í\8fÁ\82¦\82Ä\82µ\82Ü\82Á\82½\81I");
 530             curse(obj);
 531             if (obj->spe > -6 && !rn2(3))
 532                 obj->spe--;
 533             obj->oerodeproof = FALSE;
 534             exercise(A_WIS, FALSE);
 535         } else {
 536             /* The lady of the lake acts! - Eric Backus */
 537             /* Be *REAL* nice */
 538             pline(
 539 /*JP
 540               "From the murky depths, a hand reaches up to bless the sword.");
 541 */
 542               "\82É\82²\82Á\82½\90[\82Ý\82©\82ç\81C\8c\95\82ð\8fj\95\9f\82¹\82ñ\82Æ\8eè\82ª\90L\82Ñ\82Ä\82«\82½\81D");
 543 /*JP
 544             pline("As the hand retreats, the fountain disappears!");
 545 */
 546             pline("\8eè\82ª\91Þ\82\82Æ\81C\90ò\82Í\8fÁ\82¦\82Ä\82µ\82Ü\82Á\82½\81I");
 547             obj = oname(obj, artiname(ART_EXCALIBUR));
 548             discover_artifact(ART_EXCALIBUR);
 549             bless(obj);
 550             obj->oeroded = obj->oeroded2 = 0;
 551             obj->oerodeproof = TRUE;
 552             exercise(A_WIS, TRUE);
 553         }
 554         update_inventory();
 555         levl[u.ux][u.uy].typ = ROOM, levl[u.ux][u.uy].flags = 0;
 556         newsym(u.ux, u.uy);
 557         level.flags.nfountains--;
 558         if (in_town(u.ux, u.uy))
 559             (void) angry_guards(FALSE);
 560         return;
 561     } else {
 562         int er = water_damage(obj, NULL, TRUE);
 563
 564         if (obj->otyp == POT_ACID
 565             && er != ER_DESTROYED) { /* Acid and water don't mix */
 566             useup(obj);
 567             return;
 568         } else if (er != ER_NOTHING && !rn2(2)) { /* no further effect */
 569             return;
 570         }
 571     }
 572
 573     switch (rnd(30)) {
 574     case 16: /* Curse the item */
 575         curse(obj);
 576         break;
 577     case 17:
 578     case 18:
 579     case 19:
 580     case 20: /* Uncurse the item */
 581         if (obj->cursed) {
 582             if (!Blind)
 583 /*JP
 584                 pline_The("%s glows for a moment.", hliquid("water"));
 585 */
 586                 pline_The("%s\82Í\8bP\82«\82¾\82µ\82½\81D", hliquid("\90\85"));
 587             uncurse(obj);
 588         } else {
 589 /*JP
 590             pline("A feeling of loss comes over you.");
 591 */
 592             pline("\8aï\96\82È\92E\97Í\8a´\82ª\82 \82È\82½\82ð\82¨\82»\82Á\82½\81D");
 593         }
 594         break;
 595     case 21: /* Water Demon */
 596         dowaterdemon();
 597         break;
 598     case 22: /* Water Nymph */
 599         dowaternymph();
 600         break;
 601     case 23: /* an Endless Stream of Snakes */
 602         dowatersnakes();
 603         break;
 604     case 24: /* Find a gem */
 605         if (!FOUNTAIN_IS_LOOTED(u.ux, u.uy)) {
 606             dofindgem();
 607             break;
 608         }
 609         /*FALLTHRU*/
 610     case 25: /* Water gushes forth */
 611         dogushforth(FALSE);
 612         break;
 613     case 26: /* Strange feeling */
 614 /*JP
 615         pline("A strange tingling runs up your %s.", body_part(ARM));
 616 */
 617         pline("\8aï\96\82È\82µ\82Ñ\82ê\82ª\82 \82È\82½\82Ì%s\82É\91\96\82Á\82½\81D", body_part(ARM));
 618         break;
 619     case 27: /* Strange feeling */
 620 /*JP
 621         You_feel("a sudden chill.");
 622 */
 623         You("\93Ë\91R\8a¦\82¯\82ð\8a´\82¶\82½\81D");
 624         break;
 625     case 28: /* Strange feeling */
 626 /*JP
 627         pline("An urge to take a bath overwhelms you.");
 628 */
 629         pline("\95\97\98C\82É\93ü\82è\82½\82¢\82Æ\82¢\82¤\97~\96]\82É\82©\82ç\82ê\82½\81D");
 630         {
 631             long money = money_cnt(invent);
 632             struct obj *otmp;
 633             if (money > 10) {
 634                 /* Amount to lose.  Might get rounded up as fountains don't
 635                  * pay change... */
 636                 money = somegold(money) / 10;
 637                 for (otmp = invent; otmp && money > 0; otmp = otmp->nobj)
 638                     if (otmp->oclass == COIN_CLASS) {
 639                         int denomination = objects[otmp->otyp].oc_cost;
 640                         long coin_loss =
 641                             (money + denomination - 1) / denomination;
 642                         coin_loss = min(coin_loss, otmp->quan);
 643                         otmp->quan -= coin_loss;
 644                         money -= coin_loss * denomination;
 645                         if (!otmp->quan)
 646                             delobj(otmp);
 647                     }
 648 /*JP
 649                 You("lost some of your money in the fountain!");
 650 */
 651                 You("\8bà\89Ý\82ð\90\94\96\87\81C\90ò\82É\97\8e\82Æ\82µ\82Ä\82µ\82Ü\82Á\82½\81I");
 652                 CLEAR_FOUNTAIN_LOOTED(u.ux, u.uy);
 653                 exercise(A_WIS, FALSE);
 654             }
 655         }
 656         break;
 657     case 29: /* You see coins */
 658         /* We make fountains have more coins the closer you are to the
 659          * surface.  After all, there will have been more people going
 660          * by.  Just like a shopping mall!  Chris Woodbury  */
 661
 662         if (FOUNTAIN_IS_LOOTED(u.ux, u.uy))
 663             break;
 664         SET_FOUNTAIN_LOOTED(u.ux, u.uy);
 665         (void) mkgold((long) (rnd((dunlevs_in_dungeon(&u.uz) - dunlev(&u.uz)
 666                                    + 1) * 2) + 5),
 667                       u.ux, u.uy);
 668         if (!Blind)
 669 #if 0 /*JP:T*/
 670             pline("Far below you, you see coins glistening in the %s.",
 671                   hliquid("water"));
 672 #else
 673             pline("\97y\82©\89º\82Å\81A%s\82Ì\92\86\82Å\8bà\89Ý\82ª\8bP\82¢\82Ä\82¢\82é\82Ì\82ð\82Ý\82Â\82¯\82½\81D",
 674                   hliquid("\90\85"));
 675 #endif
 676         exercise(A_WIS, TRUE);
 677         newsym(u.ux, u.uy);
 678         break;
 679     }
 680     update_inventory();
 681     dryup(u.ux, u.uy, TRUE);
 682 }
 683
 684 void
 685 breaksink(x, y)
 686 int x, y;
 687 {
 688     if (cansee(x, y) || (x == u.ux && y == u.uy))
 689 /*JP
 690         pline_The("pipes break!  Water spurts out!");
 691 */
 692         pline("\94z\8aÇ\82ª\89ó\82ê\90\85\82ª\95¬\8fo\82µ\82½\81I");
 693     level.flags.nsinks--;
 694     levl[x][y].typ = FOUNTAIN, levl[x][y].looted = 0;
 695     levl[x][y].blessedftn = 0;
 696     SET_FOUNTAIN_LOOTED(x, y);
 697     level.flags.nfountains++;
 698     newsym(x, y);
 699 }
 700
 701 void
 702 drinksink()
 703 {
 704     struct obj *otmp;
 705     struct monst *mtmp;
 706
 707     if (Levitation) {
 708 /*JP
 709         floating_above("sink");
 710 */
 711         floating_above("\97¬\82µ\91ä");
 712         return;
 713     }
 714     switch (rn2(20)) {
 715     case 0:
 716 /*JP
 717         You("take a sip of very cold %s.", hliquid("water"));
 718 */
 719         You("\82Æ\82Ä\82à\97â\82½\82¢%s\82ð\88ê\8cû\88ù\82ñ\82¾\81D", hliquid("\90\85"));
 720         break;
 721     case 1:
 722 /*JP
 723         You("take a sip of very warm %s.", hliquid("water"));
 724 */
 725         You("\82Æ\82Ä\82à\82 \82½\82½\82©\82¢%s\82ð\88ê\8cû\88ù\82ñ\82¾\81D", hliquid("\90\85"));
 726         break;
 727     case 2:
 728 /*JP
 729         You("take a sip of scalding hot %s.", hliquid("water"));
 730 */
 731         You("\82Æ\82Ä\82à\94M\82¢%s\82ð\88ê\8cû\88ù\82ñ\82¾\81D", hliquid("\93\92"));
 732         if (Fire_resistance)
 733 /*JP
 734             pline("It seems quite tasty.");
 735 */
 736             pline("\82Æ\82Ä\82à\82¨\82¢\82µ\82¢\90\85\82¾\81D");
 737         else
 738 /*JP
 739             losehp(rnd(6), "sipping boiling water", KILLED_BY);
 740 */
 741             losehp(rnd(6), "\95¦\93«\82µ\82½\90\85\82ð\88ù\82ñ\82Å", KILLED_BY);
 742         /* boiling water burns considered fire damage */
 743         break;
 744     case 3:
 745         if (mvitals[PM_SEWER_RAT].mvflags & G_GONE)
 746 /*JP
 747             pline_The("sink seems quite dirty.");
 748 */
 749             pline("\97¬\82µ\91ä\82Í\82Æ\82Ä\82à\89\98\82È\82ç\82µ\82¢\81D");
 750         else {
 751             mtmp = makemon(&mons[PM_SEWER_RAT], u.ux, u.uy, NO_MM_FLAGS);
 752             if (mtmp)
 753 #if 0 /*JP*/
 754                 pline("Eek!  There's %s in the sink!",
 755                       (Blind || !canspotmon(mtmp)) ? "something squirmy"
 756                                                    : a_monnam(mtmp));
 757 #else
 758                 pline("\82°\81I\97¬\82µ\91ä\82É%s\82ª\82¢\82é\81I",
 759                       (Blind || !canspotmon(mtmp)) ? "\90g\82à\82¾\82¦\82·\82é\82æ\82¤\82È\82à\82Ì"
 760                                                    : a_monnam(mtmp));
 761 #endif
 762         }
 763         break;
 764     case 4:
 765         do {
 766             otmp = mkobj(POTION_CLASS, FALSE);
 767             if (otmp->otyp == POT_WATER) {
 768                 obfree(otmp, (struct obj *) 0);
 769                 otmp = (struct obj *) 0;
 770             }
 771         } while (!otmp);
 772         otmp->cursed = otmp->blessed = 0;
 773 #if 0 /*JP*/
 774         pline("Some %s liquid flows from the faucet.",
 775               Blind ? "odd" : hcolor(OBJ_DESCR(objects[otmp->otyp])));
 776 #else
 777         pline("\8eÖ\8cû\82©\82ç%s\89t\91Ì\82ª\97¬\82ê\82½\81D",
 778               Blind ? "\8aï\96\82È" :
 779               hcolor(OBJ_DESCR(objects[otmp->otyp])));
 780 #endif
 781         otmp->dknown = !(Blind || Hallucination);
 782         otmp->quan++;       /* Avoid panic upon useup() */
 783         otmp->fromsink = 1; /* kludge for docall() */
 784         (void) dopotion(otmp);
 785         obfree(otmp, (struct obj *) 0);
 786         break;
 787     case 5:
 788         if (!(levl[u.ux][u.uy].looted & S_LRING)) {
 789 /*JP
 790             You("find a ring in the sink!");
 791 */
 792             You("\97¬\82µ\91ä\82É\8ew\97Ö\82ð\82Ý\82Â\82¯\82½\81I");
 793             (void) mkobj_at(RING_CLASS, u.ux, u.uy, TRUE);
 794             levl[u.ux][u.uy].looted |= S_LRING;
 795             exercise(A_WIS, TRUE);
 796             newsym(u.ux, u.uy);
 797         } else
 798 /*JP
 799             pline("Some dirty %s backs up in the drain.", hliquid("water"));
 800 */
 801             pline("\89\98\82¢%s\82ª\94r\90\85\8cû\82©\82ç\8bt\97¬\82µ\82Ä\82«\82½\81D", hliquid("\90\85"));
 802         break;
 803     case 6:
 804         breaksink(u.ux, u.uy);
 805         break;
 806     case 7:
 807 /*JP
 808         pline_The("%s moves as though of its own will!", hliquid("water"));
 809 */
 810         pline_The("%s\82ª\88Ó\8ev\82ð\8e\9d\82Á\82Ä\82¢\82é\82©\82Ì\82æ\82¤\82É\93®\82¢\82½\81I", hliquid("\90\85"));
 811         if ((mvitals[PM_WATER_ELEMENTAL].mvflags & G_GONE)
 812             || !makemon(&mons[PM_WATER_ELEMENTAL], u.ux, u.uy, NO_MM_FLAGS))
 813 /*JP
 814             pline("But it quiets down.");
 815 */
 816             pline("\82µ\82©\82µ\81C\90Ã\82©\82É\82È\82Á\82½\81D");
 817         break;
 818     case 8:
 819 /*JP
 820         pline("Yuk, this %s tastes awful.", hliquid("water"));
 821 */
 822         pline("\83I\83F\81C\82±\82Ì%s\82Í\82Æ\82Ä\82à\82Ð\82Ç\82¢\96¡\82ª\82·\82é\81D", hliquid("\90\85"));
 823         more_experienced(1, 0);
 824         newexplevel();
 825         break;
 826     case 9:
 827 /*JP
 828         pline("Gaggg... this tastes like sewage!  You vomit.");
 829 */
 830         pline("\83Q\83F\81[\81D\89º\90\85\82Ì\82æ\82¤\82È\96¡\82ª\82·\82é\81I\82 \82È\82½\82Í\93f\82«\96ß\82µ\82½\81D");
 831         morehungry(rn1(30 - ACURR(A_CON), 11));
 832         vomit();
 833         break;
 834     case 10:
 835 /*JP
 836         pline("This %s contains toxic wastes!", hliquid("water"));
 837 */
 838         pline("\82±\82Ì%s\82Í\97L\93Å\82È\94p\8aü\95¨\82ð\8aÜ\82ñ\82Å\82¢\82é\81I", hliquid("\90\85"));
 839         if (!Unchanging) {
 840 /*JP
 841             You("undergo a freakish metamorphosis!");
 842 */
 843             You("\8aï\8c`\82È\95Ï\89»\82ð\82µ\82Í\82¶\82ß\82½\81I");
 844             polyself(0);
 845         }
 846         break;
 847     /* more odd messages --JJB */
 848     case 11:
 849 /*JP
 850         You_hear("clanking from the pipes...");
 851 */
 852         You_hear("\94z\8aÇ\82Ì\83J\83`\83\93\82Æ\82¢\82¤\89¹\82ð\95·\82¢\82½\81D\81D\81D");
 853         break;
 854     case 12:
 855 /*JP
 856         You_hear("snatches of song from among the sewers...");
 857 */
 858         You_hear("\89º\90\85\82Ì\92\86\82©\82ç\82Æ\82¬\82ê\82Æ\82¬\82ê\82Ì\89Ì\82ð\95·\82¢\82½\81D\81D\81D");
 859         break;
 860     case 19:
 861         if (Hallucination) {
 862 /*JP
 863             pline("From the murky drain, a hand reaches up... --oops--");
 864 */
 865             pline("\88Ã\82¢\94r\90\85\8cû\82©\82ç\81C\8eè\82ª\90L\82Ñ\82Ä\82«\82½\81D\81D--\82¨\82Á\82Æ--");
 866             break;
 867         }
 868         /*FALLTHRU*/
 869     default:
 870 #if 0 /*JP*/
 871         You("take a sip of %s %s.",
 872             rn2(3) ? (rn2(2) ? "cold" : "warm") : "hot",
 873             hliquid("water"));
 874 #else
 875         You("%s%s\82ð\88ê\8cû\88ù\82ñ\82¾\81D",
 876             rn2(3) ? (rn2(2) ? "\97â\82½\82¢" : "\82 \82½\82½\82©\82¢") : "\94M\82¢",
 877             hliquid("\90\85"));
 878 #endif
 879     }
 880 }
 881
 882 /*fountain.c*/