int
dothrow()
{
struct obj *obj;
struct monst *mon;
int tmp;
obj = getobj("#)", "throw"); /* it is also possible to throw food */
/* (or jewels, or iron balls ... ) */
if(!obj || !getdir(1)) /* ask "in what direction?" */
return(0);
if(obj->owornmask & (W_ARMOR | W_RING)){
pline("You can't throw something you are wearing.");
return(0);
}
u_wipe_engr(2);
if(obj == uwep){
if(obj->cursed){
pline("Your weapon is welded to your hand.");
return(1);
}
if(obj->quan > 1)
setuwep(splitobj(obj, 1));
else
setuwep((struct obj *) 0);
}
else if(obj->quan > 1)
(void) splitobj(obj, 1);
freeinv(obj);
if(u.uswallow) {
mon = u.ustuck;
bhitpos.x = mon->mx;
bhitpos.y = mon->my;
} else if(u.dz) {
if(u.dz < 0) {
pline("%s hits the ceiling, then falls back on top of your head.",
Doname(obj)); /* note: obj->quan == 1 */
if(obj->olet == POTION_SYM)
potionhit(&youmonst, obj);
else {
if(uarmh) pline("Fortunately, you are wearing a helmet!");
losehp(uarmh ? 1 : rnd((int)(obj->owt)), "falling object");
dropy(obj);
}
} else {
pline("%s hits the floor.", Doname(obj));
if(obj->otyp == EXPENSIVE_CAMERA) {
pline("It is shattered in a thousand pieces!");
obfree(obj, Null(obj));
} else if(obj->otyp == EGG) {
pline("\"Splash!\"");
obfree(obj, Null(obj));
} else if(obj->olet == POTION_SYM) {
pline("The flask breaks, and you smell a peculiar odor ...");
potionbreathe(obj);
obfree(obj, Null(obj));
} else {
dropy(obj);
}
}
return(1);
} else if(obj->otyp == BOOMERANG) {
mon = boomhit(u.dx, u.dy);
if(mon == &youmonst) { /* the thing was caught */
(void) addinv(obj);
return(1);
}
} else {
if(obj->otyp == PICK_AXE && shkcatch(obj))
return(1);
mon = bhit(u.dx, u.dy, (obj->otyp == ICE_BOX) ? 1 :
(!Punished || obj != uball) ? 8 : !u.ustuck ? 5 : 1,
obj->olet, NULL, NULL, obj);
}
if(mon) {
/* awake monster if sleeping */
wakeup(mon);
if(obj->olet == WEAPON_SYM) {
tmp = -1+u.ulevel+mon->data->ac+abon();
if(obj->otyp < ROCK) {
if(!uwep ||
uwep->otyp != obj->otyp+(BOW-ARROW))
tmp -= 4;
else {
tmp += uwep->spe;
}
} else
if(obj->otyp == BOOMERANG) tmp += 4;
tmp += obj->spe;
if(u.uswallow || tmp >= rnd(20)) {
if(hmon(mon,obj,1) == TRUE){
/* mon still alive */
#ifndef NOWORM
cutworm(mon,bhitpos.x,bhitpos.y,obj->otyp);
#endif /* NOWORM */
} else mon = 0;
/* weapons thrown disappear sometimes */
if(obj->otyp < BOOMERANG && rn2(3)) {
/* check bill; free */
obfree(obj, (struct obj *) 0);
return(1);
}
} else miss(objects[obj->otyp].oc_name, mon);
} else if(obj->otyp == HEAVY_IRON_BALL) {
tmp = -1+u.ulevel+mon->data->ac+abon();
if(!Punished || obj != uball) tmp += 2;
if(u.utrap) tmp -= 2;
if(u.uswallow || tmp >= rnd(20)) {
if(hmon(mon,obj,1) == FALSE)
mon = 0; /* he died */
} else miss("iron ball", mon);
} else if(obj->olet == POTION_SYM && u.ulevel > rn2(15)) {
potionhit(mon, obj);
return(1);
} else {
if(cansee(bhitpos.x,bhitpos.y))
pline("You miss %s.",monnam(mon));
else pline("You miss it.");
if(obj->olet == FOOD_SYM && mon->data->mlet == 'd')
if(tamedog(mon,obj)) return(1);
if(obj->olet == GEM_SYM && mon->data->mlet == 'u' &&
!mon->mtame){
if(obj->dknown && objects[obj->otyp].oc_name_known){
if(objects[obj->otyp].g_val > 0){
u.uluck += 5;
goto valuable;
} else {
pline("%s is not interested in your junk.",
Monnam(mon));
}
} else { /* value unknown to @ */
u.uluck++;
valuable:
if(u.uluck > LUCKMAX) /* dan@ut-ngp */
u.uluck = LUCKMAX;
pline("%s graciously accepts your gift.",
Monnam(mon));
mpickobj(mon, obj);
rloc(mon);
return(1);
}
}
}
}
/* the code following might become part of dropy() */
if(obj->otyp == CRYSKNIFE)
obj->otyp = WORM_TOOTH;
obj->ox = bhitpos.x;
obj->oy = bhitpos.y;
obj->nobj = fobj;
fobj = obj;
/* prevent him from throwing articles to the exit and escaping */
/* subfrombill(obj); */
stackobj(obj);
if(Punished && obj == uball &&
(bhitpos.x != u.ux || bhitpos.y != u.uy)){
freeobj(uchain);
unpobj(uchain);
if(u.utrap){
if(u.utraptype == TT_PIT)
pline("The ball pulls you out of the pit!");
else {
long side =
rn2(3) ? LEFT_SIDE : RIGHT_SIDE;
pline("The ball pulls you out of the bear trap.");
pline("Your %s leg is severely damaged.",
(side == LEFT_SIDE) ? "left" : "right");
set_wounded_legs(side, 500+rn2(1000));
losehp(2, "thrown ball");
}
u.utrap = 0;
}
unsee();
uchain->nobj = fobj;
fobj = uchain;
u.ux = uchain->ox = bhitpos.x - u.dx;
u.uy = uchain->oy = bhitpos.y - u.dy;
setsee();
(void) inshop();
}
if(cansee(bhitpos.x, bhitpos.y)) prl(bhitpos.x,bhitpos.y);
return(1);
}
/*
* mhitu: monster hits you
* returns 1 if monster dies (e.g. 'y', 'F'), 0 otherwise
*/
bool
mhitu(struct monst *mtmp)
{
struct permonst *mdat = mtmp->data;
int tmp, ctmp;
nomul(0);
/* If swallowed, can only be affected by hissers and by u.ustuck */
if (u.uswallow) {
if (mtmp != u.ustuck) {
if (mdat->mlet == 'c' && !rn2(13)) {
pline("Outside, you hear %s's hissing!",
monnam(mtmp));
pline("%s gets turned to stone!",
Monnam(u.ustuck));
pline("And the same fate befalls you.");
done_in_by(mtmp);
/* "notreached": not return(1); */
}
return (0);
}
switch (mdat->mlet) { /* now mtmp == u.ustuck */
case ',':
youswld(mtmp, (u.uac > 0) ? u.uac + 4 : 4,
5, "The trapper");
break;
case '\'':
youswld(mtmp, rnd(6), 7, "The lurker above");
break;
case 'P':
youswld(mtmp, d(2, 4), 12, "The purple worm");
break;
default:
/* This is not impossible! */
pline("The mysterious monster totally digests you.");
u.uhp = 0;
}
if (u.uhp < 1)
done_in_by(mtmp);
return (0);
}
if (mdat->mlet == 'c' && Stoned)
return (0);
/* make eels visible the moment they hit/miss us */
if (mdat->mlet == ';' && mtmp->minvis && cansee(mtmp->mx, mtmp->my)) {
mtmp->minvis = 0;
pmon(mtmp);
}
if (!strchr("1&DuxynNF", mdat->mlet))
tmp = hitu(mtmp, d(mdat->damn, mdat->damd));
else
tmp = 0;
if (strchr(UNDEAD, mdat->mlet) && midnight())
tmp += hitu(mtmp, d(mdat->damn, mdat->damd));
ctmp = tmp && !mtmp->mcan &&
(!uarm || objects[uarm->otyp].a_can < rnd(3) || !rn2(50));
switch (mdat->mlet) {
case '1':
if (wiz_hit(mtmp)) /* he disappeared */
return (1);
break;
case '&':
if (!mtmp->cham && !mtmp->mcan && !rn2(13)) {
makemon(PM_DEMON, u.ux, u.uy);
} else {
hitu(mtmp, d(2, 6));
hitu(mtmp, d(2, 6));
hitu(mtmp, rnd(3));
hitu(mtmp, rnd(3));
hitu(mtmp, rn1(4, 2));
}
break;
case ',':
if (tmp)
justswld(mtmp, "The trapper");
break;
case '\'':
if (tmp)
justswld(mtmp, "The lurker above");
break;
case ';':
if (ctmp) {
if (!u.ustuck && !rn2(10)) {
pline("%s swings itself around you!",
Monnam(mtmp));
u.ustuck = mtmp;
} else if (u.ustuck == mtmp &&
levl[mtmp->mx][mtmp->my].typ == POOL) {
pline("%s drowns you ...", Monnam(mtmp));
done("drowned");
}
}
break;
case 'A':
if (ctmp && rn2(2)) {
if (Poison_resistance)
pline("The sting doesn't seem to affect you.");
else {
pline("You feel weaker!");
losestr(1);
}
}
break;
case 'C':
hitu(mtmp, rnd(6));
break;
case 'c':
if (!rn2(5)) {
pline("You hear %s's hissing!", monnam(mtmp));
if (ctmp || !rn2(20) || (flags.moonphase == NEW_MOON
&& !carrying(DEAD_LIZARD)))
Stoned = 5;
}
break;
case 'D':
if (rn2(6) || mtmp->mcan) {
hitu(mtmp, d(3, 10));
hitu(mtmp, rnd(8));
hitu(mtmp, rnd(8));
break;
}
kludge("%s breathes fire!", "The dragon");
buzz(-1, mtmp->mx, mtmp->my, u.ux - mtmp->mx, u.uy - mtmp->my);
break;
case 'd':
hitu(mtmp, d(2, (flags.moonphase == FULL_MOON) ? 3 : 4));
break;
case 'e':
hitu(mtmp, d(3, 6));
break;
case 'F':
if (mtmp->mcan)
break;
kludge("%s explodes!", "The freezing sphere");
if (Cold_resistance)
pline("You don't seem affected by it.");
else {
xchar dn;
if (17 - (u.ulevel / 2) > rnd(20)) {
pline("You get blasted!");
dn = 6;
} else {
pline("You duck the blast...");
dn = 3;
}
losehp_m(d(dn, 6), mtmp);
}
mondead(mtmp);
return (1);
case 'g':
if (ctmp && multi >= 0 && !rn2(3)) {
kludge("You are frozen by %ss juices", "the cube'");
nomul(-rnd(10));
}
break;
case 'h':
if (ctmp && multi >= 0 && !rn2(5)) {
nomul(-rnd(10));
kludge("You are put to sleep by %ss bite!",
"the homunculus'");
}
break;
case 'j':
tmp = hitu(mtmp, rnd(3));
tmp &= hitu(mtmp, rnd(3));
if (tmp) {
hitu(mtmp, rnd(4));
hitu(mtmp, rnd(4));
}
break;
case 'k':
if ((hitu(mtmp, rnd(4)) || !rn2(3)) && ctmp)
poisoned("bee's sting", mdat->mname);
break;
case 'L':
if (tmp)
stealgold(mtmp);
break;
case 'N':
if (mtmp->mcan && !Blind) {
pline("%s tries to seduce you, but you seem not interested.",
Amonnam(mtmp, "plain"));
if (rn2(3))
rloc(mtmp);
} else if (steal(mtmp)) {
rloc(mtmp);
mtmp->mflee = 1;
}
break;
case 'n':
if (!uwep && !uarm && !uarmh && !uarms && !uarmg) {
pline("%s hits! (I hope you don't mind)",
Monnam(mtmp));
u.uhp += rnd(7);
if (!rn2(7))
u.uhpmax++;
if (u.uhp > u.uhpmax)
u.uhp = u.uhpmax;
flags.botl = 1;
if (!rn2(50))
rloc(mtmp);
} else {
hitu(mtmp, d(2, 6));
hitu(mtmp, d(2, 6));
}
break;
case 'o':
tmp = hitu(mtmp, rnd(6));
if (hitu(mtmp, rnd(6)) && tmp && /* hits with both paws */
!u.ustuck && rn2(2)) {
u.ustuck = mtmp;
kludge("%s has grabbed you!", "The owlbear");
u.uhp -= d(2, 8);
} else if (u.ustuck == mtmp) {
u.uhp -= d(2, 8);
pline("You are being crushed.");
}
break;
case 'P':
if (ctmp && !rn2(4))
justswld(mtmp, "The purple worm");
else
hitu(mtmp, d(2, 4));
break;
case 'Q':
hitu(mtmp, rnd(2));
hitu(mtmp, rnd(2));
break;
case 'R':
if (tmp && uarmh && !uarmh->rustfree &&
(int)uarmh->spe >= -1) {
pline("Your helmet rusts!");
uarmh->spe--;
} else if (ctmp && uarm && !uarm->rustfree && /* Mike Newton */
uarm->otyp < STUDDED_LEATHER_ARMOR &&
(int)uarm->spe >= -1) {
pline("Your armor rusts!");
uarm->spe--;
}
break;
case 'S':
if (ctmp && !rn2(8))
poisoned("snake's bite", mdat->mname);
break;
case 's':
if (tmp && !rn2(8))
poisoned("scorpion's sting", mdat->mname);
hitu(mtmp, rnd(8));
hitu(mtmp, rnd(8));
break;
case 'T':
hitu(mtmp, rnd(6));
hitu(mtmp, rnd(6));
break;
case 't':
if (!rn2(5))
rloc(mtmp);
break;
case 'u':
mtmp->mflee = 1;
break;
case 'U':
hitu(mtmp, d(3, 4));
hitu(mtmp, d(3, 4));
break;
case 'v':
if (ctmp && !u.ustuck)
u.ustuck = mtmp;
break;
case 'V':
if (tmp)
u.uhp -= 4;
if (ctmp)
losexp();
break;
case 'W':
if (ctmp)
losexp();
break;
#ifndef NOWORM
case 'w':
if (tmp)
wormhit(mtmp);
#endif /* NOWORM */
break;
case 'X':
hitu(mtmp, rnd(5));
hitu(mtmp, rnd(5));
hitu(mtmp, rnd(5));
break;
case 'x':
{
long side = rn2(2) ? RIGHT_SIDE : LEFT_SIDE;
pline("%s pricks in your %s leg!",
Monnam(mtmp), (side == RIGHT_SIDE) ? "right" : "left");
set_wounded_legs(side, rnd(50));
losehp_m(2, mtmp);
break;
}
case 'y':
if (mtmp->mcan)
break;
mondead(mtmp);
if (!Blind) {
pline("You are blinded by a blast of light!");
Blind = d(4, 12);
seeoff(0);
}
return (1);
case 'Y':
hitu(mtmp, rnd(6));
break;
}
if (u.uhp < 1)
done_in_by(mtmp);
return (0);
}
/*
* drop_ball()
*
* The punished hero drops or throws her iron ball. If the hero is
* blind, we must reset the order and glyph. Check for side effects.
* This routine expects the ball to be already placed.
*
* Should not be called while swallowed.
*/
void
drop_ball(xchar x, xchar y, schar dx, schar dy)
{
if (Blind) {
u.bc_order = bc_order(); /* get the order */
/* pick up mem_obj */
u.bglyph = (u.bc_order) ? u.cglyph : level->locations[x][y].mem_obj;
}
if (x != u.ux || y != u.uy) {
struct trap *t;
const char *pullmsg = "The ball pulls you out of the %s!";
if (u.utrap && u.utraptype != TT_INFLOOR) {
switch (u.utraptype) {
case TT_PIT:
pline(pullmsg, "pit");
break;
case TT_WEB:
pline(pullmsg, "web");
pline("The web is destroyed!");
deltrap(level, t_at(level, u.ux, u.uy));
break;
case TT_LAVA:
pline(pullmsg, "lava");
break;
case TT_BEARTRAP:{
long side = rn2(3) ? LEFT_SIDE : RIGHT_SIDE;
pline(pullmsg, "bear trap");
set_wounded_legs(side, rn1(1000, 500));
if (!u.usteed) {
pline("Your %s %s is severely damaged.",
(side == LEFT_SIDE) ? "left" : "right",
body_part(LEG));
losehp(2, killer_msg(DIED, "leg damage from being "
"pulled out of a bear trap"));
}
break;
}
}
u.utrap = 0;
fill_pit(level, u.ux, u.uy);
}
u.ux0 = u.ux;
u.uy0 = u.uy;
if (!Levitation && !MON_AT(level, x, y) && !u.utrap &&
(is_pool(level, x, y) ||
((t = t_at(level, x, y)) &&
(t->ttyp == PIT || t->ttyp == SPIKED_PIT || t->ttyp == TRAPDOOR ||
t->ttyp == HOLE)))) {
u.ux = x;
u.uy = y;
} else {
u.ux = x - dx;
u.uy = y - dy;
}
/* hero has moved, recalculate vision later */
turnstate.vision_full_recalc = TRUE;
if (Blind) {
/* drop glyph under the chain */
if (u.bc_felt & BC_CHAIN)
level->locations[uchain->ox][uchain->oy].mem_obj = u.cglyph;
u.bc_felt = 0; /* feel nothing */
/* pick up new glyph */
u.cglyph =
(u.bc_order) ? u.bglyph : level->locations[u.ux][u.uy].mem_obj;
}
movobj(uchain, u.ux, u.uy); /* has a newsym */
if (Blind) {
u.bc_order = bc_order();
}
newsym(u.ux0, u.uy0); /* clean up old position */
if (u.ux0 != u.ux || u.uy0 != u.uy) {
spoteffects(TRUE);
if (In_sokoban(&u.uz))
change_luck(-1); /* Sokoban guilt */
}
}
}
/* Stop riding the current steed */
void
dismount_steed(int reason)
{
struct monst *mtmp;
struct obj *otmp;
coord cc;
const char *verb = "fall";
boolean repair_leg_damage = TRUE;
unsigned save_utrap = u.utrap;
boolean have_spot = landing_spot(&cc, reason, 0);
mtmp = u.usteed; /* make a copy of steed pointer */
/* Sanity check */
if (!mtmp) /* Just return silently */
return;
/* Check the reason for dismounting */
otmp = which_armor(mtmp, os_saddle);
switch (reason) {
case DISMOUNT_THROWN:
verb = "are thrown";
case DISMOUNT_FELL:
pline("You %s off of %s!", verb, mon_nam(mtmp));
if (!have_spot)
have_spot = landing_spot(&cc, reason, 1);
losehp(rn1(10, 10), "killed in a riding accident");
set_wounded_legs(LEFT_SIDE, (int)LWounded_legs + rn1(5, 5));
set_wounded_legs(RIGHT_SIDE, (int)RWounded_legs + rn1(5, 5));
repair_leg_damage = FALSE;
break;
case DISMOUNT_POLY:
pline("You can no longer ride %s.", mon_nam(u.usteed));
if (!have_spot)
have_spot = landing_spot(&cc, reason, 1);
break;
case DISMOUNT_ENGULFED:
/* caller displays message */
break;
case DISMOUNT_BONES:
/* hero has just died... */
break;
case DISMOUNT_GENERIC:
/* no messages, just make it so */
break;
case DISMOUNT_BYCHOICE:
default:
if (otmp && otmp->cursed) {
pline("You can't. The saddle %s cursed.",
otmp->bknown ? "is" : "seems to be");
otmp->bknown = TRUE;
return;
}
if (!have_spot) {
pline("You can't. There isn't anywhere for you to stand.");
return;
}
if (!mtmp->mnamelth) {
pline("You've been through the dungeon on %s with no name.",
an(mtmp->data->mname));
if (Hallucination)
pline("It felt good to get out of the rain.");
} else
pline("You dismount %s.", mon_nam(mtmp));
}
/* While riding these refer to the steed's legs so after dismounting they
refer to the player's legs once again. */
if (repair_leg_damage)
LWounded_legs = RWounded_legs = 0;
/* Release the steed and saddle */
u.usteed = 0;
u.ugallop = 0L;
/* Set player and steed's position. Try moving the player first unless
we're in the midst of creating a bones file. */
if (reason == DISMOUNT_BONES) {
/* move the steed to an adjacent square */
if (enexto(&cc, level, u.ux, u.uy, mtmp->data))
rloc_to(mtmp, cc.x, cc.y);
else /* evidently no room nearby; move steed elsewhere */
rloc(mtmp, FALSE);
return;
}
if (!DEADMONSTER(mtmp)) {
place_monster(mtmp, u.ux, u.uy);
if (!Engulfed && !u.ustuck && have_spot) {
const struct permonst *mdat = mtmp->data;
/* The steed may drop into water/lava */
if (!is_flyer(mdat) && !is_floater(mdat) && !is_clinger(mdat)) {
if (is_pool(level, u.ux, u.uy)) {
if (!Underwater)
pline("%s falls into the %s!", Monnam(mtmp),
surface(u.ux, u.uy));
if (!is_swimmer(mdat) && !amphibious(mdat)) {
killed(mtmp);
adjalign(-1);
}
} else if (is_lava(level, u.ux, u.uy)) {
pline("%s is pulled into the lava!", Monnam(mtmp));
if (!likes_lava(mdat)) {
killed(mtmp);
adjalign(-1);
}
}
}
/* Steed dismounting consists of two steps: being moved to another
square, and descending to the floor. We have functions to do
each of these activities, but they're normally called
individually and include an attempt to look at or pick up the
objects on the floor: teleds() --> spoteffects() --> pickup()
float_down() --> pickup() We use this kludge to make sure there
is only one such attempt. Clearly this is not the best way to do
it. A full fix would involve having these functions not call
pickup() at all, instead calling them first and calling pickup()
afterwards. But it would take a lot of work to keep this change
from having any unforseen side effects (for instance, you would
no longer be able to walk onto a square with a hole, and
autopickup before falling into the hole). */
/* [ALI] No need to move the player if the steed died. */
if (!DEADMONSTER(mtmp)) {
/* Keep steed here, move the player to cc; teleds() clears
u.utrap */
in_steed_dismounting = TRUE;
teleds(cc.x, cc.y, TRUE);
in_steed_dismounting = FALSE;
/* Put your steed in your trap */
if (save_utrap)
mintrap(mtmp);
}
/* Couldn't... try placing the steed */
} else if (enexto(&cc, level, u.ux, u.uy, mtmp->data)) {
/* Keep player here, move the steed to cc */
rloc_to(mtmp, cc.x, cc.y);
/* Player stays put */
/* Otherwise, kill the steed */
} else {
killed(mtmp);
adjalign(-1);
}
}
/* Return the player to the floor */
if (reason != DISMOUNT_ENGULFED) {
in_steed_dismounting = TRUE;
float_down(0L);
in_steed_dismounting = FALSE;
encumber_msg();
turnstate.vision_full_recalc = TRUE;
} else
/* polearms behave differently when not mounted */
if (uwep && is_pole(uwep))
u.bashmsg = FALSE;
return;
}
