/*      $NetBSD: hack.trap.c,v 1.10 2011/08/07 06:03:45 dholland Exp $  */

/*
 * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
 * Amsterdam
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 *
 * - Redistributions of source code must retain the above copyright notice,
 * this list of conditions and the following disclaimer.
 *
 * - Redistributions in binary form must reproduce the above copyright
 * notice, this list of conditions and the following disclaimer in the
 * documentation and/or other materials provided with the distribution.
 *
 * - Neither the name of the Stichting Centrum voor Wiskunde en
 * Informatica, nor the names of its contributors may be used to endorse or
 * promote products derived from this software without specific prior
 * written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
 * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
 * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

/*
 * Copyright (c) 1982 Jay Fenlason <hack@gnu.org>
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
 * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include <sys/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: hack.trap.c,v 1.10 2011/08/07 06:03:45 dholland Exp $");
#endif                          /* not lint */

#include <stdlib.h>
#include "hack.h"
#include "extern.h"
#include "def.mkroom.h"

const char            vowels[] = "aeiou";

const char           *const traps[] = {
        " bear trap",
        "n arrow trap",
        " dart trap",
        " trapdoor",
        " teleportation trap",
        " pit",
        " sleeping gas trap",
        " piercer",
        " mimic"
};

static void vtele(void);
static void teleds(int, int);
static int teleok(int, int);

struct trap    *
maketrap(int x, int y, int typ)
{
        struct trap    *ttmp;

        ttmp = newtrap();
        ttmp->ttyp = typ;
        ttmp->tseen = 0;
        ttmp->once = 0;
        ttmp->tx = x;
        ttmp->ty = y;
        ttmp->ntrap = ftrap;
        ftrap = ttmp;
        return (ttmp);
}

void
dotrap(struct trap *trap)
{
        int             ttype = trap->ttyp;

        nomul(0);
        if (trap->tseen && !rn2(5) && ttype != PIT)
                pline("You escape a%s.", traps[ttype]);
        else {
                trap->tseen = 1;
                switch (ttype) {
                case SLP_GAS_TRAP:
                        pline("A cloud of gas puts you to sleep!");
                        nomul(-rnd(25));
                        break;
                case BEAR_TRAP:
                        if (Levitation) {
                                pline("You float over a bear trap.");
                                break;
                        }
                        u.utrap = 4 + rn2(4);
                        u.utraptype = TT_BEARTRAP;
                        pline("A bear trap closes on your foot!");
                        break;
                case PIERC:
                        deltrap(trap);
                        if (makemon(PM_PIERCER, u.ux, u.uy)) {
                                pline("A piercer suddenly drops from the ceiling!");
                                if (uarmh)
                                        pline("Its blow glances off your helmet.");
                                else
                                        (void) thitu(3, d(4, 6), "falling piercer");
                        }
                        break;
                case ARROW_TRAP:
                        pline("An arrow shoots out at you!");
                        if (!thitu(8, rnd(6), "arrow")) {
                                mksobj_at(ARROW, u.ux, u.uy);
                                fobj->quan = 1;
                        }
                        break;
                case TRAPDOOR:
                        if (!xdnstair) {
                                pline("A trap door in the ceiling opens and a rock falls on your head!");
                                if (uarmh)
                                        pline("Fortunately, you are wearing a helmet!");
                                losehp(uarmh ? 2 : d(2, 10), "falling rock");
                                mksobj_at(ROCK, u.ux, u.uy);
                                fobj->quan = 1;
                                stackobj(fobj);
                                if (Invisible)
                                        newsym(u.ux, u.uy);
                        } else {
                                int             newlevel = dlevel + 1;
                                while (!rn2(4) && newlevel < 29)
                                        newlevel++;
                                pline("A trap door opens up under you!");
                                if (Levitation || u.ustuck) {
                                        pline("For some reason you don't fall in.");
                                        break;
                                }
                                goto_level(newlevel, FALSE);
                        }
                        break;
                case DART_TRAP:
                        pline("A little dart shoots out at you!");
                        if (thitu(7, rnd(3), "little dart")) {
                                if (!rn2(6))
                                        poisoned("dart", "poison dart");
                        } else {
                                mksobj_at(DART, u.ux, u.uy);
                                fobj->quan = 1;
                        }
                        break;
                case TELEP_TRAP:
                        if (trap->once) {
                                deltrap(trap);
                                newsym(u.ux, u.uy);
                                vtele();
                        } else {
                                newsym(u.ux, u.uy);
                                tele();
                        }
                        break;
                case PIT:
                        if (Levitation) {
                                pline("A pit opens up under you!");
                                pline("You don't fall in!");
                                break;
                        }
                        pline("You fall into a pit!");
                        u.utrap = rn1(6, 2);
                        u.utraptype = TT_PIT;
                        losehp(rnd(6), "fall into a pit");
                        selftouch("Falling, you");
                        break;
                default:
                        impossible("You hit a trap of type %u", trap->ttyp);
                }
        }
}

