Annotation of early-roguelike/xrogue/encumb.c, Revision 1.1
1.1 ! rubenllo 1: /*
! 2: encumb.c - Stuff to do with encumberance
! 3:
! 4: XRogue: Expeditions into the Dungeons of Doom
! 5: Copyright (C) 1991 Robert Pietkivitch
! 6: All rights reserved.
! 7:
! 8: Based on "Advanced Rogue"
! 9: Copyright (C) 1984, 1985 Michael Morgan, Ken Dalka and AT&T
! 10: All rights reserved.
! 11:
! 12: See the file LICENSE.TXT for full copyright and licensing information.
! 13: */
! 14:
! 15: #include <curses.h>
! 16: #include "rogue.h"
! 17:
! 18: int packweight(struct thing *tp);
! 19:
! 20: /*
! 21: * updpack:
! 22: * Update his pack weight and adjust fooduse accordingly
! 23: */
! 24:
! 25: void
! 26: updpack(int getmax, struct thing *tp)
! 27: {
! 28:
! 29: reg int topcarry, curcarry;
! 30:
! 31: if (getmax)
! 32: tp->t_stats.s_carry = totalenc(tp); /* get total encumb */
! 33: curcarry = packweight(tp); /* get pack weight */
! 34:
! 35: /* Only update food use for the player (for now) */
! 36: if (tp == &player) {
! 37: topcarry = tp->t_stats.s_carry / 5; /* 20% of total carry */
! 38: if(curcarry > 4 * topcarry) {
! 39: if(rnd(100) < 80)
! 40: foodlev = 3; /* > 80% of pack */
! 41: } else if(curcarry > 3 * topcarry) {
! 42: if(rnd(100) < 60)
! 43: foodlev = 2; /* > 60% of pack */
! 44: } else
! 45: foodlev = 1; /* <= 60% of pack */
! 46: }
! 47: tp->t_stats.s_pack = curcarry; /* update pack weight */
! 48: }
! 49:
! 50:
! 51: /*
! 52: * packweight:
! 53: * Get the total weight of the hero's pack
! 54: */
! 55:
! 56: int
! 57: packweight(struct thing *tp)
! 58: {
! 59: reg struct object *obj;
! 60: reg struct linked_list *pc;
! 61: reg int weight;
! 62:
! 63: weight = 0;
! 64: for (pc = tp->t_pack ; pc != NULL ; pc = next(pc)) {
! 65: obj = OBJPTR(pc);
! 66: weight += itemweight(obj);
! 67: }
! 68: if (weight < 0) /* in case of amulet */
! 69: weight = 0;
! 70:
! 71: /* If this is the player, is he wearing a ring of carrying? */
! 72: if (tp == &player && ISWEARING(R_CARRY)) {
! 73: register int temp, i;
! 74:
! 75: temp = 0;
! 76: for (i=0; i<NUM_FINGERS; i++) {
! 77: if (cur_ring[i] != NULL && cur_ring[i]->o_which == R_CARRY) {
! 78: if (cur_ring[i]->o_flags & ISCURSED) temp--;
! 79: else temp += 2;
! 80: }
! 81: }
! 82: weight -= (temp * weight) / 4;
! 83: }
! 84:
! 85: return(weight);
! 86: }
! 87:
! 88: /*
! 89: * itemweight:
! 90: * Get the weight of an object
! 91: */
! 92:
! 93: int
! 94: itemweight(struct object *wh)
! 95: {
! 96: reg int weight;
! 97: reg int ac;
! 98:
! 99: weight = wh->o_weight; /* get base weight */
! 100: switch(wh->o_type) {
! 101: case ARMOR:
! 102: /*
! 103: * subtract 10% for each enchantment
! 104: * this will add weight for negative items
! 105: */
! 106: ac = armors[wh->o_which].a_class - wh->o_ac;
! 107: weight = ((weight*10) - (weight*ac)) / 10;
! 108: if (weight < 0) weight = 0;
! 109: when WEAPON:
! 110: if ((wh->o_hplus + wh->o_dplus) > 0)
! 111: weight /= 2;
! 112: }
! 113: if(wh->o_flags & ISCURSED)
! 114: weight += weight / 5; /* 20% more for cursed */
! 115: weight *= wh->o_count;
! 116: return(weight);
! 117: }
! 118:
! 119: /*
! 120: * playenc:
! 121: * Get hero's carrying ability above norm
! 122: */
! 123:
! 124: int
! 125: playenc(struct thing *tp)
! 126: {
! 127: register int strength;
! 128:
! 129: if (tp == &player) strength = str_compute();
! 130: else strength = tp->t_stats.s_str;
! 131:
! 132: return ((strength-8)*50);
! 133: }
! 134:
! 135: /*
! 136: * totalenc:
! 137: * Get total weight that the hero can carry
! 138: */
! 139:
! 140: int
! 141: totalenc(struct thing *tp)
! 142: {
! 143: reg int wtotal;
! 144:
! 145: wtotal = NORMENCB + playenc(tp);
! 146: if (tp == &player) switch(hungry_state) {
! 147: case F_SATIATED:
! 148: case F_OKAY:
! 149: case F_HUNGRY: ; /* no change */
! 150: when F_WEAK: wtotal -= wtotal / 10; /* 10% off weak */
! 151: when F_FAINT: wtotal /= 2; /* 50% off faint */
! 152: }
! 153: return(wtotal);
! 154: }
! 155:
! 156: /*
! 157: * whgtchk:
! 158: * See if the hero can carry his pack
! 159: */
! 160:
! 161: void
! 162: wghtchk(void)
! 163: {
! 164: reg int dropchk, err = TRUE;
! 165: reg char ch;
! 166:
! 167: inwhgt = TRUE;
! 168: if (pstats.s_pack > pstats.s_carry) {
! 169: ch = mvwinch(stdscr, hero.y, hero.x);
! 170: if((ch != FLOOR && ch != PASSAGE)) {
! 171: extinguish(wghtchk);
! 172: fuse(wghtchk, NULL, 1, AFTER);
! 173: inwhgt = FALSE;
! 174: return;
! 175: }
! 176: extinguish(wghtchk);
! 177: msg("Your pack is far too heavy for you.. ");
! 178: do {
! 179: dropchk = drop((struct linked_list *)NULL);
! 180: if(dropchk == 0) {
! 181: mpos = 0;
! 182: msg("You must drop something");
! 183: }
! 184: if(dropchk == TRUE)
! 185: err = FALSE;
! 186: } while(err);
! 187: }
! 188: inwhgt = FALSE;
! 189: }
! 190:
! 191: /*
! 192: * hitweight:
! 193: * Gets the fighting ability according to current weight
! 194: * This returns a +1 hit for light pack weight
! 195: * 0 hit for medium pack weight
! 196: * -1 hit for heavy pack weight
! 197: */
! 198:
! 199: int
! 200: hitweight(void)
! 201: {
! 202: return(2 - foodlev);
! 203: }
! 204:
CVSweb