#include "hack.h"

#define is_bigfoot(x) ((x) == &mons[PM_SASQUATCH])

#define martial() \

(martial_bonus() || is_bigfoot(gy.youmonst.data) \

|| (uarmf && uarmf->otyp == KICKING_BOOTS))

staticfn void kickdmg(struct monst *, boolean);

staticfn boolean maybe_kick_monster(struct monst *, coordxy, coordxy);

staticfn void kick_monster(struct monst *, coordxy, coordxy);

staticfn int kick_object(coordxy, coordxy, char *) NONNULLARG3;

staticfn int really_kick_object(coordxy, coordxy);

staticfn char *kickstr(char *, const char *) NONNULLPTRS;

staticfn boolean watchman_thief_arrest(struct monst *) NONNULLPTRS;

staticfn boolean watchman_door_damage(struct monst *,

coordxy, coordxy) NONNULLARG1;

staticfn void kick_dumb(coordxy, coordxy);

staticfn void kick_ouch(coordxy, coordxy, const char *) NONNULLARG3;

staticfn void kick_door(coordxy, coordxy, int);

staticfn int kick_nondoor(coordxy, coordxy, int);

staticfn void otransit_msg(struct obj *, boolean, boolean, long);

staticfn void drop_to(coord *, schar, coordxy, coordxy) NONNULLARG1;

static const char kick_passes_thru[] = "kick passes harmlessly through";

staticfn void

kickdmg(struct monst *mon, boolean clumsy)

