![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to actors.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 actors.F CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / dungeon |
1.1 ! root 1: C AAPPLI- APPLICABLES FOR ADVENTURERS ! 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 AAPPLI(RI) ! 10: IMPLICIT INTEGER (A-Z) ! 11: LOGICAL F,MOVETO ! 12: #include "parser.h" ! 13: #include "gamestate.h" ! 14: #include "rooms.h" ! 15: #include "rflag.h" ! 16: #include "rindex.h" ! 17: #include "xsrch.h" ! 18: #include "objects.h" ! 19: #include "oflags.h" ! 20: #include "oindex.h" ! 21: #include "clock.h" ! 22: #include "advers.h" ! 23: #include "verbs.h" ! 24: #include "flags.h" ! 25: C AAPPLI, PAGE 2 ! 26: C ! 27: IF(RI.EQ.0) GO TO 10 ! 28: C !IF ZERO, NO APP. ! 29: AAPPLI=.TRUE. ! 30: C !ASSUME WINS. ! 31: GO TO (1000,2000),RI ! 32: C !BRANCH ON ADV. ! 33: CALL BUG(11,RI) ! 34: C ! 35: C COMMON FALSE RETURN. ! 36: C ! 37: 10 AAPPLI=.FALSE. ! 38: RETURN ! 39: C ! 40: C A1-- ROBOT. PROCESS MOST COMMANDS GIVEN TO ROBOT. ! 41: C ! 42: 1000 IF((PRSA.NE.RAISEW).OR.(PRSO.NE.RCAGE)) GO TO 1200 ! 43: CFLAG(CEVSPH)=.FALSE. ! 44: C !ROBOT RAISED CAGE. ! 45: WINNER=PLAYER ! 46: C !RESET FOR PLAYER. ! 47: F=MOVETO(CAGER,WINNER) ! 48: C !MOVE TO NEW ROOM. ! 49: CALL NEWSTA(CAGE,567,CAGER,0,0) ! 50: C !INSTALL CAGE IN ROOM. ! 51: CALL NEWSTA(ROBOT,0,CAGER,0,0) ! 52: C !INSTALL ROBOT IN ROOM. ! 53: AROOM(AROBOT)=CAGER ! 54: C !ALSO MOVE ROBOT/ADV. ! 55: CAGESF=.TRUE. ! 56: C !CAGE SOLVED. ! 57: OFLAG1(ROBOT)=and(OFLAG1(ROBOT),not(NDSCBT)) ! 58: OFLAG1(SPHER)=or(OFLAG1(SPHER),TAKEBT) ! 59: RETURN ! 60: C ! 61: 1200 IF((PRSA.NE.DRINKW).AND.(PRSA.NE.EATW)) GO TO 1300 ! 62: CALL RSPEAK(568) ! 63: C !EAT OR DRINK, JOKE. ! 64: RETURN ! 65: C ! 66: 1300 IF(PRSA.NE.READW) GO TO 1400 ! 67: C !READ, ! 68: CALL RSPEAK(569) ! 69: C !JOKE. ! 70: RETURN ! 71: C ! 72: 1400 IF((PRSA.EQ.WALKW).OR.(PRSA.EQ.TAKEW).OR.(PRSA.EQ.DROPW) ! 73: & .OR.(PRSA.EQ.PUTW).OR.(PRSA.EQ.PUSHW).OR.(PRSA.EQ.THROWW) ! 74: & .OR.(PRSA.EQ.TURNW).OR.(PRSA.EQ.LEAPW)) GO TO 10 ! 75: CALL RSPEAK(570) ! 76: C !JOKE. ! 77: RETURN ! 78: C AAPPLI, PAGE 3 ! 79: C ! 80: C A2-- MASTER. PROCESS MOST COMMANDS GIVEN TO MASTER. ! 81: C ! 82: 2000 IF(and(OFLAG2(QDOOR),OPENBT).NE.0) GO TO 2100 ! 83: CALL RSPEAK(783) ! 84: C !NO MASTER YET. ! 85: RETURN ! 86: C ! 87: 2100 IF(PRSA.NE.WALKW) GO TO 2200 ! 88: C !WALK? ! 89: I=784 ! 90: C !ASSUME WONT. ! 91: IF(((HERE.EQ.SCORR).AND. ! 92: & ((PRSO.EQ.XNORTH).OR.(PRSO.EQ.XENTER))).OR. ! 93: & ((HERE.EQ.NCORR).AND. ! 94: & ((PRSO.EQ.XSOUTH).OR.(PRSO.EQ.XENTER)))) ! 95: & I=785 ! 96: CALL RSPEAK(I) ! 97: RETURN ! 98: C ! 99: 2200 IF((PRSA.EQ.TAKEW).OR.(PRSA.EQ.DROPW).OR.(PRSA.EQ.PUTW).OR. ! 100: & (PRSA.EQ.THROWW).OR.(PRSA.EQ.PUSHW).OR.(PRSA.EQ.TURNW).OR. ! 101: & (PRSA.EQ.SPINW).OR.(PRSA.EQ.TRNTOW).OR.(PRSA.EQ.FOLLOW).OR. ! 102: & (PRSA.EQ.STAYW).OR.(PRSA.EQ.OPENW).OR.(PRSA.EQ.CLOSEW).OR. ! 103: & (PRSA.EQ.KILLW)) GO TO 10 ! 104: CALL RSPEAK(786) ! 105: C !MASTER CANT DO IT. ! 106: RETURN ! 107: C ! 108: END ! 109: C THIEFD- INTERMOVE THIEF DEMON ! 110: C ! 111: C DECLARATIONS ! 112: C ! 113: SUBROUTINE THIEFD ! 114: IMPLICIT INTEGER (A-Z) ! 115: LOGICAL ONCE,PROB,QHERE,QSTILL,LIT,WINNIN ! 116: #include "gamestate.h" ! 117: C ! 118: #include "debug.h" ! 119: #include "rooms.h" ! 120: #include "rflag.h" ! 121: #include "rindex.h" ! 122: #include "objects.h" ! 123: #include "oflags.h" ! 124: #include "oindex.h" ! 125: #include "villians.h" ! 126: #include "flags.h" ! 127: C ! 128: C FUNCTIONS AND DATA ! 129: C ! 130: QSTILL(R)=(QHERE(STILL,R).OR.(OADV(STILL).EQ.-THIEF)) ! 131: C THIEFD, PAGE 2 ! 132: C ! 133: #ifdef debug ! 134: DFLAG=and(PRSFLG, 32768).NE.0 ! 135: #endif debug ! 136: C !SET UP DETAIL FLAG. ! 137: ONCE=.FALSE. ! 138: C !INIT FLAG. ! 139: 1025 RHERE=OROOM(THIEF) ! 140: C !VISIBLE POS. ! 141: IF(RHERE.NE.0) THFPOS=RHERE ! 142: C ! 143: IF(THFPOS.EQ.HERE) GO TO 1100 ! 144: C !THIEF IN WIN RM? ! 145: IF(THFPOS.NE.TREAS) GO TO 1400 ! 146: C !THIEF NOT IN TREAS? ! 147: C ! 148: C THIEF IS IN TREASURE ROOM, AND WINNER IS NOT. ! 149: C ! 150: #ifdef debug ! 151: IF(DFLAG) PRINT 10 ! 152: #ifdef NOCC ! 153: 10 FORMAT('THIEFD-- IN TREASURE ROOM') ! 154: #else NOCC ! 155: 10 FORMAT(' THIEFD-- IN TREASURE ROOM') ! 156: #endif ! 157: #endif debug ! 158: IF(RHERE.EQ.0) GO TO 1050 ! 159: C !VISIBLE? ! 160: CALL NEWSTA(THIEF,0,0,0,0) ! 161: C !YES, VANISH. ! 162: RHERE=0 ! 163: IF(QSTILL(TREAS)) CALL NEWSTA(STILL,0,0,THIEF,0) ! 164: 1050 I=ROBADV(-THIEF,THFPOS,0,0) ! 165: C !DROP VALUABLES. ! 166: IF(QHERE(EGG,THFPOS)) OFLAG2(EGG)=or(OFLAG2(EGG),OPENBT) ! 167: GO TO 1700 ! 168: C ! 169: C THIEF AND WINNER IN SAME ROOM. ! 170: C ! 171: 1100 IF(THFPOS.EQ.TREAS) GO TO 1700 ! 172: C !IF TREAS ROOM, NOTHING. ! 173: IF(and(RFLAG(THFPOS),RLIGHT).NE.0) GO TO 1400 ! 174: #ifdef debug ! 175: IF(DFLAG) PRINT 20 ! 176: #ifdef NOCC ! 177: 20 FORMAT('THIEFD-- IN ADV ROOM') ! 178: #else NOCC ! 179: 20 FORMAT(' THIEFD-- IN ADV ROOM') ! 180: #endif NOCC ! 181: #endif debug ! 182: IF(THFFLG) GO TO 1300 ! 183: C !THIEF ANNOUNCED? ! 184: IF((RHERE.NE.0).OR.PROB(70,70)) GO TO 1150 ! 185: C !IF INVIS AND 30%. ! 186: IF(OCAN(STILL).NE.THIEF) GO TO 1700 ! 187: C !ABORT IF NO STILLETTO. ! 188: CALL NEWSTA(THIEF,583,THFPOS,0,0) ! 189: C !INSERT THIEF INTO ROOM. ! 190: THFFLG=.TRUE. ! 191: C !THIEF IS ANNOUNCED. ! 192: RETURN ! 193: C ! 194: 1150 IF((RHERE.EQ.0).OR.(and(OFLAG2(THIEF),FITEBT).EQ.0)) ! 195: & GO TO 1200 ! 196: IF(WINNIN(THIEF,WINNER)) GO TO 1175 ! 197: C !WINNING? ! 198: CALL NEWSTA(THIEF,584,0,0,0) ! 199: C !NO, VANISH THIEF. ! 200: OFLAG2(THIEF)=and(OFLAG2(THIEF), not(FITEBT)) ! 201: IF(QSTILL(THFPOS)) CALL NEWSTA(STILL,0,0,THIEF,0) ! 202: RETURN ! 203: C ! 204: 1175 IF(PROB(90,90)) GO TO 1700 ! 205: C !90% CHANCE TO STAY. ! 206: C ! 207: 1200 IF((RHERE.EQ.0).OR.PROB(70,70)) GO TO 1250 ! 208: C !IF VISIBLE AND 30% ! 209: CALL NEWSTA(THIEF,585,0,0,0) ! 210: C !VANISH THIEF. ! 211: IF(QSTILL(THFPOS)) CALL NEWSTA(STILL,0,0,THIEF,0) ! 212: RETURN ! 213: C ! 214: 1300 IF(RHERE.EQ.0) GO TO 1700 ! 215: C !ANNOUNCED. VISIBLE? ! 216: 1250 IF(PROB(70,70)) RETURN ! 217: C !70% CHANCE TO DO NOTHING. ! 218: THFFLG=.TRUE. ! 219: NR=ROBRM(THFPOS,100,0,0,-THIEF)+ROBADV(WINNER,0,0,-THIEF) ! 220: I=586 ! 221: C !ROBBED EM. ! 222: IF(RHERE.NE.0) I=588 ! 223: C !WAS HE VISIBLE? ! 224: IF(NR.NE.0) I=I+1 ! 225: C !DID HE GET ANYTHING? ! 226: CALL NEWSTA(THIEF,I,0,0,0) ! 227: C !VANISH THIEF. ! 228: IF(QSTILL(THFPOS)) ! 229: & CALL NEWSTA(STILL,0,0,THIEF,0) ! 230: IF((NR.NE.0).AND..NOT.LIT(THFPOS)) CALL RSPEAK(406) ! 231: RHERE=0 ! 232: GO TO 1700 ! 233: C !ONWARD. ! 234: C ! 235: C NOT IN ADVENTURERS ROOM. ! 236: C ! 237: 1400 CALL NEWSTA(THIEF,0,0,0,0) ! 238: C !VANISH. ! 239: RHERE=0 ! 240: #ifdef debug ! 241: IF(DFLAG) PRINT 30,THFPOS ! 242: #ifdef NOCC ! 243: 30 FORMAT('THIEFD-- IN ROOM ',I4) ! 244: #else NOCC ! 245: 30 FORMAT(' THIEFD-- IN ROOM ',I4) ! 246: #endif NOCC ! 247: #endif debug ! 248: IF(QSTILL(THFPOS)) ! 249: & CALL NEWSTA(STILL,0,0,THIEF,0) ! 250: IF(and(RFLAG(THFPOS),RSEEN).EQ.0) GO TO 1700 ! 251: I=ROBRM(THFPOS,75,0,0,-THIEF) ! 252: C !ROB ROOM 75%. ! 253: IF((THFPOS.LT.MAZE1).OR.(THFPOS.GT.MAZ15).OR. ! 254: & (HERE.LT.MAZE1).OR.(HERE.GT.MAZ15)) GO TO 1500 ! 255: DO 1450 I=1,OLNT ! 256: C !BOTH IN MAZE. ! 257: IF(.NOT.QHERE(I,THFPOS).OR.PROB(60,60).OR. ! 258: & (and(OFLAG1(I),(VISIBT+TAKEBT)).NE.(VISIBT+TAKEBT))) ! 259: & GO TO 1450 ! 260: CALL RSPSUB(590,ODESC2(I)) ! 261: C !TAKE OBJECT. ! 262: IF(PROB(40,20)) GO TO 1700 ! 263: CALL NEWSTA(I,0,0,0,-THIEF) ! 264: C !MOST OF THE TIME. ! 265: OFLAG2(I)=or(OFLAG2(I),TCHBT) ! 266: GO TO 1700 ! 267: 1450 CONTINUE ! 268: GO TO 1700 ! 269: C ! 270: 1500 DO 1550 I=1,OLNT ! 271: C !NOT IN MAZE. ! 272: IF(.NOT.QHERE(I,THFPOS).OR.(OTVAL(I).NE.0).OR.PROB(80,60).OR. ! 273: & (and(OFLAG1(I),(VISIBT+TAKEBT)).NE.(VISIBT+TAKEBT))) ! 274: & GO TO 1550 ! 275: CALL NEWSTA(I,0,0,0,-THIEF) ! 276: OFLAG2(I)=or(OFLAG2(I),TCHBT) ! 277: GO TO 1700 ! 278: 1550 CONTINUE ! 279: C ! 280: C NOW MOVE TO NEW ROOM. ! 281: C ! 282: 1700 IF(OADV(ROPE).EQ.-THIEF) DOMEF=.FALSE. ! 283: IF(ONCE) GO TO 1800 ! 284: ONCE=.NOT.ONCE ! 285: 1750 THFPOS=THFPOS-1 ! 286: C !NEXT ROOM. ! 287: IF(THFPOS.LE.0) THFPOS=RLNT ! 288: IF(and(RFLAG(THFPOS),(RLAND+RSACRD+REND)).NE.RLAND) ! 289: & GO TO 1750 ! 290: THFFLG=.FALSE. ! 291: C !NOT ANNOUNCED. ! 292: GO TO 1025 ! 293: C !ONCE MORE. ! 294: C ! 295: C ALL DONE. ! 296: C ! 297: 1800 IF(THFPOS.EQ.TREAS) RETURN ! 298: C !IN TREASURE ROOM? ! 299: J=591 ! 300: C !NO, DROP STUFF. ! 301: IF(THFPOS.NE.HERE) J=0 ! 302: DO 1850 I=1,OLNT ! 303: IF((OADV(I).NE.-THIEF).OR.PROB(70,70).OR. ! 304: & (OTVAL(I).GT.0)) GO TO 1850 ! 305: CALL NEWSTA(I,J,THFPOS,0,0) ! 306: J=0 ! 307: 1850 CONTINUE ! 308: RETURN ! 309: C ! 310: END
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.