Return to hack.worn.c CVS log

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

Annotation of 43BSDReno/games/hack/hack.worn.c, revision 1.1.1.1

1.1       root        1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
                      2: /* hack.worn.c - version 1.0.2 */
                      3: 
                      4: #include "hack.h"
                      5: 
                      6: struct worn {
                      7:        long w_mask;
                      8:        struct obj **w_obj;
                      9: } worn[] = {
                     10:        { W_ARM, &uarm },
                     11:        { W_ARM2, &uarm2 },
                     12:        { W_ARMH, &uarmh },
                     13:        { W_ARMS, &uarms },
                     14:        { W_ARMG, &uarmg },
                     15:        { W_RINGL, &uleft },
                     16:        { W_RINGR, &uright },
                     17:        { W_WEP, &uwep },
                     18:        { W_BALL, &uball },
                     19:        { W_CHAIN, &uchain },
                     20:        { 0, 0 }
                     21: };
                     22: 
                     23: setworn(obj, mask)
                     24: register struct obj *obj;
                     25: long mask;
                     26: {
                     27:        register struct worn *wp;
                     28:        register struct obj *oobj;
                     29: 
                     30:        for(wp = worn; wp->w_mask; wp++) if(wp->w_mask & mask) {
                     31:                oobj = *(wp->w_obj);
                     32:                if(oobj && !(oobj->owornmask & wp->w_mask))
                     33:                        impossible("Setworn: mask = %ld.", wp->w_mask);
                     34:                if(oobj) oobj->owornmask &= ~wp->w_mask;
                     35:                if(obj && oobj && wp->w_mask == W_ARM){
                     36:                        if(uarm2) {
                     37:                                impossible("Setworn: uarm2 set?");
                     38:                        } else
                     39:                                setworn(uarm, W_ARM2);
                     40:                }
                     41:                *(wp->w_obj) = obj;
                     42:                if(obj) obj->owornmask |= wp->w_mask;
                     43:        }
                     44:        if(uarm2 && !uarm) {
                     45:                uarm = uarm2;
                     46:                uarm2 = 0;
                     47:                uarm->owornmask ^= (W_ARM | W_ARM2);
                     48:        }
                     49: }
                     50: 
                     51: /* called e.g. when obj is destroyed */
                     52: setnotworn(obj) register struct obj *obj; {
                     53:        register struct worn *wp;
                     54: 
                     55:        for(wp = worn; wp->w_mask; wp++)
                     56:                if(obj == *(wp->w_obj)) {
                     57:                        *(wp->w_obj) = 0;
                     58:                        obj->owornmask &= ~wp->w_mask;
                     59:                }
                     60:        if(uarm2 && !uarm) {
                     61:                uarm = uarm2;
                     62:                uarm2 = 0;
                     63:                uarm->owornmask ^= (W_ARM | W_ARM2);
                     64:        }
                     65: }

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