{

int mdx, mdy;

int dmg = (ACURRSTR + ACURR(A_DEX) + ACURR(A_CON)) / 15;

int specialdmg, kick_skill = P_NONE;

boolean trapkilled = FALSE;

if (uarmf && uarmf->otyp == KICKING_BOOTS)

dmg += 5;

/* excessive wt affects dex, so it affects dmg */

if (clumsy)

dmg /= 2;

/* kicking a dragon or an elephant will not harm it */

if (thick_skinned(mon->data))

dmg = 0;

/* attacking a shade is normally useless */

if (mon->data == &mons[PM_SHADE])

dmg = 0;

specialdmg = special_dmgval(&gy.youmonst, mon, W_ARMF, (long *) 0);

if (mon->data == &mons[PM_SHADE] && !specialdmg) {

pline_The("%s.", kick_passes_thru);

/* doesn't exercise skill or abuse alignment or frighten pet,

return;

}

if (M_AP_TYPE(mon))

seemimic(mon);

check_caitiff(mon);

/* squeeze some guilt feelings... */

if (mon->mtame) {

abuse_dog(mon);

if (mon->mtame)

monflee(mon, (dmg ? rnd(dmg) : 1), FALSE, FALSE);

else

mon->mflee = 0;

}

if (dmg > 0) {

/* convert potential damage to actual damage */

dmg = rnd(dmg);

if (martial()) {

if (dmg > 1)

kick_skill = P_MARTIAL_ARTS;

dmg += rn2(ACURR(A_DEX) / 2 + 1);

}

/* a good kick exercises your dex */

exercise(A_DEX, TRUE);

}

dmg += specialdmg; /* for blessed (or hypothetically, silver) boots */

if (uarmf)

dmg += uarmf->spe;

dmg += u.udaminc; /* add ring(s) of increase damage */

if (dmg > 0)

mon->mhp -= dmg;

if (!DEADMONSTER(mon) && martial() && !bigmonst(mon->data) && !rn2(3)

&& mon->mcanmove && mon != u.ustuck && !mon->mtrapped) {

/* see if the monster has a place to move into */

mdx = mon->mx + u.dx;

mdy = mon->my + u.dy;

/* TODO: replace with mhurtle? */

if (goodpos(mdx, mdy, mon, 0)) {

pline("%s reels from the blow.", Monnam(mon));

if (m_in_out_region(mon, mdx, mdy)) {

remove_monster(mon->mx, mon->my);

newsym(mon->mx, mon->my);

place_monster(mon, mdx, mdy);

newsym(mon->mx, mon->my);

set_apparxy(mon);

if (mintrap(mon, NO_TRAP_FLAGS) == Trap_Killed_Mon)

trapkilled = TRUE;

}

}

}

(void) passive(mon, uarmf, TRUE, !DEADMONSTER(mon), AT_KICK, FALSE);

if (DEADMONSTER(mon) && !trapkilled)

killed(mon);

/* may bring up a dialog, so put this after all messages */

if (kick_skill != P_NONE) /* exercise proficiency */

use_skill(kick_skill, 1);

}

staticfn boolean

maybe_kick_monster(struct monst *mon, coordxy x, coordxy y)

{

if (mon) {

boolean save_forcefight = svc.context.forcefight;

gb.bhitpos.x = x;

gb.bhitpos.y = y;

if (!mon->mpeaceful || !canspotmon(mon))

svc.context.forcefight = TRUE; /* attack even if invisible */

/* kicking might be halted by discovery of hidden monster,

if (attack_checks(mon, (struct obj *) 0) || overexertion())

mon = 0; /* don't kick after all */

svc.context.forcefight = save_forcefight;

}

return (boolean) (mon != 0);

}

staticfn void

kick_monster(struct monst *mon, coordxy x, coordxy y)

{

boolean clumsy = FALSE;

int i, j;

/* anger target even if wild miss will occur */

setmangry(mon, TRUE);

if (Levitation && !rn2(3) && verysmall(mon->data)

&& !is_flyer(mon->data)) {

pline("Floating in the air, you miss wildly!");

exercise(A_DEX, FALSE);

(void) passive(mon, uarmf, FALSE, 1, AT_KICK, FALSE);

return;

}

/* reveal hidden target even if kick ends up missing (note: being

if (mon->mundetected

|| (M_AP_TYPE(mon) && M_AP_TYPE(mon) != M_AP_MONSTER)) {

if (M_AP_TYPE(mon))

seemimic(mon);

mon->mundetected = 0;

if (!canspotmon(mon))

map_invisible(x, y);

else

newsym(x, y);

There("is %s here.",

canspotmon(mon) ? a_monnam(mon) : "something hidden");

}

/* Kick attacks by kicking monsters are normal attacks, not special.

if (Upolyd && attacktype(gy.youmonst.data, AT_KICK)) {

struct attack *uattk;

int sum, kickdieroll, armorpenalty, specialdmg,

attknum = 0,

tmp = find_roll_to_hit(mon, AT_KICK, (struct obj *) 0, &attknum,

&armorpenalty);

mon_maybe_unparalyze(mon);

for (i = 0; i < NATTK; i++) {

/* first of two kicks might have provoked counterattack

if (gm.multi < 0)

break;

uattk = &gy.youmonst.data->mattk[i];

/* we only care about kicking attacks here */

if (uattk->aatyp != AT_KICK)

continue;

kickdieroll = rnd(20);

specialdmg = special_dmgval(&gy.youmonst, mon, W_ARMF,

(long *) 0);

if (mon->data == &mons[PM_SHADE] && !specialdmg) {

/* doesn't matter whether it would have hit or missed,

Your("%s %s.", kick_passes_thru, mon_nam(mon));

break; /* skip any additional kicks */

} else if (tmp > kickdieroll) {

You("kick %s.", mon_nam(mon));

sum = damageum(mon, uattk, specialdmg);

(void) passive(mon, uarmf, (sum != M_ATTK_MISS),

!(sum & M_ATTK_DEF_DIED), AT_KICK, FALSE);

if ((sum & M_ATTK_DEF_DIED))

break; /* Defender died */

} else {

missum(mon, uattk, (tmp + armorpenalty > kickdieroll));

(void) passive(mon, uarmf, FALSE, 1, AT_KICK, FALSE);

}

}

return;

}

i = -inv_weight();

j = weight_cap();

