projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 8b22683c KB |
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 |