79 lines
1.5 KiB
Plaintext
79 lines
1.5 KiB
Plaintext
|
|
|
|
.FUNCT GRATING-EXIT:ANY:0:0
|
|
ZERO? GRATE-REVEALED /?CCL3
|
|
FSET? GRATE,OPENBIT \?CCL6
|
|
RETURN GRATING-ROOM
|
|
?CCL6: PRINTI "Das Gitter ist geschlossen."
|
|
CRLF
|
|
ICALL2 THIS-IS-IT,GRATE
|
|
RFALSE
|
|
?CCL3: PRINTI "In die Richtung kannst du nicht gehen."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT TREASURE-INSIDE:ANY:0:0
|
|
EQUAL? PRSA,V?OPEN \FALSE
|
|
ICALL2 SCORE-OBJ,EMERALD
|
|
RFALSE
|
|
|
|
|
|
.FUNCT IN-MAZE?:ANY:1:1,PLACE
|
|
EQUAL? PLACE,MAZE-1,MAZE-2,MAZE-3 /TRUE
|
|
EQUAL? PLACE,MAZE-4,MAZE-5,MAZE-6 /TRUE
|
|
EQUAL? PLACE,MAZE-7,MAZE-8,MAZE-9 /TRUE
|
|
EQUAL? PLACE,MAZE-10,MAZE-11,MAZE-12 /TRUE
|
|
EQUAL? PLACE,MAZE-13,MAZE-14,MAZE-15 /TRUE
|
|
EQUAL? PLACE,DEAD-END-1,DEAD-END-2,DEAD-END-3 /TRUE
|
|
EQUAL? PLACE,DEAD-END-4 /TRUE
|
|
RFALSE
|
|
|
|
|
|
.FUNCT CANYON-VIEW-F:ANY:1:1,RARG
|
|
EQUAL? RARG,M-BEG \FALSE
|
|
EQUAL? PRSA,V?LEAP \FALSE
|
|
ZERO? PRSO \FALSE
|
|
ICALL2 JIGS-UP,STR?181
|
|
RTRUE
|
|
|
|
|
|
.FUNCT GO:ANY:0:0
|
|
?FCN: CALL QUEUE,I-FIGHT,-1
|
|
PUT STACK,0,1
|
|
ICALL QUEUE,I-SWORD,-1
|
|
CALL QUEUE,I-THIEF,-1
|
|
PUT STACK,0,1
|
|
ICALL QUEUE,I-CANDLES,40
|
|
ICALL QUEUE,I-LANTERN,200
|
|
PUTP INFLATED-BOAT,P?VTYPE,NONLANDBIT
|
|
ADD DEF1,2
|
|
PUT DEF1-RES,1,STACK
|
|
ADD DEF1,4
|
|
PUT DEF1-RES,2,STACK
|
|
ADD DEF2B,2
|
|
PUT DEF2-RES,2,STACK
|
|
ADD DEF2B,4
|
|
PUT DEF2-RES,3,STACK
|
|
ADD DEF3A,2
|
|
PUT DEF3-RES,1,STACK
|
|
ADD DEF3B,2
|
|
PUT DEF3-RES,3,STACK
|
|
SET 'HERE,WEST-OF-HOUSE
|
|
ICALL2 THIS-IS-IT,MAILBOX
|
|
CLEAR -1
|
|
ICALL1 INIT-STATUS-LINE
|
|
CRLF
|
|
FSET? HERE,TOUCHBIT /?CND1
|
|
ICALL1 V-VERSION
|
|
CRLF
|
|
?CND1: SET 'LIT,TRUE-VALUE
|
|
SET 'WINNER,ADVENTURER
|
|
SET 'PLAYER,WINNER
|
|
MOVE WINNER,HERE
|
|
ICALL1 V-LOOK
|
|
ICALL1 MAIN-LOOP
|
|
JUMP ?FCN
|
|
|
|
.ENDI
|