/* What the following confusing if statements mean:

if (i < (j * 3) / 10) {

if (!rn2((i < j / 10) ? 2 : (i < j / 5) ? 3 : 4)) {

if (martial())

goto doit;

Your("clumsy kick does no damage.");

(void) passive(mon, uarmf, FALSE, 1, AT_KICK, FALSE);

return;

}

if (i < j / 10)

clumsy = TRUE;

else if (!rn2((i < j / 5) ? 2 : 3))

clumsy = TRUE;

}

if (Fumbling)

clumsy = TRUE;

else if (uarm && objects[uarm->otyp].oc_bulky && ACURR(A_DEX) < rnd(25))

clumsy = TRUE;

doit:

You("kick %s.", mon_nam(mon));

if (!rn2(clumsy ? 3 : 4) && (clumsy || !bigmonst(mon->data))

&& mon->mcansee && !mon->mtrapped && !thick_skinned(mon->data)

&& mon->data->mlet != S_EEL && haseyes(mon->data) && mon->mcanmove

&& !mon->mstun && !mon->mconf && !mon->msleeping

&& mon->data->mmove >= 12) {

if (!nohands(mon->data) && !rn2(martial() ? 5 : 3)) {

pline("%s blocks your %skick.", Monnam(mon),

clumsy ? "clumsy " : "");

(void) passive(mon, uarmf, FALSE, 1, AT_KICK, FALSE);

return;

} else {

maybe_mnexto(mon);

if (mon->mx != x || mon->my != y) {

(void) unmap_invisible(x, y);

pline("%s %s, %s evading your %skick.", Monnam(mon),

(can_teleport(mon->data) && !noteleport_level(mon))

? "teleports"

: is_floater(mon->data)

? "floats"

: is_flyer(mon->data) ? "swoops"

: (nolimbs(mon->data)

|| slithy(mon->data))

? "slides"

: "jumps",

clumsy ? "easily" : "nimbly", clumsy ? "clumsy " : "");

(void) passive(mon, uarmf, FALSE, 1, AT_KICK, FALSE);

return;

}

}

}

kickdmg(mon, clumsy);

}

ghitm(struct monst *mtmp, struct obj *gold)

{

boolean msg_given = FALSE;

if (!likes_gold(mtmp->data) && !mtmp->isshk && !mtmp->ispriest

&& !mtmp->isgd && !is_mercenary(mtmp->data)) {

wakeup(mtmp, TRUE);

} else if (!mtmp->mcanmove) {

/* too light to do real damage */

if (canseemon(mtmp)) {

pline_The("%s harmlessly %s %s.", xname(gold),

otense(gold, "hit"), mon_nam(mtmp));

msg_given = TRUE;

}

} else {

unsigned was_sleeping = mtmp->msleeping;

long umoney, value = gold->quan * objects[gold->otyp].oc_cost;

mtmp->msleeping = 0; /* end indeterminate sleep (won't get here

finish_meating(mtmp);

if (!mtmp->isgd && !rn2(4)) /* not always pleasing */

setmangry(mtmp, TRUE);

/* greedy monsters catch gold */

if (cansee(mtmp->mx, mtmp->my))

pline("%s %scatches the gold.", Monnam(mtmp),

was_sleeping ? "awakens and " : "");

(void) mpickobj(mtmp, gold);

gold = (struct obj *) 0; /* obj has been freed */

if (mtmp->isshk) {

long robbed = ESHK(mtmp)->robbed;

if (robbed) {

robbed -= value;

if (robbed < 0L)

robbed = 0L;

pline_The("amount %scovers %s recent losses.",

!robbed ? "" : "partially ", mhis(mtmp));

ESHK(mtmp)->robbed = robbed;

if (!robbed)

make_happy_shk(mtmp, FALSE);

} else {

SetVoice(mtmp, 0, 80, 0);

if (mtmp->mpeaceful) {

ESHK(mtmp)->credit += value;

You("have %ld %s in credit.", ESHK(mtmp)->credit,

currency(ESHK(mtmp)->credit));

} else

verbalize("Thanks, scum!");

}

} else if (mtmp->ispriest) {

SetVoice(mtmp, 0, 80, 0);

if (mtmp->mpeaceful)

verbalize("Thank you for your contribution.");

else

verbalize("Thanks, scum!");

} else if (mtmp->isgd) {

umoney = money_cnt(gi.invent);

/* Some of these are iffy, because a hostile guard

SetVoice(mtmp, 0, 80, 0);

verbalize(umoney ? "Drop the rest and follow me."

: hidden_gold(TRUE)

? "You still have hidden gold. Drop it now."

: mtmp->mpeaceful

? "I'll take care of that; please move along."

: "I'll take that; now get moving.");

} else if (is_mercenary(mtmp->data)) {

boolean was_angry = !mtmp->mpeaceful;

long goldreqd = 0L;

if (mtmp->data == &mons[PM_SOLDIER])

goldreqd = 100L;

else if (mtmp->data == &mons[PM_SERGEANT])

goldreqd = 250L;

else if (mtmp->data == &mons[PM_LIEUTENANT])

goldreqd = 500L;

else if (mtmp->data == &mons[PM_CAPTAIN])

goldreqd = 750L;

if (goldreqd && rn2(3)) {

umoney = money_cnt(gi.invent);

goldreqd += (umoney + u.ulevel * rn2(5)) / ACURR(A_CHA);

if (value > goldreqd)

mtmp->mpeaceful = TRUE;

}

if (!mtmp->mpeaceful) {

SetVoice(mtmp, 0, 80, 0);

if (goldreqd)

verbalize("That's not enough, coward!");

else /* unbribable (watchman) */

verbalize("I don't take bribes from scum like you!");

} else if (was_angry) {

SetVoice(mtmp, 0, 80, 0);

verbalize("That should do. Now beat it!");

} else {

SetVoice(mtmp, 0, 80, 0);

verbalize("Thanks for the tip, %s.",

flags.female ? "lady" : "buddy");

}

}

