![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to global.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / games / larn|
Return to global.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / larn |
1.1 ! root 1: /* global.c Larn is copyrighted 1986 by Noah Morgan. ! 2: * ! 3: * raiselevel() subroutine to raise the player one level ! 4: * loselevel() subroutine to lower the player by one level ! 5: * raiseexperience(x) subroutine to increase experience points ! 6: * loseexperience(x) subroutine to lose experience points ! 7: * losehp(x) subroutine to remove hit points from the player ! 8: * losemhp(x) subroutine to remove max # hit points from the player ! 9: * raisehp(x) subroutine to gain hit points ! 10: * raisemhp(x) subroutine to gain maximum hit points ! 11: * losespells(x) subroutine to lose spells ! 12: * losemspells(x) subroutine to lose maximum spells ! 13: * raisespells(x) subroutine to gain spells ! 14: * raisemspells(x) subroutine to gain maximum spells ! 15: * recalc() function to recalculate the armor class of the player ! 16: * makemonst(lev) function to return monster number for a randomly selected monster ! 17: * positionplayer() function to be sure player is not in a wall ! 18: * quit() subroutine to ask if the player really wants to quit ! 19: */ ! 20: ! 21: #include "header.h" ! 22: extern int score[],srcount,dropflag; ! 23: extern int random;/* the random number seed */ ! 24: extern short playerx,playery,lastnum; ! 25: extern char cheat,level,monstnamelist[]; ! 26: extern char lastmonst[],*what[],*who[]; ! 27: extern char winner[]; ! 28: extern char logname[],monstlevel[]; ! 29: extern char sciv[SCORESIZE+1][26][2],*potionname[],*scrollname[]; ! 30: /* ! 31: *********** ! 32: RAISE LEVEL ! 33: *********** ! 34: raiselevel() ! 35: ! 36: subroutine to raise the player one level ! 37: uses the skill[] array to find level boundarys ! 38: uses c[EXPERIENCE] c[LEVEL] ! 39: */ ! 40: raiselevel() ! 41: { ! 42: if (c[LEVEL] < MAXPLEVEL) raiseexperience((long)(skill[c[LEVEL]]-c[EXPERIENCE])); ! 43: } ! 44: ! 45: /* ! 46: *********** ! 47: LOOSE LEVEL ! 48: *********** ! 49: loselevel() ! 50: ! 51: subroutine to lower the players character level by one ! 52: */ ! 53: loselevel() ! 54: { ! 55: if (c[LEVEL] > 1) loseexperience((long)(c[EXPERIENCE] - skill[c[LEVEL]-1] + 1)); ! 56: } ! 57: ! 58: /* ! 59: **************** ! 60: RAISE EXPERIENCE ! 61: **************** ! 62: raiseexperience(x) ! 63: ! 64: subroutine to increase experience points ! 65: */ ! 66: raiseexperience(x) ! 67: register long x; ! 68: { ! 69: register int i,tmp; ! 70: i=c[LEVEL]; c[EXPERIENCE]+=x; ! 71: while (c[EXPERIENCE] >= skill[c[LEVEL]] && (c[LEVEL] < MAXPLEVEL)) ! 72: { ! 73: tmp = (c[CONSTITUTION]-c[HARDGAME])>>1; ! 74: c[LEVEL]++; raisemhp((int)(rnd(3)+rnd((tmp>0)?tmp:1))); ! 75: raisemspells((int)rund(3)); ! 76: if (c[LEVEL] < 7-c[HARDGAME]) raisemhp((int)(c[CONSTITUTION]>>2)); ! 77: } ! 78: if (c[LEVEL] != i) ! 79: { ! 80: cursors(); ! 81: beep(); lprintf("\nWelcome to level %d",(long)c[LEVEL]); /* if we changed levels */ ! 82: } ! 83: bottomline(); ! 84: } ! 85: ! 86: /* ! 87: **************** ! 88: LOOSE EXPERIENCE ! 89: **************** ! 90: loseexperience(x) ! 91: ! 92: subroutine to lose experience points ! 93: */ ! 94: loseexperience(x) ! 95: register long x; ! 96: { ! 97: register int i,tmp; ! 98: i=c[LEVEL]; c[EXPERIENCE]-=x; ! 99: if (c[EXPERIENCE] < 0) c[EXPERIENCE]=0; ! 100: while (c[EXPERIENCE] < skill[c[LEVEL]-1]) ! 101: { ! 102: if (--c[LEVEL] <= 1) c[LEVEL]=1; /* down one level */ ! 103: tmp = (c[CONSTITUTION]-c[HARDGAME])>>1; /* lose hpoints */ ! 104: losemhp((int)rnd((tmp>0)?tmp:1)); /* lose hpoints */ ! 105: if (c[LEVEL] < 7-c[HARDGAME]) losemhp((int)(c[CONSTITUTION]>>2)); ! 106: losemspells((int)rund(3)); /* lose spells */ ! 107: } ! 108: if (i!=c[LEVEL]) ! 109: { ! 110: cursors(); ! 111: beep(); lprintf("\nYou went down to level %d!",(long)c[LEVEL]); ! 112: } ! 113: bottomline(); ! 114: } ! 115: ! 116: /* ! 117: ******** ! 118: LOOSE HP ! 119: ******** ! 120: losehp(x) ! 121: losemhp(x) ! 122: ! 123: subroutine to remove hit points from the player ! 124: warning -- will kill player if hp goes to zero ! 125: */ ! 126: losehp(x) ! 127: register int x; ! 128: { ! 129: if ((c[HP] -= x) <= 0) ! 130: { ! 131: beep(); lprcat("\n"); nap(3000); died(lastnum); ! 132: } ! 133: } ! 134: ! 135: losemhp(x) ! 136: register int x; ! 137: { ! 138: c[HP] -= x; if (c[HP] < 1) c[HP]=1; ! 139: c[HPMAX] -= x; if (c[HPMAX] < 1) c[HPMAX]=1; ! 140: } ! 141: ! 142: /* ! 143: ******** ! 144: RAISE HP ! 145: ******** ! 146: raisehp(x) ! 147: raisemhp(x) ! 148: ! 149: subroutine to gain maximum hit points ! 150: */ ! 151: raisehp(x) ! 152: register int x; ! 153: { ! 154: if ((c[HP] += x) > c[HPMAX]) c[HP] = c[HPMAX]; ! 155: } ! 156: ! 157: raisemhp(x) ! 158: register int x; ! 159: { ! 160: c[HPMAX] += x; c[HP] += x; ! 161: } ! 162: ! 163: /* ! 164: ************ ! 165: RAISE SPELLS ! 166: ************ ! 167: raisespells(x) ! 168: raisemspells(x) ! 169: ! 170: subroutine to gain maximum spells ! 171: */ ! 172: raisespells(x) ! 173: register int x; ! 174: { ! 175: if ((c[SPELLS] += x) > c[SPELLMAX]) c[SPELLS] = c[SPELLMAX]; ! 176: } ! 177: ! 178: raisemspells(x) ! 179: register int x; ! 180: { ! 181: c[SPELLMAX]+=x; c[SPELLS]+=x; ! 182: } ! 183: ! 184: /* ! 185: ************ ! 186: LOOSE SPELLS ! 187: ************ ! 188: losespells(x) ! 189: losemspells(x) ! 190: ! 191: subroutine to lose maximum spells ! 192: */ ! 193: losespells(x) ! 194: register int x; ! 195: { ! 196: if ((c[SPELLS] -= x) < 0) c[SPELLS]=0; ! 197: } ! 198: ! 199: losemspells(x) ! 200: register int x; ! 201: { ! 202: if ((c[SPELLMAX] -= x) < 0) c[SPELLMAX]=0; ! 203: if ((c[SPELLS] -= x) < 0) c[SPELLS]=0; ! 204: } ! 205: ! 206: /* ! 207: makemonst(lev) ! 208: int lev; ! 209: ! 210: function to return monster number for a randomly selected monster ! 211: for the given cave level ! 212: */ ! 213: makemonst(lev) ! 214: register int lev; ! 215: { ! 216: register int tmp,x; ! 217: if (lev < 1) lev = 1; if (lev > 12) lev = 12; ! 218: tmp=WATERLORD; ! 219: if (lev < 5) ! 220: while (tmp==WATERLORD) tmp=rnd((x=monstlevel[lev-1])?x:1); ! 221: else while (tmp==WATERLORD) ! 222: tmp=rnd((x=monstlevel[lev-1]-monstlevel[lev-4])?x:1)+monstlevel[lev-4]; ! 223: ! 224: while (monster[tmp].genocided && tmp<MAXMONST) tmp++; /* genocided? */ ! 225: return(tmp); ! 226: } ! 227: ! 228: /* ! 229: positionplayer() ! 230: ! 231: function to be sure player is not in a wall ! 232: */ ! 233: positionplayer() ! 234: { ! 235: int try; ! 236: try = 2; ! 237: while ((item[playerx][playery] || mitem[playerx][playery]) && (try)) ! 238: if (++playerx >= MAXX-1) ! 239: { ! 240: playerx = 1; ! 241: if (++playery >= MAXY-1) ! 242: { playery = 1; --try; } ! 243: } ! 244: if (try==0) lprcat("Failure in positionplayer\n"); ! 245: } ! 246: ! 247: /* ! 248: recalc() function to recalculate the armor class of the player ! 249: */ ! 250: recalc() ! 251: { ! 252: register int i,j,k; ! 253: c[AC] = c[MOREDEFENSES]; ! 254: if (c[WEAR] >= 0) ! 255: switch(iven[c[WEAR]]) ! 256: { ! 257: case OSHIELD: c[AC] += 2 + ivenarg[c[WEAR]]; break; ! 258: case OLEATHER: c[AC] += 2 + ivenarg[c[WEAR]]; break; ! 259: case OSTUDLEATHER: c[AC] += 3 + ivenarg[c[WEAR]]; break; ! 260: case ORING: c[AC] += 5 + ivenarg[c[WEAR]]; break; ! 261: case OCHAIN: c[AC] += 6 + ivenarg[c[WEAR]]; break; ! 262: case OSPLINT: c[AC] += 7 + ivenarg[c[WEAR]]; break; ! 263: case OPLATE: c[AC] += 9 + ivenarg[c[WEAR]]; break; ! 264: case OPLATEARMOR: c[AC] += 10 + ivenarg[c[WEAR]]; break; ! 265: case OSSPLATE: c[AC] += 12 + ivenarg[c[WEAR]]; break; ! 266: } ! 267: ! 268: if (c[SHIELD] >= 0) if (iven[c[SHIELD]] == OSHIELD) c[AC] += 2 + ivenarg[c[SHIELD]]; ! 269: if (c[WIELD] < 0) c[WCLASS] = 0; else ! 270: { ! 271: i = ivenarg[c[WIELD]]; ! 272: switch(iven[c[WIELD]]) ! 273: { ! 274: case ODAGGER: c[WCLASS] = 3 + i; break; ! 275: case OBELT: c[WCLASS] = 7 + i; break; ! 276: case OSHIELD: c[WCLASS] = 8 + i; break; ! 277: case OSPEAR: c[WCLASS] = 10 + i; break; ! 278: case OFLAIL: c[WCLASS] = 14 + i; break; ! 279: case OBATTLEAXE: c[WCLASS] = 17 + i; break; ! 280: case OLANCE: c[WCLASS] = 19 + i; break; ! 281: case OLONGSWORD: c[WCLASS] = 22 + i; break; ! 282: case O2SWORD: c[WCLASS] = 26 + i; break; ! 283: case OSWORD: c[WCLASS] = 32 + i; break; ! 284: case OSWORDofSLASHING: c[WCLASS] = 30 + i; break; ! 285: case OHAMMER: c[WCLASS] = 35 + i; break; ! 286: default: c[WCLASS] = 0; ! 287: } ! 288: } ! 289: c[WCLASS] += c[MOREDAM]; ! 290: ! 291: /* now for regeneration abilities based on rings */ ! 292: c[REGEN]=1; c[ENERGY]=0; ! 293: j=0; for (k=25; k>0; k--) if (iven[k]) {j=k; k=0; } ! 294: for (i=0; i<=j; i++) ! 295: { ! 296: switch(iven[i]) ! 297: { ! 298: case OPROTRING: c[AC] += ivenarg[i] + 1; break; ! 299: case ODAMRING: c[WCLASS] += ivenarg[i] + 1; break; ! 300: case OBELT: c[WCLASS] += ((ivenarg[i]<<1)) + 2; break; ! 301: ! 302: case OREGENRING: c[REGEN] += ivenarg[i] + 1; break; ! 303: case ORINGOFEXTRA: c[REGEN] += 5 * (ivenarg[i]+1); break; ! 304: case OENERGYRING: c[ENERGY] += ivenarg[i] + 1; break; ! 305: } ! 306: } ! 307: } ! 308: ! 309: ! 310: /* ! 311: quit() ! 312: ! 313: subroutine to ask if the player really wants to quit ! 314: */ ! 315: quit() ! 316: { ! 317: register int i; ! 318: cursors(); strcpy(lastmonst,""); ! 319: lprcat("\n\nDo you really want to quit?"); ! 320: while (1) ! 321: { ! 322: i=getchar(); ! 323: if (i == 'y') { died(300); return; } ! 324: if ((i == 'n') || (i == '\33')) { lprcat(" no"); lflush(); return; } ! 325: lprcat("\n"); setbold(); lprcat("Yes"); resetbold(); lprcat(" or "); ! 326: setbold(); lprcat("No"); resetbold(); lprcat(" please? Do you want to quit? "); ! 327: } ! 328: } ! 329: ! 330: /* ! 331: function to ask --more-- then the user must enter a space ! 332: */ ! 333: more() ! 334: { ! 335: lprcat("\n --- press "); standout("space"); lprcat(" to continue --- "); ! 336: while (getchar() != ' '); ! 337: } ! 338: ! 339: /* ! 340: function to put something in the players inventory ! 341: returns 0 if success, 1 if a failure ! 342: */ ! 343: take(itm,arg) ! 344: int itm,arg; ! 345: { ! 346: register int i,limit; ! 347: /* cursors(); */ ! 348: if ((limit = 15+(c[LEVEL]>>1)) > 26) limit=26; ! 349: for (i=0; i<limit; i++) ! 350: if (iven[i]==0) ! 351: { ! 352: iven[i] = itm; ivenarg[i] = arg; limit=0; ! 353: switch(itm) ! 354: { ! 355: case OPROTRING: case ODAMRING: case OBELT: limit=1; break; ! 356: case ODEXRING: c[DEXTERITY] += ivenarg[i]+1; limit=1; break; ! 357: case OSTRRING: c[STREXTRA] += ivenarg[i]+1; limit=1; break; ! 358: case OCLEVERRING: c[INTELLIGENCE] += ivenarg[i]+1; limit=1; break; ! 359: case OHAMMER: c[DEXTERITY] += 10; c[STREXTRA]+=10; ! 360: c[INTELLIGENCE]-=10; limit=1; break; ! 361: ! 362: case OORBOFDRAGON: c[SLAYING]++; break; ! 363: case OSPIRITSCARAB: c[NEGATESPIRIT]++; break; ! 364: case OCUBEofUNDEAD: c[CUBEofUNDEAD]++; break; ! 365: case ONOTHEFT: c[NOTHEFT]++; break; ! 366: case OSWORDofSLASHING: c[DEXTERITY] +=5; limit=1; break; ! 367: }; ! 368: lprcat("\nYou pick up:"); srcount=0; show3(i); ! 369: if (limit) bottomline(); return(0); ! 370: } ! 371: lprcat("\nYou can't carry anything else"); return(1); ! 372: } ! 373: ! 374: /* ! 375: subroutine to drop an object returns 1 if something there already else 0 ! 376: */ ! 377: drop_object(k) ! 378: int k; ! 379: { ! 380: int itm; ! 381: if ((k<0) || (k>25)) return(0); ! 382: itm = iven[k]; cursors(); ! 383: if (itm==0) { lprintf("\nYou don't have item %c! ",k+'a'); return(1); } ! 384: if (item[playerx][playery]) ! 385: { beep(); lprcat("\nThere's something here already"); return(1); } ! 386: if (playery==MAXY-1 && playerx==33) return(1); /* not in entrance */ ! 387: item[playerx][playery] = itm; ! 388: iarg[playerx][playery] = ivenarg[k]; ! 389: srcount=0; lprcat("\n You drop:"); show3(k); /* show what item you dropped*/ ! 390: know[playerx][playery] = 0; iven[k]=0; ! 391: if (c[WIELD]==k) c[WIELD]= -1; if (c[WEAR]==k) c[WEAR] = -1; ! 392: if (c[SHIELD]==k) c[SHIELD]= -1; ! 393: adjustcvalues(itm,ivenarg[k]); ! 394: dropflag=1; /* say dropped an item so wont ask to pick it up right away */ ! 395: return(0); ! 396: } ! 397: ! 398: /* ! 399: function to enchant armor player is currently wearing ! 400: */ ! 401: enchantarmor() ! 402: { ! 403: register int tmp; ! 404: if (c[WEAR]<0) { if (c[SHIELD] < 0) ! 405: { cursors(); beep(); lprcat("\nYou feel a sense of loss"); return; } ! 406: else { tmp=iven[c[SHIELD]]; if (tmp != OSCROLL) if (tmp != OPOTION) { ivenarg[c[SHIELD]]++; bottomline(); } } } ! 407: tmp = iven[c[WEAR]]; ! 408: if (tmp!=OSCROLL) if (tmp!=OPOTION) { ivenarg[c[WEAR]]++; bottomline(); } ! 409: } ! 410: ! 411: /* ! 412: function to enchant a weapon presently being wielded ! 413: */ ! 414: enchweapon() ! 415: { ! 416: register int tmp; ! 417: if (c[WIELD]<0) ! 418: { cursors(); beep(); lprcat("\nYou feel a sense of loss"); return; } ! 419: tmp = iven[c[WIELD]]; ! 420: if (tmp!=OSCROLL) if (tmp!=OPOTION) ! 421: { ivenarg[c[WIELD]]++; ! 422: if (tmp==OCLEVERRING) c[INTELLIGENCE]++; else ! 423: if (tmp==OSTRRING) c[STREXTRA]++; else ! 424: if (tmp==ODEXRING) c[DEXTERITY]++; bottomline(); } ! 425: } ! 426: ! 427: /* ! 428: routine to tell if player can carry one more thing ! 429: returns 1 if pockets are full, else 0 ! 430: */ ! 431: pocketfull() ! 432: { ! 433: register int i,limit; ! 434: if ((limit = 15+(c[LEVEL]>>1)) > 26) limit=26; ! 435: for (i=0; i<limit; i++) if (iven[i]==0) return(0); ! 436: return(1); ! 437: } ! 438: ! 439: /* ! 440: function to return 1 if a monster is next to the player else returns 0 ! 441: */ ! 442: nearbymonst() ! 443: { ! 444: register int tmp,tmp2; ! 445: for (tmp=playerx-1; tmp<playerx+2; tmp++) ! 446: for (tmp2=playery-1; tmp2<playery+2; tmp2++) ! 447: if (mitem[tmp][tmp2]) return(1); /* if monster nearby */ ! 448: return(0); ! 449: } ! 450: ! 451: /* ! 452: function to steal an item from the players pockets ! 453: returns 1 if steals something else returns 0 ! 454: */ ! 455: stealsomething() ! 456: { ! 457: register int i,j; ! 458: j=100; ! 459: while (1) ! 460: { ! 461: i=rund(26); ! 462: if (iven[i]) if (c[WEAR]!=i) if (c[WIELD]!=i) if (c[SHIELD]!=i) ! 463: { ! 464: srcount=0; show3(i); ! 465: adjustcvalues(iven[i],ivenarg[i]); iven[i]=0; return(1); ! 466: } ! 467: if (--j <= 0) return(0); ! 468: } ! 469: } ! 470: ! 471: /* ! 472: function to return 1 is player carrys nothing else return 0 ! 473: */ ! 474: emptyhanded() ! 475: { ! 476: register int i; ! 477: for (i=0; i<26; i++) ! 478: if (iven[i]) if (i!=c[WIELD]) if (i!=c[WEAR]) if (i!=c[SHIELD]) return(0); ! 479: return(1); ! 480: } ! 481: ! 482: /* ! 483: function to create a gem on a square near the player ! 484: */ ! 485: creategem() ! 486: { ! 487: register int i,j; ! 488: switch(rnd(4)) ! 489: { ! 490: case 1: i=ODIAMOND; j=50; break; ! 491: case 2: i=ORUBY; j=40; break; ! 492: case 3: i=OEMERALD; j=30; break; ! 493: default: i=OSAPPHIRE; j=20; break; ! 494: }; ! 495: createitem(i,rnd(j)+j/10); ! 496: } ! 497: ! 498: /* ! 499: function to change character levels as needed when dropping an object ! 500: that affects these characteristics ! 501: */ ! 502: adjustcvalues(itm,arg) ! 503: int itm,arg; ! 504: { ! 505: register int flag; ! 506: flag=0; ! 507: switch(itm) ! 508: { ! 509: case ODEXRING: c[DEXTERITY] -= arg+1; flag=1; break; ! 510: case OSTRRING: c[STREXTRA] -= arg+1; flag=1; break; ! 511: case OCLEVERRING: c[INTELLIGENCE] -= arg+1; flag=1; break; ! 512: case OHAMMER: c[DEXTERITY] -= 10; c[STREXTRA] -= 10; ! 513: c[INTELLIGENCE] += 10; flag=1; break; ! 514: case OSWORDofSLASHING: c[DEXTERITY] -= 5; flag=1; break; ! 515: case OORBOFDRAGON: --c[SLAYING]; return; ! 516: case OSPIRITSCARAB: --c[NEGATESPIRIT]; return; ! 517: case OCUBEofUNDEAD: --c[CUBEofUNDEAD]; return; ! 518: case ONOTHEFT: --c[NOTHEFT]; return; ! 519: case OLANCE: c[LANCEDEATH]=0; return; ! 520: case OPOTION: case OSCROLL: return; ! 521: ! 522: default: flag=1; ! 523: }; ! 524: if (flag) bottomline(); ! 525: } ! 526: ! 527: /* ! 528: function to read a string from token input "string" ! 529: returns a pointer to the string ! 530: */ ! 531: gettokstr(str) ! 532: register char *str; ! 533: { ! 534: register int i,j; ! 535: i=50; ! 536: while ((getchar() != '"') && (--i > 0)); ! 537: i=36; ! 538: while (--i > 0) ! 539: { ! 540: if ((j=getchar()) != '"') *str++ = j; else i=0; ! 541: } ! 542: *str = 0; ! 543: i=50; ! 544: if (j != '"') while ((getchar() != '"') && (--i > 0)); /* if end due to too long, then find closing quote */ ! 545: } ! 546: ! 547: /* ! 548: function to ask user for a password (no echo) ! 549: returns 1 if entered correctly, 0 if not ! 550: */ ! 551: static char gpwbuf[33]; ! 552: getpassword() ! 553: { ! 554: register int i,j; ! 555: register char *gpwp; ! 556: extern char *password; ! 557: scbr(); /* system("stty -echo cbreak"); */ ! 558: gpwp = gpwbuf; lprcat("\nEnter Password: "); lflush(); ! 559: i = strlen(password); ! 560: for (j=0; j<i; j++) read(0,gpwp++,1); gpwbuf[i]=0; ! 561: sncbr(); /* system("stty echo -cbreak"); */ ! 562: if (strcmp(gpwbuf,password) != 0) ! 563: { lprcat("\nSorry\n"); lflush(); return(0); } ! 564: else return(1); ! 565: } ! 566: ! 567: /* ! 568: subroutine to get a yes or no response from the user ! 569: returns y or n ! 570: */ ! 571: getyn() ! 572: { ! 573: register int i; ! 574: i=0; while (i!='y' && i!='n' && i!='\33') i=getchar(); ! 575: return(i); ! 576: } ! 577: ! 578: /* ! 579: function to calculate the pack weight of the player ! 580: returns the number of pounds the player is carrying ! 581: */ ! 582: packweight() ! 583: { ! 584: register int i,j,k; ! 585: k=c[GOLD]/1000; j=25; while ((iven[j]==0) && (j>0)) --j; ! 586: for (i=0; i<=j; i++) ! 587: switch(iven[i]) ! 588: { ! 589: case 0: break; ! 590: case OSSPLATE: case OPLATEARMOR: k += 40; break; ! 591: case OPLATE: k += 35; break; ! 592: case OHAMMER: k += 30; break; ! 593: case OSPLINT: k += 26; break; ! 594: case OSWORDofSLASHING: case OCHAIN: ! 595: case OBATTLEAXE: case O2SWORD: k += 23; break; ! 596: case OLONGSWORD: case OSWORD: ! 597: case ORING: case OFLAIL: k += 20; break; ! 598: case OLANCE: case OSTUDLEATHER: k += 15; break; ! 599: case OLEATHER: case OSPEAR: k += 8; break; ! 600: case OORBOFDRAGON: case OBELT: k += 4; break; ! 601: case OSHIELD: k += 7; break; ! 602: case OCHEST: k += 30 + ivenarg[i]; break; ! 603: default: k++; ! 604: }; ! 605: return(k); ! 606: } ! 607: ! 608: #ifndef MACRORND ! 609: /* macros to generate random numbers 1<=rnd(N)<=N 0<=rund(N)<=N-1 */ ! 610: rnd(x) ! 611: int x; ! 612: { ! 613: return((((randx=randx*1103515245+12345)>>7)%(x))+1); ! 614: } ! 615: ! 616: rund(x) ! 617: int x; ! 618: { ! 619: return((((randx=randx*1103515245+12345)>>7)%(x)) ); ! 620: } ! 621: #endif MACRORND
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.