Return to hack.wield.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack

Annotation of 43BSDTahoe/games/hack/hack.wield.c, revision 1.1

1.1     ! root        1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
        !             2: /* hack.wield.c - version 1.0.3 */
        !             3: 
        !             4: #include       "hack.h"
        !             5: extern struct obj zeroobj;
        !             6: 
        !             7: setuwep(obj) register struct obj *obj; {
        !             8:        setworn(obj, W_WEP);
        !             9: }
        !            10: 
        !            11: dowield()
        !            12: {
        !            13:        register struct obj *wep;
        !            14:        register int res = 0;
        !            15: 
        !            16:        multi = 0;
        !            17:        if(!(wep = getobj("#-)", "wield"))) /* nothing */;
        !            18:        else if(uwep == wep)
        !            19:                pline("You are already wielding that!");
        !            20:        else if(uwep && uwep->cursed)
        !            21:                pline("The %s welded to your hand!",
        !            22:                        aobjnam(uwep, "are"));
        !            23:        else if(wep == &zeroobj) {
        !            24:                if(uwep == 0){
        !            25:                        pline("You are already empty handed.");
        !            26:                } else {
        !            27:                        setuwep((struct obj *) 0);
        !            28:                        res++;
        !            29:                        pline("You are empty handed.");
        !            30:                }
        !            31:        } else if(uarms && wep->otyp == TWO_HANDED_SWORD)
        !            32:        pline("You cannot wield a two-handed sword and wear a shield.");
        !            33:        else if(wep->owornmask & (W_ARMOR | W_RING))
        !            34:                pline("You cannot wield that!");
        !            35:        else {
        !            36:                setuwep(wep);
        !            37:                res++;
        !            38:                if(uwep->cursed)
        !            39:                    pline("The %s %s to your hand!",
        !            40:                        aobjnam(uwep, "weld"),
        !            41:                        (uwep->quan == 1) ? "itself" : "themselves"); /* a3 */
        !            42:                else prinv(uwep);
        !            43:        }
        !            44:        return(res);
        !            45: }
        !            46: 
        !            47: corrode_weapon(){
        !            48:        if(!uwep || uwep->olet != WEAPON_SYM) return;   /* %% */
        !            49:        if(uwep->rustfree)
        !            50:                pline("Your %s not affected.", aobjnam(uwep, "are"));
        !            51:        else {
        !            52:                pline("Your %s!", aobjnam(uwep, "corrode"));
        !            53:                uwep->spe--;
        !            54:        }
        !            55: }
        !            56: 
        !            57: chwepon(otmp,amount)
        !            58: register struct obj *otmp;
        !            59: register amount;
        !            60: {
        !            61: register char *color = (amount < 0) ? "black" : "green";
        !            62: register char *time;
        !            63:        if(!uwep || uwep->olet != WEAPON_SYM) {
        !            64:                strange_feeling(otmp,
        !            65:                        (amount > 0) ? "Your hands twitch."
        !            66:                                     : "Your hands itch.");
        !            67:                return(0);
        !            68:        }
        !            69: 
        !            70:        if(uwep->otyp == WORM_TOOTH && amount > 0) {
        !            71:                uwep->otyp = CRYSKNIFE;
        !            72:                pline("Your weapon seems sharper now.");
        !            73:                uwep->cursed = 0;
        !            74:                return(1);
        !            75:        }
        !            76: 
        !            77:        if(uwep->otyp == CRYSKNIFE && amount < 0) {
        !            78:                uwep->otyp = WORM_TOOTH;
        !            79:                pline("Your weapon looks duller now.");
        !            80:                return(1);
        !            81:        }
        !            82: 
        !            83:        /* there is a (soft) upper limit to uwep->spe */
        !            84:        if(amount > 0 && uwep->spe > 5 && rn2(3)) {
        !            85:            pline("Your %s violently green for a while and then evaporate%s.",
        !            86:                aobjnam(uwep, "glow"), plur(uwep->quan));
        !            87:            while(uwep)         /* let all of them disappear */
        !            88:                                /* note: uwep->quan = 1 is nogood if unpaid */
        !            89:                useup(uwep);
        !            90:            return(1);
        !            91:        }
        !            92:        if(!rn2(6)) amount *= 2;
        !            93:        time = (amount*amount == 1) ? "moment" : "while";
        !            94:        pline("Your %s %s for a %s.",
        !            95:                aobjnam(uwep, "glow"), color, time);
        !            96:        uwep->spe += amount;
        !            97:        if(amount > 0) uwep->cursed = 0;
        !            98:        return(1);
        !            99: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.