int
mintrap(struct monst *mtmp)
{
        struct trap    *trap = t_at(mtmp->mx, mtmp->my);
        int             wasintrap = mtmp->mtrapped;

        if (!trap) {
                mtmp->mtrapped = 0;     /* perhaps teleported? */
        } else if (wasintrap) {
                if (!rn2(40))
                        mtmp->mtrapped = 0;
        } else {
                int             tt = trap->ttyp;
                int             in_sight = cansee(mtmp->mx, mtmp->my);

                if (mtmp->mtrapseen & (1 << tt)) {
                        /* he has been in such a trap - perhaps he escapes */
                        if (rn2(4))
                                return (0);
                }
                mtmp->mtrapseen |= (1 << tt);
                switch (tt) {
                case BEAR_TRAP:
                        if (strchr(mlarge, mtmp->data->mlet)) {
                                if (in_sight)
                                        pline("%s is caught in a bear trap!",
                                              Monnam(mtmp));
                                else if (mtmp->data->mlet == 'o')
                                        pline("You hear the roaring of an angry bear!");
                                mtmp->mtrapped = 1;
                        }
                        break;
                case PIT:
                        /* there should be a mtmp/data -> floating */
                        if (!strchr("EywBfk'& ", mtmp->data->mlet)) {   /* ab */
                                mtmp->mtrapped = 1;
                                if (in_sight)
                                        pline("%s falls in a pit!", Monnam(mtmp));
                        }
                        break;
                case SLP_GAS_TRAP:
                        if (!mtmp->msleep && !mtmp->mfroz) {
                                mtmp->msleep = 1;
                                if (in_sight)
                                        pline("%s suddenly falls asleep!",
                                              Monnam(mtmp));
                        }
                        break;
                case TELEP_TRAP:
                        rloc(mtmp);
                        if (in_sight && !cansee(mtmp->mx, mtmp->my))
                                pline("%s suddenly disappears!",
                                      Monnam(mtmp));
                        break;
                case ARROW_TRAP:
                        if (in_sight) {
                                pline("%s is hit by an arrow!",
                                      Monnam(mtmp));
                        }
                        mtmp->mhp -= 3;
                        break;
                case DART_TRAP:
                        if (in_sight) {
                                pline("%s is hit by a dart!",
                                      Monnam(mtmp));
                        }
                        mtmp->mhp -= 2;
                        /* not mondied here !! */
                        break;
                case TRAPDOOR:
                        if (!xdnstair) {
                                mtmp->mhp -= 10;
                                if (in_sight)
                                        pline("A trap door in the ceiling opens and a rock hits %s!", monnam(mtmp));
                                break;
                        }
                        if (mtmp->data->mlet != 'w') {
                                fall_down(mtmp);
                                if (in_sight)
                                        pline("Suddenly, %s disappears out of sight.", monnam(mtmp));
                                return (2);     /* no longer on this level */
                        }
                        break;
                case PIERC:
                        break;
                default:
                        impossible("Some monster encountered a strange trap.");
                }
        }
        return (mtmp->mtrapped);
}

void
selftouch(const char *arg)
{
        if (uwep && uwep->otyp == DEAD_COCKATRICE) {
                pline("%s touch the dead cockatrice.", arg);
                pline("You turn to stone.");
                killer = objects[uwep->otyp].oc_name;
                done("died");
        }
}

void
float_up(void)
{
        if (u.utrap) {
                if (u.utraptype == TT_PIT) {
                        u.utrap = 0;
                        pline("You float up, out of the pit!");
                } else {
                        pline("You float up, only your leg is still stuck.");
                }
        } else
                pline("You start to float in the air!");
}

void
float_down(void)
{
        struct trap    *trap;
        pline("You float gently to the ground.");
        if ((trap = t_at(u.ux, u.uy)) != NULL)
                switch (trap->ttyp) {
                case PIERC:
                        break;
                case TRAPDOOR:
                        if (!xdnstair || u.ustuck)
                                break;
                        /* FALLTHROUGH */
                default:
                        dotrap(trap);
                }
        pickup(1);
}

static void
vtele(void)
{
        struct mkroom  *croom;
        for (croom = &rooms[0]; croom->hx >= 0; croom++)
                if (croom->rtype == VAULT) {
                        int x, y;

                        x = rn2(2) ? croom->lx : croom->hx;
                        y = rn2(2) ? croom->ly : croom->hy;
                        if (teleok(x, y)) {
                                teleds(x, y);
                                return;
                        }
                }
        tele();
}