return TRUE;

}

if (!msg_given)

miss(xname(gold), mtmp);

return FALSE;

}

container_impact_dmg(

struct obj *obj,

coordxy x, /* coordinates where object was */

coordxy y) /* before the impact, not after */

{

struct monst *shkp;

struct obj *otmp, *otmp2;

long loss = 0L;

boolean costly, insider, frominv, wchange = FALSE;

/* only consider normal containers */

if (!Is_container(obj) || !Has_contents(obj) || Is_mbag(obj))

return;

costly = ((shkp = shop_keeper(*in_rooms(x, y, SHOPBASE)))

&& costly_spot(x, y));

insider = (*u.ushops && inside_shop(u.ux, u.uy)

&& *in_rooms(x, y, SHOPBASE) == *u.ushops);

/* if dropped or thrown, shop ownership flags are set on this obj */

frominv = (obj != gk.kickedobj);

for (otmp = obj->cobj; otmp; otmp = otmp2) {

const char *result = (char *) 0;

otmp2 = otmp->nobj;

if (objects[otmp->otyp].oc_material == GLASS

&& otmp->oclass != GEM_CLASS && !obj_resists(otmp, 33, 100)) {

result = "shatter";

} else if (otmp->otyp == EGG && !rn2(3)) {

result = "cracking";

}

if (result) {

if (otmp->otyp == MIRROR)

change_luck(-2);

/* eggs laid by you. penalty is -1 per egg, max 5,

if (otmp->otyp == EGG && otmp->spe && ismnum(otmp->corpsenm))

change_luck(-1);

if (otmp->otyp == EGG) {

Soundeffect(se_egg_cracking, 25);

} else {

Soundeffect(se_glass_shattering, 25);

}

You_hear("a muffled %s.", result);

if (costly) {

if (frominv && !otmp->unpaid)

otmp->no_charge = 1;

loss +=

stolen_value(otmp, x, y, (boolean) shkp->mpeaceful, TRUE);

}

if (otmp->quan > 1L) {

useup(otmp);

} else {

obj_extract_self(otmp);

obfree(otmp, (struct obj *) 0);

}

/* contents of this container are no longer known */

obj->cknown = 0;

wchange = TRUE;

}

}

if (wchange)

obj->owt = weight(obj);

if (costly && loss) {

if (!insider) {

You("caused %ld %s worth of damage!", loss, currency(loss));

make_angry_shk(shkp, x, y);

} else {

You("owe %s %ld %s for objects destroyed.", shkname(shkp), loss,

currency(loss));

}

}

}

staticfn int

kick_object(coordxy x, coordxy y, char *kickobjnam)

{

int res = 0;

*kickobjnam = '\0';

/* if a pile, the "top" object gets kicked */

gk.kickedobj = svl.level.objects[x][y];

if (gk.kickedobj) {

/* formatted object name matters iff res==0 */

Strcpy(kickobjnam, killer_xname(gk.kickedobj));

/* kick object; if fatal, done() will clean up kickedobj */

res = really_kick_object(x, y);

gk.kickedobj = (struct obj *) 0;

}

return res;

}

staticfn int

really_kick_object(coordxy x, coordxy y)

