![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to villns.F CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / games / dungeon|
Return to villns.F CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / dungeon |
1.1 ! root 1: C TROLLP- TROLL FUNCTION ! 2: C ! 3: C COPYRIGHT 1980, INFOCOM COMPUTERS AND COMMUNICATIONS, CAMBRIDGE MA. 02142 ! 4: C ALL RIGHTS RESERVED, COMMERCIAL USAGE STRICTLY PROHIBITED ! 5: C WRITTEN BY R. M. SUPNIK ! 6: C ! 7: C DECLARATIONS ! 8: C ! 9: LOGICAL FUNCTION TROLLP(ARG) ! 10: IMPLICIT INTEGER (A-Z) ! 11: LOGICAL QHERE,PROB ! 12: #include "parser.h" ! 13: #include "gamestate.h" ! 14: #include "objects.h" ! 15: #include "oflags.h" ! 16: #include "oindex.h" ! 17: #include "verbs.h" ! 18: #include "flags.h" ! 19: C TROLLP, PAGE 2 ! 20: C ! 21: TROLLP=.TRUE. ! 22: C !ASSUME WINS. ! 23: IF(PRSA.NE.FIGHTW) GO TO 1100 ! 24: C !FIGHT? ! 25: IF(OCAN(AXE).EQ.TROLL) GO TO 10 ! 26: C !GOT AXE? NOTHING. ! 27: I=433 ! 28: C !ASSUME CANT GET. ! 29: IF(.NOT.QHERE(AXE,HERE)) GO TO 1050 ! 30: C !HERE? ! 31: I=434 ! 32: C !YES, RECOVER. ! 33: CALL NEWSTA(AXE,0,0,TROLL,0) ! 34: 1050 IF(QHERE(TROLL,HERE)) CALL RSPEAK(I) ! 35: C !IF PLAYER HERE. ! 36: RETURN ! 37: C ! 38: 1100 IF(PRSA.NE.DEADXW) GO TO 1200 ! 39: C !DEAD? ! 40: TROLLF=.TRUE. ! 41: C !PERMIT EXITS. ! 42: RETURN ! 43: C ! 44: 1200 IF(PRSA.NE.OUTXW) GO TO 1300 ! 45: C !OUT? ! 46: TROLLF=.TRUE. ! 47: C !PERMIT EXITS. ! 48: OFLAG1(AXE)=and(OFLAG1(AXE), not(VISIBT)) ! 49: ODESC1(TROLL)=435 ! 50: C !TROLL OUT. ! 51: RETURN ! 52: C ! 53: 1300 IF(PRSA.NE.INXW) GO TO 1400 ! 54: C !WAKE UP? ! 55: TROLLF=.FALSE. ! 56: C !FORBID EXITS. ! 57: OFLAG1(AXE)=or(OFLAG1(AXE),VISIBT) ! 58: ODESC1(TROLL)=436 ! 59: C !TROLL IN. ! 60: IF(QHERE(TROLL,HERE)) CALL RSPEAK(437) ! 61: RETURN ! 62: C ! 63: 1400 IF(PRSA.NE.FRSTQW) GO TO 1500 ! 64: C !FIRST ENCOUNTER? ! 65: TROLLP=PROB(33,66) ! 66: C !33% TRUE UNLESS BADLK. ! 67: RETURN ! 68: C ! 69: 1500 IF((PRSA.NE.MOVEW).AND.(PRSA.NE.TAKEW).AND.(PRSA.NE.MUNGW) ! 70: & .AND.(PRSA.NE.THROWW).AND.(PRSA.NE.GIVEW)) GO TO 2000 ! 71: IF(OCAPAC(TROLL).GE.0) GO TO 1550 ! 72: C !TROLL OUT? ! 73: OCAPAC(TROLL)=-OCAPAC(TROLL) ! 74: C !YES, WAKE HIM. ! 75: OFLAG1(AXE)=or(OFLAG1(AXE),VISIBT) ! 76: TROLLF=.FALSE. ! 77: ODESC1(TROLL)=436 ! 78: CALL RSPEAK(437) ! 79: C ! 80: 1550 IF((PRSA.NE.TAKEW).AND.(PRSA.NE.MOVEW)) GO TO 1600 ! 81: CALL RSPEAK(438) ! 82: C !JOKE. ! 83: RETURN ! 84: C ! 85: 1600 IF(PRSA.NE.MUNGW) GO TO 1700 ! 86: C !MUNG? ! 87: CALL RSPEAK(439) ! 88: C !JOKE. ! 89: RETURN ! 90: C ! 91: 1700 IF(PRSO.EQ.0) GO TO 10 ! 92: C !NO OBJECT? ! 93: I=440 ! 94: C !ASSUME THROW. ! 95: IF(PRSA.EQ.GIVEW) I=441 ! 96: C !GIVE? ! 97: CALL RSPSUB(I,ODESC2(PRSO)) ! 98: C !TROLL TAKES. ! 99: IF(PRSO.EQ.KNIFE) GO TO 1900 ! 100: C !OBJ KNIFE? ! 101: CALL NEWSTA(PRSO,442,0,0,0) ! 102: C !NO, EATS IT. ! 103: RETURN ! 104: C ! 105: 1900 CALL RSPEAK(443) ! 106: C !KNIFE, THROWS IT BACK ! 107: OFLAG2(TROLL)=or(OFLAG2(TROLL),FITEBT) ! 108: RETURN ! 109: C ! 110: 2000 IF(.NOT.TROLLF.OR.(PRSA.NE.HELLOW)) GO TO 10 ! 111: CALL RSPEAK(366) ! 112: C !TROLL OUT. ! 113: RETURN ! 114: C ! 115: 10 TROLLP=.FALSE. ! 116: C !COULDNT HANDLE IT. ! 117: RETURN ! 118: END ! 119: C CYCLOP- CYCLOPS FUNCTION ! 120: C ! 121: C DECLARATIONS ! 122: C ! 123: LOGICAL FUNCTION CYCLOP(ARG) ! 124: IMPLICIT INTEGER (A-Z) ! 125: #include "parser.h" ! 126: #include "gamestate.h" ! 127: #include "objects.h" ! 128: #include "oflags.h" ! 129: #include "oindex.h" ! 130: #include "verbs.h" ! 131: #include "flags.h" ! 132: C CYCLOP, PAGE 2 ! 133: C ! 134: CYCLOP=.TRUE. ! 135: C !ASSUME WINS. ! 136: IF(.NOT.CYCLOF) GO TO 100 ! 137: C !ASLEEP? ! 138: IF((PRSA.NE.ALARMW).AND.(PRSA.NE.MUNGW).AND.(PRSA.NE.HELLOW).AND. ! 139: & (PRSA.NE.BURNW).AND.(PRSA.NE.KILLW).AND.(PRSA.NE.ATTACW)) ! 140: & GO TO 10 ! 141: CYCLOF=.FALSE. ! 142: C !WAKE CYCLOPS. ! 143: CALL RSPEAK(187) ! 144: C !DESCRIBE. ! 145: RVCYC=IABS(RVCYC) ! 146: OFLAG2(CYCLO)=and(or(OFLAG2(CYCLO),FITEBT),not(SLEPBT)) ! 147: RETURN ! 148: C ! 149: 100 IF((PRSA.EQ.FIGHTW).OR.(PRSA.EQ.FRSTQW)) GO TO 10 ! 150: IF(IABS(RVCYC).LE.5) GO TO 200 ! 151: C !ANNOYED TOO MUCH? ! 152: RVCYC=0 ! 153: C !RESTART COUNT. ! 154: CALL JIGSUP(188) ! 155: C !YES, EATS PLAYER. ! 156: RETURN ! 157: C ! 158: 200 IF(PRSA.NE.GIVEW) GO TO 500 ! 159: C !GIVE? ! 160: IF((PRSO.NE.FOOD).OR.(RVCYC.LT.0)) GO TO 300 ! 161: C !FOOD WHEN HUNGRY? ! 162: CALL NEWSTA(FOOD,189,0,0,0) ! 163: C !EATS PEPPERS. ! 164: RVCYC=MIN0(-1,-RVCYC) ! 165: C !GETS THIRSTY. ! 166: RETURN ! 167: C ! 168: 300 IF(PRSO.NE.WATER) GO TO 400 ! 169: C !DRINK WHEN THIRSTY? ! 170: IF(RVCYC.GE.0) GO TO 350 ! 171: CALL NEWSTA(PRSO,190,0,0,0) ! 172: C !DRINKS AND ! 173: CYCLOF=.TRUE. ! 174: C !FALLS ASLEEP. ! 175: OFLAG2(CYCLO)=and(or(OFLAG2(CYCLO),SLEPBT),not(FITEBT)) ! 176: RETURN ! 177: C ! 178: 350 CALL RSPEAK(191) ! 179: C !NOT THIRSTY. ! 180: 10 CYCLOP=.FALSE. ! 181: C !FAILS. ! 182: RETURN ! 183: C ! 184: 400 I=192 ! 185: C !ASSUME INEDIBLE. ! 186: IF(PRSO.EQ.GARLI) I=193 ! 187: C !GARLIC IS JOKE. ! 188: 450 CALL RSPEAK(I) ! 189: C !DISDAIN IT. ! 190: IF(RVCYC.LT.0) RVCYC=RVCYC-1 ! 191: IF(RVCYC.GE.0) RVCYC=RVCYC+1 ! 192: IF(.NOT.CYCLOF) CALL RSPEAK(193+IABS(RVCYC)) ! 193: RETURN ! 194: C ! 195: 500 I=0 ! 196: C !ASSUME NOT HANDLED. ! 197: IF(PRSA.EQ.HELLOW) GO TO 450 ! 198: C !HELLO IS NO GO. ! 199: IF((PRSA.EQ.THROWW).OR.(PRSA.EQ.MUNGW)) I=200+RND(2) ! 200: IF(PRSA.EQ.TAKEW) I=202 ! 201: IF(PRSA.EQ.TIEW) I=203 ! 202: IF(I) 10,10,450 ! 203: C !SEE IF HANDLED. ! 204: C ! 205: END ! 206: C THIEFP- THIEF FUNCTION ! 207: C ! 208: C DECLARATIONS ! 209: C ! 210: LOGICAL FUNCTION THIEFP(ARG) ! 211: IMPLICIT INTEGER (A-Z) ! 212: LOGICAL QHERE,PROB ! 213: #include "parser.h" ! 214: #include "gamestate.h" ! 215: C ! 216: C ROOMS ! 217: #include "rindex.h" ! 218: #include "objects.h" ! 219: #include "oflags.h" ! 220: #include "oindex.h" ! 221: #include "clock.h" ! 222: ! 223: #include "villians.h" ! 224: #include "verbs.h" ! 225: #include "flags.h" ! 226: C THIEFP, PAGE 2 ! 227: C ! 228: THIEFP=.TRUE. ! 229: C !ASSUME WINS. ! 230: IF(PRSA.NE.FIGHTW) GO TO 100 ! 231: C !FIGHT? ! 232: IF(OCAN(STILL).EQ.THIEF) GO TO 10 ! 233: C !GOT STILLETTO? F. ! 234: IF(QHERE(STILL,THFPOS)) GO TO 50 ! 235: C !CAN HE RECOVER IT? ! 236: CALL NEWSTA(THIEF,0,0,0,0) ! 237: C !NO, VANISH. ! 238: IF(QHERE(THIEF,HERE)) CALL RSPEAK(498) ! 239: C !IF HERO, TELL. ! 240: RETURN ! 241: C ! 242: 50 CALL NEWSTA(STILL,0,0,THIEF,0) ! 243: C !YES, RECOVER. ! 244: IF(QHERE(THIEF,HERE)) CALL RSPEAK(499) ! 245: C !IF HERO, TELL. ! 246: RETURN ! 247: C ! 248: 100 IF(PRSA.NE.DEADXW) GO TO 200 ! 249: C !DEAD? ! 250: THFACT=.FALSE. ! 251: C !DISABLE DEMON. ! 252: OFLAG1(CHALI)=or(OFLAG1(CHALI),TAKEBT) ! 253: J=0 ! 254: DO 125 I=1,OLNT ! 255: C !CARRYING ANYTHING? ! 256: 125 IF(OADV(I).EQ.-THIEF) J=500 ! 257: CALL RSPEAK(J) ! 258: C !TELL IF BOOTY REAPPEARS. ! 259: C ! 260: J=501 ! 261: DO 150 I=1,OLNT ! 262: C !LOOP. ! 263: IF((I.EQ.CHALI).OR.(I.EQ.THIEF).OR.(HERE.NE.TREAS) ! 264: & .OR. .NOT.QHERE(I,HERE)) GO TO 135 ! 265: OFLAG1(I)=or(OFLAG1(I),VISIBT) ! 266: CALL RSPSUB(J,ODESC2(I)) ! 267: C !DESCRIBE. ! 268: J=502 ! 269: GO TO 150 ! 270: C ! 271: 135 IF(OADV(I).EQ.-THIEF) CALL NEWSTA(I,0,HERE,0,0) ! 272: 150 CONTINUE ! 273: RETURN ! 274: C ! 275: 200 IF(PRSA.NE.FRSTQW) GO TO 250 ! 276: C !FIRST ENCOUNTER? ! 277: THIEFP=PROB(20,75) ! 278: RETURN ! 279: C ! 280: 250 IF((PRSA.NE.HELLOW).OR.(ODESC1(THIEF).NE.504)) ! 281: & GO TO 300 ! 282: CALL RSPEAK(626) ! 283: RETURN ! 284: C ! 285: 300 IF(PRSA.NE.OUTXW) GO TO 400 ! 286: C !OUT? ! 287: THFACT=.FALSE. ! 288: C !DISABLE DEMON. ! 289: ODESC1(THIEF)=504 ! 290: C !CHANGE DESCRIPTION. ! 291: OFLAG1(STILL)=and(OFLAG1(STILL),not(VISIBT)) ! 292: OFLAG1(CHALI)=or(OFLAG1(CHALI),TAKEBT) ! 293: RETURN ! 294: C ! 295: 400 IF(PRSA.NE.INXW) GO TO 500 ! 296: C !IN? ! 297: IF(QHERE(THIEF,HERE)) CALL RSPEAK(505) ! 298: C !CAN HERO SEE? ! 299: THFACT=.TRUE. ! 300: C !ENABLE DEMON. ! 301: ODESC1(THIEF)=503 ! 302: C !CHANGE DESCRIPTION. ! 303: OFLAG1(STILL)=or(OFLAG1(STILL),VISIBT) ! 304: IF((HERE.EQ.TREAS).AND.QHERE(CHALI,HERE)) ! 305: & OFLAG1(CHALI)=and(OFLAG1(CHALI),not(TAKEBT)) ! 306: RETURN ! 307: C ! 308: 500 IF(PRSA.NE.TAKEW) GO TO 600 ! 309: C !TAKE? ! 310: CALL RSPEAK(506) ! 311: C !JOKE. ! 312: RETURN ! 313: C ! 314: 600 IF((PRSA.NE.THROWW).OR.(PRSO.NE.KNIFE).OR. ! 315: & (and(OFLAG2(THIEF),FITEBT).NE.0)) GO TO 700 ! 316: IF(PROB(10)) GO TO 650 ! 317: C !THREW KNIFE, 10%? ! 318: CALL RSPEAK(507) ! 319: C !NO, JUST MAKES ! 320: OFLAG2(THIEF)=or(OFLAG2(THIEF),FITEBT) ! 321: RETURN ! 322: C ! 323: 650 J=508 ! 324: C !THIEF DROPS STUFF. ! 325: DO 675 I=1,OLNT ! 326: IF(OADV(I).NE.-THIEF) GO TO 675 ! 327: C !THIEF CARRYING? ! 328: J=509 ! 329: CALL NEWSTA(I,0,HERE,0,0) ! 330: 675 CONTINUE ! 331: CALL NEWSTA(THIEF,J,0,0,0) ! 332: C !THIEF VANISHES. ! 333: RETURN ! 334: C ! 335: 700 IF(((PRSA.NE.THROWW).AND.(PRSA.NE.GIVEW)).OR.(PRSO.EQ.0).OR. ! 336: & (PRSO.EQ.THIEF)) GO TO 10 ! 337: IF(OCAPAC(THIEF).GE.0) GO TO 750 ! 338: C !WAKE HIM UP. ! 339: OCAPAC(THIEF)=-OCAPAC(THIEF) ! 340: THFACT=.TRUE. ! 341: OFLAG1(STILL)=or(OFLAG1(STILL),VISIBT) ! 342: ODESC1(THIEF)=503 ! 343: CALL RSPEAK(510) ! 344: C ! 345: 750 IF((PRSO.NE.BRICK).OR.(OCAN(FUSE).NE.BRICK).OR. ! 346: & (CTICK(CEVFUS).EQ.0)) GO TO 800 ! 347: CALL RSPEAK(511) ! 348: C !THIEF REFUSES BOMB. ! 349: RETURN ! 350: C ! 351: 800 CALL NEWSTA(PRSO,0,0,0,-THIEF) ! 352: C !THIEF TAKES GIFT. ! 353: IF(OTVAL(PRSO).GT.0) GO TO 900 ! 354: C !A TREASURE? ! 355: CALL RSPSUB(512,ODESC2(PRSO)) ! 356: RETURN ! 357: C ! 358: 900 CALL RSPSUB(627,ODESC2(PRSO)) ! 359: C !THIEF ENGROSSED. ! 360: THFENF=.TRUE. ! 361: RETURN ! 362: C ! 363: 10 THIEFP=.FALSE. ! 364: RETURN ! 365: END
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.