mirror of
https://github.com/vattam/BSDGames.git
synced 2025-12-21 03:14:50 +00:00
Initial revision
git-svn-id: file:///srv/svn/joey/bsdgames-trunk@5198 a4a2c43b-8ac3-0310-8836-e0e880c912e2
This commit is contained in:
joey
553
hack/hack.trap.c
Normal file
553
hack/hack.trap.c
Normal file
@@ -0,0 +1,553 @@
|
||||
/* $NetBSD: hack.trap.c,v 1.6 2001/03/25 20:44:03 jsm 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.6 2001/03/25 20:44:03 jsm 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"
|
||||
};
|
||||
|
||||
struct trap *
|
||||
maketrap(x, y, typ)
|
||||
int x, y, 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(trap)
|
||||
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(mtmp)
|
||||
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(arg)
|
||||
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()
|
||||
{
|
||||
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()
|
||||
{
|
||||
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;
|
||||
/* fall into next case */
|
||||
default:
|
||||
dotrap(trap);
|
||||
}
|
||||
pickup(1);
|
||||
}
|
||||
|
||||
void
|
||||
vtele()
|
||||
{
|
||||
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()
|
||||
{
|
||||
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);
|
||||
}
|
||||
|
||||
void
|
||||
teleds(nux, nuy)
|
||||
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);
|
||||
}
|
||||
|
||||
int
|
||||
teleok(x, y)
|
||||
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) */
|
||||
}
|
||||
|
||||
int
|
||||
dotele()
|
||||
{
|
||||
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(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;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
unplacebc()
|
||||
{
|
||||
if (!carried(uball)) {
|
||||
freeobj(uball);
|
||||
unpobj(uball);
|
||||
}
|
||||
freeobj(uchain);
|
||||
unpobj(uchain);
|
||||
}
|
||||
|
||||
void
|
||||
level_tele()
|
||||
{
|
||||
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()
|
||||
{
|
||||
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");
|
||||
}
|
||||
Reference in New Issue
Block a user