{

int range;

struct monst *mon, *shkp = 0;

struct trap *trap;

char bhitroom;

boolean costly, isgold, slide = FALSE;

/* gk.kickedobj should always be set due to conditions of call */

if (!gk.kickedobj || gk.kickedobj->otyp == BOULDER

|| gk.kickedobj == uball || gk.kickedobj == uchain)

return 0;

if ((trap = t_at(x, y)) != 0) {

if ((is_pit(trap->ttyp) && !Passes_walls) || trap->ttyp == WEB) {

if (!trap->tseen)

find_trap(trap);

You_cant("kick %s that's in a %s!", something,

Hallucination ? "tizzy"

: (trap->ttyp == WEB) ? "web"

: "pit");

return 1;

}

if (trap->ttyp == STATUE_TRAP) {

activate_statue_trap(trap, x, y, FALSE);

return 1;

}

}

if (Fumbling && !rn2(3)) {

Your("clumsy kick missed.");

return 1;

}

if (!uarmf && gk.kickedobj->otyp == CORPSE

&& touch_petrifies(&mons[gk.kickedobj->corpsenm])

&& !Stone_resistance) {

You("kick %s with your bare %s.",

corpse_xname(gk.kickedobj, (const char *) 0, CXN_PFX_THE),

makeplural(body_part(FOOT)));

if (poly_when_stoned(gy.youmonst.data) && polymon(PM_STONE_GOLEM)) {

; /* hero has been transformed but kick continues */

} else {

/* normalize body shape here; foot, not body_part(FOOT) */

Sprintf(svk.killer.name, "kicking %s barefoot",

killer_xname(gk.kickedobj));

instapetrify(svk.killer.name);

}

}

isgold = (gk.kickedobj->oclass == COIN_CLASS);

{

int k_owt = (int) gk.kickedobj->owt;

/* for non-gold stack, 1 item will be split off below (unless an

if (gk.kickedobj->quan > 1L && !isgold) {

long save_quan = gk.kickedobj->quan;

gk.kickedobj->quan = 1L;

k_owt = weight(gk.kickedobj);

gk.kickedobj->quan = save_quan;

}

/* range < 2 means the object will not move

range = ((int) ACURRSTR) / 2 - k_owt / 40;

}

if (martial())

range += rnd(3);

if (is_pool(x, y)) {

/* you're in the water too; significantly reduce range */

range = range / 3 + 1; /* {1,2}=>1, {3,4,5}=>2, {6,7,8}=>3 */

} else if (Is_airlevel(&u.uz) || Is_waterlevel(&u.uz)) {

/* you're in air, since is_pool did not match */

range += rnd(3);

} else {

if (is_ice(x, y))

range += rnd(3), slide = TRUE;

if (gk.kickedobj->greased)

range += rnd(3), slide = TRUE;

}

/* Mjollnir is magically too heavy to kick */

if (is_art(gk.kickedobj, ART_MJOLLNIR))

range = 1;

/* see if the object has a place to move into */

if (!isok(x + u.dx, y + u.dy)

|| !ZAP_POS(levl[x + u.dx][y + u.dy].typ)

|| closed_door(x + u.dx, y + u.dy))

range = 1;

/* 5.0: this used to skip 'costly' handling if kickedobj->no_charge

shkp = find_objowner(gk.kickedobj, x, y);

costly = (shkp && (costly_spot(x, y) || (costly_adjacent(shkp, x, y)

&& gk.kickedobj->unpaid)));

/* 5.0: give feedback about the item being kicked; some follow-on

Norep("You kick %s.",

!isgold ? singular(gk.kickedobj, doname) : doname(gk.kickedobj));

if (IS_OBSTRUCTED(levl[x][y].typ) || closed_door(x, y)) {

if ((!martial() && rn2(20) > ACURR(A_DEX))

|| IS_OBSTRUCTED(levl[u.ux][u.uy].typ) || closed_door(u.ux, u.uy)) {

if (Blind)

pline("It doesn't come loose.");

else

pline("%s %sn't come loose.",

The(distant_name(gk.kickedobj, xname)),

otense(gk.kickedobj, "do"));

return (!rn2(3) || martial());

}

if (Blind)

pline("It comes loose.");

else

pline("%s %s loose.", The(distant_name(gk.kickedobj, xname)),

otense(gk.kickedobj, "come"));

obj_extract_self(gk.kickedobj);

newsym(x, y);

if (costly && (!costly_spot(u.ux, u.uy)

|| !strchr(u.urooms, *in_rooms(x, y, SHOPBASE)))) {

if (!gk.kickedobj->no_charge)

addtobill(gk.kickedobj, FALSE, FALSE, FALSE);

else /* don't leave no_charge set when outside shop */

gk.kickedobj->no_charge = 0;

}

