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
|
Last modified: 1988-10-21
Generated: 2016-12-26 |
Generated by src2html V0.67
page hit count: 1879 |
|