Function dofire

src/dothrow.c:468–586

the #fire command -- throw from the quiver or use wielded polearm */

/* the #fire command -- throw from the quiver or use wielded polearm */
int
dofire(void)
{
    int shotlimit;
    struct obj *obj;
    /* AutoReturn() verifies Valkyrie if weapon is Mjollnir, but it relies
       on its caller to make sure hero is strong enough to throw that */
    boolean uwep_Throw_and_Return = (uwep && AutoReturn(uwep, uwep->owornmask)
                                     && (uwep->oartifact != ART_MJOLLNIR
                                         || ACURR(A_STR) >= STR19(25))),
            skip_fireassist = FALSE;
    int altres, res = ECMD_OK;

    /*
     * Same as dothrow(), except we use quivered missile instead
     * of asking what to throw/shoot.  [Note: with the advent of
     * fireassist that is no longer accurate...]
     *
     * If hero is wielding a thrown-and-return weapon and quiver
     * is empty or contains ammo, use the wielded weapon (won't
     * have any ammo's launcher wielded due to the weapon).
     * If quiver is empty, use autoquiver to fill it when the
     * corresponding option is on.
     * If option is off or autoquiver doesn't select anything,
     * we ask what to throw.
     * Then we put the chosen item into the quiver slot unless
     * it is already in another slot.  [Matters most if it is a
     * stack but also matters for single item if this throw gets
     * aborted (ESC at the direction prompt).]
     */
    if (!ok_to_throw(&shotlimit))
        return ECMD_OK;

    obj = uquiver;
    /* if wielding a throw-and-return weapon, throw it if quiver is empty
       or has ammo rather than missiles [since the throw/return weapon is
       wielded, the ammo's launcher isn't; the ammo-only policy avoids
       throwing Mjollnir if quiver contains daggers] */
    if (uwep_Throw_and_Return && (!obj || is_ammo(obj))) {
        obj = uwep;
        skip_fireassist = TRUE;

    } else if (!obj) {
        if (!flags.autoquiver) {
            /* if we're wielding a polearm, apply it */
            if (uwep && is_pole(uwep)) {
                return use_pole(uwep, TRUE);
            /* if we're wielding a bullwhip, apply it */
            } else if (uwep && uwep->otyp == BULLWHIP) {
                return use_whip(uwep);
            } else if (iflags.fireassist
                       && uswapwep && is_pole(uswapwep)
                       && !(uswapwep->cursed && uswapwep->bknown)) {
                /* we have a known not-cursed polearm as swap weapon.
                   swap to it and retry */
                cmdq_add_ec(CQ_CANNED, doswapweapon);
                cmdq_add_ec(CQ_CANNED, dofire);
                return ECMD_OK; /* haven't taken any time yet */