if (!flooreffects(gk.kickedobj, u.ux, u.uy, "fall")) {

place_object(gk.kickedobj, u.ux, u.uy);

impact_disturbs_zombies(gk.kickedobj, TRUE);

stackobj(gk.kickedobj);

newsym(u.ux, u.uy);

}

return 1;

}

/* a box gets a chance of breaking open here */

if (Is_box(gk.kickedobj)) {

boolean otrp = gk.kickedobj->otrapped;

if (range < 2)

pline("THUD!");

container_impact_dmg(gk.kickedobj, x, y);

if (gk.kickedobj->olocked) {

if (!rn2(5) || (martial() && !rn2(2))) {

You("break open the lock!");

breakchestlock(gk.kickedobj, FALSE);

if (otrp)

(void) chest_trap(gk.kickedobj, LEG, FALSE);

return 1;

}

} else {

if (!rn2(3) || (martial() && !rn2(2))) {

pline_The("lid slams open, then falls shut.");

gk.kickedobj->lknown = 1;

if (otrp)

(void) chest_trap(gk.kickedobj, LEG, FALSE);

return 1;

}

}

if (range < 2)

return 1;

/* else let it fall through to the next cases... */

}

/* fragile objects should not be kicked */

if (hero_breaks(gk.kickedobj, gk.kickedobj->ox, gk.kickedobj->oy, 0))

return 1;

/* too heavy to move. range is calculated as potential distance from

if (range < 2) {

if (!Is_box(gk.kickedobj))

pline("Thump!");

return (!rn2(3) || martial());

}

if (gk.kickedobj->quan > 1L) {

if (!isgold) {

gk.kickedobj = splitobj(gk.kickedobj, 1L);

} else {

if (rn2(20)) {

static NEARDATA const char *const flyingcoinmsg[] = {

"scatter the coins", "knock coins all over the place",

"send coins flying in all directions",

};

if (!Deaf)

pline1("Thwwpingg!");

You("%s!", ROLL_FROM(flyingcoinmsg));

(void) scatter(x, y, rnd(3), VIS_EFFECTS | MAY_HIT,

gk.kickedobj);

newsym(x, y);

return 1;

}

if (gk.kickedobj->quan > 300L) {

pline("Thump!");

return (!rn2(3) || martial());

}

}

}

if (slide && !Blind)

pline("Whee! %s %s across the %s.", Doname2(gk.kickedobj),

otense(gk.kickedobj, "slide"), surface(x, y));

#if 0 /* now that 'costly' above includes no_charge items, this would

if (costly && !isgold) /* && !gk.kickedobj->no_charge) */

addtobill(gk.kickedobj, FALSE, FALSE, TRUE);

obj_extract_self(gk.kickedobj);

(void) snuff_candle(gk.kickedobj);

newsym(x, y);

mon = bhit(u.dx, u.dy, range, KICKED_WEAPON,

(int (*) (struct monst *, struct obj *)) 0,

(int (*) (struct obj *, struct obj *)) 0, &gk.kickedobj);

if (!gk.kickedobj)

return 1; /* object broken */

if (mon) {

if (mon->isshk && gk.kickedobj->where == OBJ_MINVENT

&& gk.kickedobj->ocarry == mon)

return 1; /* alert shk caught it */

gn.notonhead = (mon->mx != gb.bhitpos.x || mon->my != gb.bhitpos.y);

if (isgold ? ghitm(mon, gk.kickedobj) /* caught? */

: thitmonst(mon, gk.kickedobj)) /* hit && used up? */

return 1;

}

/* the object might have fallen down a hole;

if (gk.kickedobj->where == OBJ_MIGRATING)

return 1;

bhitroom = *in_rooms(gb.bhitpos.x, gb.bhitpos.y, SHOPBASE);

/* if obj is marked no_charge, stolen_value() won't blame hero for

if (costly && (!costly_spot(gb.bhitpos.x, gb.bhitpos.y)

|| *in_rooms(x, y, SHOPBASE) != bhitroom)) {

/* kicked from inside shop to somewhere outside shop */