void
tele(void)
{
        coord           cc;
        int             nux, nuy;

        if (Teleport_control) {
                pline("To what position do you want to be teleported?");
                cc = getpos(1, "the desired position"); /* 1: force valid */
                /*
                 * possible extensions: introduce a small error if magic
                 * power is low; allow transfer to solid rock
                 */
                if (teleok(cc.x, cc.y)) {
                        teleds(cc.x, cc.y);
                        return;
                }
                pline("Sorry ...");
        }
        do {
                nux = rnd(COLNO - 1);
                nuy = rn2(ROWNO);
        } while (!teleok(nux, nuy));
        teleds(nux, nuy);
}

static void
teleds(int nux, int nuy)
{
        if (Punished)
                unplacebc();
        unsee();
        u.utrap = 0;
        u.ustuck = 0;
        u.ux = nux;
        u.uy = nuy;
        setsee();
        if (Punished)
                placebc(1);
        if (u.uswallow) {
                u.uswldtim = u.uswallow = 0;
                docrt();
        }
        nomul(0);
        if (levl[nux][nuy].typ == POOL && !Levitation)
                drown();
        (void) inshop();
        pickup(1);
        if (!Blind)
                read_engr_at(u.ux, u.uy);
}

static int
teleok(int x, int y)
{                               /* might throw him into a POOL */
        return (isok(x, y) && !IS_ROCK(levl[x][y].typ) && !m_at(x, y) &&
                !sobj_at(ENORMOUS_ROCK, x, y) && !t_at(x, y)
                );
        /* Note: gold is permitted (because of vaults) */
}

int
dotele(void)
{
        if (
#ifdef WIZARD
            !wizard &&
#endif  /* WIZARD */
            (!Teleportation || u.ulevel < 6 ||
             (pl_character[0] != 'W' && u.ulevel < 10))) {
                pline("You are not able to teleport at will.");
                return (0);
        }
        if (u.uhunger <= 100 || u.ustr < 6) {
                pline("You miss the strength for a teleport spell.");
                return (1);
        }
        tele();
        morehungry(100);
        return (1);
}

void
placebc(int attach)
{
        if (!uchain || !uball) {
                impossible("Where are your chain and ball??");
                return;
        }
        uball->ox = uchain->ox = u.ux;
        uball->oy = uchain->oy = u.uy;
        if (attach) {
                uchain->nobj = fobj;
                fobj = uchain;
                if (!carried(uball)) {
                        uball->nobj = fobj;
                        fobj = uball;
                }
        }
}

void
unplacebc(void)
{
        if (!carried(uball)) {
                freeobj(uball);
                unpobj(uball);
        }
        freeobj(uchain);
        unpobj(uchain);
}

void
level_tele(void)
{
        int             newlevel;
        if (Teleport_control) {
                char            buf[BUFSZ];

                do {
                        pline("To what level do you want to teleport? [type a number] ");
                        getlin(buf);
                } while (!digit(buf[0]) && (buf[0] != '-' || !digit(buf[1])));
                newlevel = atoi(buf);
        } else {
                newlevel = 5 + rn2(20); /* 5 - 24 */
                if (dlevel == newlevel) {
                        if (!xdnstair)
                                newlevel--;
                        else
                                newlevel++;
                }
        }
        if (newlevel >= 30) {
                if (newlevel > MAXLEVEL)
                        newlevel = MAXLEVEL;
                pline("You arrive at the center of the earth ...");
                pline("Unfortunately it is here that hell is located.");
                if (Fire_resistance) {
                        pline("But the fire doesn't seem to harm you.");
                } else {
                        pline("You burn to a crisp.");
                        dlevel = maxdlevel = newlevel;
                        killer = "visit to the hell";
                        done("burned");
                }
        }
        if (newlevel < 0) {
                newlevel = 0;
                pline("You are now high above the clouds ...");
                if (Levitation) {
                        pline("You float gently down to earth.");
                        done("escaped");
                }
                pline("Unfortunately, you don't know how to fly.");
                pline("You fall down a few thousand feet and break your neck.");
                dlevel = 0;
                killer = "fall";
                done("died");
        }
        goto_level(newlevel, FALSE);    /* calls done("escaped") if
                                         * newlevel==0 */
}

void
drown(void)
{
        pline("You fall into a pool!");
        pline("You can't swim!");
        if (rn2(3) < u.uluck + 2) {
                /* most scrolls become unreadable */
                struct obj     *obj;

                for (obj = invent; obj; obj = obj->nobj)
                        if (obj->olet == SCROLL_SYM && rn2(12) > u.uluck)
                                obj->otyp = SCR_BLANK_PAPER;
                /* we should perhaps merge these scrolls ? */

                pline("You attempt a teleport spell."); /* utcsri!carroll */
                (void) dotele();
                if (levl[u.ux][u.uy].typ != POOL)
                        return;
        }
        pline("You drown ...");
        killer = "pool of water";
        done("drowned");
}