386BSD 0.1 development

[unix-history] / usr / othersrc / games / hack / hack.trap.c

/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* hack.trap.c - version 1.0.3 */

#include        "hack.h"

extern struct monst *makemon();

char vowels[] = "aeiou";

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

struct trap *
maketrap(x,y,typ)
register x,y,typ;
{
       register 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);
}

dotrap(trap) register struct trap *trap; {
       register 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 {
                           register 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);
               }
       }
}

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

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

           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(index(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(!index("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);
}

selftouch(arg) 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");
       }
}

float_up(){
       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!");
}

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

vtele() {
#include "def.mkroom.h"
       register struct mkroom *croom;
       for(croom = &rooms[0]; croom->hx >= 0; croom++)
           if(croom->rtype == VAULT) {
               register 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();
}

tele() {
       extern coord getpos();
       coord cc;
       register 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);
}

teleds(nux, nuy)
register int nux,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);
}

teleok(x,y) register int x,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) */
}

dotele() {
       extern char pl_character[];

       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);
}

placebc(attach) 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;
               }
       }
}

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

level_tele() {
register 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 */
}

drown()
{
       pline("You fall into a pool!");
       pline("You can't swim!");
       if(rn2(3) < u.uluck+2) {
               /* most scrolls become unreadable */
               register 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");
}