if (isgold)

costly_gold(x, y, gk.kickedobj->quan, FALSE);

else

(void) stolen_value(gk.kickedobj, x, y, (boolean) shkp->mpeaceful,

FALSE);

costly = FALSE; /* already billed */

}

if (flooreffects(gk.kickedobj, gb.bhitpos.x, gb.bhitpos.y, "fall"))

return 1;

if (costly) {

long gtg = 0L;

/* costly + landed outside shop handled above; must be inside shop */

if (gk.kickedobj->unpaid)

subfrombill(gk.kickedobj, shkp);

/* if billed for contained gold during kick, get a refund now */

if (Has_contents(gk.kickedobj)

&& (gtg = contained_gold(gk.kickedobj, TRUE)) > 0L)

donate_gold(gtg, shkp, FALSE);

}

place_object(gk.kickedobj, gb.bhitpos.x, gb.bhitpos.y);

impact_disturbs_zombies(gk.kickedobj, TRUE);

stackobj(gk.kickedobj);

newsym(gk.kickedobj->ox, gk.kickedobj->oy);

return 1;

}

staticfn char *

kickstr(char *buf, const char *kickobjnam)

{

const char *what;

if (*kickobjnam)

what = kickobjnam;

else if (gm.maploc == &gn.nowhere)

what = "nothing";

else if (IS_DOOR(gm.maploc->typ))

what = "a door";

else if (IS_TREE(gm.maploc->typ))

what = "a tree";

else if (IS_STWALL(gm.maploc->typ))

what = "a wall";

else if (IS_OBSTRUCTED(gm.maploc->typ))

what = "a rock";

else if (IS_THRONE(gm.maploc->typ))

what = "a throne";

else if (IS_FOUNTAIN(gm.maploc->typ))

what = "a fountain";

else if (IS_GRAVE(gm.maploc->typ))

what = "a headstone";

else if (IS_SINK(gm.maploc->typ))

what = "a sink";

else if (IS_ALTAR(gm.maploc->typ))

what = "an altar";

else if (IS_DRAWBRIDGE(gm.maploc->typ))

what = "a drawbridge";

else if (gm.maploc->typ == STAIRS)

what = "the stairs";

else if (gm.maploc->typ == LADDER)

what = "a ladder";

else if (gm.maploc->typ == IRONBARS)

what = "an iron bar";

else

what = "something weird";

return strcat(strcpy(buf, "kicking "), what);

}

staticfn boolean

watchman_thief_arrest(struct monst *mtmp)

{

if (is_watch(mtmp->data) && couldsee(mtmp->mx, mtmp->my)

&& mtmp->mpeaceful) {

mon_yells(mtmp, "Halt, thief! You're under arrest!");

(void) angry_guards(FALSE);

return TRUE;

}

return FALSE;

}

staticfn boolean

watchman_door_damage(struct monst *mtmp, coordxy x, coordxy y)

{

if (is_watch(mtmp->data) && mtmp->mpeaceful

&& couldsee(mtmp->mx, mtmp->my)) {

if (levl[x][y].looted & D_WARNED) {

mon_yells(mtmp,

"Halt, vandal! You're under arrest!");

(void) angry_guards(FALSE);

} else {

mon_yells(mtmp, "Hey, stop damaging that door!");

levl[x][y].looted |= D_WARNED;

}

return TRUE;

}

return FALSE;

}

staticfn void

kick_dumb(coordxy x, coordxy y)

{

exercise(A_DEX, FALSE);

if (martial() || ACURR(A_DEX) >= 16 || rn2(3)) {

You("kick at empty space.");

if (Blind)

feel_location(x, y);

} else {

pline("Dumb move! You strain a muscle.");

exercise(A_STR, FALSE);

set_wounded_legs(RIGHT_SIDE, 5 + rnd(5));

}

if ((Is_airlevel(&u.uz) || Levitation) && rn2(2))

hurtle(-u.dx, -u.dy, 1, TRUE);

}

staticfn void

kick_ouch(coordxy x, coordxy y, const char *kickobjnam)

