/* SCCS Id: @(#)dokick.c 3.1 92/10/06 */ /* Copyright (c) Izchak Miller, Mike Stephenson, Steve Linhart, 1989. */ /* NetHack may be freely redistributed. See license for details. */ #include "hack.h" #include "eshk.h" #ifndef POLYSELF # define martial() (pl_character[0] == 'S' || pl_character[0] == 'P') #else # define is_bigfoot(x) ((x) == &mons[PM_SASQUATCH]) # define martial() (pl_character[0] == 'S' || pl_character[0] == 'P' \ || is_bigfoot(uasmon)) #endif static struct rm NEARDATA *maploc; extern boolean notonhead; /* for long worms */ static void FDECL(kickdmg, (struct monst *, BOOLEAN_P)); static void FDECL(kick_monster, (XCHAR_P, XCHAR_P)); static int FDECL(kick_object, (XCHAR_P, XCHAR_P)); static char *NDECL(kickstr); static void FDECL(otransit_msg, (struct obj *, XCHAR_P, BOOLEAN_P, int)); static const char *FDECL(gate_str, (XCHAR_P)); static void FDECL(drop_to, (coord *, XCHAR_P)); static struct obj NEARDATA *kickobj; #define IS_SHOP(x) (rooms[x].rtype >= SHOPBASE) static void kickdmg(mon, clumsy) register struct monst *mon; register boolean clumsy; { register int mdx, mdy; register int dmg = ( ACURRSTR + ACURR(A_DEX) + ACURR(A_CON) )/ 15; /* excessive wt affects dex, so it affects dmg */ if(clumsy) dmg = dmg/2; /* kicking a dragon or an elephant will not harm it */ if(thick_skinned(mon->data)) dmg = 0; /* a good kick exercises your dex */ exercise(A_DEX, TRUE); /* squeeze some guilt feelings... */ if(mon->mtame) { #ifdef SOUNDS if (rn2(10)) yelp(mon); else growl(mon); /* give them a moment's worry */ #endif mon->mtame--; if(!mon->mtame) newsym(mon->mx, mon->my); mon->mflee = mon->mtame ? 1 : 0; #ifdef HISX mon->mfleetim = mon->mfleetim + (dmg ? rnd(dmg) : 1); #else mon->mfleetim += (dmg ? rnd(dmg) : 1); #endif } if (dmg) mon->mhp -= (!martial() ? rnd(dmg) : rnd(dmg)+rnd(ACURR(A_DEX)/2)); if(mon->mhp < 1) { (void) passive(mon, TRUE, 0, TRUE); killed(mon); return; } if(martial() && !bigmonst(mon->data) && !rn2(3) && mon->mcanmove) { /* see if the monster has a place to move into */ mdx = mon->mx + u.dx; mdy = mon->my + u.dy; if(goodpos(mdx, mdy, mon, mon->data)) { pline("%s reels from the blow.", Monnam(mon)); remove_monster(mon->mx, mon->my); place_monster(mon, mdx, mdy); newsym(mon->mx, mon->my); set_apparxy(mon); } } (void) passive(mon, FALSE, 1, TRUE); /* it is unchivalrous to attack the defenseless or from behind */ if (pl_character[0] == 'K' && u.ualign.type == A_LAWFUL && u.ualign.record > -10 && (!mon->mcanmove || mon->msleep || mon->mflee)) adjalign(-1); } static void kick_monster(x, y) register xchar x, y; { register boolean clumsy = FALSE; register struct monst *mon = m_at(x, y); register int i, j; bhitpos.x = x; bhitpos.y = y; if(special_case(mon)) return; setmangry(mon); #ifdef POLYSELF /* Kick attacks by kicking monsters are normal attacks, not special. * If you have >1 kick attack, you get all of them. */ if (attacktype(uasmon, AT_KICK)) { schar tmp = find_roll_to_hit(mon); for(i=0; imattk[i].aatyp == AT_KICK && multi >= 0) { /* check multi; maybe they had 2 kicks and the first */ /* was a kick against a floating eye */ if (tmp > rnd(20)) { int sum; You("kick %s.", mon_nam(mon)); sum = damageum(mon, &(uasmon->mattk[i])); if (sum == 2) (void)passive(mon, 1, 0, TRUE); else (void)passive(mon, sum, 1, TRUE); } else { missum(mon, &(uasmon->mattk[i])); (void)passive(mon, 0, 1, TRUE); } } } return; } #endif /* no need to check POLYSELF since only ghosts, which you can't turn */ /* into, are noncorporeal */ if(noncorporeal(mon->data)) { Your("kick passes through!"); return; } 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, FALSE, 1, TRUE); return; } i = -inv_weight(); j = weight_cap(); if(i < (j*3)/10) { if(!rn2((i < j/10) ? 2 : (i < j/5) ? 3 : 4)) { if(martial() && !rn2(2)) goto doit; Your("clumsy kick does no damage."); (void) passive(mon, FALSE, 1, TRUE); 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->msleep && mon->data->mmove >= 12) { if(!nohands(mon->data) && !rn2(martial() ? 5 : 3)) { pline("%s blocks your %skick.", Monnam(mon), clumsy ? "clumsy " : ""); (void) passive(mon, FALSE, 1, TRUE); return; } else { mnexto(mon); if(mon->mx != x || mon->my != y) { pline("%s %s, %s evading your %skick.", Monnam(mon), (can_teleport(mon->data) ? "teleports" : is_floater(mon->data) ? "floats" : is_flyer(mon->data) ? "flutters" : nolimbs(mon->data) ? "slides" : "jumps"), clumsy ? "easily" : "nimbly", clumsy ? "clumsy " : ""); (void) passive(mon, FALSE, 1, TRUE); return; } } } kickdmg(mon, clumsy); } /* * Return TRUE if caught (the gold taken care of), FALSE otherwise. * The gold object is *not* attached to the fobj chain! */ boolean ghitm(mtmp, gold) register struct monst *mtmp; register struct obj *gold; { if(!likes_gold(mtmp->data) && !mtmp->isshk && !mtmp->ispriest #ifdef ARMY && !is_mercenary(mtmp->data) #endif ) { wakeup(mtmp); } else if (!mtmp->mcanmove) { /* too light to do real damage */ if (canseemon(mtmp)) pline("The gold hits %s.", mon_nam(mtmp)); } else { mtmp->msleep = 0; mtmp->meating = 0; if(!rn2(4)) setmangry(mtmp); /* not always pleasing */ /* greedy monsters catch gold */ if (cansee(mtmp->mx, mtmp->my)) pline("%s catches the gold.", Monnam(mtmp)); mtmp->mgold += gold->quan; if (mtmp->isshk) { long robbed = ESHK(mtmp)->robbed; if (robbed) { robbed -= gold->quan; if (robbed < 0) robbed = 0; pline("The amount %scovers %s recent losses.", !robbed ? "" : "partially ", mtmp->female ? "her" : "his"); ESHK(mtmp)->robbed = robbed; if(!robbed) make_happy_shk(mtmp, FALSE); } else { if(mtmp->mpeaceful) { ESHK(mtmp)->credit += gold->quan; You("have %ld zorkmid%s in credit.", ESHK(mtmp)->credit, plur(ESHK(mtmp)->credit)); } else verbalize("Thanks, scum!"); } } else if(mtmp->ispriest) { if(mtmp->mpeaceful) verbalize("Thank you for your contribution."); else verbalize("Thanks, scum!"); } else if(is_mercenary(mtmp->data)) { if(rn2(3)) { if(mtmp->data == &mons[PM_SOLDIER]) { if(gold->quan > 100 + (u.ugold + (u.ulevel*rn2(5))) /ACURR(A_CHA)) mtmp->mpeaceful = 1; } if(mtmp->data == &mons[PM_SERGEANT]) { if(gold->quan > 250 + (u.ugold + (u.ulevel*rn2(5))) /ACURR(A_CHA)) mtmp->mpeaceful = 1; } if(mtmp->data == &mons[PM_LIEUTENANT]) { if(gold->quan > 500 + (u.ugold + (u.ulevel*rn2(5))) /ACURR(A_CHA)) mtmp->mpeaceful = 1; } if(mtmp->data == &mons[PM_CAPTAIN]) { if(gold->quan > 750 + (u.ugold + (u.ulevel*rn2(5))) /ACURR(A_CHA)) mtmp->mpeaceful = 1; } } if(mtmp->mpeaceful) verbalize("That should do. Now beat it!"); else verbalize("That's not enough, coward!"); } dealloc_obj(gold); return(1); } return(0); } static int kick_object(x, y) xchar x, y; { int range; register struct monst *mon, *shkp; register struct obj *otmp; struct trap *trap; boolean costly, insider, shipit; boolean isgold; /* if a pile, the "top" object gets kicked */ kickobj = level.objects[x][y]; /* kickobj should always be set due to conditions of call */ if(!kickobj || kickobj->otyp == BOULDER || kickobj == uball || kickobj == uchain) return(0); if((trap = t_at(x,y)) && trap->tseen) { if (((trap->ttyp == PIT || trap->ttyp == SPIKED_PIT) #ifdef POLYSELF && !passes_walls(uasmon) #endif ) || trap->ttyp == WEB) { You("can't kick something that's in a %s!", trap->ttyp == WEB ? "web" : "pit"); return(1); } } if(Fumbling && !rn2(3)) { Your("clumsy kick missed."); return(1); } /* range < 2 means the object will not move. */ /* maybe dexterity should also figure here. */ range = (int)((ACURRSTR)/2 - kickobj->owt/40); if(martial()) range += rnd(3); /* Mjollnir is magically too heavy to kick */ if(kickobj->oartifact == ART_MJOLLNIR) range = 1; /* see if the object has a place to move into */ if(!ZAP_POS(levl[x+u.dx][y+u.dy].typ) || closed_door(x+u.dx, y+u.dy)) range = 1; 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); /* a box gets a chance of breaking open here */ if(Is_box(kickobj)) { boolean otrp = kickobj->otrapped; struct obj *otmp2, *probj = (struct obj *) 0, *temp; long loss = 0L; if(range < 2) pline("THUD!"); for(otmp = kickobj->cobj; otmp; otmp = otmp2) { otmp2 = otmp->nobj; if (objects[otmp->otyp].oc_material == GLASS && !rn2(3)) { You("hear a muffled shatter."); if(costly) loss += stolen_value(otmp, x, y, (boolean)shkp->mpeaceful, TRUE); if (otmp->quan > 1L) useup(otmp); else { temp = otmp; if (otmp == kickobj->cobj) { kickobj->cobj = otmp->nobj; otmp = (struct obj *) 0; } else { probj->nobj = otmp->nobj; otmp = probj; } obfree(temp, (struct obj *) 0); } } probj = otmp; } if(costly && loss) { if(!insider) { You("caused %ld zorkmids worth of damage!", loss); make_angry_shk(shkp, x, y); } else You("owe %s %ld zorkmids for objects destroyed.", mon_nam(shkp), loss); } if (kickobj->olocked) { if (!rn2(5) || (martial() && !rn2(2))) { You("break open the lock!"); kickobj->olocked = 0; kickobj->obroken = 1; if (otrp) (void) chest_trap(kickobj, LEG, FALSE); return(1); } } else { if (!rn2(3) || (martial() && !rn2(2))) { pline("The lid slams open, then falls shut."); if (otrp) (void) chest_trap(kickobj, 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 (breaks(kickobj, FALSE)) return(1); /* potions get a chance of breaking here */ if(kickobj->oclass == POTION_CLASS) { if(rn2(2)) { You("smash %s %s!", kickobj->quan == 1L ? "the" : "a", xname(kickobj)); potionbreathe(kickobj); if(costly) { long loss = stolen_value(kickobj, kickobj->ox, kickobj->oy, (boolean)shkp->mpeaceful, TRUE); if(loss) { if(insider) You("owe %ld zorkmids for objects destroyed.", loss); else { You("caused %ld zorkmids worth of damage!", loss); make_angry_shk(shkp, kickobj->ox, kickobj->oy); } } } useupf(kickobj); return(1); } } if(IS_ROCK(levl[x][y].typ)) { if ((!martial() && rn2(20) > ACURR(A_DEX)) #ifdef POLYSELF || IS_ROCK(levl[u.ux][u.uy].typ) #endif ) { if (Blind) pline("It doesn't come loose."); else pline("%s do%sn't come loose.", The(distant_name(kickobj, xname)), (kickobj->quan == 1L) ? "es" : ""); return(!rn2(3) || martial()); } if (Blind) pline("It comes loose."); else pline("%s come%s loose.", The(distant_name(kickobj, xname)), (kickobj->quan == 1L) ? "s" : ""); remove_object(kickobj); newsym(x, y); if (costly && (!costly_spot(u.ux, u.uy) || !index(u.urooms, *in_rooms(x, y, SHOPBASE)))) addtobill(kickobj, FALSE, FALSE, FALSE); if(!flooreffects(kickobj,u.ux,u.uy,"fall")) { place_object(kickobj, u.ux, u.uy); stackobj(kickobj); newsym(u.ux, u.uy); } return(1); } isgold = (kickobj->otyp == GOLD_PIECE); /* too heavy to move. range is calculated as potential distance from * player, so range == 2 means the object may move up to one square * from its current position */ if(range < 2 || (isgold && kickobj->quan > 300L)) { if(!Is_box(kickobj)) pline("Thump!"); return(!rn2(3) || martial()); } if (kickobj->quan > 1L && !isgold) (void) splitobj(kickobj, 1L); freeobj(kickobj); newsym(x, y); mon = bhit(u.dx, u.dy, range, KICKED_WEAPON, (int (*)()) 0, (int (*)()) 0, kickobj); /* a flag to "drop" the object to the next level */ shipit = (!mon && down_gate(bhitpos.x, bhitpos.y) != -1); if(mon) { notonhead = (mon->mx != bhitpos.x || mon->my != bhitpos.y); /* awake monster if sleeping */ wakeup(mon); if(isgold ? ghitm(mon, kickobj) : /* caught? */ thitmonst(mon, kickobj)) /* hit? */ return(1); } if(costly && (!costly_spot(bhitpos.x,bhitpos.y) || shipit || *in_rooms(bhitpos.x, bhitpos.y, 0) != *in_rooms(x, y, 0))) { if(shipit && ship_object(kickobj, bhitpos.x, bhitpos.y, costly)) return(1); if(isgold) costly_gold(x, y, kickobj->quan); else if(costly_spot(u.ux, u.uy) && index(u.urooms, *in_rooms(x, y, 0))) addtobill(kickobj, FALSE, FALSE, FALSE); else (void)stolen_value(kickobj, x, y, FALSE, FALSE); } if(shipit && ship_object(kickobj, bhitpos.x, bhitpos.y, costly)) return(1); if(flooreffects(kickobj,bhitpos.x,bhitpos.y,"fall")) return(1); kickobj->nobj = fobj; fobj = kickobj; place_object(kickobj, bhitpos.x, bhitpos.y); stackobj(kickobj); newsym(kickobj->ox, kickobj->oy); return(1); } static char * kickstr() { static char NEARDATA buf[BUFSZ]; if (kickobj) Sprintf(buf, "kicking %s", doname(kickobj)); else { Strcpy(buf, "kicking "); if (IS_STWALL(maploc->typ)) Strcat(buf, "a wall"); else if (IS_ROCK(maploc->typ)) Strcat(buf, "a rock"); else if (IS_THRONE(maploc->typ)) Strcat(buf, "a throne"); #ifdef SINKS else if (IS_SINK(maploc->typ)) Strcat(buf, "a sink"); #endif else if (IS_ALTAR(maploc->typ)) Strcat(buf, "an altar"); else if (IS_DRAWBRIDGE(maploc->typ)) Strcat(buf, "the drawbridge"); else { switch (maploc->typ) { case STAIRS: Strcat(buf, "the stairs"); break; case LADDER: Strcat(buf, "a ladder"); break; default: Strcat(buf, "something wierd"); break; } } } return buf; } int dokick() { register int x, y; register int avrg_attrib = (ACURRSTR+ACURR(A_DEX)+ACURR(A_CON))/3; #ifdef POLYSELF if(nolimbs(uasmon)) { You("have no legs to kick with."); return(0); } if(verysmall(uasmon)) { You("are too small to do any kicking."); return(0); } #endif if(Wounded_legs) { Your("%s %s in no shape for kicking.", ((Wounded_legs & BOTH_SIDES)==BOTH_SIDES) ? (const char *)makeplural(body_part(LEG)) : body_part(LEG), ((Wounded_legs & BOTH_SIDES)==BOTH_SIDES) ? "are" : "is"); return(0); } if(near_capacity() > SLT_ENCUMBER) { Your("load is too heavy to balance yourself for a kick."); return(0); } if(u.uinwater && !rn2(2)) { Your("slow motion kick doesn't hit anything."); return(0); } if(u.utrap) { switch (u.utraptype) { case TT_PIT: pline("There's nothing to kick down here."); case TT_WEB: case TT_BEARTRAP: You("can't move your %s!", body_part(LEG)); } return(0); } if(!getdir(NULL)) return(0); if(!u.dx && !u.dy) return(0); x = u.ux + u.dx; y = u.uy + u.dy; if(u.uswallow) { switch(rn2(3)) { case 0: You("can't move your %s!", body_part(LEG)); break; case 1: if (is_animal(u.ustuck->data)) { pline("%s burps loudly.", Monnam(u.ustuck)); break; } default: Your("feeble kick has no effect."); break; } return(1); } wake_nearby(); u_wipe_engr(2); maploc = &levl[x][y]; /* The next four tests should stay in */ /* their present order: monsters, objects, */ /* non-doors, doors. */ if(MON_AT(x, y)) { kick_monster(x, y); if((Is_airlevel(&u.uz) || Levitation) && flags.move) { int range; struct monst *mon; mon = m_at(x,y); range = (3*(int)mon->data->cwt) / ((int)uasmon->cwt + (weight_cap() + inv_weight())); if(range < 1) range = 1; hurtle(-u.dx, -u.dy, range); } return(1); } kickobj = (struct obj *)0; if (OBJ_AT(x, y) && (!Levitation || Is_airlevel(&u.uz) || Is_waterlevel(&u.uz) || sobj_at(BOULDER,x,y))) { if(kick_object(x, y)) { if(Is_airlevel(&u.uz)) hurtle(-u.dx, -u.dy, 1); /* assume it's light */ return(1); } goto ouch; } if(!IS_DOOR(maploc->typ)) { if(maploc->typ == SDOOR) { if(!Levitation && rn2(30) < avrg_attrib) { pline("Crash! You kick open a secret door!"); exercise(A_DEX, TRUE); maploc->typ = DOOR; if(maploc->doormask & D_TRAPPED) { b_trapped("door"); maploc->doormask = D_NODOOR; } else maploc->doormask = D_ISOPEN; if (Blind) feel_location(x,y); /* we know its gone */ else newsym(x,y); unblock_point(x,y); /* vision */ return(1); } else goto ouch; } if(maploc->typ == SCORR) { if(!Levitation && rn2(30) < avrg_attrib) { pline("Crash! You kick open a secret passage!"); exercise(A_DEX, TRUE); maploc->typ = CORR; if (Blind) feel_location(x,y); /* we known its gone */ else newsym(x,y); unblock_point(x,y); /* vision */ return(1); } else goto ouch; } if(IS_THRONE(maploc->typ)) { register int i; if(Levitation) goto dumb; if((Luck < 0 || maploc->doormask) && !rn2(3)) { maploc->typ = ROOM; maploc->doormask = 0; /* don't leave loose ends.. */ mkgold((long)rnd(200), x, y); if (Blind) pline("CRASH! You destroy it."); else { pline("CRASH! You destroy the throne."); newsym(x, y); } exercise(A_DEX, TRUE); return(1); } else if(Luck > 0 && !rn2(3) && !maploc->looted) { mkgold((long) rn1(201, 300), x, y); i = Luck + 1; if(i > 6) i = 6; while(i--) (void) mkobj_at(GEM_CLASS, x, y, TRUE); if (Blind) You("kick something loose!"); else { You("kick loose some ornamental coins and gems!"); newsym(x, y); } /* prevent endless milking */ maploc->looted = T_LOOTED; return(1); } else if (!rn2(4)) { if(dunlev(&u.uz) < dunlevs_in_dungeon(&u.uz)) { fall_through(FALSE); return(1); } else goto ouch; } goto ouch; } if(IS_ALTAR(maploc->typ)) { if(Levitation) goto dumb; You("kick %s.",(Blind ? "something" : "the altar")); if(!rn2(3)) goto ouch; altar_wrath(x, y); exercise(A_DEX, TRUE); return(1); } #ifdef SINKS if(IS_SINK(maploc->typ)) { if(Levitation) goto dumb; if(rn2(5)) { if(flags.soundok) pline("Klunk! The pipes vibrate noisily."); else pline("Klunk!"); exercise(A_DEX, TRUE); return(1); } else if(!(maploc->looted & S_LPUDDING) && !rn2(3) && !(mons[PM_BLACK_PUDDING].geno & (G_GENOD | G_EXTINCT))) { if (Blind) You("hear a gushing sound."); else pline("A %s ooze gushes up from the drain!", Hallucination ? hcolor() : Black); (void) makemon(&mons[PM_BLACK_PUDDING], x, y); exercise(A_DEX, TRUE); newsym(x,y); maploc->looted |= S_LPUDDING; return(1); } else if(!(maploc->looted & S_LDWASHER) && !rn2(3) && # ifndef POLYSELF poly_gender() != 2 && # endif !(mons[poly_gender() == 1 ? PM_INCUBUS : PM_SUCCUBUS].geno & (G_GENOD | G_EXTINCT))) { /* can't resist... */ pline("%s returns!", (Blind ? "Something" : "The dish washer")); if (makemon(&mons[poly_gender() == 1 ? PM_INCUBUS : PM_SUCCUBUS], x, y)) newsym(x,y); maploc->looted |= S_LDWASHER; exercise(A_DEX, TRUE); return(1); } else if(!rn2(3)) { pline("Flupp! %s.", (Blind ? "You hear a sloshing sound" : "Muddy waste pops up from the drain")); if(!(maploc->looted & S_LRING)) { /* once per sink */ if (!Blind) You("see a ring shining in its midst."); (void) mkobj_at(RING_CLASS, x, y, TRUE); newsym(x, y); exercise(A_DEX, TRUE); exercise(A_WIS, TRUE); /* a discovery! */ maploc->looted |= S_LRING; } return(1); } goto ouch; } #endif if (maploc->typ == STAIRS || maploc->typ == LADDER || IS_STWALL(maploc->typ)) { if(!IS_STWALL(maploc->typ) && maploc->ladder == LA_DOWN) goto dumb; ouch: pline("Ouch! That hurts!"); exercise(A_DEX, FALSE); exercise(A_STR, FALSE); if (Blind) feel_location(x,y); /* we know we hit it */ if(!rn2(3)) set_wounded_legs(RIGHT_SIDE, 5 + rnd(5)); losehp(rnd(ACURR(A_CON) > 15 ? 3 : 5), kickstr(), KILLED_BY); if(Is_airlevel(&u.uz) || Levitation) hurtle(-u.dx, -u.dy, rn1(2,4)); /* assume it's heavy */ return(1); } if (is_drawbridge_wall(x,y) >= 0) { pline("The drawbridge is unaffected."); if(Levitation) hurtle(-u.dx, -u.dy, rn1(2,4)); /* it's heavy */ return(1); } goto dumb; } if(maploc->doormask == D_ISOPEN || maploc->doormask == D_BROKEN || maploc->doormask == D_NODOOR) { dumb: exercise(A_DEX, FALSE); if (martial() || ACURR(A_DEX) >= 16 || rn2(3)) { You("kick at empty space."); } 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) hurtle(-u.dx, -u.dy, rn2(2)); return(0); } /* not enough leverage to kick open doors while levitating */ if(Levitation) goto ouch; exercise(A_DEX, TRUE); /* door is known to be CLOSED or LOCKED */ if(rnl(35) < avrg_attrib + (!martial() ? 0 : ACURR(A_DEX))) { /* break the door */ if(maploc->doormask & D_TRAPPED) { pline("As you kick the door, it explodes!"); exercise(A_STR, FALSE); b_trapped("door"); maploc->doormask = D_NODOOR; } else if(ACURR(A_STR) > 18 && !rn2(5) && !*in_rooms(x, y, SHOPBASE)) { pline("As you kick the door, it shatters to pieces!"); exercise(A_STR, TRUE); maploc->doormask = D_NODOOR; } else { pline("As you kick the door, it crashes open!"); exercise(A_STR, TRUE); if(*in_rooms(x, y, SHOPBASE)) { add_damage(x, y, 400L); pay_for_damage("break"); } maploc->doormask = D_BROKEN; } if (Blind) feel_location(x,y); /* we know we broke it */ else newsym(x,y); unblock_point(x,y); /* vision */ } else { if (Blind) feel_location(x,y); /* we know we hit it */ exercise(A_STR, TRUE); pline("WHAMMM!!!"); } return(1); } static const char * gate_str(gate) register xchar gate; { const char *optr; switch(gate) { case 0: case 4: optr = "through the trap door."; break; case 1: case 3: optr = "down the stairs."; break; case 2: optr = "down the ladder."; break; default: optr = "down out of sight."; break; } return(optr); } static void drop_to(cc, loc) coord *cc; register xchar loc; { switch(loc) { case 0: if(In_endgame(&u.uz) || (Is_botlevel(&u.uz) && !Is_stronghold(&u.uz))) { cc->y = 0; return; } if(Is_stronghold(&u.uz)) { cc->x = valley_level.dnum; cc->y = valley_level.dlevel; break; } /* else fall to the next cases */ case 1: case 2: cc->x = u.uz.dnum; cc->y = u.uz.dlevel + 1; break; case 3: cc->x = sstairs.tolev.dnum; cc->y = sstairs.tolev.dlevel; break; default: cc->y = 0; } } void impact_drop(missile, x, y, dlev) register struct obj *missile; register xchar x, y, dlev; { xchar toloc; register struct obj *obj, *obj2; register struct monst *shkp; long oct, dct, price, debit, robbed; boolean angry, costly, isrock; coord cc; if(!OBJ_AT(x, y)) return; toloc = down_gate(x, y); drop_to(&cc, toloc); if (!cc.y) return; if (dlev) { /* send objects next to player falling through trap door. * checked in obj_delivery(). */ toloc = 4; cc.y = dlev; } costly = costly_spot(x, y); price = debit = robbed = 0L; angry = FALSE; shkp = (struct monst *) 0; /* if 'costly', we must keep a record of ESHK(shkp) before * it undergoes changes through the calls to stolen_value. * the angry bit must be reset, if needed, in this fn, since * stolen_value is called under the 'silent' flag to avoid * unsavory pline repetitions. */ if(costly) { if((shkp = shop_keeper(*in_rooms(x, y, SHOPBASE))) != (struct monst *)0) { debit = ESHK(shkp)->debit; robbed = ESHK(shkp)->robbed; angry = !shkp->mpeaceful; } } isrock = (missile && missile->otyp == ROCK); oct = dct = 0L; for(obj = level.objects[x][y]; obj; obj = obj2) { obj2 = obj->nexthere; if(obj == missile) continue; /* number of objects in the pile */ oct += obj->quan; /* boulders can fall too, but rarely & never due to rocks */ if((isrock && obj->otyp == BOULDER) || rn2(obj->otyp == BOULDER ? 30 : 3)) continue; freeobj(obj); if(costly) { price += stolen_value(obj, x, y, (costly_spot(u.ux, u.uy) && index(u.urooms, *in_rooms(x, y, SHOPBASE))), TRUE); /* set obj->no_charge to 0 */ if(Is_container(obj)) picked_container(obj); /* does the right thing */ if(obj->otyp != GOLD_PIECE) obj->no_charge = 0; } obj->nobj = migrating_objs; migrating_objs = obj; obj->ox = cc.x; obj->oy = cc.y; obj->owornmask = (long)toloc; /* number of fallen objects */ dct += obj->quan; } if (dct) { /* at least one object fell */ const char *what = (dct == 1L ? "object falls" : "objects fall"); if (missile) pline("From the impact, %sother %s.", dct == oct ? "the " : dct == 1L ? "an" : "", what); else pline("%s adjacent %s %s", oct == dct ? (dct > 1L ? "All the" : "The") : (dct == 1L ? "One of the" : "Some of the"), what, gate_str(toloc)); } if(costly && shkp && price) { if(ESHK(shkp)->robbed > robbed) { You("removed %ld zorkmids worth of goods!", price); if(cansee(shkp->mx, shkp->my)) { if(ESHK(shkp)->customer[0] == 0) (void) strncpy(ESHK(shkp)->customer, plname, PL_NSIZ); if(angry) pline("%s is infuriated!", Monnam(shkp)); else pline("\"%s, you are a thief!\"", plname); } else You("hear a scream, \"Thief!\""); hot_pursuit(shkp); (void) angry_guards(FALSE); return; } if(ESHK(shkp)->debit > debit) You("owe %s %ld zorkmids for goods lost.", Monnam(shkp), (ESHK(shkp)->debit - debit)); } } /* NOTE: ship_object assumes otmp was FREED from fobj or invent. * is the point of drop. otmp is _not_ an resident: * otmp is either a kicked, dropped, or thrown object. */ boolean ship_object(otmp, x, y, shop_floor_obj) register xchar x, y; register struct obj *otmp; register boolean shop_floor_obj; { register xchar ox, oy; register xchar toloc = down_gate(x, y); /* toloc -- destination location: */ /* 0: rnd loc, * 1: <, * 2: < ladder, * 3: sstairs up * 4: near player (trapdoor) */ coord cc; /* objects always fall down ladder, a chance of stay otherwise */ register boolean nodrop = (toloc != 2 && rn2(3)); register boolean unpaid, container, impact = FALSE; int n = 0; if(!otmp) return(FALSE); if(toloc == -1) return(FALSE); drop_to(&cc, toloc); if(!cc.y) return(FALSE); container = Is_container(otmp); unpaid = (otmp->unpaid || (container && count_unpaid(otmp->cobj))); if(OBJ_AT(x, y)) { register struct obj *obj; for(obj = level.objects[x][y]; obj; obj = obj->nexthere) if(obj != otmp) n++; if(n) impact = TRUE; } otransit_msg(otmp, toloc, nodrop, n); if(nodrop) { otmp->nobj = fobj; fobj = otmp; place_object(otmp, x, y); stackobj(otmp); newsym(otmp->ox, otmp->oy); if(impact) goto chain_reaction; else return(TRUE); } if(unpaid || shop_floor_obj) { if(unpaid) { subfrombill(otmp, shop_keeper(*u.ushops)); (void)stolen_value(otmp, u.ux, u.uy, TRUE, FALSE); } else { ox = otmp->ox; oy = otmp->oy; (void)stolen_value(otmp, ox, oy, (costly_spot(u.ux, u.uy) && index(u.urooms, *in_rooms(ox, oy, SHOPBASE))), FALSE); } /* set otmp->no_charge to 0 */ if(container) picked_container(otmp); /* happens to do the right thing */ if(otmp->otyp != GOLD_PIECE) otmp->no_charge = 0; } otmp->nobj = migrating_objs; migrating_objs = otmp; otmp->ox = cc.x; otmp->oy = cc.y; otmp->owornmask = (long)toloc; chain_reaction: if(impact) { /* the objs impacted may be in a shop other than * the one in which the hero is located. another * check for a shk is made in impact_drop. it is, e.g., * possible to kick/throw an object belonging to one * shop into another shop through a gap in the wall, * and cause objects belonging to the other shop to * fall down a trapdoor--thereby getting two shopkeepers * angry at the hero in one shot. */ impact_drop(otmp, x, y, 0); newsym(x,y); } return(TRUE); } void obj_delivery() { register struct obj *otmp, *otmp0 = (struct obj *)0, *otmp2; for(otmp = migrating_objs; otmp; otmp = otmp2) { otmp2 = otmp->nobj; if(otmp->ox == u.uz.dnum && otmp->oy == u.uz.dlevel) { if(otmp == migrating_objs) migrating_objs = otmp->nobj; else otmp0->nobj = otmp->nobj; otmp->nobj = fobj; fobj = otmp; switch((xchar)otmp->owornmask) { xchar *xlocale, *ylocale; case 1: xlocale = &xupstair; ylocale = &yupstair; goto common; case 2: xlocale = &xupladder; ylocale = &yupladder; goto common; case 3: xlocale = &sstairs.sx; ylocale = &sstairs.sy; goto common; case 4: { /* hero falls down trapdoor with objects */ xchar nx, ny; int cnt = 0; do { nx = u.ux - 1 + rn2(3); ny = u.uy - 1 + rn2(3); } while((nx < 1 || nx > COLNO-2 || ny < 1 || ny > ROWNO-2 || is_pool(nx,ny) || is_lava(nx,ny) || !ACCESSIBLE(levl[nx][ny].typ) || closed_door(nx, ny) ) && cnt++ <= 50); if(cnt >= 50) goto scatter; /* safety */ xlocale = &nx; ylocale = &ny; } common: if (*xlocale && *ylocale) { place_object(otmp, *xlocale, *ylocale); stackobj(otmp); break; } /* else fall through */ default: scatter: rloco(otmp); break; } otmp->owornmask = 0L; } else otmp0 = otmp; } } static void otransit_msg(otmp, loc, nodrop, num) register struct obj *otmp; register xchar loc; register boolean nodrop; int num; { char obuf[BUFSZ]; Sprintf(obuf, "%s%s", (otmp->otyp == CORPSE && type_is_pname(&mons[otmp->corpsenm])) ? "" : "The ", xname(otmp)); if(num) { /* means: other objects are impacted */ Sprintf(eos(obuf), " hit%s %s object%s", otmp->quan == 1L ? "s" : "", num == 1 ? "another" : "other", num > 1 ? "s" : ""); if(nodrop) Sprintf(eos(obuf), " and stop%s.", otmp->quan == 1L ? "s" : ""); else Sprintf(eos(obuf), " and fall%s %s", otmp->quan == 1L ? "s" : "", gate_str(loc)); pline(obuf); } else if(!nodrop) pline("%s fall%s %s", obuf, otmp->quan == 1L ? "s" : "", gate_str(loc)); } xchar down_gate(x, y) xchar x, y; { register struct trap *ttmp = t_at(x, y); if(ttmp && ttmp->ttyp == TRAPDOOR && ttmp->tseen) return 0; if(xdnstair == x && ydnstair == y) return 1; if(xdnladder == x && ydnladder == y) return 2; if(sstairs.sx == x && sstairs.sy == y && !sstairs.up) return 3; return -1; } /*dokick.c*/