{

int dmg;

char buf[BUFSZ];

pline("Ouch! That hurts!");

exercise(A_DEX, FALSE);

exercise(A_STR, FALSE);

if (isok(x, y)) {

if (Blind)

feel_location(x, y); /* we know we hit it */

if (is_drawbridge_wall(x, y) >= 0) {

pline_The("drawbridge is unaffected.");

/* update maploc to refer to the drawbridge */

(void) find_drawbridge(&x, &y);

gm.maploc = &levl[x][y];

}

wake_nearto(x, y, 5 * 5);

}

if (!rn2(3))

set_wounded_legs(RIGHT_SIDE, 5 + rnd(5));

dmg = rnd(ACURR(A_CON) > 15 ? 3 : 5);

losehp(Maybe_Half_Phys(dmg), kickstr(buf, kickobjnam), KILLED_BY);

if (Is_airlevel(&u.uz) || Levitation)

hurtle(-u.dx, -u.dy, rn1(2, 4), TRUE); /* assume it's heavy */

}

staticfn void

kick_door(coordxy x, coordxy y, int avrg_attrib)

{

boolean doorbuster;

if (gm.maploc->doormask == D_ISOPEN || gm.maploc->doormask == D_BROKEN

|| gm.maploc->doormask == D_NODOOR) {

kick_dumb(x, y);

return; /* uses a turn */

}

/* not enough leverage to kick open doors while levitating */

if (Levitation) {

kick_ouch(x, y, "");

return;

}

exercise(A_DEX, TRUE);

doorbuster = Upolyd && is_giant(gy.youmonst.data);

/* door is known to be CLOSED or LOCKED */

if (doorbuster

|| (rnl(35) < avrg_attrib + (!martial() ? 0 : ACURR(A_DEX)))) {

boolean shopdoor = *in_rooms(x, y, SHOPBASE) ? TRUE : FALSE;

/* break the door */

if (gm.maploc->doormask & D_TRAPPED) {

if (flags.verbose)

You("kick the door.");

exercise(A_STR, FALSE);

gm.maploc->doormask = D_NODOOR;

b_trapped("door", FOOT);

} else if (ACURR(A_STR) > 18 && !rn2(5) && !shopdoor) {

Soundeffect(se_kick_door_it_shatters, 50);

pline("As you kick the door, it shatters to pieces!");

exercise(A_STR, TRUE);

gm.maploc->doormask = D_NODOOR;

} else {

Soundeffect(se_kick_door_it_crashes_open, 50);

pline("As you kick the door, it crashes open!");

exercise(A_STR, TRUE);

gm.maploc->doormask = D_BROKEN;

}

feel_newsym(x, y); /* we know we broke it */

recalc_block_point(x, y); /* vision */

if (shopdoor) {

add_damage(x, y, SHOP_DOOR_COST);

pay_for_damage("break", FALSE);

}

if (in_town(x, y))

(void) get_iter_mons(watchman_thief_arrest);

} else {

if (Blind)

feel_location(x, y); /* we know we hit it */

exercise(A_STR, TRUE);

/* note: this used to be unconditional "WHAMMM!!!" but that has a

pline("%s!!", (Deaf || !rn2(3)) ? "Thwack" : "Whammm");

if (in_town(x, y))

(void) get_iter_mons_xy(watchman_door_damage, x, y);

}

}

staticfn int

kick_nondoor(coordxy x, coordxy y, int avrg_attrib)

{

if (gm.maploc->typ == SDOOR) {

if (!Levitation && rn2(30) < avrg_attrib) {

cvt_sdoor_to_door(gm.maploc); /* ->typ = DOOR */

Soundeffect(se_crash_door, 40);

pline("Crash! %s a secret door!",

/* don't "kick open" when it's locked

((gm.maploc->doormask & (D_LOCKED | D_TRAPPED))

== D_LOCKED) ? "Your kick uncovers" : "You kick open");

exercise(A_DEX, TRUE);

if (gm.maploc->doormask & D_TRAPPED) {

gm.maploc->doormask = D_NODOOR;

b_trapped("door", FOOT);

} else if (gm.maploc->doormask != D_NODOOR

&& !(gm.maploc->doormask & D_LOCKED))

gm.maploc->doormask = D_ISOPEN;

feel_newsym(x, y); /* we know it's gone */

if (gm.maploc->doormask == D_ISOPEN

|| gm.maploc->doormask == D_NODOOR)

unblock_point(x, y); /* vision */

return ECMD_TIME;

} else {

kick_ouch(x, y, "");

return ECMD_TIME;

}