5413 lines
143 KiB
Plaintext
5413 lines
143 KiB
Plaintext
|
|
;COMPARISON OF PS:<SWG>VERBS.ZAP.1 AND PS:<SWG>VERBS.ZAP.3
|
|
;OPTIONS ARE /1
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-28 (358)
|
|
ZERO? PRSO /?ELS5
|
|
EQUAL? PRSO,INTNUM \?ELS11
|
|
EQUAL? P-NUMBER,105 \?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-28 (358)
|
|
ZERO? PRSO /?ELS4
|
|
EQUAL? PRSO,INTNUM \?ELS8
|
|
EQUAL? P-NUMBER,105 \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-34 (470)
|
|
?ELS11: CALL DONT-UNDERSTAND
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-34 (468)
|
|
?ELS8: CALL DONT-UNDERSTAND
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-36 (510)
|
|
?ELS5: PRINTI "Verifying disk..."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-36 (507)
|
|
?ELS4: PRINTI "Verifying disk..."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-38 (553)
|
|
VERIFY \?ELS26
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-38 (550)
|
|
VERIFY \?ELS17
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-40 (603)
|
|
?ELS26: PRINTR "Oh, oh! The disk seems to have a defect. Try verifying again. (If you've already done that, the disk surely has a defect.)"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-40 (600)
|
|
?ELS17: PRINTI "Oh, oh! The disk seems to have a defect. Try verifying again. (If you've already done that, the disk surely has a defect.)"
|
|
CRLF
|
|
PUSH 1
|
|
RSTACK
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-54 (950)
|
|
ZERO? L-PRSO /?CND14
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-57 (974)
|
|
ZERO? L-PRSO /?CND13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-58 (1025)
|
|
EQUAL? NOT-HERE-OBJECT,L-PRSO \?CND14
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-61 (1049)
|
|
EQUAL? NOT-HERE-OBJECT,L-PRSO \?CND13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-62 (1126)
|
|
?CND14: PRINTI " PRSI="
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-65 (1150)
|
|
?CND13: PRINTI " PRSI="
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-64 (1167)
|
|
ZERO? L-PRSI /?CND30
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-67 (1191)
|
|
ZERO? L-PRSI /?CND27
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-68 (1242)
|
|
EQUAL? NOT-HERE-OBJECT,L-PRSI \?CND30
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-71 (1266)
|
|
EQUAL? NOT-HERE-OBJECT,L-PRSI \?CND27
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-72 (1343)
|
|
?CND30: CRLF
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-75 (1367)
|
|
?CND27: CRLF
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-82 (1502)
|
|
ZERO? PICKPOCKET /?CND8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-85 (1526)
|
|
ZERO? PICKPOCKET /?CND6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-86 (1585)
|
|
?CND8: PRINTI ".
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-89 (1609)
|
|
?CND6: PRINTI ".
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-97 (1767)
|
|
PUSH 1
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-100 (1791)
|
|
SET 'CUSTOMS-SWEEP,1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-99 (1789)
|
|
?PRD1: PUSH 0
|
|
?PRD2: SET 'CUSTOMS-SWEEP,STACK
|
|
ZERO? CUSTOMS-SWEEP /?ELS7
|
|
ZERO? IN-STATION /?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-102 (1827)
|
|
?PRD1: SET 'CUSTOMS-SWEEP,0
|
|
?PRD2: ZERO? CUSTOMS-SWEEP /?ELS6
|
|
ZERO? IN-STATION /?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-108 (2047)
|
|
JUMP ?CND9
|
|
?ELS11: SET 'SCENERY-OBJ,STATION-GRNZ
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-110 (2071)
|
|
JUMP ?CND7
|
|
?ELS8: SET 'SCENERY-OBJ,STATION-GRNZ
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-111 (2121)
|
|
?CND9: PRINTR "[here]"
|
|
?ELS7: FSET PLAQUE,INVISIBLE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-113 (2144)
|
|
?CND7: PRINTR "[here]"
|
|
?ELS6: FSET PLAQUE,INVISIBLE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-119 (2286)
|
|
ZERO? PRSO /?ELS5
|
|
EQUAL? PRSI,INTNUM \?ELS5
|
|
FSET? PRSO,P-NUMBER \?CND8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-121 (2309)
|
|
ZERO? PRSO /?ELS4
|
|
EQUAL? PRSI,INTNUM \?ELS4
|
|
FSET? PRSO,P-NUMBER \?CND6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-123 (2383)
|
|
?CND8: FCLEAR PRSO,P-NUMBER
|
|
ZERO? F /?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-125 (2406)
|
|
?CND6: FCLEAR PRSO,P-NUMBER
|
|
ZERO? F /?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-126 (2443)
|
|
?ELS15: PRINTR "#FALSE ()"
|
|
?ELS5: PRINTR "OOPS!"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-128 (2466)
|
|
?ELS11: PRINTR "#FALSE ()"
|
|
?ELS4: PRINTR "OOPS!"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-131 (2519)
|
|
ZERO? PRSO /?ELS5
|
|
EQUAL? PRSI,INTNUM \?ELS5
|
|
FSET? PRSO,P-NUMBER \?CND8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-133 (2542)
|
|
ZERO? PRSO /?ELS4
|
|
EQUAL? PRSI,INTNUM \?ELS4
|
|
FSET? PRSO,P-NUMBER \?CND6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-135 (2616)
|
|
?CND8: FSET PRSO,P-NUMBER
|
|
ZERO? F /?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-137 (2639)
|
|
?CND6: FSET PRSO,P-NUMBER
|
|
ZERO? F /?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-138 (2674)
|
|
?ELS15: PRINTR "#FALSE ()"
|
|
?ELS5: PRINTR "OOPS!"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-140 (2697)
|
|
?ELS11: PRINTR "#FALSE ()"
|
|
?ELS4: PRINTR "OOPS!"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-143 (2747)
|
|
ZERO? PRSO /?ELS5
|
|
EQUAL? PRSI,INTNUM \?ELS5
|
|
FSET? PRSO,P-NUMBER \?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-145 (2770)
|
|
ZERO? PRSO /?ELS4
|
|
EQUAL? PRSI,INTNUM \?ELS4
|
|
FSET? PRSO,P-NUMBER \?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-147 (2838)
|
|
?ELS12: PRINTR "#FALSE ()"
|
|
?ELS5: PRINTR "OOPS!"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-149 (2860)
|
|
?ELS9: PRINTR "#FALSE ()"
|
|
?ELS4: PRINTR "OOPS!"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-156 (3036)
|
|
EQUAL? CNT,EXTRA-C \?ELS8
|
|
ZERO? S \?ELS8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-158 (3057)
|
|
EQUAL? CNT,EXTRA-C \?ELS6
|
|
ZERO? S \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-165 (3193)
|
|
ZERO? STACK \?CND15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-167 (3214)
|
|
ZERO? STACK \?CND12
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-167 (3238)
|
|
?CND15: CRLF
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-169 (3259)
|
|
?CND12: CRLF
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-169 (3266)
|
|
?ELS8: LOC C
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-171 (3287)
|
|
?ELS6: LOC C
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-176 (3376)
|
|
ZERO? STACK /?CND26
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-178 (3397)
|
|
ZERO? STACK /?CND20
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-181 (3455)
|
|
?CND26: GET O,GOAL-F >L
|
|
EQUAL? S,L /?CND31
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-183 (3476)
|
|
?CND20: GET O,GOAL-F >L
|
|
EQUAL? S,L /?CND24
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-186 (3549)
|
|
ZERO? STACK /?CND31
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-188 (3570)
|
|
ZERO? STACK /?CND24
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-191 (3628)
|
|
?CND31: GET O,GOAL-I >L
|
|
ZERO? L /?CND41
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-193 (3649)
|
|
?CND24: GET O,GOAL-I >L
|
|
ZERO? L /?CND32
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-194 (3697)
|
|
ZERO? L \?ELS46
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-196 (3718)
|
|
ZERO? L \?ELS35
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-196 (3731)
|
|
JUMP ?CND41
|
|
?ELS46: PRINTI "/I:"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-198 (3752)
|
|
JUMP ?CND32
|
|
?ELS35: PRINTI "/I:"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-200 (3800)
|
|
ZERO? STACK /?CND44
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-202 (3821)
|
|
ZERO? STACK /?CND34
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-205 (3879)
|
|
?CND44:
|
|
?CND41: GET O,GOAL-FUNCTION
|
|
EQUAL? I-WALK-TRAIN,STACK \?CND58
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-207 (3900)
|
|
?CND34:
|
|
?CND32: GET O,GOAL-FUNCTION
|
|
EQUAL? I-WALK-TRAIN,STACK \?CND44
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-215 (4067)
|
|
?CND58: GET O,GOAL-ENABLE
|
|
ZERO? STACK \?CND63
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-217 (4088)
|
|
?CND44: GET O,GOAL-ENABLE
|
|
ZERO? STACK \?CND48
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-218 (4139)
|
|
?CND63: CRLF
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-220 (4160)
|
|
?CND48: CRLF
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-224 (4236)
|
|
ZERO? CNT /?ELS3
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-226 (4257)
|
|
ZERO? CNT /?ELS2
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-227 (4293)
|
|
?ELS3: CALL ZMEMZ,PRSO,TRAIN-TABLE-B >CNT
|
|
ZERO? CNT /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-229 (4314)
|
|
?ELS2: CALL ZMEMZ,PRSO,TRAIN-TABLE-B >CNT
|
|
ZERO? CNT /?ELS3
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-231 (4393)
|
|
?ELS5: PRINTR "[Not in timetable!]"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-233 (4414)
|
|
?ELS3: PRINTR "[Not in timetable!]"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-242 (4616)
|
|
ZERO? PRSI /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-244 (4637)
|
|
ZERO? PRSI /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-245 (4662)
|
|
?ELS5: ZERO? PRSO /?ELS8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-247 (4683)
|
|
?ELS4: ZERO? PRSO /?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-248 (4722)
|
|
?ELS8:
|
|
?PRG12: GET CHARACTER-TABLE,CNT >O
|
|
ZERO? O /?CND14
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-250 (4743)
|
|
?ELS5:
|
|
?PRG6: GET CHARACTER-TABLE,CNT >O
|
|
ZERO? O /?CND8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-252 (4806)
|
|
?CND14: IGRTR? 'CNT,CHARACTER-MAX \?PRG12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-254 (4825)
|
|
?CND8: IGRTR? 'CNT,CHARACTER-MAX \?PRG6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-254 (4874)
|
|
?PRG20: GET EXTRA-TABLE,CNT >O
|
|
ZERO? O /?CND22
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-256 (4891)
|
|
?PRG12: GET EXTRA-TABLE,CNT >O
|
|
ZERO? O /?CND14
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-257 (4945)
|
|
?CND22: DLESS? 'CNT,1 \?PRG20
|
|
RTRUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-259 (4962)
|
|
?CND14: DLESS? 'CNT,1 \?PRG12
|
|
PUSH 1
|
|
RSTACK
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-265 (5052)
|
|
ZERO? L /?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-268 (5079)
|
|
ZERO? L /?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-268 (5098)
|
|
ZERO? STACK /?CND11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-271 (5125)
|
|
ZERO? STACK /?CND9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-273 (5182)
|
|
?CND11: CALL PRINTT,L
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-276 (5208)
|
|
?CND9: CALL PRINTT,L
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-275 (5236)
|
|
ZERO? STACK /?ELS20
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-278 (5261)
|
|
ZERO? STACK /?ELS16
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-277 (5278)
|
|
JUMP ?CND18
|
|
?ELS20: CALL ON-PLATFORM?,L
|
|
ZERO? STACK /?CND18
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-280 (5303)
|
|
JUMP ?CND15
|
|
?ELS16: CALL ON-PLATFORM?,L
|
|
ZERO? STACK /?CND15
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-284 (5400)
|
|
?CND18: PRINTR "."
|
|
?ELS7: PRINTR "nowhere."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-287 (5425)
|
|
?CND15: PRINTR "."
|
|
?ELS6: PRINTR "nowhere."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-289 (5467)
|
|
ZERO? PRSO /?ELS5
|
|
ZERO? IDEBUG \?PRD7
|
|
PUSH 1
|
|
JUMP ?PRD8
|
|
?PRD7: PUSH 0
|
|
?PRD8: SET 'IDEBUG,STACK
|
|
PRINTI "["
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-292 (5492)
|
|
ZERO? PRSO /?ELS4
|
|
ZERO? IDEBUG \?PRD5
|
|
SET 'IDEBUG,1
|
|
JUMP ?PRD6
|
|
?PRD5: SET 'IDEBUG,0
|
|
?PRD6: PRINTI "["
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-298 (5614)
|
|
?ELS5: ZERO? DEBUG \?PRD13
|
|
PUSH 1
|
|
JUMP ?PRD14
|
|
?PRD13: PUSH 0
|
|
?PRD14: SET 'DEBUG,STACK
|
|
ZERO? DEBUG /?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-300 (5633)
|
|
?ELS4: ZERO? DEBUG \?PRD9
|
|
SET 'DEBUG,1
|
|
JUMP ?PRD10
|
|
?PRD9: SET 'DEBUG,0
|
|
?PRD10: ZERO? DEBUG /?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-305 (5762)
|
|
?ELS12: PRINTR "No bugs left, eh?"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-306 (5772)
|
|
?ELS11: PRINTR "No bugs left, eh?"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-343 (6440)
|
|
?CND1: EQUAL? WINNER,PLAYER \?CND6
|
|
GRTR? POCKET-CHANGE,0 /?THN11
|
|
FIRST? POCKET \?CND6
|
|
?THN11: CALL THIS-IS-IT,POCKET
|
|
ZERO? X /?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-344 (6450)
|
|
?CND1: EQUAL? WINNER,PLAYER \?CND5
|
|
GRTR? POCKET-CHANGE,0 /?THN7
|
|
FIRST? POCKET \?CND5
|
|
?THN7: CALL THIS-IS-IT,POCKET
|
|
ZERO? X /?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-349 (6596)
|
|
JUMP ?CND13
|
|
?ELS15: PRINTI " But"
|
|
?CND13: PRINTI " there's something in "
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-350 (6604)
|
|
JUMP ?CND9
|
|
?ELS10: PRINTI " But"
|
|
?CND9: PRINTI " there's something in "
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-354 (6703)
|
|
?CND6: CRLF
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-355 (6709)
|
|
?CND5: CRLF
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-365 (6940)
|
|
ZERO? STACK /?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-366 (6946)
|
|
ZERO? STACK /?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-368 (6979)
|
|
?ELS15: PRINTR "Okay."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-369 (6985)
|
|
?ELS11: PRINTR "Okay."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-384 (7326)
|
|
ZERO? STACK \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-385 (7332)
|
|
ZERO? STACK \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-387 (7394)
|
|
?ELS5: PRINTI "Okay.)"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-388 (7400)
|
|
?ELS4: PRINTI "Okay.)"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-389 (7426)
|
|
?CND3: SAVE \?ELS14
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-390 (7432)
|
|
?CND3: SAVE \?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-395 (7534)
|
|
?ELS14: SET 'CLOCK-WAIT,TRUE-VALUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-396 (7540)
|
|
?ELS10: SET 'CLOCK-WAIT,TRUE-VALUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-402 (7625)
|
|
RESTORE \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-403 (7631)
|
|
RESTORE \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-407 (7697)
|
|
?ELS5: PRINT FAILED
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-408 (7703)
|
|
?ELS4: PRINT FAILED
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-414 (7783)
|
|
ZERO? SUPER-BRIEF \FALSE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-415 (7789)
|
|
ZERO? SUPER-BRIEF \?PRD6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-419 (7848)
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-418 (7850)
|
|
?PRD6: PUSH 0
|
|
RSTACK
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-432 (8151)
|
|
?PRG7: IGRTR? 'CNT,23 \?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-435 (8182)
|
|
?PRG7: IGRTR? 'CNT,23 \?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-434 (8195)
|
|
?ELS11: GETB 0,CNT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-437 (8226)
|
|
?ELS10: GETB 0,CNT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-438 (8264)
|
|
EQUAL? VARIATION,1,2 \?ELS18
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-441 (8295)
|
|
EQUAL? VARIATION,1,2 \?ELS14
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-440 (8315)
|
|
JUMP ?CND16
|
|
?ELS18: PRINTI "Spy"
|
|
?CND16: PRINTI "'s viewpoint, "
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-443 (8346)
|
|
JUMP ?CND13
|
|
?ELS14: PRINTI "Spy"
|
|
?CND13: PRINTI "'s viewpoint, "
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-444 (8402)
|
|
ZERO? STACK \?ELS29
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-447 (8433)
|
|
ZERO? STACK \?ELS22
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-446 (8440)
|
|
JUMP ?CND27
|
|
?ELS29: PRINTI "short"
|
|
?CND27: PRINTR " variation"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-449 (8471)
|
|
JUMP ?CND21
|
|
?ELS22: PRINTI "short"
|
|
?CND21: PRINTR " variation"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-456 (8639)
|
|
ZERO? STACK \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-459 (8670)
|
|
ZERO? STACK \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-458 (8673)
|
|
?ELS5: ZERO? WORD /?CND3
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-461 (8704)
|
|
?ELS4: ZERO? WORD /?CND3
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-460 (8736)
|
|
EQUAL? VAL,ACT?YES \?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-463 (8767)
|
|
EQUAL? VAL,ACT?YES \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-463 (8800)
|
|
?ELS10: EQUAL? VAL,ACT?NO /?THN13
|
|
EQUAL? WORD,W?N \?CND3
|
|
?THN13: SET 'VAL,FALSE-VALUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-466 (8830)
|
|
?ELS7: EQUAL? VAL,ACT?NO /?THN8
|
|
EQUAL? WORD,W?N \?CND6
|
|
?THN8: SET 'VAL,FALSE-VALUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-467 (8903)
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-470 (8930)
|
|
?CND6:
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-474 (9055)
|
|
ZERO? STR /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-478 (9091)
|
|
ZERO? STR /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-477 (9099)
|
|
?ELS5: CALL VERB-PRINT
|
|
?CND3: EQUAL? STR,STR?129 \?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-481 (9135)
|
|
?ELS4: CALL VERB-PRINT
|
|
?CND3: EQUAL? STR,STR?129 \?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-480 (9189)
|
|
?ELS15: ZERO? STR1 /?ELS19
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-484 (9225)
|
|
?ELS10: ZERO? STR1 /?ELS13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-482 (9238)
|
|
ZERO? WHILE /?ELS25
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-486 (9274)
|
|
ZERO? WHILE /?ELS17
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-485 (9304)
|
|
JUMP ?CND23
|
|
?ELS25: PRINTI " it"
|
|
?CND23: PRINTI " is "
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-489 (9340)
|
|
JUMP ?CND16
|
|
?ELS17: PRINTI " it"
|
|
?CND16: PRINTI " is "
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-490 (9389)
|
|
?ELS19: CALL PRINTT,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-494 (9425)
|
|
?ELS13: CALL PRINTT,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-500 (9580)
|
|
?CND1: ZERO? LEVEL \?ELS8
|
|
FSET? OBJ,TOUCHBIT /?ELS14
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-504 (9616)
|
|
?CND1: ZERO? LEVEL \?ELS5
|
|
FSET? OBJ,TOUCHBIT /?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-503 (9660)
|
|
ZERO? STR \?THN11
|
|
?ELS14: GETP OBJ,P?LDESC >STR
|
|
ZERO? STR /?ELS8
|
|
?THN11: PRINT STR
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-507 (9695)
|
|
ZERO? STR \?THN6
|
|
?ELS7: GETP OBJ,P?LDESC >STR
|
|
ZERO? STR /?ELS5
|
|
?THN6: PRINT STR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-508 (9757)
|
|
JUMP ?CND6
|
|
?ELS8: ZERO? LEVEL \?ELS18
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-512 (9789)
|
|
JUMP ?CND4
|
|
?ELS5: ZERO? LEVEL \?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-514 (9862)
|
|
JUMP ?CND6
|
|
?ELS18: CALL PRINTA,OBJ
|
|
FSET? OBJ,WORNBIT \?CND6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-518 (9894)
|
|
JUMP ?CND4
|
|
?ELS11: CALL PRINTA,OBJ
|
|
FSET? OBJ,WORNBIT \?CND4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-518 (9952)
|
|
?CND6: CALL SEE-INSIDE?,OBJ
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-522 (9984)
|
|
?CND4: CALL SEE-INSIDE?,OBJ
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-523 (10064)
|
|
FSET? OBJ,SURFACEBIT \?CND39
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-527 (10096)
|
|
FSET? OBJ,SURFACEBIT \?CND27
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-525 (10121)
|
|
?CND39: PRINTI ")"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-529 (10153)
|
|
?CND27: PRINTI ")"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-530 (10185)
|
|
FIRST? HERE \FALSE
|
|
ZERO? V? /?ORP14
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-534 (10217)
|
|
FIRST? HERE \?PRD6
|
|
ZERO? V? /?ORP10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-533 (10235)
|
|
JUMP ?THN11
|
|
?ORP14: PUSH VERBOSE
|
|
?THN11: POP 'V?
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-537 (10267)
|
|
JUMP ?THN8
|
|
?ORP10: PUSH VERBOSE
|
|
?THN8: POP 'V?
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-540 (10331)
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-542 (10357)
|
|
?PRD6: PUSH 0
|
|
RSTACK
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-541 (10371)
|
|
ZERO? LOOK? /?ORP4
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-547 (10426)
|
|
ZERO? LOOK? /?ORP3
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-544 (10418)
|
|
?ORP4: PUSH VERBOSE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-550 (10473)
|
|
?ORP3: PUSH VERBOSE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-546 (10455)
|
|
FSET? HERE,TOUCHBIT /?CND5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-552 (10510)
|
|
FSET? HERE,TOUCHBIT /?CND4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-548 (10505)
|
|
?CND5: IN? HERE,ROOMS \?CND8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-554 (10560)
|
|
?CND4: IN? HERE,ROOMS \?CND6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-553 (10583)
|
|
?CND8: ZERO? PLAYER-NOT-FACING /?CND13
|
|
ZERO? LOOK? \?THN18
|
|
EQUAL? PLAYER-NOT-FACING,PLAYER-NOT-FACING-OLD /?CND13
|
|
?THN18: PRINTI "(You're facing to "
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-559 (10638)
|
|
?CND6: ZERO? PLAYER-NOT-FACING /?CND10
|
|
ZERO? LOOK? \?THN12
|
|
EQUAL? PLAYER-NOT-FACING,PLAYER-NOT-FACING-OLD /?CND10
|
|
?THN12: PRINTI "(You're facing to "
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-559 (10795)
|
|
ZERO? LOOK? /?CND22
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-565 (10850)
|
|
ZERO? LOOK? /?CND16
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-561 (10874)
|
|
?CND22: PRINTI ".)"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-567 (10929)
|
|
?CND16: PRINTI ".)"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-563 (10903)
|
|
?CND13: ZERO? V? /?CND30
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-569 (10958)
|
|
?CND10: ZERO? V? /?CND22
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-565 (10945)
|
|
FSET? L,VEHBIT \?CND34
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-571 (11000)
|
|
FSET? L,VEHBIT \?CND24
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-567 (10990)
|
|
FSET? L,SURFACEBIT \?ELS41
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-573 (11045)
|
|
FSET? L,SURFACEBIT \?ELS29
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-569 (11040)
|
|
JUMP ?CND39
|
|
?ELS41: PRINTI "standing i"
|
|
?CND39: PRINTI "n"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-575 (11095)
|
|
JUMP ?CND28
|
|
?ELS29: PRINTI "standing i"
|
|
?CND28: PRINTI "n"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-575 (11141)
|
|
?CND34: ZERO? V? /?ELS52
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-581 (11196)
|
|
?CND24: ZERO? V? /?ELS37
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-578 (11208)
|
|
ZERO? STACK /?ELS52
|
|
JUMP ?CND50
|
|
?ELS52: ZERO? V? /?ELS56
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-584 (11263)
|
|
ZERO? STACK /?ELS37
|
|
JUMP ?CND36
|
|
?ELS37: ZERO? V? /?ELS39
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-582 (11295)
|
|
ZERO? STR /?ELS56
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-588 (11350)
|
|
ZERO? STR /?ELS39
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-585 (11335)
|
|
JUMP ?CND50
|
|
?ELS56: ZERO? V? /?ELS62
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-591 (11390)
|
|
JUMP ?CND36
|
|
?ELS39: ZERO? V? /?ELS43
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-588 (11400)
|
|
ZERO? STR /?ELS62
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-594 (11455)
|
|
ZERO? STR /?ELS43
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-591 (11440)
|
|
JUMP ?CND50
|
|
?ELS62: GETP HERE,P?ACTION
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-597 (11495)
|
|
JUMP ?CND36
|
|
?ELS43: GETP HERE,P?ACTION
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-594 (11503)
|
|
?CND50: EQUAL? HERE,L /?CND30
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-600 (11558)
|
|
?CND36: EQUAL? HERE,L /?CND22
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-597 (11572)
|
|
?CND30: GETP HERE,P?CORRIDOR
|
|
ZERO? STACK /?CND72
|
|
ZERO? LOOK? /?CND75
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-603 (11627)
|
|
?CND22: GETP HERE,P?CORRIDOR
|
|
ZERO? STACK /?CND49
|
|
ZERO? LOOK? /?CND51
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-601 (11677)
|
|
?CND75: CALL CORRIDOR-LOOK
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-607 (11732)
|
|
?CND51: CALL CORRIDOR-LOOK
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-603 (11737)
|
|
?CND72: FSET HERE,SEENBIT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-609 (11792)
|
|
?CND49: FSET HERE,SEENBIT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-605 (11785)
|
|
EQUAL? HERE,VESTIBULE-REAR \?ELS81
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-611 (11840)
|
|
EQUAL? HERE,VESTIBULE-REAR \?ELS54
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-608 (11868)
|
|
?ELS81: EQUAL? HERE,VESTIBULE-FWD \?ELS83
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-614 (11923)
|
|
?ELS54: EQUAL? HERE,VESTIBULE-FWD \?ELS55
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-611 (11956)
|
|
?ELS83: EQUAL? HERE,VESTIBULE-REAR-DINER \?ELS85
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-617 (12011)
|
|
?ELS55: EQUAL? HERE,VESTIBULE-REAR-DINER \?ELS56
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-614 (12046)
|
|
?ELS85: EQUAL? HERE,VESTIBULE-FWD-DINER \TRUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-620 (12101)
|
|
?ELS56: EQUAL? HERE,VESTIBULE-FWD-DINER \TRUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-622 (12217)
|
|
ZERO? STACK \?THN8
|
|
EQUAL? HERE,BESIDE-TRACKS \?ELS7
|
|
EQUAL? CAR-HERE,DINER-CAR /?ELS7
|
|
?THN8: CALL ZMEMQ,L,CAR-ROOMS
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-628 (12272)
|
|
ZERO? STACK \?THN5
|
|
EQUAL? HERE,BESIDE-TRACKS \?ELS6
|
|
EQUAL? CAR-HERE,DINER-CAR /?ELS6
|
|
?THN5: CALL ZMEMQ,L,CAR-ROOMS
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-628 (12369)
|
|
?ELS7: CALL ZMEMQ,HERE,CAR-ROOMS-DINER
|
|
ZERO? STACK \?THN16
|
|
EQUAL? HERE,BESIDE-TRACKS \?ELS15
|
|
EQUAL? CAR-HERE,DINER-CAR \?ELS15
|
|
?THN16: CALL ZMEMQ,L,CAR-ROOMS-DINER
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-634 (12424)
|
|
?ELS6: CALL ZMEMQ,HERE,CAR-ROOMS-DINER
|
|
ZERO? STACK \?THN10
|
|
EQUAL? HERE,BESIDE-TRACKS \?ELS11
|
|
EQUAL? CAR-HERE,DINER-CAR \?ELS11
|
|
?THN10: CALL ZMEMQ,L,CAR-ROOMS-DINER
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-635 (12571)
|
|
?ELS15: CALL ZMEMQ,HERE,STATION-ROOMS
|
|
ZERO? STACK /?ELS23
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-641 (12626)
|
|
?ELS11: CALL ZMEMQ,HERE,STATION-ROOMS
|
|
ZERO? STACK /?ELS15
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-640 (12710)
|
|
EQUAL? HERE,PLATFORM-A \?ELS32
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-646 (12765)
|
|
EQUAL? HERE,PLATFORM-A \?ELS21
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-643 (12781)
|
|
?ELS32: EQUAL? L,PLATFORM-A /TRUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-649 (12836)
|
|
?ELS21: EQUAL? L,PLATFORM-A /TRUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-645 (12826)
|
|
?ELS23: EQUAL? HERE,ROOF \?ELS40
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-651 (12881)
|
|
?ELS15: EQUAL? HERE,ROOF \?ELS26
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-648 (12892)
|
|
?ELS40: PRINTR "[Foo! Where is HERE?]"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-654 (12947)
|
|
?ELS26: PRINTR "[Foo! Where is HERE?]"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-652 (12996)
|
|
EQUAL? DIR,P?NORTH,P?EAST /?THN4
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-658 (13051)
|
|
EQUAL? DIR,P?NORTH,P?EAST /?THN2
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-654 (13066)
|
|
?THN4: RETURN DIR
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-660 (13121)
|
|
?THN2: RETURN DIR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-658 (13147)
|
|
?PRG6: ZERO? VAL /?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-664 (13202)
|
|
?PRG4: ZERO? VAL /?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-660 (13186)
|
|
?ELS10: NEXTP RM,P >P
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-666 (13240)
|
|
?ELS7: NEXTP RM,P >P
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-662 (13226)
|
|
EQUAL? P,P?NORTH,P?EAST /?ELS15
|
|
EQUAL? P,P?SOUTH,P?WEST /?ELS15
|
|
JUMP ?PRG6
|
|
?ELS15: LESS? P,LOW-DIRECTION /?PRG6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-668 (13279)
|
|
EQUAL? P,P?NORTH,P?EAST /?ELS9
|
|
EQUAL? P,P?SOUTH,P?WEST /?ELS9
|
|
JUMP ?PRG4
|
|
?ELS9: LESS? P,LOW-DIRECTION /?PRG4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-668 (13379)
|
|
EQUAL? L,DIRL /?CND20
|
|
JUMP ?PRG6
|
|
?CND20: DEC 'L
|
|
?PRG23: GETB TBL,L >?TMP1
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-674 (13429)
|
|
EQUAL? L,DIRL /?CND12
|
|
JUMP ?PRG4
|
|
?CND12: DEC 'L
|
|
?PRG14: GETB TBL,L >?TMP1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-673 (13475)
|
|
EQUAL? ?TMP1,STACK /?ELS27
|
|
JUMP ?PRG6
|
|
?ELS27: DLESS? 'L,0 \?PRG23
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-679 (13525)
|
|
EQUAL? ?TMP1,STACK /?ELS17
|
|
JUMP ?PRG4
|
|
?ELS17: DLESS? 'L,0 \?PRG14
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-677 (13559)
|
|
JUMP ?PRG6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-683 (13609)
|
|
JUMP ?PRG4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-681 (13609)
|
|
EQUAL? OBJ,PLAYER \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-687 (13659)
|
|
EQUAL? OBJ,PLAYER \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-684 (13672)
|
|
?ELS5: FSET? OBJ,PERSONBIT \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-690 (13722)
|
|
?ELS4: FSET? OBJ,PERSONBIT \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-688 (13766)
|
|
?ELS9: IN? OBJ,ROOMS /FALSE
|
|
FSET? OBJ,SURFACEBIT \?ELS18
|
|
GRTR? LEVEL,0 \?ELS23
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-694 (13816)
|
|
?ELS7: IN? OBJ,ROOMS /FALSE
|
|
FSET? OBJ,SURFACEBIT \?ELS14
|
|
GRTR? LEVEL,0 \?ELS18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-693 (13883)
|
|
?ELS23: PRINTI "Sitting on"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-699 (13933)
|
|
?ELS18: PRINTI "Sitting on"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-697 (13955)
|
|
?ELS18: GRTR? LEVEL,0 \?ELS36
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-703 (14005)
|
|
?ELS14: GRTR? LEVEL,0 \?ELS26
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-700 (14022)
|
|
JUMP ?CND34
|
|
?ELS36: CALL START-SENTENCE,OBJ
|
|
?CND34: PRINTI " contains "
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-706 (14072)
|
|
JUMP ?CND25
|
|
?ELS26: CALL START-SENTENCE,OBJ
|
|
?CND25: PRINTI " contains "
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-729 (14496)
|
|
FSET? WINNER,MUNGBIT \?CND6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-735 (14546)
|
|
FSET? WINNER,MUNGBIT \?CND4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-732 (14561)
|
|
?CND6: MOVE WINNER,RM
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-738 (14611)
|
|
?CND4: MOVE WINNER,RM
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-739 (14720)
|
|
ZERO? V? /?CND12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-745 (14770)
|
|
ZERO? V? /?CND8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-741 (14759)
|
|
?CND12: GETP HERE,P?ACTION
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-747 (14808)
|
|
?CND8: GETP HERE,P?ACTION
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-759 (15009)
|
|
?PRG4: LOC OBJ >L
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-765 (15057)
|
|
?PRG3: LOC OBJ >L
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-762 (15067)
|
|
EQUAL? CONT,PLAYER \?ELS12
|
|
EQUAL? OBJ,GLOBAL-MONEY \?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-768 (15115)
|
|
EQUAL? CONT,PLAYER \?ELS8
|
|
EQUAL? OBJ,GLOBAL-MONEY \?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-766 (15170)
|
|
?ELS15: EQUAL? OBJ,DOLLARS \?ELS22
|
|
ZERO? P-DOLLAR-FLAG /?ELS25
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-772 (15217)
|
|
?ELS10: EQUAL? OBJ,DOLLARS \?ELS13
|
|
ZERO? P-DOLLAR-FLAG /?ELS15
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-770 (15283)
|
|
?ELS25: ZERO? P-NUMBER \?ELS33
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-776 (15330)
|
|
?ELS15: ZERO? P-NUMBER \?ELS18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-773 (15355)
|
|
?ELS33: LESS? POCKET-CHANGE,P-NUMBER \TRUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-779 (15402)
|
|
?ELS18: LESS? POCKET-CHANGE,P-NUMBER \TRUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-775 (15409)
|
|
?ELS22: EQUAL? OBJ,INTNUM \?ELS47
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-781 (15456)
|
|
?ELS13: EQUAL? OBJ,INTNUM \?ELS23
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-779 (15520)
|
|
?ELS47: SET 'OBJ,L
|
|
JUMP ?PRG4
|
|
?ELS12: EQUAL? L,ROOMS,GLOBAL-OBJECTS /FALSE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-785 (15567)
|
|
?ELS23: SET 'OBJ,L
|
|
JUMP ?PRG3
|
|
?ELS8: EQUAL? L,ROOMS,GLOBAL-OBJECTS /FALSE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-783 (15612)
|
|
JUMP ?PRG4
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-789 (15658)
|
|
JUMP ?PRG3
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-787 (15644)
|
|
FSET? PRSO,PERSONBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-793 (15690)
|
|
FSET? PRSO,PERSONBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-792 (15752)
|
|
?ELS5: CALL NOT-HOLDING?,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-798 (15798)
|
|
?ELS4: CALL NOT-HOLDING?,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-794 (15804)
|
|
IN? PRSO,WINNER /?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-800 (15850)
|
|
IN? PRSO,WINNER /?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-796 (15841)
|
|
FSET? STACK,OPENBIT /?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-802 (15886)
|
|
FSET? STACK,OPENBIT /?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-800 (15923)
|
|
?ELS11: MOVE PRSO,HERE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-806 (15967)
|
|
?ELS8: MOVE PRSO,HERE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-809 (16079)
|
|
FSET? L,PERSONBIT /?THN4
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-815 (16122)
|
|
FSET? L,PERSONBIT /?THN2
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-813 (16172)
|
|
?THN4: FSET? PRSO,TAKEBIT /?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-819 (16215)
|
|
?THN2: FSET? PRSO,TAKEBIT /?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-815 (16224)
|
|
ZERO? STACK \?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-821 (16266)
|
|
ZERO? STACK \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-823 (16405)
|
|
ZERO? STACK \?ELS21
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-829 (16446)
|
|
ZERO? STACK \?ELS13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-825 (16446)
|
|
JUMP ?CND19
|
|
?ELS21: PRINTI "hopeful"
|
|
?CND19: PRINTI "ly."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-831 (16487)
|
|
JUMP ?CND12
|
|
?ELS13: PRINTI "hopeful"
|
|
?CND12: PRINTI "ly."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-830 (16526)
|
|
?ELS10: FSET PRSO,TAKEBIT
|
|
?CND1: EQUAL? PRSO,GLOBAL-MONEY \?ELS36
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-836 (16567)
|
|
?ELS6: FSET PRSO,TAKEBIT
|
|
?CND1: EQUAL? PRSO,GLOBAL-MONEY \?ELS23
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-833 (16631)
|
|
?ELS36: FSET? PRSO,TAKEBIT /?ELS40
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-839 (16671)
|
|
?ELS23: FSET? PRSO,TAKEBIT /?ELS25
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-837 (16719)
|
|
?ELS40: EQUAL? NOW-LURCHING,MOVES \?ELS46
|
|
ZERO? TRAIN-MOVING /?ELS46
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-843 (16759)
|
|
?ELS25: EQUAL? NOW-LURCHING,MOVES \?ELS28
|
|
ZERO? TRAIN-MOVING /?ELS28
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-845 (16926)
|
|
?ELS46: CALL CCOUNT,WINNER >CNT
|
|
GRTR? CNT,FUMBLE-NUMBER \?ELS56
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-851 (16966)
|
|
?ELS28: CALL CCOUNT,WINNER >CNT
|
|
GRTR? CNT,FUMBLE-NUMBER \?ELS34
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-849 (17035)
|
|
LESS? ?TMP1,STACK /?ELS56
|
|
FIRST? WINNER >OBJ /?KLU78
|
|
?KLU78: CALL TOO-BAD-BUT,OBJ
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-855 (17075)
|
|
LESS? ?TMP1,STACK /?ELS34
|
|
FIRST? WINNER >OBJ /?KLU49
|
|
?KLU49: CALL TOO-BAD-BUT,OBJ
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-866 (17436)
|
|
?ELS56: EQUAL? PRSO,FILM \?CND67
|
|
EQUAL? L,CAMERA \?CND67
|
|
ZERO? CAMERA-COCKED /?CND67
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-872 (17476)
|
|
?ELS34: EQUAL? PRSO,FILM \?CND42
|
|
EQUAL? L,CAMERA \?CND42
|
|
ZERO? CAMERA-COCKED /?CND42
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-871 (17604)
|
|
?CND67: SET 'ITAKE-LOC,FALSE-VALUE
|
|
FSET? L,PERSONBIT \?CND72
|
|
ZERO? VB \?CND72
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-877 (17644)
|
|
?CND42: SET 'ITAKE-LOC,FALSE-VALUE
|
|
FSET? L,PERSONBIT \?CND45
|
|
ZERO? VB \?CND45
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-875 (17706)
|
|
?CND72: CALL MOVE-FROM,PRSO,WINNER
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-881 (17746)
|
|
?CND45: CALL MOVE-FROM,PRSO,WINNER
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-896 (18103)
|
|
?PRG4: FSET? X,WORNBIT /?CND6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-902 (18143)
|
|
?PRG3: FSET? X,WORNBIT /?CND5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-898 (18145)
|
|
?CND6: NEXT? X >X /?PRG4
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-904 (18185)
|
|
?CND5: NEXT? X >X /?PRG3
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-905 (18258)
|
|
FSET? DR,OPENBIT \?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-911 (18298)
|
|
FSET? DR,OPENBIT \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-908 (18310)
|
|
?ELS7: PUSH STR?7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-914 (18350)
|
|
?ELS6: PUSH STR?7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-910 (18349)
|
|
FSET? DR,LOCKED \?CND10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-916 (18389)
|
|
FSET? DR,LOCKED \?CND7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-912 (18398)
|
|
?CND10: PRINTR "."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-918 (18437)
|
|
?CND7: PRINTR "."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-919 (18548)
|
|
EQUAL? WINNER,OBJ,STACK \?CND4
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-925 (18586)
|
|
EQUAL? WINNER,OBJ,STACK \?CND3
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-921 (18604)
|
|
?CND4:
|
|
?PRG10: ZERO? Y \?ELS14
|
|
JUMP ?CND7
|
|
?ELS14: EQUAL? Y,WINNER,POCKET \?ELS16
|
|
JUMP ?CND12
|
|
?ELS16: FSET? Y,INVISIBLE \?ELS24
|
|
ZERO? DEBUG /?ELS24
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-927 (18642)
|
|
?CND3:
|
|
?PRG6: ZERO? Y \?ELS9
|
|
JUMP ?CND5
|
|
?ELS9: EQUAL? Y,WINNER,POCKET \?ELS10
|
|
JUMP ?CND8
|
|
?ELS10: FSET? Y,INVISIBLE \?THN12
|
|
ZERO? DEBUG /?CND8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-929 (18786)
|
|
?ELS24: FSET? Y,TOUCHBIT /?CND12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-935 (18819)
|
|
ZERO? 1 /?CND8
|
|
?THN12: FSET? Y,TOUCHBIT /?CND8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-931 (18842)
|
|
ZERO? STR /?CND12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-938 (18891)
|
|
ZERO? STR /?CND8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-933 (18881)
|
|
ZERO? STACK \?CND12
|
|
FSET? Y,NDESCBIT \?THN30
|
|
ZERO? DEBUG /?CND27
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-940 (18929)
|
|
ZERO? STACK \?CND8
|
|
FSET? Y,NDESCBIT \?THN18
|
|
ZERO? DEBUG /?CND17
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-937 (18975)
|
|
?THN30: SET '1ST?,FALSE-VALUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-944 (19022)
|
|
ZERO? 1 /?CND17
|
|
?THN18: SET '1ST?,FALSE-VALUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-939 (19021)
|
|
ZERO? STR /?CND27
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-947 (19086)
|
|
ZERO? STR /?CND17
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-945 (19126)
|
|
?CND27: CALL SEE-INSIDE?,Y
|
|
ZERO? STACK /?CND12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-953 (19191)
|
|
?CND17: CALL SEE-INSIDE?,Y
|
|
ZERO? STACK /?CND8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-949 (19207)
|
|
ZERO? STACK \?CND12
|
|
FIRST? Y \?CND12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-957 (19271)
|
|
ZERO? STACK \?CND8
|
|
FIRST? Y \?CND8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-952 (19273)
|
|
ZERO? STACK /?CND42
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-960 (19335)
|
|
ZERO? STACK /?CND27
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-954 (19317)
|
|
?CND42:
|
|
?CND12: FSET? Y,INVISIBLE /?CND50
|
|
FSET? Y,NDESCBIT /?CND50
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-962 (19379)
|
|
?CND27:
|
|
?CND8: FSET? Y,INVISIBLE /?CND32
|
|
FSET? Y,NDESCBIT /?CND32
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-958 (19403)
|
|
?CND50: NEXT? Y >Y /?KLU123
|
|
?KLU123: JUMP ?PRG10
|
|
?CND7: FIRST? OBJ >Y /?KLU124
|
|
?KLU124:
|
|
?PRG55: ZERO? Y \?ELS59
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-966 (19464)
|
|
?CND32: NEXT? Y >Y /?KLU79
|
|
?KLU79: JUMP ?PRG6
|
|
?CND5: FIRST? OBJ >Y /?KLU80
|
|
?KLU80:
|
|
?PRG35: ZERO? Y \?ELS38
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-964 (19534)
|
|
?ELS59: EQUAL? Y,PLAYER,POCKET \?ELS61
|
|
JUMP ?CND57
|
|
?ELS61: FSET? Y,INVISIBLE \?ELS69
|
|
ZERO? DEBUG /?ELS69
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-972 (19590)
|
|
?ELS38: EQUAL? Y,PLAYER,POCKET \?ELS39
|
|
JUMP ?CND37
|
|
?ELS39: FSET? Y,INVISIBLE \?THN41
|
|
ZERO? DEBUG /?CND37
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-969 (19669)
|
|
?ELS69: ZERO? INV? \?THN72
|
|
FSET? Y,TOUCHBIT /?THN72
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-977 (19725)
|
|
ZERO? 1 /?CND37
|
|
?THN41: ZERO? INV? \?THN45
|
|
FSET? Y,TOUCHBIT /?THN45
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-972 (19741)
|
|
ZERO? STACK \?CND57
|
|
?THN72: FSET? Y,NDESCBIT \?THN77
|
|
ZERO? DEBUG /?ELS76
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-981 (19815)
|
|
ZERO? STACK \?CND37
|
|
?THN45: FSET? Y,NDESCBIT \?THN48
|
|
ZERO? DEBUG /?ELS49
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-976 (19842)
|
|
?THN77: SET 'VAL,TRUE-VALUE
|
|
ZERO? 1ST? /?ELS85
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-985 (19916)
|
|
ZERO? 1 /?ELS49
|
|
?THN48: SET 'VAL,TRUE-VALUE
|
|
ZERO? 1ST? /?ELS54
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-980 (19946)
|
|
ZERO? STR /?CND87
|
|
LESS? LEVEL,0 \?CND87
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-990 (20038)
|
|
ZERO? STR /?CND55
|
|
LESS? LEVEL,0 \?CND55
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-983 (20005)
|
|
?CND87: INC 'LEVEL
|
|
JUMP ?CND83
|
|
?ELS85: IN? OBJ,ROOMS /?CND83
|
|
EQUAL? Y,LAST \?CND83
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-993 (20097)
|
|
?CND55: INC 'LEVEL
|
|
JUMP ?CND53
|
|
?ELS54: IN? OBJ,ROOMS /?CND53
|
|
EQUAL? Y,LAST \?CND53
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-988 (20110)
|
|
?CND83: CALL DESCRIBE-OBJECT,Y,LEVEL
|
|
EQUAL? Y,LAST \?ELS102
|
|
EQUAL? STR,TRUE-VALUE /?THN106
|
|
LESS? 0,LEVEL \?CND57
|
|
FSET? OBJ,NDESCBIT \?CND57
|
|
?THN106: PRINTI "."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-998 (20202)
|
|
?CND53: CALL DESCRIBE-OBJECT,Y,LEVEL
|
|
EQUAL? Y,LAST \?ELS65
|
|
EQUAL? STR,TRUE-VALUE /?THN67
|
|
LESS? 0,LEVEL \?CND37
|
|
FSET? OBJ,NDESCBIT \?CND37
|
|
?THN67: PRINTI "."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-995 (20288)
|
|
JUMP ?CND57
|
|
?ELS102: IN? OBJ,ROOMS /?CND74
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1005 (20377)
|
|
JUMP ?CND37
|
|
?ELS65: IN? OBJ,ROOMS /?CND47
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-998 (20348)
|
|
JUMP ?CND74
|
|
?ELS76: FIRST? Y \?CND57
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1008 (20436)
|
|
JUMP ?CND47
|
|
?ELS49: FIRST? Y \?CND37
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1001 (20409)
|
|
ZERO? STACK /?CND57
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1011 (20497)
|
|
ZERO? STACK /?CND37
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1003 (20460)
|
|
ZERO? STACK /?CND74
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1013 (20548)
|
|
ZERO? STACK /?CND47
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1005 (20504)
|
|
?CND74:
|
|
?CND57: NEXT? Y >Y /?KLU125
|
|
?KLU125: JUMP ?PRG55
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1015 (20592)
|
|
?CND47:
|
|
?CND37: NEXT? Y >Y /?KLU81
|
|
?KLU81: JUMP ?PRG35
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1012 (20631)
|
|
?PRG6: NEXT? F >N /?KLU26
|
|
?KLU26: ZERO? 1ST? /?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1022 (20717)
|
|
?PRG5: NEXT? F >N /?KLU19
|
|
?KLU19: ZERO? 1ST? /?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1015 (20710)
|
|
JUMP ?CND8
|
|
?ELS10: PRINTI ", "
|
|
ZERO? N \?CND8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1025 (20795)
|
|
JUMP ?CND7
|
|
?ELS8: PRINTI ", "
|
|
ZERO? N \?CND7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1019 (20777)
|
|
?CND8: CALL PRINTA,F
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1029 (20861)
|
|
?CND7: CALL PRINTA,F
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1022 (20830)
|
|
ZERO? F \?PRG6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1032 (20914)
|
|
ZERO? F \?PRG5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1028 (20902)
|
|
IN? P,ROOMS \?ELS5
|
|
EQUAL? P,HERE \?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1038 (20986)
|
|
IN? P,ROOMS \?ELS4
|
|
EQUAL? P,HERE \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1032 (20993)
|
|
?ELS10: CALL NEXT-ROOM,HERE,P?IN >?TMP1
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1042 (21076)
|
|
?ELS8: CALL NEXT-ROOM,HERE,P?IN >?TMP1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1039 (21190)
|
|
?ELS5: EQUAL? P,PSEUDO-OBJECT /FALSE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1049 (21272)
|
|
?ELS4: EQUAL? P,PSEUDO-OBJECT /FALSE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1045 (21367)
|
|
ZERO? STACK /?ELS27
|
|
IN? P,GLOBAL-OBJECTS \?ELS27
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1055 (21449)
|
|
ZERO? STACK /?ELS18
|
|
IN? P,GLOBAL-OBJECTS \?ELS18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1053 (21544)
|
|
?ELS27: CALL NOT-HERE,P
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1063 (21626)
|
|
?ELS18: CALL NOT-HERE,P
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1083 (22070)
|
|
EQUAL? WINNER,PLAYER \?ELS3
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1093 (22152)
|
|
EQUAL? WINNER,PLAYER \?ELS2
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1086 (22157)
|
|
?ELS3: CALL PRODUCE-GIBBERISH
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1096 (22239)
|
|
?ELS2: CALL PRODUCE-GIBBERISH
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1089 (22219)
|
|
ZERO? OBJ /?CND11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1099 (22301)
|
|
ZERO? OBJ /?CND7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1092 (22270)
|
|
ZERO? STR /?CND17
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1102 (22351)
|
|
ZERO? STR /?CND11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1095 (22322)
|
|
?CND17: EQUAL? STR,STR?133 \?ELS25
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1105 (22403)
|
|
?CND11: EQUAL? STR,STR?133 \?ELS16
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1097 (22375)
|
|
JUMP ?CND11
|
|
?ELS25: EQUAL? STR,STR?134 \?ELS27
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1107 (22456)
|
|
JUMP ?CND7
|
|
?ELS16: EQUAL? STR,STR?134 \?ELS17
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1100 (22444)
|
|
JUMP ?CND11
|
|
?ELS27: EQUAL? STR,STR?6 \?ELS29
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1110 (22524)
|
|
JUMP ?CND7
|
|
?ELS17: EQUAL? STR,STR?6 \?ELS18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1103 (22511)
|
|
JUMP ?CND11
|
|
?ELS29: EQUAL? STR,STR?7 \?ELS31
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1113 (22590)
|
|
JUMP ?CND7
|
|
?ELS18: EQUAL? STR,STR?7 \?ELS19
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1106 (22580)
|
|
JUMP ?CND11
|
|
?ELS31: EQUAL? STR,STR?135 \?ELS33
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1116 (22658)
|
|
JUMP ?CND7
|
|
?ELS19: EQUAL? STR,STR?135 \?ELS20
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1109 (22648)
|
|
JUMP ?CND11
|
|
?ELS33: EQUAL? STR,STR?136 \?CND11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1119 (22725)
|
|
JUMP ?CND7
|
|
?ELS20: EQUAL? STR,STR?136 \?CND7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1112 (22718)
|
|
?CND11: ZERO? STR \?THN39
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1122 (22793)
|
|
?CND7: ZERO? STR \?THN23
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1114 (22763)
|
|
?THN39: PRINTR "."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1124 (22837)
|
|
?THN23: PRINTR "."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1155 (23431)
|
|
EQUAL? OBJ,PSEUDO-OBJECT \?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1165 (23505)
|
|
EQUAL? OBJ,PSEUDO-OBJECT \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1158 (23512)
|
|
?ELS12: ZERO? L /FALSE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1168 (23585)
|
|
?ELS7: ZERO? L /FALSE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1160 (23568)
|
|
EQUAL? L,LOCAL-GLOBALS \?ELS25
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1170 (23640)
|
|
EQUAL? L,LOCAL-GLOBALS \?ELS14
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1163 (23648)
|
|
?ELS25: CALL META-LOC,OBJ
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1173 (23720)
|
|
?ELS14: CALL META-LOC,OBJ
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1166 (23731)
|
|
FSET? L,OPENBIT /?THN36
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1176 (23803)
|
|
FSET? L,OPENBIT /?THN19
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1168 (23784)
|
|
?THN36: CALL ACCESSIBLE?,L
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1178 (23856)
|
|
?THN19: CALL ACCESSIBLE?,L
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1176 (23912)
|
|
EQUAL? L,LOCAL-GLOBALS,GLOBAL-OBJECTS \?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1186 (23984)
|
|
EQUAL? L,LOCAL-GLOBALS,GLOBAL-OBJECTS \?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1178 (23970)
|
|
?ELS7: IN? OBJ,ROOMS \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1188 (24042)
|
|
?ELS5: IN? OBJ,ROOMS \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1180 (24012)
|
|
?ELS9: ZERO? INV /?CND12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1190 (24084)
|
|
?ELS6: ZERO? INV /?CND7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1182 (24067)
|
|
?CND12: SET 'OBJ,L
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1192 (24138)
|
|
?CND7: SET 'OBJ,L
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1189 (24173)
|
|
?PRG4: EQUAL? OBJ,PLAYER \?ELS8
|
|
FSET? CONT,WORNBIT \?ELS8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1199 (24243)
|
|
?PRG3: EQUAL? OBJ,PLAYER \?ELS6
|
|
FSET? CONT,WORNBIT \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1192 (24244)
|
|
JUMP ?CND6
|
|
?ELS8: EQUAL? OBJ,PLAYER \?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1202 (24314)
|
|
JUMP ?CND5
|
|
?ELS6: EQUAL? OBJ,PLAYER \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1195 (24302)
|
|
FSET? STACK,WORNBIT \?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1205 (24371)
|
|
FSET? STACK,WORNBIT \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1197 (24342)
|
|
JUMP ?CND6
|
|
?ELS12: CALL WEIGHT,CONT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1207 (24410)
|
|
JUMP ?CND5
|
|
?ELS8: CALL WEIGHT,CONT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1200 (24400)
|
|
?CND6: NEXT? CONT >CONT /?PRG4
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1210 (24467)
|
|
?CND5: NEXT? CONT >CONT /?PRG3
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1215 (24654)
|
|
?CND1: EQUAL? NOT-HERE-OBJECT,L-PRSO \?CND6
|
|
EQUAL? PRSA,V?BUY /?THN14
|
|
EQUAL? PRSA,V?WALK-TO,V?WAIT-UNTIL,V?WAIT-FOR /?THN12
|
|
?THN14: CALL VISIBLE?,L-PRSO-NOT-HERE
|
|
ZERO? STACK /?ELS11
|
|
?THN12: SET 'L-PRSO,L-PRSO-NOT-HERE
|
|
JUMP ?CND6
|
|
?ELS11: PRINTR "You can't see that here."
|
|
?CND6: EQUAL? NOT-HERE-OBJECT,L-PRSI \?CND20
|
|
EQUAL? PRSA,V?BUY /?THN28
|
|
EQUAL? PRSA,V?WALK-TO,V?WAIT-UNTIL,V?WAIT-FOR /?THN26
|
|
?THN28: CALL VISIBLE?,L-PRSI-NOT-HERE
|
|
ZERO? STACK /?ELS25
|
|
?THN26: SET 'L-PRSI,L-PRSI-NOT-HERE
|
|
JUMP ?CND20
|
|
?ELS25: PRINTR "You can't see that here."
|
|
?CND20: EQUAL? L-PRSA,V?WALK \?CND34
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1225 (24721)
|
|
?CND1: EQUAL? NOT-HERE-OBJECT,L-PRSO \?CND5
|
|
EQUAL? PRSA,V?BUY /?THN8
|
|
EQUAL? PRSA,V?WALK-TO,V?WAIT-UNTIL,V?WAIT-FOR /?THN8
|
|
CALL VISIBLE?,L-PRSO-NOT-HERE
|
|
ZERO? STACK /?ELS10
|
|
?THN8: SET 'L-PRSO,L-PRSO-NOT-HERE
|
|
JUMP ?CND5
|
|
?ELS10: PRINTR "You can't see that here."
|
|
?CND5: EQUAL? NOT-HERE-OBJECT,L-PRSI \?CND13
|
|
EQUAL? PRSA,V?BUY /?THN16
|
|
EQUAL? PRSA,V?WALK-TO,V?WAIT-UNTIL,V?WAIT-FOR /?THN16
|
|
CALL VISIBLE?,L-PRSI-NOT-HERE
|
|
ZERO? STACK /?ELS18
|
|
?THN16: SET 'L-PRSI,L-PRSI-NOT-HERE
|
|
JUMP ?CND13
|
|
?ELS18: PRINTR "You can't see that here."
|
|
?CND13: EQUAL? L-PRSA,V?WALK \?CND21
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1235 (25314)
|
|
?CND34: ZERO? L-PRSO /?ELS39
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1245 (25364)
|
|
?CND21: ZERO? L-PRSO /?ELS24
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1237 (25367)
|
|
ZERO? STACK \?ELS39
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1247 (25417)
|
|
ZERO? STACK \?ELS24
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1239 (25407)
|
|
JUMP ?CND37
|
|
?ELS39: ZERO? L-PRSI /?CND37
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1249 (25457)
|
|
JUMP ?CND23
|
|
?ELS24: ZERO? L-PRSI /?CND23
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1242 (25474)
|
|
ZERO? STACK \?CND37
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1252 (25524)
|
|
ZERO? STACK \?CND23
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1244 (25514)
|
|
?CND37: ZERO? OBJ /?ELS50
|
|
EQUAL? L-PRSA,V?WAIT-FOR,V?WAIT-UNTIL /?ELS50
|
|
EQUAL? L-PRSA,V?WALK-TO,V?BUY /?ELS50
|
|
EQUAL? OBJ,ROOMS /?ELS50
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1254 (25564)
|
|
?CND23: ZERO? OBJ /?ELS31
|
|
EQUAL? L-PRSA,V?WAIT-FOR,V?WAIT-UNTIL /?ELS31
|
|
EQUAL? L-PRSA,V?WALK-TO,V?BUY /?ELS31
|
|
EQUAL? OBJ,ROOMS /?ELS31
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1249 (25681)
|
|
ZERO? N /?ELS57
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1259 (25731)
|
|
ZERO? N /?ELS36
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1255 (25766)
|
|
?ELS57: CALL PRINTT,OBJ
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1265 (25816)
|
|
?ELS36: CALL PRINTT,OBJ
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1259 (25832)
|
|
?ELS50: SET 'WINNER,L-WINNER
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1269 (25882)
|
|
?ELS31: SET 'WINNER,L-WINNER
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1295 (26251)
|
|
FSET? PRSO,PERSONBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1305 (26301)
|
|
FSET? PRSO,PERSONBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1297 (26297)
|
|
?ELS5: FSET? PRSO,DOORBIT \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1307 (26347)
|
|
?ELS4: FSET? PRSO,DOORBIT \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1300 (26364)
|
|
?ELS9: PRINTR "It looks normal."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1310 (26414)
|
|
?ELS7: PRINTR "It looks normal."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1314 (26623)
|
|
FSET? PRSO,PERSONBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1324 (26673)
|
|
FSET? PRSO,PERSONBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1317 (26695)
|
|
?ELS5: CALL YOU-CANT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1327 (26745)
|
|
?ELS4: CALL YOU-CANT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1334 (26970)
|
|
?CND1: FSET? PRSO,PERSONBIT \?THN9
|
|
ZERO? PRSI /?ELS8
|
|
?THN9: PRINTI "What a brilliant spy! ""Quick! Arrest that "
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1344 (27020)
|
|
?CND1: FSET? PRSO,PERSONBIT \?THN6
|
|
ZERO? PRSI /?ELS7
|
|
?THN6: PRINTI "What a brilliant spy! ""Quick! Arrest that "
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1338 (27101)
|
|
ZERO? PRSI /?CND15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1348 (27151)
|
|
ZERO? PRSI /?CND11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1341 (27153)
|
|
?CND15: PRINTI " before "
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1351 (27203)
|
|
?CND11: PRINTI " before "
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1344 (27237)
|
|
?ELS8: PRINTR "For what? You have no evidence of a crime yet."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1354 (27287)
|
|
?ELS7: PRINTR "For what? You have no evidence of a crime yet."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1359 (27478)
|
|
ZERO? P-CONT /?ELS5
|
|
FSET? PRSO,PERSONBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1369 (27528)
|
|
ZERO? P-CONT /?ELS4
|
|
FSET? PRSO,PERSONBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1365 (27619)
|
|
RETURN QCONTEXT-ROOM
|
|
?ELS5: CALL V-ASK-ABOUT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1375 (27669)
|
|
RTRUE
|
|
?ELS4: CALL V-ASK-ABOUT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1381 (27885)
|
|
EQUAL? PRSO,PLAYER /?THN6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1391 (27921)
|
|
EQUAL? PRSO,PLAYER /?THN4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1383 (27943)
|
|
?THN6: CALL WONT-HELP-TO-TALK-TO,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1393 (27979)
|
|
?THN4: CALL WONT-HELP-TO-TALK-TO,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1385 (27993)
|
|
?ELS5: EQUAL? PRSA,V?ASK \?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1395 (28029)
|
|
?ELS5: EQUAL? PRSA,V?ASK \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1388 (28062)
|
|
?ELS11: CALL START-SENTENCE,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1398 (28097)
|
|
?ELS8: CALL START-SENTENCE,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1391 (28142)
|
|
ZERO? STACK \?CND16
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1401 (28176)
|
|
ZERO? STACK \?CND11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1393 (28178)
|
|
?CND16: PRINTR "n't seem to know about that."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1403 (28212)
|
|
?CND11: PRINTR "n't seem to know about that."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1398 (28284)
|
|
ZERO? STACK /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1408 (28318)
|
|
ZERO? STACK /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1401 (28355)
|
|
?ELS5: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1411 (28389)
|
|
?ELS4: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1423 (28677)
|
|
FSET? PRSO,PERSONBIT \?ELS5
|
|
EQUAL? PRSO,PLAYER /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1433 (28711)
|
|
FSET? PRSO,PERSONBIT \?ELS4
|
|
EQUAL? PRSO,PLAYER /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1427 (28770)
|
|
?ELS5: CALL HAR-HAR
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1437 (28804)
|
|
?ELS4: CALL HAR-HAR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1433 (28858)
|
|
ZERO? STACK /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1443 (28892)
|
|
ZERO? STACK /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1436 (28927)
|
|
?ELS5: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1446 (28961)
|
|
?ELS4: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1500 (29900)
|
|
EQUAL? HERE,CAFE /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1510 (29934)
|
|
EQUAL? HERE,CAFE /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1504 (29989)
|
|
?ELS5: IN? PRSO,ROOMS /?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1514 (30023)
|
|
?ELS4: IN? PRSO,ROOMS /?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1506 (30045)
|
|
ZERO? COST /?ELS9
|
|
FSET? PRSO,PERSONBIT /?ELS9
|
|
GRTR? COST,0 \?ELS9
|
|
GRTR? COST,POCKET-CHANGE \?ELS16
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1516 (30079)
|
|
ZERO? COST /?ELS7
|
|
FSET? PRSO,PERSONBIT /?ELS7
|
|
GRTR? COST,0 \?ELS7
|
|
GRTR? COST,POCKET-CHANGE \?ELS12
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1511 (30192)
|
|
?ELS16: SUB POCKET-CHANGE,COST >POCKET-CHANGE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1521 (30226)
|
|
?ELS12: SUB POCKET-CHANGE,COST >POCKET-CHANGE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1522 (30440)
|
|
?ELS9: EQUAL? COST,-1 \?ELS31
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1532 (30474)
|
|
?ELS7: EQUAL? COST,-1 \?ELS22
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1526 (30536)
|
|
?ELS31: CALL HE-SHE-IT,PRSO,TRUE-VALUE,STR?1
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1536 (30570)
|
|
?ELS22: CALL HE-SHE-IT,PRSO,TRUE-VALUE,STR?1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1532 (30657)
|
|
FSET? PER,PERSONBIT \?THN4
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1542 (30691)
|
|
FSET? PER,PERSONBIT \?THN2
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1534 (30713)
|
|
?THN4: CALL WONT-HELP-TO-TALK-TO,PER
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1544 (30747)
|
|
?THN2: CALL WONT-HELP-TO-TALK-TO,PER
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1538 (30812)
|
|
ZERO? C /?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1548 (30846)
|
|
ZERO? C /?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1540 (30852)
|
|
ZERO? STACK /?CND11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1550 (30885)
|
|
ZERO? STACK /?CND8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1542 (30896)
|
|
?CND11: CALL META-LOC,PER
|
|
EQUAL? STACK,HERE \?ELS18
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1552 (30928)
|
|
?CND8: CALL META-LOC,PER
|
|
EQUAL? STACK,HERE \?ELS13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1546 (31003)
|
|
ZERO? STACK /?ELS25
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1556 (31034)
|
|
ZERO? STACK /?ELS19
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1549 (31069)
|
|
ZERO? MOT /?ELS30
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1559 (31100)
|
|
ZERO? MOT /?ELS23
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1551 (31129)
|
|
?ELS30: PRINTR " is listening."
|
|
?ELS25: PRINTR " ignores you."
|
|
?ELS18: CALL CORRIDOR-LOOK,PER
|
|
ZERO? STACK /?ELS43
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1561 (31160)
|
|
?ELS23: PRINTR " is listening."
|
|
?ELS19: PRINTR " ignores you."
|
|
?ELS13: CALL CORRIDOR-LOOK,PER
|
|
ZERO? STACK /?ELS30
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1559 (31345)
|
|
?ELS43: CALL NOT-HERE,PER
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1569 (31376)
|
|
?ELS30: CALL NOT-HERE,PER
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1561 (31382)
|
|
?ELS10: SET 'CLOCK-WAIT,TRUE-VALUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1571 (31413)
|
|
?ELS7: SET 'CLOCK-WAIT,TRUE-VALUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1567 (31476)
|
|
ZERO? PRSI /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1577 (31506)
|
|
ZERO? PRSI /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1570 (31538)
|
|
?ELS5: FSET? PRSO,PERSONBIT \?ELS14
|
|
IN? PRSO,HERE \?ELS14
|
|
FSET? PRSO,NDESCBIT /?ELS14
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1580 (31568)
|
|
?ELS4: FSET? PRSO,PERSONBIT \?ELS9
|
|
IN? PRSO,HERE \?ELS9
|
|
FSET? PRSO,NDESCBIT /?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1575 (31655)
|
|
?ELS14: EQUAL? PRSO,PLAYER \?ELS18
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1585 (31682)
|
|
?ELS9: EQUAL? PRSO,PLAYER \?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1578 (31716)
|
|
?ELS18: ZERO? PRSI \FALSE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1588 (31742)
|
|
?ELS11: ZERO? PRSI \FALSE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1584 (31844)
|
|
ZERO? PER /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1594 (31870)
|
|
ZERO? PER /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1586 (31894)
|
|
ZERO? PER /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1596 (31920)
|
|
ZERO? PER /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1588 (31933)
|
|
EQUAL? STACK,HERE /?THN8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1598 (31959)
|
|
EQUAL? STACK,HERE /?THN5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1590 (31985)
|
|
ZERO? STACK /?ELS5
|
|
?THN8: CALL PERFORM,V?$CALL,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1600 (32011)
|
|
ZERO? STACK /?ELS4
|
|
?THN5: CALL PERFORM,V?$CALL,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1593 (32049)
|
|
?ELS5: EQUAL? -1,P-NUMBER /?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1603 (32075)
|
|
?ELS4: EQUAL? -1,P-NUMBER /?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1595 (32136)
|
|
?ELS11: FSET? PRSO,PERSONBIT /?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1605 (32161)
|
|
?ELS7: FSET? PRSO,PERSONBIT /?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1598 (32224)
|
|
?ELS15: CALL META-LOC,PRSO
|
|
EQUAL? STACK,HERE \?ELS19
|
|
FSET? PRSO,NDESCBIT /?ELS19
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1608 (32248)
|
|
?ELS10: CALL META-LOC,PRSO
|
|
EQUAL? STACK,HERE \?ELS13
|
|
FSET? PRSO,NDESCBIT /?ELS13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1603 (32336)
|
|
?ELS19: PRINTI "There's no sense in phoning "
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1613 (32360)
|
|
?ELS13: PRINTI "There's no sense in phoning "
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1609 (32436)
|
|
IN? PRSO,ROOMS /?THN6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1619 (32460)
|
|
IN? PRSO,ROOMS /?THN4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1611 (32488)
|
|
?THN6: CALL V-THROUGH
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1621 (32512)
|
|
?THN4: CALL V-THROUGH
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1639 (32976)
|
|
ZERO? STACK /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1649 (33000)
|
|
ZERO? STACK /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1642 (33025)
|
|
?ELS5: ZERO? OBJ \?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1652 (33049)
|
|
?ELS4: ZERO? OBJ \?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1645 (33084)
|
|
?ELS7: CALL HAR-HAR
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1655 (33108)
|
|
?ELS5: CALL HAR-HAR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1655 (33197)
|
|
FSET? PRSO,CONTBIT /?ELS5
|
|
FSET? PRSO,DOORBIT /?ELS5
|
|
FSET? PRSO,WINDOWBIT /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1665 (33221)
|
|
FSET? PRSO,CONTBIT /?ELS4
|
|
FSET? PRSO,DOORBIT /?ELS4
|
|
FSET? PRSO,WINDOWBIT /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1660 (33309)
|
|
?ELS5: FSET? PRSO,DOORBIT /?THN10
|
|
FSET? PRSO,WINDOWBIT \?ELS9
|
|
?THN10: FSET? PRSO,OPENBIT \?ELS16
|
|
FSET? PRSO,MUNGBIT \?ELS21
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1670 (33333)
|
|
?ELS4: FSET? PRSO,DOORBIT /?THN6
|
|
FSET? PRSO,WINDOWBIT \?ELS7
|
|
?THN6: FSET? PRSO,OPENBIT \?ELS11
|
|
FSET? PRSO,MUNGBIT \?ELS15
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1665 (33493)
|
|
?ELS21: FSET? PRSO,LOCKED \?CND26
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1675 (33515)
|
|
?ELS15: FSET? PRSO,LOCKED \?CND18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1667 (33561)
|
|
ZERO? STACK /?CND26
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1677 (33583)
|
|
ZERO? STACK /?CND18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1673 (33668)
|
|
?CND26: CALL OKAY,PRSO,STR?7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1683 (33690)
|
|
?CND18: CALL OKAY,PRSO,STR?7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1675 (33708)
|
|
?ELS16: CALL ALREADY,PRSO,STR?7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1685 (33730)
|
|
?ELS11: CALL ALREADY,PRSO,STR?7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1677 (33751)
|
|
?ELS9: FSET? PRSO,SURFACEBIT /?ELS39
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1687 (33773)
|
|
?ELS7: FSET? PRSO,SURFACEBIT /?ELS25
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1679 (33812)
|
|
ZERO? STACK /?ELS39
|
|
FSET? PRSO,OPENBIT \?ELS46
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1689 (33834)
|
|
ZERO? STACK /?ELS25
|
|
FSET? PRSO,OPENBIT \?ELS30
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1683 (33896)
|
|
?ELS46: CALL ALREADY,PRSO,STR?7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1693 (33918)
|
|
?ELS30: CALL ALREADY,PRSO,STR?7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1685 (33939)
|
|
?ELS39: CALL YOU-CANT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1695 (33961)
|
|
?ELS25: CALL YOU-CANT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1700 (34110)
|
|
EQUAL? PRSO,PLAYER \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1710 (34132)
|
|
EQUAL? PRSO,PLAYER \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1703 (34169)
|
|
?ELS5: FSET? PRSO,PERSONBIT /?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1713 (34191)
|
|
?ELS4: FSET? PRSO,PERSONBIT /?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1707 (34279)
|
|
?ELS7: CALL START-SENTENCE,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1717 (34301)
|
|
?ELS5: CALL START-SENTENCE,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1723 (34475)
|
|
FSET? PRSO,DOORBIT \?ELS5
|
|
ZERO? PRSI \?ELS5
|
|
FSET? PRSO,OPENBIT \?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1733 (34497)
|
|
FSET? PRSO,DOORBIT \?ELS4
|
|
ZERO? PRSI \?ELS4
|
|
FSET? PRSO,OPENBIT \?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1727 (34609)
|
|
?ELS12: PRINTR "Why don't you just open it instead?"
|
|
?ELS5: FSET? PRSO,PERSONBIT /?ELS20
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1737 (34630)
|
|
?ELS9: PRINTR "Why don't you just open it instead?"
|
|
?ELS4: FSET? PRSO,PERSONBIT /?ELS14
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1730 (34785)
|
|
?ELS20: ZERO? PRSI \?ELS24
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1740 (34805)
|
|
?ELS14: ZERO? PRSI \?ELS17
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1734 (34908)
|
|
?ELS24: FSET? PRSI,WEAPONBIT /?ELS28
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1744 (34928)
|
|
?ELS17: FSET? PRSI,WEAPONBIT /?ELS20
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1740 (35043)
|
|
?ELS28: CALL YOU-CANT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1750 (35063)
|
|
?ELS20: CALL YOU-CANT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1750 (35149)
|
|
ZERO? PRSO /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1760 (35169)
|
|
ZERO? PRSO /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1753 (35195)
|
|
?ELS5: PRINTR "You're wide awake and in good health."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1763 (35215)
|
|
?ELS4: PRINTR "You're wide awake and in good health."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1782 (35591)
|
|
EQUAL? HERE,ROOF \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1792 (35611)
|
|
EQUAL? HERE,ROOF \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1784 (35634)
|
|
?ELS5: RETURN STR?157
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1794 (35654)
|
|
?ELS4: RETURN STR?157
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1814 (36039)
|
|
IN? PRSO,ROOMS \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1824 (36059)
|
|
IN? PRSO,ROOMS \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1817 (36102)
|
|
?ELS5: FSET? PRSO,DOORBIT \?ELS7
|
|
FSET? PRSO,OPENBIT \?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1827 (36122)
|
|
?ELS4: FSET? PRSO,DOORBIT \?ELS5
|
|
FSET? PRSO,OPENBIT \?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1820 (36195)
|
|
ZERO? RM /?ELS14
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1830 (36215)
|
|
ZERO? RM /?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1822 (36229)
|
|
ZERO? STACK /?ELS14
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1832 (36249)
|
|
ZERO? STACK /?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1825 (36273)
|
|
?ELS14: PRINTI "Sorry, but the """
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1835 (36293)
|
|
?ELS10: PRINTI "Sorry, but the """
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1828 (36361)
|
|
?ELS7: ZERO? OBJ \?ELS22
|
|
FSET? PRSO,TAKEBIT /?ELS22
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1838 (36381)
|
|
?ELS5: ZERO? OBJ \?ELS14
|
|
FSET? PRSO,TAKEBIT /?ELS14
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1834 (36532)
|
|
?ELS22: ZERO? OBJ /?ELS28
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1844 (36552)
|
|
?ELS14: ZERO? OBJ /?ELS18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1836 (36589)
|
|
?ELS28: IN? PRSO,WINNER \?ELS33
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1846 (36609)
|
|
?ELS18: IN? PRSO,WINNER \?ELS21
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1838 (36672)
|
|
?ELS33: CALL HAR-HAR
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1848 (36692)
|
|
?ELS21: CALL HAR-HAR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1847 (36831)
|
|
ZERO? VAL \?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1857 (36851)
|
|
ZERO? VAL \?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1851 (36931)
|
|
?ELS12: EQUAL? VAL,M-FATAL /TRUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1861 (36950)
|
|
?ELS9: EQUAL? VAL,M-FATAL /TRUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1856 (37003)
|
|
EQUAL? PRSO,INTDIR \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1866 (37021)
|
|
EQUAL? PRSO,INTDIR \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1859 (37133)
|
|
?ELS5: IN? PRSO,GLOBAL-OBJECTS \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1869 (37151)
|
|
?ELS4: IN? PRSO,GLOBAL-OBJECTS \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1861 (37198)
|
|
ZERO? STACK \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1871 (37216)
|
|
ZERO? STACK \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1864 (37249)
|
|
?ELS9: CALL META-LOC,PRSO
|
|
EQUAL? STACK,HERE,LOCAL-GLOBALS /?ELS13
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1874 (37267)
|
|
?ELS7: CALL META-LOC,PRSO
|
|
EQUAL? STACK,HERE,LOCAL-GLOBALS /?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1868 (37360)
|
|
?ELS13: GETP PRSO,P?TEXT >TXT
|
|
ZERO? TXT /?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1878 (37377)
|
|
?ELS9: GETP PRSO,P?TEXT >TXT
|
|
ZERO? TXT /?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1873 (37440)
|
|
?ELS15: FSET? PRSO,CONTBIT \?ELS19
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1883 (37456)
|
|
?ELS10: FSET? PRSO,CONTBIT \?ELS14
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1876 (37507)
|
|
?ELS19: FSET? PRSO,DOORBIT \?ELS23
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1886 (37523)
|
|
?ELS14: FSET? PRSO,DOORBIT \?ELS15
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1879 (37576)
|
|
?ELS23: CALL NOTHING-SPECIAL
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1889 (37592)
|
|
?ELS15: CALL NOTHING-SPECIAL
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1900 (37896)
|
|
ZERO? PLAYER-NOT-FACING \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1910 (37912)
|
|
ZERO? PLAYER-NOT-FACING \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1902 (37942)
|
|
?ELS5: PRINTI "not "
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1912 (37958)
|
|
?ELS4: PRINTI "not "
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1909 (38038)
|
|
ZERO? P-WALK-DIR \?ELS3
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1919 (38054)
|
|
ZERO? P-WALK-DIR \?ELS2
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1914 (38168)
|
|
?ELS3: CALL COMPASS-EQV,HERE,PRSO >P
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1924 (38184)
|
|
?ELS2: CALL COMPASS-EQV,HERE,PRSO >P
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1944 (38763)
|
|
IN? PRSO,ROOMS \?ELS8
|
|
EQUAL? PRSO,HERE \?ELS13
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1954 (38779)
|
|
IN? PRSO,ROOMS \?ELS6
|
|
EQUAL? PRSO,HERE \?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1948 (38854)
|
|
?ELS13: FSET? PRSO,TOUCHBIT \?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1958 (38870)
|
|
?ELS10: FSET? PRSO,TOUCHBIT \?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1950 (38939)
|
|
?ELS15: PRINTR "You'll have to figure that out."
|
|
?ELS8: GETP PRSO,P?CHARACTER >CHR
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1960 (38955)
|
|
?ELS11: PRINTR "You'll have to figure that out."
|
|
?ELS6: GETP PRSO,P?CHARACTER >CHR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1955 (39094)
|
|
EQUAL? ?TMP1,STACK \?ELS28
|
|
FSET? PRSO,NDESCBIT /?ELS28
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1965 (39110)
|
|
EQUAL? ?TMP1,STACK \?ELS20
|
|
FSET? PRSO,NDESCBIT /?ELS20
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1959 (39178)
|
|
?ELS28: CALL WHO-KNOWS?,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1969 (39194)
|
|
?ELS20: CALL WHO-KNOWS?,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1973 (39388)
|
|
EQUAL? PRSO,PLAYER \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1983 (39404)
|
|
EQUAL? PRSO,PLAYER \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1975 (39447)
|
|
FSET? L,SURFACEBIT \?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1985 (39463)
|
|
FSET? L,SURFACEBIT \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1977 (39490)
|
|
JUMP ?CND8
|
|
?ELS10: PRINTI "in"
|
|
?CND8: CALL PRINTT,L
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1987 (39505)
|
|
JUMP ?CND7
|
|
?ELS8: PRINTI "in"
|
|
?CND7: CALL PRINTT,L
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1981 (39559)
|
|
?ELS5: CALL HELD?,PRSO
|
|
ZERO? STACK /?ELS20
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1991 (39573)
|
|
?ELS4: CALL HELD?,PRSO
|
|
ZERO? STACK /?ELS15
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1984 (39629)
|
|
?ELS20: EQUAL? L,LOCAL-GLOBALS \?ELS28
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1994 (39643)
|
|
?ELS15: EQUAL? L,LOCAL-GLOBALS \?ELS19
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1986 (39697)
|
|
ZERO? STACK \?THN25
|
|
?ELS28: CALL META-LOC,PRSO
|
|
EQUAL? STACK,HERE \?ELS30
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-1996 (39711)
|
|
ZERO? STACK \?THN18
|
|
?ELS19: CALL META-LOC,PRSO
|
|
EQUAL? STACK,HERE \?ELS20
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1990 (39796)
|
|
ZERO? STACK \?THN25
|
|
?ELS30: EQUAL? PRSO,PSEUDO-OBJECT \?ELS24
|
|
?THN25: PRINTR "It's right here."
|
|
?ELS24: FSET? PRSO,TOUCHBIT /?ELS34
|
|
FSET? PRSO,SEENBIT /?ELS34
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2000 (39810)
|
|
ZERO? STACK \?THN18
|
|
?ELS20: EQUAL? PRSO,PSEUDO-OBJECT \?ELS21
|
|
?THN18: PRINTR "It's right here."
|
|
?ELS21: FSET? PRSO,TOUCHBIT /?ELS24
|
|
FSET? PRSO,SEENBIT /?ELS24
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-1998 (40024)
|
|
?ELS34: EQUAL? L,GLOBAL-OBJECTS,LOCAL-GLOBALS /?THN41
|
|
EQUAL? L,UNDER-SEAT-1,UNDER-SEAT-2,UNDER-SEAT-3 /?THN41
|
|
EQUAL? L,UNDER-SEAT-4,UNDER-SEAT-5 \?ELS40
|
|
?THN41: PRINTR "It's around somewhere."
|
|
?ELS40: CALL META-LOC,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2008 (40038)
|
|
?ELS24: EQUAL? L,GLOBAL-OBJECTS,LOCAL-GLOBALS /?THN28
|
|
EQUAL? L,UNDER-SEAT-1,UNDER-SEAT-2,UNDER-SEAT-3 /?THN28
|
|
EQUAL? L,UNDER-SEAT-4,UNDER-SEAT-5 \?ELS29
|
|
?THN28: PRINTR "It's around somewhere."
|
|
?ELS29: CALL META-LOC,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2004 (40274)
|
|
ZERO? STACK /?ELS46
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2014 (40288)
|
|
ZERO? STACK /?ELS32
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2006 (40332)
|
|
?ELS46: FSET? L,PERSONBIT \?ELS50
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2016 (40346)
|
|
?ELS32: FSET? L,PERSONBIT \?ELS35
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2009 (40420)
|
|
?ELS50: FSET? L,SURFACEBIT \?ELS54
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2019 (40434)
|
|
?ELS35: FSET? L,SURFACEBIT \?ELS38
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2013 (40513)
|
|
?ELS54: FSET? L,CONTBIT /?THN59
|
|
IN? L,ROOMS \?ELS58
|
|
?THN59: PRINTI "It's probably in"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2023 (40527)
|
|
?ELS38: FSET? L,CONTBIT /?THN41
|
|
IN? L,ROOMS \?ELS42
|
|
?THN41: PRINTI "It's probably in"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2018 (40632)
|
|
?ELS58: PRINTR "It's nowhere in particular."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2028 (40646)
|
|
?ELS42: PRINTR "It's nowhere in particular."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2041 (40930)
|
|
EQUAL? PRSO,PLAYER \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2051 (40944)
|
|
EQUAL? PRSO,PLAYER \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2044 (40990)
|
|
?ELS5: GETP PRSO,P?CHARACTER >CN
|
|
ZERO? CN \?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2054 (41004)
|
|
?ELS4: GETP PRSO,P?CHARACTER >CN
|
|
ZERO? CN \?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2049 (41128)
|
|
?ELS7: GET CHARACTER-TABLE,CN >CHR
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2059 (41142)
|
|
?ELS5: GET CHARACTER-TABLE,CN >CHR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2051 (41187)
|
|
EQUAL? HERE,L \?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2061 (41201)
|
|
EQUAL? HERE,L \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2055 (41282)
|
|
?ELS11: ZERO? L \?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2065 (41295)
|
|
?ELS8: ZERO? L \?ELS12
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2058 (41368)
|
|
?ELS15: CALL PERFORM,V?WALK-TO,CHR
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2068 (41380)
|
|
?ELS12: CALL PERFORM,V?WALK-TO,CHR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2077 (41604)
|
|
FSET? PRSO,PERSONBIT /?THN6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2087 (41616)
|
|
FSET? PRSO,PERSONBIT /?THN4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2079 (41668)
|
|
?THN6: CALL MORE-SPECIFIC
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2089 (41680)
|
|
?THN4: CALL MORE-SPECIFIC
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2081 (41705)
|
|
?ELS5: ZERO? P-DOLLAR-FLAG /?ELS9
|
|
EQUAL? PRSO,INTNUM \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2091 (41717)
|
|
?ELS5: ZERO? P-DOLLAR-FLAG /?ELS6
|
|
EQUAL? PRSO,INTNUM \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2085 (41843)
|
|
?ELS9: CALL HELD?,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2095 (41855)
|
|
?ELS6: CALL HELD?,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2096 (42079)
|
|
ZERO? PRSI \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2106 (42091)
|
|
ZERO? PRSI \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2099 (42125)
|
|
?ELS5: FSET? PRSI,PERSONBIT /?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2109 (42137)
|
|
?ELS4: FSET? PRSI,PERSONBIT /?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2105 (42255)
|
|
?ELS7: EQUAL? PRSI,PLAYER \?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2115 (42267)
|
|
?ELS5: EQUAL? PRSI,PLAYER \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2108 (42326)
|
|
?ELS11: MOVE PRSO,PRSI
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2118 (42337)
|
|
?ELS8: MOVE PRSO,PRSI
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2144 (42809)
|
|
ZERO? PRSO /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2154 (42819)
|
|
ZERO? PRSO /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2147 (42860)
|
|
?ELS5: CALL QCONTEXT-GOOD?
|
|
ZERO? STACK /?ELS8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2157 (42870)
|
|
?ELS4: CALL QCONTEXT-GOOD?
|
|
ZERO? STACK /?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2151 (42947)
|
|
?ELS8: EQUAL? WINNER,PLAYER \?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2161 (42957)
|
|
?ELS5: EQUAL? WINNER,PLAYER \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2153 (43026)
|
|
ZERO? P /?ELS10
|
|
FSET? P,INVISIBLE /?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2163 (43035)
|
|
ZERO? P /?ELS6
|
|
FSET? P,INVISIBLE /?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2162 (43172)
|
|
?ELS10: CALL NOT-CLEAR-WHOM
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2172 (43179)
|
|
?ELS6: CALL NOT-CLEAR-WHOM
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2167 (43239)
|
|
FSET? PRSO,PERSONBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2177 (43245)
|
|
FSET? PRSO,PERSONBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2170 (43321)
|
|
?ELS5: ZERO? PRSO /?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2180 (43327)
|
|
?ELS4: ZERO? PRSO /?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2172 (43375)
|
|
ZERO? HELL /?ELS17
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2182 (43381)
|
|
ZERO? HELL /?ELS13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2174 (43411)
|
|
JUMP ?CND13
|
|
?ELS17: PUSH STR?163
|
|
?CND13: PRINT STACK
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2184 (43417)
|
|
JUMP ?CND10
|
|
?ELS13: PUSH STR?163
|
|
?CND10: PRINT STACK
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2180 (43518)
|
|
?ELS9: CALL NOT-CLEAR-WHOM
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2190 (43524)
|
|
?ELS7: CALL NOT-CLEAR-WHOM
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2185 (43576)
|
|
ZERO? PRSO \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2195 (43582)
|
|
ZERO? PRSO \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2188 (43623)
|
|
?ELS5: CALL MORE-SPECIFIC
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2198 (43629)
|
|
?ELS4: CALL MORE-SPECIFIC
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2206 (44068)
|
|
ZERO? STACK /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2216 (44074)
|
|
ZERO? STACK /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2208 (44145)
|
|
?ELS5: PRINTI "There's no room to hide behind"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2218 (44151)
|
|
?ELS4: PRINTI "There's no room to hide behind"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2219 (44299)
|
|
ZERO? PRSO \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2229 (44305)
|
|
ZERO? PRSO \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2223 (44380)
|
|
?ELS5: ZERO? PRSI \?ELS9
|
|
FSET? PRSO,WEAPONBIT \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2233 (44386)
|
|
?ELS4: ZERO? PRSI \?ELS7
|
|
FSET? PRSO,WEAPONBIT \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2228 (44499)
|
|
?ELS9: FSET? PRSO,PERSONBIT /?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2238 (44505)
|
|
?ELS7: FSET? PRSO,PERSONBIT /?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2231 (44561)
|
|
?ELS15: IN? PRSO,GLOBAL-OBJECTS \?ELS17
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2241 (44567)
|
|
?ELS11: IN? PRSO,GLOBAL-OBJECTS \?ELS12
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2233 (44640)
|
|
?ELS17: PRINTR "You think it over. It's not worth the hassle."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2243 (44646)
|
|
?ELS12: PRINTR "You think it over. It's not worth the hassle."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2237 (44724)
|
|
FSET? PRSO,PERSONBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2247 (44730)
|
|
FSET? PRSO,PERSONBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2240 (44786)
|
|
?ELS5: PRINTR "What a (ahem!) strange idea!"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2250 (44792)
|
|
?ELS4: PRINTR "What a (ahem!) strange idea!"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2244 (44855)
|
|
FSET? PRSO,DOORBIT /?THN6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2254 (44861)
|
|
FSET? PRSO,DOORBIT /?THN4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2246 (44913)
|
|
?THN6: CALL DOOR-ROOM,HERE,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2256 (44919)
|
|
?THN4: CALL DOOR-ROOM,HERE,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2248 (44973)
|
|
ZERO? P /?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2258 (44979)
|
|
ZERO? P /?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2253 (45072)
|
|
?ELS12: PRINTR "There's no answer."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2263 (45077)
|
|
?ELS9: PRINTR "There's no answer."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2260 (45195)
|
|
ZERO? PLAYER-SEATED /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2270 (45199)
|
|
ZERO? PLAYER-SEATED /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2263 (45299)
|
|
?ELS5: CALL ALREADY,PLAYER,STR?165
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2273 (45303)
|
|
?ELS4: CALL ALREADY,PLAYER,STR?165
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2268 (45365)
|
|
ZERO? PRSO /?ELS5
|
|
EQUAL? PRSO,INTDIR /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2278 (45369)
|
|
ZERO? PRSO /?ELS4
|
|
EQUAL? PRSO,INTDIR /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2272 (45450)
|
|
?ELS5: GETPT HERE,P?DOWN
|
|
ZERO? STACK /?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2282 (45454)
|
|
?ELS4: GETPT HERE,P?DOWN
|
|
ZERO? STACK /?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2277 (45579)
|
|
?ELS9: CALL V-SKIP
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2287 (45583)
|
|
?ELS6: CALL V-SKIP
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2283 (45642)
|
|
FSET? STACK,VEHBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2293 (45646)
|
|
FSET? STACK,VEHBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2285 (45729)
|
|
?ELS5: CALL PICK-ONE,WHEEEEE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2295 (45733)
|
|
?ELS4: CALL PICK-ONE,WHEEEEE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2297 (45858)
|
|
ZERO? PRSO /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2307 (45862)
|
|
ZERO? PRSO /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2299 (45891)
|
|
EQUAL? STACK,PRSO /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2309 (45895)
|
|
EQUAL? STACK,PRSO /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2305 (45994)
|
|
?ELS5: ZERO? ON-TRAIN /?ELS13
|
|
EQUAL? PRSO,TRAIN \?ELS13
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2315 (45998)
|
|
?ELS4: ZERO? ON-TRAIN /?ELS10
|
|
EQUAL? PRSO,TRAIN \?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2309 (46103)
|
|
?ELS13: CALL DO-WALK,P?OUT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2319 (46107)
|
|
?ELS10: CALL DO-WALK,P?OUT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2314 (46162)
|
|
FSET? PRSO,PERSONBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2324 (46166)
|
|
FSET? PRSO,PERSONBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2317 (46233)
|
|
?ELS5: CALL TOO-BAD-BUT,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2327 (46237)
|
|
?ELS4: CALL TOO-BAD-BUT,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2322 (46311)
|
|
FSET? PRSO,DOORBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2332 (46315)
|
|
FSET? PRSO,DOORBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2324 (46373)
|
|
ZERO? STACK \?THN8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2334 (46377)
|
|
ZERO? STACK \?THN5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2326 (46427)
|
|
ZERO? STACK /?ELS5
|
|
?THN8: FSET? PRSO,OPENBIT \?ELS14
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2336 (46431)
|
|
ZERO? STACK /?ELS4
|
|
?THN5: FSET? PRSO,OPENBIT \?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2330 (46523)
|
|
?ELS14: CALL OKAY,PRSO,STR?135
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2340 (46527)
|
|
?ELS10: CALL OKAY,PRSO,STR?135
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2332 (46565)
|
|
?ELS5: CALL YOU-CANT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2342 (46569)
|
|
?ELS4: CALL YOU-CANT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2345 (46749)
|
|
FSET? PRSO,DOORBIT \?ELS5
|
|
FSET? PRSO,OPENBIT /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2355 (46753)
|
|
FSET? PRSO,DOORBIT \?ELS4
|
|
FSET? PRSO,OPENBIT /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2350 (46868)
|
|
?ELS5: PRINTI "There's nothing behind"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2360 (46872)
|
|
?ELS4: PRINTI "There's nothing behind"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2356 (46965)
|
|
EQUAL? PRSO,ROOMS \?ELS5
|
|
EQUAL? P-ADVERB,W?CAREFULLY \?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2366 (46969)
|
|
EQUAL? PRSO,ROOMS \?ELS4
|
|
EQUAL? P-ADVERB,W?CAREFULLY \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2360 (47069)
|
|
?ELS10: PRINTI "A quick look reveals nothing interesting "
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2370 (47072)
|
|
?ELS8: PRINTI "A quick look reveals nothing interesting "
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2364 (47175)
|
|
?ELS5: CALL HAR-HAR
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2374 (47177)
|
|
?ELS4: CALL HAR-HAR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2375 (47329)
|
|
EQUAL? DIR,P?OUT \?ELS6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2385 (47331)
|
|
EQUAL? DIR,P?OUT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2377 (47394)
|
|
ZERO? RM /?CND4
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2387 (47396)
|
|
ZERO? RM /?CND3
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2384 (47505)
|
|
?ELS6: CALL FIND-FLAG-LG,HERE,CONTBIT >RM
|
|
ZERO? RM \?THN17
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2394 (47507)
|
|
?ELS4: CALL FIND-FLAG-LG,HERE,CONTBIT >RM
|
|
ZERO? RM \?THN10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2387 (47606)
|
|
ZERO? RM \?THN17
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2397 (47608)
|
|
ZERO? RM \?THN10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2389 (47662)
|
|
ZERO? RM /?CND4
|
|
?THN17: PRINT I-ASSUME
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2399 (47664)
|
|
ZERO? RM /?CND3
|
|
?THN10: PRINT I-ASSUME
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2396 (47780)
|
|
?CND4:
|
|
?CND1: EQUAL? PRSO,GLOBAL-HERE \?ELS25
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2406 (47782)
|
|
?CND3:
|
|
?CND1: EQUAL? PRSO,GLOBAL-HERE \?ELS17
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2400 (47860)
|
|
?ELS25: IN? PRSO,ROOMS \?ELS27
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2410 (47862)
|
|
?ELS17: IN? PRSO,ROOMS \?ELS18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2403 (47924)
|
|
?ELS27: FSET? PRSO,CONTBIT \?ELS29
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2413 (47926)
|
|
?ELS18: FSET? PRSO,CONTBIT \?ELS19
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2405 (47995)
|
|
ZERO? STACK /?ELS34
|
|
FIRST? PRSO \?ELS39
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2415 (47997)
|
|
ZERO? STACK /?ELS23
|
|
FIRST? PRSO \?ELS27
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2409 (48082)
|
|
?ELS39: CALL TOO-BAD-BUT,PRSO,STR?158
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2419 (48084)
|
|
?ELS27: CALL TOO-BAD-BUT,PRSO,STR?158
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2411 (48131)
|
|
?ELS34: CALL TOO-BAD-BUT,PRSO,STR?7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2421 (48133)
|
|
?ELS23: CALL TOO-BAD-BUT,PRSO,STR?7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2413 (48178)
|
|
?ELS29: FSET? PRSO,SURFACEBIT \?ELS47
|
|
FIRST? PRSO \?ELS57
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2423 (48180)
|
|
?ELS19: FSET? PRSO,SURFACEBIT \?ELS29
|
|
FIRST? PRSO \?ELS36
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2417 (48282)
|
|
?ELS57: PRINTI "There's nothing on"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2427 (48284)
|
|
?ELS36: PRINTI "There's nothing on"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2419 (48338)
|
|
PRINTR "."
|
|
?ELS47: CALL V-LOOK-THROUGH,TRUE-VALUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2429 (48340)
|
|
PRINTI "."
|
|
CRLF
|
|
PUSH 1
|
|
RSTACK
|
|
?ELS29: CALL V-LOOK-THROUGH,TRUE-VALUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2422 (48411)
|
|
EQUAL? DIR,P?IN \?ELS67
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2435 (48440)
|
|
EQUAL? DIR,P?IN \?ELS41
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2425 (48471)
|
|
?ELS67: CALL YOU-CANT,STR?172
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2438 (48500)
|
|
?ELS41: CALL YOU-CANT,STR?172
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2430 (48552)
|
|
FSET? PRSO,DOORBIT \?ELS5
|
|
FSET? PRSO,OPENBIT /?THN11
|
|
FSET? PRSO,TRANSBIT \?ELS10
|
|
?THN11: CALL DOOR-ROOM,HERE,PRSO >RM
|
|
ZERO? RM /?ELS17
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2443 (48581)
|
|
FSET? PRSO,DOORBIT \?ELS4
|
|
FSET? PRSO,OPENBIT /?THN8
|
|
FSET? PRSO,TRANSBIT \?ELS9
|
|
?THN8: CALL DOOR-ROOM,HERE,PRSO >RM
|
|
ZERO? RM /?ELS13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2437 (48726)
|
|
?ELS17: PRINTI "You can't tell what's beyond"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2450 (48752)
|
|
?ELS13: PRINTI "You can't tell what's beyond"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2440 (48805)
|
|
?ELS10: CALL THIS-IS-IT,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2453 (48831)
|
|
?ELS9: CALL THIS-IS-IT,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2443 (48875)
|
|
?ELS5: FSET? PRSO,WINDOWBIT \?ELS25
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2456 (48900)
|
|
?ELS4: FSET? PRSO,WINDOWBIT \?ELS16
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2447 (48984)
|
|
?ELS25: FSET? PRSO,PERSONBIT \?ELS34
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2460 (49009)
|
|
?ELS16: FSET? PRSO,PERSONBIT \?ELS22
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2449 (49073)
|
|
?ELS34: ZERO? INSIDE \FALSE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2462 (49098)
|
|
?ELS22: ZERO? INSIDE \FALSE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2464 (49373)
|
|
ZERO? STACK /?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2477 (49398)
|
|
ZERO? STACK /?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2466 (49415)
|
|
JUMP ?CND8
|
|
?ELS10: GETP RM,P?LDESC >TXT
|
|
ZERO? TXT /?CND8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2479 (49439)
|
|
JUMP ?CND7
|
|
?ELS8: GETP RM,P?LDESC >TXT
|
|
ZERO? TXT /?CND7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2472 (49517)
|
|
?CND8: CALL CORRIDOR-LOOK
|
|
ZERO? STACK /?CND15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2485 (49540)
|
|
?CND7: CALL CORRIDOR-LOOK
|
|
ZERO? STACK /?CND12
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2475 (49586)
|
|
?CND15: ZERO? X \?CND18
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2488 (49609)
|
|
?CND12: ZERO? X \?CND14
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2478 (49666)
|
|
?CND18: SET 'HERE,OLD-HERE
|
|
RETURN HERE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2491 (49689)
|
|
?CND14: SET 'HERE,OLD-HERE
|
|
RTRUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2485 (49782)
|
|
ZERO? P \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2498 (49800)
|
|
ZERO? P \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2489 (49862)
|
|
?ELS5: LESS? P,LOW-DIRECTION /?PRG1
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2502 (49880)
|
|
?ELS4: LESS? P,LOW-DIRECTION /?PRG1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2492 (49935)
|
|
EQUAL? L,UEXIT \?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2505 (49953)
|
|
EQUAL? L,UEXIT \?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2495 (50003)
|
|
?ELS12: EQUAL? L,DEXIT \?ELS16
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2508 (50020)
|
|
?ELS9: EQUAL? L,DEXIT \?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2497 (50051)
|
|
EQUAL? STACK,THERE \?ELS16
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2510 (50067)
|
|
EQUAL? STACK,THERE \?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2501 (50173)
|
|
?ELS16: EQUAL? L,CEXIT \?PRG1
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2514 (50189)
|
|
?ELS11: EQUAL? L,CEXIT \?PRG1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2513 (50389)
|
|
FSET? PRSO,SURFACEBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2526 (50405)
|
|
FSET? PRSO,SURFACEBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2516 (50451)
|
|
?ELS5: PRINTI "There's no good surface on"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2529 (50467)
|
|
?ELS4: PRINTI "There's no good surface on"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2528 (50636)
|
|
ZERO? STACK /?ELS5
|
|
FSET? PRSO,WORNBIT \?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2541 (50652)
|
|
ZERO? STACK /?ELS4
|
|
FSET? PRSO,WORNBIT \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2531 (50716)
|
|
?ELS10: PRINTR "You're holding it!"
|
|
?ELS5: FSET? PRSO,PERSONBIT \?ELS18
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2544 (50731)
|
|
?ELS8: PRINTR "You're holding it!"
|
|
?ELS4: FSET? PRSO,PERSONBIT \?ELS13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2536 (50860)
|
|
?ELS18: LOC PRSO
|
|
EQUAL? STACK,HERE,LOCAL-GLOBALS \?ELS22
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2549 (50874)
|
|
?ELS13: LOC PRSO
|
|
EQUAL? STACK,HERE,LOCAL-GLOBALS \?ELS16
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2539 (50963)
|
|
?ELS22: PRINTR "That's not a bit useful."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2552 (50977)
|
|
?ELS16: PRINTR "That's not a bit useful."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2543 (51032)
|
|
ZERO? PRSI /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2556 (51046)
|
|
ZERO? PRSI /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2547 (51132)
|
|
?ELS5: EQUAL? PRSO,ROOMS \?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2560 (51146)
|
|
?ELS4: EQUAL? PRSO,ROOMS \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2549 (51187)
|
|
ZERO? STACK /?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2562 (51200)
|
|
ZERO? STACK /?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2552 (51250)
|
|
GRTR? HR,6 \?ELS18
|
|
LESS? HR,18 \?ELS18
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2565 (51263)
|
|
GRTR? HR,6 \?ELS13
|
|
LESS? HR,18 \?ELS13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2555 (51312)
|
|
JUMP ?CND16
|
|
?ELS18: PRINTI "The moon"
|
|
?CND16: PRINTR " is shining with all its might."
|
|
?ELS15: CALL ZMEMQ,HERE,STATION-ROOMS
|
|
ZERO? STACK /?ELS30
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2568 (51325)
|
|
JUMP ?CND12
|
|
?ELS13: PRINTI "The moon"
|
|
?CND12: PRINTR " is shining with all its might."
|
|
?ELS11: CALL ZMEMQ,HERE,STATION-ROOMS
|
|
ZERO? STACK /?ELS21
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2561 (51489)
|
|
ZERO? STACK /?ELS33
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2574 (51502)
|
|
ZERO? STACK /?ELS23
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2563 (51543)
|
|
JUMP ?CND31
|
|
?ELS33: PRINTI "The ceiling"
|
|
?CND31: PRINTR " is constructed on a grand scale, with crossed beams and numerous chandeliers."
|
|
?ELS30: PRINTR "The ceiling has seen better years, but a little soot removal would do wonders."
|
|
?ELS10: IN? TIMETABLE,WINNER \?ELS47
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2576 (51556)
|
|
JUMP ?CND22
|
|
?ELS23: PRINTI "The ceiling"
|
|
?CND22: PRINTR " is constructed on a grand scale, with crossed beams and numerous chandeliers."
|
|
?ELS21: PRINTR "The ceiling has seen better years, but a little soot removal would do wonders."
|
|
?ELS7: IN? TIMETABLE,WINNER \?ELS32
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2570 (51868)
|
|
?ELS47: PRINTI "Huh? Without the "
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2583 (51880)
|
|
?ELS32: PRINTI "Huh? Without the "
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2586 (52154)
|
|
FSET? PRSO,TAKEBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2599 (52166)
|
|
FSET? PRSO,TAKEBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2590 (52248)
|
|
?ELS5: CALL YOU-CANT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2603 (52260)
|
|
?ELS4: CALL YOU-CANT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2606 (52529)
|
|
FSET? PRSO,CONTBIT /?ELS5
|
|
FSET? PRSO,DOORBIT /?ELS5
|
|
FSET? PRSO,WINDOWBIT /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2619 (52541)
|
|
FSET? PRSO,CONTBIT /?ELS4
|
|
FSET? PRSO,DOORBIT /?ELS4
|
|
FSET? PRSO,WINDOWBIT /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2611 (52641)
|
|
?ELS5: FSET? PRSO,DOORBIT /?THN10
|
|
FSET? PRSO,WINDOWBIT /?THN10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2624 (52653)
|
|
?ELS4: FSET? PRSO,DOORBIT /?THN6
|
|
FSET? PRSO,WINDOWBIT /?THN6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2614 (52730)
|
|
ZERO? STACK /?ELS9
|
|
?THN10: FSET? PRSO,LOCKED \?CND12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2627 (52740)
|
|
ZERO? STACK /?ELS7
|
|
?THN6: FSET? PRSO,LOCKED \?CND8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2617 (52820)
|
|
ZERO? STACK \?ELS19
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2630 (52828)
|
|
ZERO? STACK \?ELS12
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2619 (52875)
|
|
ZERO? STACK \?ELS19
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2632 (52883)
|
|
ZERO? STACK \?ELS12
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2622 (52938)
|
|
?ELS19: FCLEAR PRSO,LOCKED
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2635 (52946)
|
|
?ELS12: FCLEAR PRSO,LOCKED
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2627 (53036)
|
|
?CND12: FSET? PRSO,OPENBIT \?ELS30
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2640 (53044)
|
|
?CND8: FSET? PRSO,OPENBIT \?ELS19
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2630 (53108)
|
|
?ELS30: FSET? PRSO,MUNGBIT \?ELS32
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2643 (53115)
|
|
?ELS19: FSET? PRSO,MUNGBIT \?ELS20
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2632 (53195)
|
|
?ELS32: FSET PRSO,OPENBIT
|
|
FSET? PRSO,DOORBIT /?THN42
|
|
FSET? PRSO,WINDOWBIT /?THN42
|
|
FIRST? PRSO \?THN42
|
|
FSET? PRSO,TRANSBIT \?ELS41
|
|
?THN42: CALL OKAY,PRSO,STR?6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2645 (53202)
|
|
?ELS20: FSET PRSO,OPENBIT
|
|
FSET? PRSO,DOORBIT /?THN26
|
|
FSET? PRSO,WINDOWBIT /?THN26
|
|
FIRST? PRSO \?THN26
|
|
FSET? PRSO,TRANSBIT \?ELS27
|
|
?THN26: CALL OKAY,PRSO,STR?6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2639 (53374)
|
|
?ELS41: FIRST? PRSO >F \?ELS45
|
|
NEXT? F /?ELS45
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2652 (53381)
|
|
?ELS27: FIRST? PRSO >F \?ELS28
|
|
NEXT? F /?ELS28
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2642 (53446)
|
|
ZERO? STR /?ELS45
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2655 (53453)
|
|
ZERO? STR /?ELS28
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2650 (53555)
|
|
?ELS45: PRINTI "You open"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2663 (53562)
|
|
?ELS28: PRINTI "You open"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2654 (53649)
|
|
PRINTR "."
|
|
?ELS9: CALL YOU-CANT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2667 (53656)
|
|
PRINTI "."
|
|
CRLF
|
|
PUSH 1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2659 (53698)
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2671 (53696)
|
|
?ELS7: CALL YOU-CANT
|
|
RSTACK
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2676 (53918)
|
|
ZERO? PRSI /?ELS5
|
|
EQUAL? PRSI,CAMERA /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2692 (53952)
|
|
ZERO? PRSI /?ELS4
|
|
EQUAL? PRSI,CAMERA /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2680 (53990)
|
|
?ELS5: FSET? CAMERA,OPENBIT \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2696 (54024)
|
|
?ELS4: FSET? CAMERA,OPENBIT \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2683 (54067)
|
|
?ELS9: ZERO? LENS-CRACKED /?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2699 (54101)
|
|
?ELS6: ZERO? LENS-CRACKED /?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2685 (54134)
|
|
?ELS11: LOC FILM
|
|
EQUAL? STACK,CAMERA \?THN17
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2701 (54167)
|
|
?ELS7: LOC FILM
|
|
EQUAL? STACK,CAMERA \?THN10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2688 (54211)
|
|
?THN17: PRINTR "You push the button, but it won't move."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2704 (54243)
|
|
?THN10: PRINTR "You push the button, but it won't move."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2708 (54795)
|
|
EQUAL? PRSI,PRSO \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2724 (54827)
|
|
EQUAL? PRSI,PRSO \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2711 (54857)
|
|
?ELS5: EQUAL? PRSO,PICTURE-GLOBAL /?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2727 (54889)
|
|
?ELS4: EQUAL? PRSO,PICTURE-GLOBAL /?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2714 (54932)
|
|
?ELS7: CALL NOT-HOLDING?,CAMERA
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2730 (54964)
|
|
?ELS5: CALL NOT-HOLDING?,CAMERA
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2743 (55358)
|
|
FSET? PRSO,TAKEBIT /?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2759 (55390)
|
|
FSET? PRSO,TAKEBIT /?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2746 (55420)
|
|
?ELS7: IN? PRSO,GLOBAL-OBJECTS \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2762 (55452)
|
|
?ELS5: IN? PRSO,GLOBAL-OBJECTS \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2749 (55490)
|
|
?ELS9: EQUAL? PRSI,GLOBAL-HERE,FLOOR /FALSE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2765 (55522)
|
|
?ELS6: EQUAL? PRSI,GLOBAL-HERE,FLOOR /FALSE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2756 (55623)
|
|
EQUAL? PRSI,WINE-WHITE,WINE-RED \?ELS5
|
|
IN? PRSI,CUP \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2772 (55655)
|
|
EQUAL? PRSI,WINE-WHITE,WINE-RED \?ELS4
|
|
IN? PRSI,CUP \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2760 (55711)
|
|
?ELS5: FSET? PRSI,CONTBIT /?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2776 (55743)
|
|
?ELS4: FSET? PRSI,CONTBIT /?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2764 (55831)
|
|
?ELS9: FSET? PRSI,OPENBIT /?ELS13
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2780 (55863)
|
|
?ELS6: FSET? PRSI,OPENBIT /?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2767 (55906)
|
|
?ELS13: CALL PRE-PUT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2783 (55937)
|
|
?ELS9: CALL PRE-PUT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2777 (56008)
|
|
EQUAL? PRSI,PLAYER \?ELS3
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2793 (56038)
|
|
EQUAL? PRSI,PLAYER \?ELS2
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2780 (56072)
|
|
?ELS3: FSET? PRSI,OPENBIT /?CND1
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2796 (56102)
|
|
?ELS2: FSET? PRSI,OPENBIT /?CND1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2783 (56164)
|
|
FSET? PRSI,DOORBIT /?THN11
|
|
FSET? PRSI,CONTBIT \?ELS10
|
|
?THN11: CALL TOO-BAD-BUT,PRSI,STR?7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2799 (56194)
|
|
FSET? PRSI,DOORBIT /?THN6
|
|
FSET? PRSI,CONTBIT \?ELS7
|
|
?THN6: CALL TOO-BAD-BUT,PRSI,STR?7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2787 (56268)
|
|
?ELS10: FSET? PRSI,SURFACEBIT /?ELS14
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2803 (56295)
|
|
?ELS7: FSET? PRSI,SURFACEBIT /?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2791 (56377)
|
|
?ELS14: PRINTI "You can't open"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2807 (56402)
|
|
?ELS8: PRINTI "You can't open"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2794 (56442)
|
|
?CND1: ZERO? PRSI \?ELS25
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2810 (56466)
|
|
?CND1: ZERO? PRSI \?ELS16
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2797 (56495)
|
|
?ELS25: EQUAL? PRSI,PRSO \?ELS27
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2813 (56519)
|
|
?ELS16: EQUAL? PRSI,PRSO \?ELS17
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2800 (56554)
|
|
?ELS27: IN? PRSO,PRSI \?ELS29
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2816 (56578)
|
|
?ELS17: IN? PRSO,PRSI \?ELS18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2803 (56633)
|
|
FSET? PRSI,SURFACEBIT \?ELS36
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2819 (56657)
|
|
FSET? PRSI,SURFACEBIT \?ELS24
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2805 (56680)
|
|
JUMP ?CND32
|
|
?ELS36: PUSH STR?176
|
|
?CND32: PRINT STACK
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2821 (56704)
|
|
JUMP ?CND21
|
|
?ELS24: PUSH STR?176
|
|
?CND21: PRINT STACK
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2810 (56769)
|
|
?ELS29: FSET? PRSI,SURFACEBIT /?ELS40
|
|
FSET? PRSI,OPENBIT /?ELS40
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2826 (56793)
|
|
?ELS18: FSET? PRSI,SURFACEBIT /?ELS25
|
|
FSET? PRSI,OPENBIT /?ELS25
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2814 (56877)
|
|
?ELS40: CALL WEIGHT,PRSI >?TMP1
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2830 (56901)
|
|
?ELS25: CALL WEIGHT,PRSI >?TMP1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2820 (57021)
|
|
GRTR? ?TMP1,STACK \?ELS44
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2836 (57045)
|
|
GRTR? ?TMP1,STACK \?ELS27
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2822 (57077)
|
|
?ELS44: CALL HELD?,PRSO
|
|
ZERO? STACK \?ELS48
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2838 (57101)
|
|
?ELS27: CALL HELD?,PRSO
|
|
ZERO? STACK \?ELS30
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2826 (57157)
|
|
?ELS48: MOVE PRSO,PRSI
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2842 (57181)
|
|
?ELS30: MOVE PRSO,PRSI
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2828 (57202)
|
|
EQUAL? PRSI,TOILET \?CND53
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2844 (57226)
|
|
EQUAL? PRSI,TOILET \?CND32
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2830 (57251)
|
|
?CND53: PRINTR "Okay."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2846 (57275)
|
|
?CND32: PRINTR "Okay."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2843 (57419)
|
|
ZERO? LIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2859 (57443)
|
|
ZERO? LIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2846 (57463)
|
|
?ELS5: IN? PRSO,GLOBAL-OBJECTS \?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2862 (57487)
|
|
?ELS4: IN? PRSO,GLOBAL-OBJECTS \?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2849 (57533)
|
|
?ELS7: ZERO? PRSI /?ELS9
|
|
FSET? PRSI,TRANSBIT /?ELS9
|
|
EQUAL? -1,P-NUMBER \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2865 (57557)
|
|
?ELS5: ZERO? PRSI /?ELS6
|
|
FSET? PRSI,TRANSBIT /?ELS6
|
|
EQUAL? -1,P-NUMBER \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2855 (57707)
|
|
?ELS9: EQUAL? P-ADVERB,W?CAREFULLY \FALSE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2871 (57731)
|
|
?ELS6: EQUAL? P-ADVERB,W?CAREFULLY \FALSE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2857 (57773)
|
|
ZERO? VAL \?ELS20
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2873 (57797)
|
|
ZERO? VAL \?ELS14
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2861 (57868)
|
|
?ELS20: EQUAL? VAL,M-FATAL /TRUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2877 (57892)
|
|
?ELS14: EQUAL? VAL,M-FATAL /TRUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2866 (57931)
|
|
FSET? PRSO,READBIT /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2882 (57955)
|
|
FSET? PRSO,READBIT /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2869 (57985)
|
|
?ELS5: GETP PRSO,P?TEXT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2885 (58009)
|
|
?ELS4: GETP PRSO,P?TEXT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2876 (58063)
|
|
FSET? PRSO,WEARBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2892 (58087)
|
|
FSET? PRSO,WEARBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2879 (58131)
|
|
?ELS5: CALL PERFORM,V?TAKE,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2895 (58155)
|
|
?ELS4: CALL PERFORM,V?TAKE,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2909 (58478)
|
|
ZERO? STACK /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2925 (58502)
|
|
ZERO? STACK /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2912 (58539)
|
|
?ELS5: SET 'P,GOOD-SPY
|
|
IN? P,HERE /?THN8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2928 (58563)
|
|
?ELS4: SET 'P,GOOD-SPY
|
|
PUSH 1
|
|
IN? STACK,HERE /?THN5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2915 (58625)
|
|
ZERO? P /?ELS7
|
|
?THN8: PRINT I-ASSUME
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2932 (58662)
|
|
ZERO? P /?ELS6
|
|
?THN5: PRINT I-ASSUME
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2923 (58751)
|
|
?ELS7: SET 'QUOTE-FLAG,FALSE-VALUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2940 (58788)
|
|
?ELS6: SET 'QUOTE-FLAG,FALSE-VALUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2946 (59116)
|
|
FSET? PRSO,PERSONBIT \?ELS5
|
|
FIRST? PRSO >OBJ \?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2963 (59153)
|
|
FSET? PRSO,PERSONBIT \?ELS4
|
|
FIRST? PRSO >OBJ \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2952 (59247)
|
|
?ELS10: PRINTR "You don't find anything interesting."
|
|
?ELS5: FSET? PRSO,CONTBIT \?ELS18
|
|
FSET? PRSO,OPENBIT /?ELS23
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2969 (59283)
|
|
?ELS8: PRINTR "You don't find anything interesting."
|
|
?ELS4: FSET? PRSO,CONTBIT \?ELS13
|
|
FSET? PRSO,OPENBIT /?ELS17
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2957 (59405)
|
|
?ELS23: CALL PERFORM,V?LOOK-INSIDE,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2974 (59440)
|
|
?ELS17: CALL PERFORM,V?LOOK-INSIDE,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2959 (59455)
|
|
?ELS18: IN? BLOOD-SPOT,PRSO \?ELS27
|
|
FSET? BLOOD-SPOT,NDESCBIT \?ELS27
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2976 (59490)
|
|
?ELS13: IN? BLOOD-SPOT,PRSO \?ELS18
|
|
FSET? BLOOD-SPOT,NDESCBIT \?ELS18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2966 (59614)
|
|
?ELS27: PRINTR "You find nothing unusual."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2983 (59649)
|
|
?ELS18: PRINTR "You find nothing unusual."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2978 (59814)
|
|
FSET? PRSO,PERSONBIT \?ELS5
|
|
IN? PRSI,PRSO \?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-2995 (59849)
|
|
FSET? PRSO,PERSONBIT \?ELS4
|
|
IN? PRSI,PRSO \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2985 (59955)
|
|
?ELS10: CALL START-SENTENCE,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3002 (59989)
|
|
?ELS8: CALL START-SENTENCE,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2988 (60035)
|
|
ZERO? STACK \?CND17
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3005 (60068)
|
|
ZERO? STACK \?CND13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2990 (60071)
|
|
?CND17: PRINTI "n't have"
|
|
IN? PRSI,GLOBAL-OBJECTS \?ELS28
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3007 (60104)
|
|
?CND13: PRINTI "n't have"
|
|
IN? PRSI,GLOBAL-OBJECTS \?ELS22
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2995 (60177)
|
|
?ELS28: ZERO? PRSI \?ELS32
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3012 (60210)
|
|
?ELS22: ZERO? PRSI \?ELS25
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-2997 (60223)
|
|
?ELS32: CALL PRINTT,PRSI
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3014 (60256)
|
|
?ELS25: CALL PRINTT,PRSI
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3000 (60321)
|
|
PRINTR " person."
|
|
?ELS5: FSET? PRSO,CONTBIT \?ELS40
|
|
FSET? PRSO,OPENBIT /?ELS40
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3017 (60354)
|
|
PRINTI " person."
|
|
CRLF
|
|
PUSH 1
|
|
RSTACK
|
|
?ELS4: FSET? PRSO,CONTBIT \?ELS30
|
|
FSET? PRSO,OPENBIT /?ELS30
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3006 (60474)
|
|
?ELS40: IN? PRSI,PRSO \?ELS46
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3026 (60534)
|
|
?ELS30: IN? PRSI,PRSO \?ELS34
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3010 (60599)
|
|
?ELS46: ZERO? PRSI \?ELS52
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3030 (60659)
|
|
?ELS34: ZERO? PRSI \?ELS39
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3013 (60653)
|
|
?ELS52: PRINTI "You don't find"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3033 (60713)
|
|
?ELS39: PRINTI "You don't find"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3040 (61003)
|
|
FSET? PRSO,PERSONBIT \?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3060 (61063)
|
|
FSET? PRSO,PERSONBIT \?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3045 (61129)
|
|
?ELS7: SET 'CLOCK-WAIT,TRUE-VALUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3065 (61189)
|
|
?ELS5: SET 'CLOCK-WAIT,TRUE-VALUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3055 (61278)
|
|
FSET? PRSO,TAKEBIT /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3075 (61338)
|
|
FSET? PRSO,TAKEBIT /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3057 (61362)
|
|
?ELS5: FSET? PRSO,OPENBIT /?ELS9
|
|
FIRST? PRSO \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3077 (61422)
|
|
?ELS4: FSET? PRSO,OPENBIT /?ELS7
|
|
FIRST? PRSO \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3062 (61502)
|
|
?ELS9: FSET? PRSO,OPENBIT \?ELS15
|
|
FIRST? PRSO \?ELS15
|
|
?PRG18: FIRST? PRSO >X \?REP19
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3082 (61562)
|
|
?ELS7: FSET? PRSO,OPENBIT \?ELS11
|
|
FIRST? PRSO \?ELS11
|
|
?PRG13: FIRST? PRSO >X \?REP14
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3066 (61605)
|
|
JUMP ?PRG18
|
|
?REP19: PRINTR "All of the objects spill onto the ground."
|
|
?ELS15: PRINTI "There's nothing in"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3086 (61665)
|
|
JUMP ?PRG13
|
|
?REP14: PRINTR "All of the objects spill onto the ground."
|
|
?ELS11: PRINTI "There's nothing in"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3075 (61791)
|
|
IN? CAMERA,WINNER \?ELS6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3095 (61851)
|
|
IN? CAMERA,WINNER \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3077 (61837)
|
|
JUMP ?CND4
|
|
?ELS6: IN? GUN,WINNER \?CND4
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3097 (61897)
|
|
JUMP ?CND3
|
|
?ELS4: IN? GUN,WINNER \?CND3
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3080 (61896)
|
|
?CND4: ZERO? PRSI /FALSE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3100 (61956)
|
|
?CND3: ZERO? PRSI /FALSE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3090 (62044)
|
|
ZERO? STACK \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3110 (62104)
|
|
ZERO? STACK \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3092 (62115)
|
|
?ELS5: CALL IKILL,STR?179
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3112 (62175)
|
|
?ELS4: CALL IKILL,STR?179
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3107 (62283)
|
|
EQUAL? PRSO,PLAYER \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3127 (62343)
|
|
EQUAL? PRSO,PLAYER \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3111 (62376)
|
|
ZERO? STACK /?ELS8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3131 (62436)
|
|
ZERO? STACK /?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3114 (62436)
|
|
?ELS8: CALL PERFORM,V?FIND,PRSI
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3134 (62496)
|
|
?ELS6: CALL PERFORM,V?FIND,PRSI
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3116 (62478)
|
|
?ELS5: FSET? PRSO,PERSONBIT /?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3136 (62538)
|
|
?ELS4: FSET? PRSO,PERSONBIT /?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3120 (62584)
|
|
?ELS12: CALL START-SENTENCE,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3140 (62643)
|
|
?ELS7: CALL START-SENTENCE,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3127 (62696)
|
|
ZERO? PRSI /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3147 (62754)
|
|
ZERO? PRSI /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3131 (62784)
|
|
?ELS5: CALL HELD?,PRSO
|
|
ZERO? STACK \?ELS8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3151 (62842)
|
|
?ELS4: CALL HELD?,PRSO
|
|
ZERO? STACK \?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3134 (62840)
|
|
FSET? STACK,PERSONBIT \?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3154 (62898)
|
|
FSET? STACK,PERSONBIT \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3137 (62908)
|
|
?ELS11: CALL PERFORM,V?ASK-CONTEXT-FOR,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3157 (62965)
|
|
?ELS7: CALL PERFORM,V?ASK-CONTEXT-FOR,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3139 (62962)
|
|
?ELS8: CALL QCONTEXT-GOOD?
|
|
ZERO? STACK /?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3159 (63018)
|
|
?ELS5: CALL QCONTEXT-GOOD?
|
|
ZERO? STACK /?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3143 (63057)
|
|
?ELS15: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P
|
|
ZERO? P /?ELS17
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3163 (63112)
|
|
?ELS8: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P
|
|
ZERO? P /?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3152 (63234)
|
|
?ELS17: PRINT I-ASSUME
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3172 (63287)
|
|
?ELS9: PRINT I-ASSUME
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3174 (63526)
|
|
FSET? PRSO,VEHBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3194 (63578)
|
|
FSET? PRSO,VEHBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3181 (63728)
|
|
?ELS5: PRINTR "That won't help your mission!"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3201 (63780)
|
|
?ELS4: PRINTR "That won't help your mission!"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3192 (63891)
|
|
?CND1: ZERO? PRSI /?ELS8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3212 (63943)
|
|
?CND1: ZERO? PRSI /?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3195 (63962)
|
|
?ELS8: EQUAL? PRSO,PLAYER \?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3215 (64014)
|
|
?ELS6: EQUAL? PRSO,PLAYER \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3197 (64066)
|
|
?ELS12: FSET? PRSO,PERSONBIT \?ELS16
|
|
FSET? PRSO,MUNGBIT \?ELS21
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3217 (64117)
|
|
?ELS8: FSET? PRSO,PERSONBIT \?ELS11
|
|
FSET? PRSO,MUNGBIT \?ELS15
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3203 (64279)
|
|
?ELS21: CALL FACE-RED,STR?181
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3223 (64329)
|
|
?ELS15: CALL FACE-RED,STR?181
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3205 (64320)
|
|
?ELS16: PRINTR "If you were a real spy, you could break boards with the edge of your hand!"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3225 (64370)
|
|
?ELS11: PRINTR "If you were a real spy, you could break boards with the edge of your hand!"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3226 (64712)
|
|
FSET? PRSO,PERSONBIT \?ELS5
|
|
IN? PRSO,GLOBAL-OBJECTS /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3246 (64762)
|
|
FSET? PRSO,PERSONBIT \?ELS4
|
|
IN? PRSO,GLOBAL-OBJECTS /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3230 (64834)
|
|
?ELS5: CALL HAR-HAR
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3250 (64884)
|
|
?ELS4: CALL HAR-HAR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3240 (64932)
|
|
FSET? PRSO,PERSONBIT \?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3260 (64982)
|
|
FSET? PRSO,PERSONBIT \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3243 (65000)
|
|
?ELS10: CALL PERFORM,V?LAMP-OFF,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3263 (65049)
|
|
?ELS7: CALL PERFORM,V?LAMP-OFF,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3249 (65094)
|
|
ZERO? PRSO /?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3269 (65142)
|
|
ZERO? PRSO /?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3253 (65160)
|
|
?ELS7: CALL GROUND-DESC
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3273 (65208)
|
|
?ELS6: CALL GROUND-DESC
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3262 (65323)
|
|
?CND1: ZERO? P-DOLLAR-FLAG /?ELS14
|
|
EQUAL? PRSO,INTNUM /?ELS14
|
|
?ELS14: EQUAL? PRSO,DOLLARS,GLOBAL-MONEY \?ELS8
|
|
ZERO? PRSI \?ELS8
|
|
LESS? 0,POCKET-CHANGE \?ELS8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3282 (65371)
|
|
?CND1: ZERO? P-DOLLAR-FLAG /?ELS8
|
|
EQUAL? PRSO,INTNUM /?THN7
|
|
?ELS8: EQUAL? PRSO,DOLLARS,GLOBAL-MONEY \?ELS6
|
|
?THN7: ZERO? PRSI \?ELS6
|
|
LESS? 0,POCKET-CHANGE \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3269 (65524)
|
|
?ELS8: EQUAL? PRSO,FOOD-GLOBAL \?ELS16
|
|
EQUAL? HERE,GALLEY,CAFE \?ELS16
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3289 (65575)
|
|
?ELS6: EQUAL? PRSO,FOOD-GLOBAL \?ELS10
|
|
EQUAL? HERE,GALLEY,CAFE \?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3273 (65624)
|
|
?ELS16: EQUAL? PRSO,PICTURE-GLOBAL \?ELS20
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3293 (65675)
|
|
?ELS10: EQUAL? PRSO,PICTURE-GLOBAL \?ELS12
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3276 (65699)
|
|
?ELS20: EQUAL? PRSO,TRAIN /FALSE
|
|
IN? PRSO,GLOBAL-OBJECTS \?ELS24
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3296 (65750)
|
|
?ELS12: EQUAL? PRSO,TRAIN /FALSE
|
|
IN? PRSO,GLOBAL-OBJECTS \?ELS14
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3280 (65798)
|
|
?ELS24: EQUAL? L,WINNER \?ELS26
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3300 (65849)
|
|
?ELS14: EQUAL? L,WINNER \?ELS15
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3282 (65863)
|
|
?ELS26: IN? WINNER,PRSO \?ELS30
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3302 (65914)
|
|
?ELS15: IN? WINNER,PRSO \?ELS18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3284 (65929)
|
|
?ELS30: ZERO? L /?ELS34
|
|
FSET? L,CONTBIT \?ELS34
|
|
FSET? L,OPENBIT /?ELS34
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3304 (65980)
|
|
?ELS18: ZERO? L /?ELS21
|
|
FSET? L,CONTBIT \?ELS21
|
|
FSET? L,OPENBIT /?ELS21
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3289 (66042)
|
|
?ELS34: ZERO? PRSI /?ELS38
|
|
EQUAL? PRSI,POCKET,L \?ELS44
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3309 (66093)
|
|
?ELS21: ZERO? PRSI /?ELS23
|
|
EQUAL? PRSI,POCKET,L \?ELS27
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3293 (66135)
|
|
?ELS44: FSET? PRSI,SURFACEBIT /?ELS46
|
|
FSET? PRSI,OPENBIT /?ELS46
|
|
FSET? PRSI,PERSONBIT /?ELS46
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3313 (66186)
|
|
?ELS27: FSET? PRSI,SURFACEBIT /?ELS28
|
|
FSET? PRSI,OPENBIT /?ELS28
|
|
FSET? PRSI,PERSONBIT /?ELS28
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3298 (66273)
|
|
?ELS46: EQUAL? PRSI,L /FALSE
|
|
FSET? PRSI,PERSONBIT /?ELS55
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3318 (66324)
|
|
?ELS28: EQUAL? PRSI,L /FALSE
|
|
FSET? PRSI,PERSONBIT /?ELS34
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3302 (66398)
|
|
?ELS55: CALL HE-SHE-IT,PRSI,TRUE-VALUE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3322 (66449)
|
|
?ELS34: CALL HE-SHE-IT,PRSI,TRUE-VALUE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3305 (66484)
|
|
ZERO? STACK \?CND62
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3325 (66535)
|
|
ZERO? STACK \?CND39
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3307 (66520)
|
|
?CND62: PRINTI "n't have "
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3327 (66571)
|
|
?CND39: PRINTI "n't have "
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3310 (66584)
|
|
?ELS38: CALL PRE-TAKE-WITH
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3330 (66635)
|
|
?ELS23: CALL PRE-TAKE-WITH
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3316 (66674)
|
|
EQUAL? PRSO,FOOD-GLOBAL \?ELS7
|
|
EQUAL? HERE,GALLEY,CAFE \?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3336 (66725)
|
|
EQUAL? PRSO,FOOD-GLOBAL \?ELS5
|
|
EQUAL? HERE,GALLEY,CAFE \?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3320 (66766)
|
|
?ELS7: EQUAL? HERE,CAFE \?ELS11
|
|
IN? PRSO,ROOMS /?ELS11
|
|
FSET? PRSO,PERSONBIT /?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3340 (66817)
|
|
?ELS5: EQUAL? HERE,CAFE \?ELS7
|
|
IN? PRSO,ROOMS /?ELS7
|
|
FSET? PRSO,PERSONBIT /?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3324 (66875)
|
|
GRTR? STACK,0 \?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3344 (66923)
|
|
GRTR? STACK,0 \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3327 (66982)
|
|
?ELS11: CALL META-LOC,PRSO
|
|
EQUAL? STACK,GLOBAL-OBJECTS \?ELS17
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3347 (67029)
|
|
?ELS7: CALL META-LOC,PRSO
|
|
EQUAL? STACK,GLOBAL-OBJECTS \?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3334 (67148)
|
|
?ELS17: IN? PRSO,WINNER \?ELS26
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3354 (67194)
|
|
?ELS11: IN? PRSO,WINNER \?ELS17
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3337 (67221)
|
|
?ELS26: LOC PRSO
|
|
FSET? STACK,CONTBIT \?ELS28
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3357 (67267)
|
|
?ELS17: LOC PRSO
|
|
FSET? STACK,CONTBIT \?ELS18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3340 (67280)
|
|
FSET? STACK,OPENBIT /?ELS28
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3360 (67326)
|
|
FSET? STACK,OPENBIT /?ELS18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3343 (67344)
|
|
?ELS28: LOC WINNER
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3363 (67390)
|
|
?ELS18: LOC WINNER
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3358 (67611)
|
|
FSET? PRSO,WORNBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3378 (67657)
|
|
FSET? PRSO,WORNBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3363 (67735)
|
|
?ELS5: PRINTR "You aren't wearing that!"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3383 (67781)
|
|
?ELS4: PRINTR "You aren't wearing that!"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3381 (67996)
|
|
EQUAL? STACK,WINNER \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3401 (68042)
|
|
EQUAL? STACK,WINNER \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3385 (68105)
|
|
?ELS5: LOC PRSO
|
|
EQUAL? STACK,POCKET \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3405 (68151)
|
|
?ELS4: LOC PRSO
|
|
EQUAL? STACK,POCKET \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3392 (68267)
|
|
?ELS9: EQUAL? PRSO,GLOBAL-HERE,HERE,ROOMS \?ELS13
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3412 (68313)
|
|
?ELS7: EQUAL? PRSO,GLOBAL-HERE,HERE,ROOMS \?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3395 (68348)
|
|
?ELS13: LOC WINNER
|
|
EQUAL? STACK,PRSO /?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3415 (68394)
|
|
?ELS10: LOC WINNER
|
|
EQUAL? STACK,PRSO /?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3402 (68472)
|
|
?ELS15: CALL OWN-FEET
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3422 (68518)
|
|
?ELS11: CALL OWN-FEET
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3416 (68678)
|
|
EQUAL? PRSO,PLAYER \?ELS5
|
|
EQUAL? WINNER,PLAYER /?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3436 (68724)
|
|
EQUAL? PRSO,PLAYER \?ELS4
|
|
EQUAL? WINNER,PLAYER /?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3423 (68829)
|
|
?ELS10: ZERO? QCONTEXT /?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3443 (68874)
|
|
?ELS8: ZERO? QCONTEXT /?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3425 (68889)
|
|
ZERO? P-CONT /?ELS18
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3445 (68932)
|
|
ZERO? P-CONT /?ELS13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3428 (68956)
|
|
RETURN WINNER
|
|
?ELS18: PRINTR "Okay, you're not talking to anyone else."
|
|
?ELS12: CALL WONT-HELP-TO-TALK-TO,PLAYER
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3448 (68999)
|
|
RTRUE
|
|
?ELS13: PRINTR "Okay, you're not talking to anyone else."
|
|
?ELS9: CALL WONT-HELP-TO-TALK-TO,PLAYER
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3434 (69140)
|
|
?ELS5: FSET? PRSO,PERSONBIT \?ELS29
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3454 (69175)
|
|
?ELS4: FSET? PRSO,PERSONBIT \?ELS18
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3438 (69245)
|
|
ZERO? P-CONT /?ELS34
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3458 (69280)
|
|
ZERO? P-CONT /?ELS22
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3442 (69339)
|
|
RETURN WINNER
|
|
?ELS34: CALL START-SENTENCE,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3462 (69374)
|
|
RTRUE
|
|
?ELS22: CALL START-SENTENCE,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3445 (69415)
|
|
?ELS29: CALL YOU-CANT,STR?185
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3465 (69443)
|
|
?ELS18: CALL YOU-CANT,STR?185
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3463 (69691)
|
|
ZERO? STACK /?ELS5
|
|
EQUAL? PRSO,PLAYER \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3483 (69719)
|
|
ZERO? STACK /?ELS4
|
|
EQUAL? PRSO,PLAYER \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3467 (69790)
|
|
?ELS5: EQUAL? PRSO,PLAYER \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3487 (69818)
|
|
?ELS4: EQUAL? PRSO,PLAYER \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3469 (69866)
|
|
ZERO? P /?ELS9
|
|
FSET? P,INVISIBLE /?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3489 (69894)
|
|
ZERO? P /?ELS6
|
|
FSET? P,INVISIBLE /?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3478 (70024)
|
|
?ELS9: CALL PRE-ASK-ABOUT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3498 (70052)
|
|
?ELS6: CALL PRE-ASK-ABOUT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3484 (70108)
|
|
ZERO? STACK /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3504 (70136)
|
|
ZERO? STACK /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3489 (70179)
|
|
?ELS5: EQUAL? PRSO,PLAYER \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3509 (70207)
|
|
?ELS4: EQUAL? PRSO,PLAYER \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3492 (70244)
|
|
?ELS9: CALL PERFORM,V?ASK-ABOUT,PRSO,PRSI
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3512 (70272)
|
|
?ELS7: CALL PERFORM,V?ASK-ABOUT,PRSO,PRSI
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3497 (70326)
|
|
EQUAL? WINNER,PLAYER /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3517 (70354)
|
|
EQUAL? WINNER,PLAYER /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3500 (70405)
|
|
?ELS5: CALL QCONTEXT-GOOD?
|
|
ZERO? STACK /?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3520 (70433)
|
|
?ELS4: CALL QCONTEXT-GOOD?
|
|
ZERO? STACK /?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3504 (70504)
|
|
?ELS7: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3524 (70532)
|
|
?ELS5: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3522 (70777)
|
|
ZERO? PRSO /?ELS9
|
|
FSET? PRSO,PERSONBIT /?THN6
|
|
?ELS9: SET 'P,QCONTEXT
|
|
ZERO? P /?ELS11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3542 (70805)
|
|
ZERO? PRSO /?ELS5
|
|
FSET? PRSO,PERSONBIT /?THN4
|
|
?ELS5: SET 'P,QCONTEXT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3527 (70883)
|
|
ZERO? STACK \?THN6
|
|
?ELS11: CALL QCONTEXT-GOOD?
|
|
ZERO? STACK \?THN6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3546 (70893)
|
|
ZERO? STACK \?THN4
|
|
CALL QCONTEXT-GOOD?
|
|
ZERO? STACK \?THN4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3531 (70996)
|
|
ZERO? P /?ELS5
|
|
?THN6: CALL START-SENTENCE,P
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3550 (70999)
|
|
ZERO? P /?ELS7
|
|
?THN4: CALL START-SENTENCE,P
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3534 (71081)
|
|
?ELS5: PRINTR "You're more than welcome."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3553 (71084)
|
|
?ELS7: PRINTR "You're more than welcome."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3546 (71255)
|
|
EQUAL? PRSI,PLAYER \?ELS6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3565 (71258)
|
|
EQUAL? PRSI,PLAYER \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3548 (71303)
|
|
JUMP ?CND4
|
|
?ELS6: CALL START-SENTENCE,PRSI
|
|
FSET? PRSI,PERSONBIT \?ELS17
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3567 (71306)
|
|
JUMP ?CND3
|
|
?ELS4: CALL START-SENTENCE,PRSI
|
|
FSET? PRSI,PERSONBIT \?ELS12
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3552 (71395)
|
|
JUMP ?CND13
|
|
?ELS17: PUSH STR?187
|
|
?CND13: PRINT STACK
|
|
?CND4: PRINTI " as"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3571 (71398)
|
|
JUMP ?CND9
|
|
?ELS12: PUSH STR?187
|
|
?CND9: PRINT STACK
|
|
?CND3: PRINTI " as"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3561 (71543)
|
|
FSET? PRSO,PERSONBIT /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3580 (71544)
|
|
FSET? PRSO,PERSONBIT /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3563 (71622)
|
|
?ELS5: CALL V-THROW
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3582 (71623)
|
|
?ELS4: CALL V-THROW
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3579 (71855)
|
|
FSET? PRSO,PERSONBIT \?THN6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3598 (71856)
|
|
FSET? PRSO,PERSONBIT \?THN4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3581 (71913)
|
|
?THN6: PRINTR "That won't do any good."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3600 (71914)
|
|
?THN4: PRINTR "That won't do any good."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3603 (72250)
|
|
LESS? HR,10 \?CND8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3622 (72251)
|
|
LESS? HR,10 \?CND7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3605 (72284)
|
|
?CND8: PRINTN HR
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3624 (72285)
|
|
?CND7: PRINTN HR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3610 (72331)
|
|
FSET? PRSO,DOORBIT \?ELS5
|
|
FSET? PRSO,OPENBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3629 (72332)
|
|
FSET? PRSO,DOORBIT \?ELS4
|
|
FSET? PRSO,OPENBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3614 (72424)
|
|
?ELS5: PRINTR "What do you want that to do?"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3633 (72425)
|
|
?ELS4: PRINTR "What do you want that to do?"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3618 (72497)
|
|
ZERO? PLAYER-NOT-FACING \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3637 (72498)
|
|
ZERO? PLAYER-NOT-FACING \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3620 (72581)
|
|
?ELS5: SET 'P-WALK-DIR,PLAYER-NOT-FACING
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3639 (72582)
|
|
?ELS4: SET 'P-WALK-DIR,PLAYER-NOT-FACING
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3626 (72696)
|
|
FSET? PRSO,PERSONBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3645 (72697)
|
|
FSET? PRSO,PERSONBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3628 (72777)
|
|
?ELS5: CALL YOU-CANT,STR?188
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3647 (72778)
|
|
?ELS4: CALL YOU-CANT,STR?188
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3633 (72840)
|
|
FSET? PRSO,ONBIT \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3652 (72841)
|
|
FSET? PRSO,ONBIT \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3636 (72904)
|
|
?ELS5: FSET? PRSO,PERSONBIT \?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3655 (72905)
|
|
?ELS4: FSET? PRSO,PERSONBIT \?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3639 (72965)
|
|
?ELS7: CALL YOU-CANT,STR?189
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3658 (72966)
|
|
?ELS5: CALL YOU-CANT,STR?189
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3646 (73089)
|
|
ZERO? STACK \?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3665 (73090)
|
|
ZERO? STACK \?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3648 (73144)
|
|
ZERO? STACK \?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3667 (73144)
|
|
ZERO? STACK \?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3652 (73236)
|
|
?ELS12: FSET? PRSO,OPENBIT \?ELS18
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3671 (73235)
|
|
?ELS9: FSET? PRSO,OPENBIT \?ELS13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3655 (73321)
|
|
?ELS18: FSET? PRSO,LOCKED /?ELS20
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3674 (73319)
|
|
?ELS13: FSET? PRSO,LOCKED /?ELS14
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3658 (73394)
|
|
?ELS20: FCLEAR PRSO,LOCKED
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3677 (73392)
|
|
?ELS14: FCLEAR PRSO,LOCKED
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3691 (73932)
|
|
FSET? WHO,PERSONBIT \?ELS7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3710 (73930)
|
|
FSET? WHO,PERSONBIT \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3694 (73989)
|
|
?ELS7: PUSH STR?191
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3713 (73987)
|
|
?ELS6: PUSH STR?191
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3707 (74257)
|
|
ZERO? INT \?CND6
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3726 (74255)
|
|
ZERO? INT \?CND5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3710 (74310)
|
|
?CND6:
|
|
?PRG11: DLESS? 'NUM,0 \?ELS15
|
|
JUMP ?REP12
|
|
?ELS15: CALL CLOCKER >VAL
|
|
ZERO? VAL /?ELS17
|
|
EQUAL? VAL,M-FATAL /?THN21
|
|
EQUAL? HR,HERE /?ELS20
|
|
?THN21: SET 'RESULT,M-FATAL
|
|
JUMP ?REP12
|
|
?ELS20: ZERO? WHO /?ELS24
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3729 (74308)
|
|
?CND5:
|
|
?PRG9: DLESS? 'NUM,0 \?ELS12
|
|
JUMP ?REP10
|
|
?ELS12: CALL CLOCKER >VAL
|
|
ZERO? VAL /?ELS13
|
|
EQUAL? VAL,M-FATAL /?THN15
|
|
EQUAL? HR,HERE /?ELS16
|
|
?THN15: SET 'RESULT,M-FATAL
|
|
JUMP ?REP10
|
|
?ELS16: ZERO? WHO /?ELS17
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3721 (74555)
|
|
EQUAL? HERE,STACK /?THN27
|
|
EQUAL? SCENERY-OBJ,WHO /?THN27
|
|
EQUAL? WHO,TRAIN \?ELS24
|
|
ZERO? IN-STATION /?ELS24
|
|
?THN27: CALL HAS-ARRIVED,WHO
|
|
JUMP ?REP12
|
|
?ELS24: ZERO? NUM \?ELS32
|
|
JUMP ?REP12
|
|
?ELS32: INC 'WHO-WAIT
|
|
ZERO? INT /?ELS37
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3740 (74552)
|
|
EQUAL? HERE,STACK /?THN18
|
|
EQUAL? SCENERY-OBJ,WHO /?THN18
|
|
EQUAL? WHO,TRAIN \?ELS17
|
|
ZERO? IN-STATION /?ELS17
|
|
?THN18: CALL HAS-ARRIVED,WHO
|
|
JUMP ?REP10
|
|
?ELS17: ZERO? NUM \?ELS21
|
|
JUMP ?REP10
|
|
?ELS21: INC 'WHO-WAIT
|
|
ZERO? INT /?ELS23
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3732 (74854)
|
|
JUMP ?CND35
|
|
?ELS37: PRINTI "Do you want to keep waiting?"
|
|
?CND35: CALL YES?
|
|
ZERO? STACK \?ELS47
|
|
JUMP ?REP12
|
|
?ELS47: CALL STATUS-LINE
|
|
JUMP ?PRG11
|
|
?ELS17: ZERO? WHO /?ELS51
|
|
IN? WHO,HERE \?ELS51
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3751 (74851)
|
|
JUMP ?CND22
|
|
?ELS23: PRINTI "Do you want to keep waiting?"
|
|
?CND22: CALL YES?
|
|
ZERO? STACK \?ELS29
|
|
JUMP ?REP10
|
|
?ELS29: CALL STATUS-LINE
|
|
JUMP ?PRG9
|
|
?ELS13: ZERO? WHO /?ELS30
|
|
IN? WHO,HERE \?ELS30
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3742 (75083)
|
|
JUMP ?REP12
|
|
?ELS51: ZERO? WHO /?ELS55
|
|
IGRTR? 'WHO-WAIT,30 \?ELS55
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3761 (75079)
|
|
JUMP ?REP10
|
|
?ELS30: ZERO? WHO /?ELS32
|
|
IGRTR? 'WHO-WAIT,30 \?ELS32
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3748 (75255)
|
|
ZERO? STACK \?CND60
|
|
JUMP ?REP12
|
|
?CND60: SET 'WHO-WAIT,0
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3767 (75251)
|
|
ZERO? STACK \?CND36
|
|
JUMP ?REP10
|
|
?CND36: SET 'WHO-WAIT,0
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3752 (75335)
|
|
JUMP ?PRG11
|
|
?ELS55: CALL STATUS-LINE
|
|
JUMP ?PRG11
|
|
?REP12: SET 'CLOCK-WAIT,TRUE-VALUE
|
|
ZERO? INT \?CND65
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3771 (75331)
|
|
JUMP ?PRG9
|
|
?ELS32: CALL STATUS-LINE
|
|
JUMP ?PRG9
|
|
?REP10: SET 'CLOCK-WAIT,TRUE-VALUE
|
|
ZERO? INT \?CND38
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3759 (75475)
|
|
?CND65: RETURN RESULT
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3778 (75469)
|
|
?CND38: RETURN RESULT
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3767 (75622)
|
|
EQUAL? M-FATAL,STACK \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3786 (75616)
|
|
EQUAL? M-FATAL,STACK \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3769 (75663)
|
|
?ELS5: SUB MOVES,TIM
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3788 (75657)
|
|
?ELS4: SUB MOVES,TIM
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3775 (75747)
|
|
EQUAL? -1,P-NUMBER /?ELS5
|
|
EQUAL? PRSO,INTNUM,TURN,ROOMS \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3794 (75741)
|
|
EQUAL? -1,P-NUMBER /?ELS4
|
|
EQUAL? PRSO,INTNUM,TURN,ROOMS \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3779 (75847)
|
|
?ELS5: EQUAL? PRSO,GLOBAL-HERE,TURN,ROOMS \?ELS14
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3798 (75841)
|
|
?ELS4: EQUAL? PRSO,GLOBAL-HERE,TURN,ROOMS \?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3782 (75921)
|
|
?ELS14: EQUAL? PRSO,PLAYER \?ELS16
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3801 (75914)
|
|
?ELS9: EQUAL? PRSO,PLAYER \?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3785 (75997)
|
|
?ELS16: GETP PRSO,P?CHARACTER >WHO
|
|
ZERO? WHO /?ELS18
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3804 (75989)
|
|
?ELS10: GETP PRSO,P?CHARACTER >WHO
|
|
ZERO? WHO /?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3789 (76104)
|
|
EQUAL? STACK,HERE \?ELS23
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3808 (76096)
|
|
EQUAL? STACK,HERE \?ELS15
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3792 (76169)
|
|
?ELS23: CALL V-WAIT,10000,WHO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3811 (76161)
|
|
?ELS15: CALL V-WAIT,10000,WHO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3794 (76210)
|
|
?ELS18: CALL ZMEMZ,PRSO,TRAIN-TABLE
|
|
ZERO? STACK /?ELS27
|
|
EQUAL? PRSO,SCENERY-OBJ \?ELS32
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3813 (76202)
|
|
?ELS11: CALL ZMEMZ,PRSO,TRAIN-TABLE
|
|
ZERO? STACK /?ELS16
|
|
EQUAL? PRSO,SCENERY-OBJ \?ELS20
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3799 (76341)
|
|
?ELS32: CALL V-WAIT,10000,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3818 (76333)
|
|
?ELS20: CALL V-WAIT,10000,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3801 (76383)
|
|
?ELS27: EQUAL? PRSO,TRAIN \?ELS36
|
|
ZERO? ON-TRAIN /?ELS41
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3820 (76375)
|
|
?ELS16: EQUAL? PRSO,TRAIN \?ELS21
|
|
ZERO? ON-TRAIN /?ELS25
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3805 (76468)
|
|
?ELS41: ZERO? IN-STATION /?ELS44
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3824 (76460)
|
|
?ELS25: ZERO? IN-STATION /?ELS26
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3808 (76540)
|
|
?ELS44: CALL V-WAIT,10000,PRSO
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3827 (76532)
|
|
?ELS26: CALL V-WAIT,10000,PRSO
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3810 (76582)
|
|
?ELS36: PRINTR "Not a good idea. You might wait forever."
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3829 (76574)
|
|
?ELS21: PRINTR "Not a good idea. You might wait forever."
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3814 (76667)
|
|
EQUAL? -1,P-NUMBER /?ELS5
|
|
EQUAL? PRSO,TURN,INTNUM \?ELS5
|
|
GRTR? P-NUMBER,MOVES \?ELS12
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3833 (76659)
|
|
EQUAL? -1,P-NUMBER /?ELS4
|
|
EQUAL? PRSO,TURN,INTNUM \?ELS4
|
|
GRTR? P-NUMBER,MOVES \?ELS9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3820 (76810)
|
|
?ELS12: PRINTR "It's already past that time."
|
|
?ELS5: CALL YOU-CANT,STR?192
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3839 (76801)
|
|
?ELS9: PRINTR "It's already past that time."
|
|
?ELS4: CALL YOU-CANT,STR?192
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3828 (76964)
|
|
?CND1: FSET? PRSO,PERSONBIT \?ELS8
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3847 (76954)
|
|
?CND1: FSET? PRSO,PERSONBIT \?ELS6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3831 (77087)
|
|
?ELS8: CALL TOO-BAD-BUT,PRSO,STR?193
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3850 (77077)
|
|
?ELS6: CALL TOO-BAD-BUT,PRSO,STR?193
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3851 (77491)
|
|
ZERO? PT /?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3870 (77481)
|
|
ZERO? PT /?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3853 (77527)
|
|
EQUAL? PTS,UEXIT \?ELS15
|
|
GET PT,REXIT >RM
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3872 (77516)
|
|
EQUAL? PTS,UEXIT \?ELS12
|
|
CALL GET-REXIT-ROOM,PT >RM
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3859 (77629)
|
|
?ELS15: EQUAL? PTS,NEXIT \?ELS20
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3878 (77628)
|
|
?ELS12: EQUAL? PTS,NEXIT \?ELS15
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3864 (77714)
|
|
?ELS20: EQUAL? PTS,FEXIT \?ELS26
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3883 (77713)
|
|
?ELS15: EQUAL? PTS,FEXIT \?ELS20
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3867 (77783)
|
|
ZERO? RM /?ELS31
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3886 (77782)
|
|
ZERO? RM /?ELS24
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3872 (77858)
|
|
?ELS31: RETURN 2
|
|
?ELS26: EQUAL? PTS,CEXIT \?ELS40
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3891 (77857)
|
|
?ELS24: RETURN 2
|
|
?ELS20: EQUAL? PTS,CEXIT \?ELS29
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3876 (77944)
|
|
ZERO? STACK /?ELS45
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3895 (77943)
|
|
ZERO? STACK /?ELS33
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3882 (78040)
|
|
?ELS45: GET PT,CEXITSTR >STR
|
|
ZERO? STR /?ELS50
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3901 (78039)
|
|
?ELS33: GET PT,CEXITSTR >STR
|
|
ZERO? STR /?ELS36
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3887 (78121)
|
|
?ELS50: CALL YOU-CANT,STR?129
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3906 (78120)
|
|
?ELS36: CALL YOU-CANT,STR?129
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3889 (78163)
|
|
?ELS40: EQUAL? PTS,DEXIT \FALSE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3908 (78162)
|
|
?ELS29: EQUAL? PTS,DEXIT \FALSE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3891 (78222)
|
|
ZERO? STACK /?ELS65
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3910 (78221)
|
|
ZERO? STACK /?ELS47
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3897 (78318)
|
|
?ELS65: RETURN 2
|
|
?ELS10: EQUAL? PRSO,P?IN,P?OUT \?ELS74
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3916 (78317)
|
|
?ELS47: RETURN 2
|
|
?ELS8: EQUAL? PRSO,P?IN,P?OUT \?ELS52
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3901 (78407)
|
|
?ELS74: CALL YOU-CANT,STR?129
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3920 (78405)
|
|
?ELS52: CALL YOU-CANT,STR?129
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3906 (78489)
|
|
GET PT,DEXITOBJ >OBJ
|
|
GET PT,REXIT >STR
|
|
ZERO? CUSTOMS-SWEEP /?ELS3
|
|
FSET? PASSPORT,LOCKED \?ELS3
|
|
ZERO? ON-TRAIN /?ELS3
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3925 (78487)
|
|
CALL GET-DOOR-OBJ,PT >OBJ
|
|
CALL GET-REXIT-ROOM,PT >STR
|
|
ZERO? CUSTOMS-SWEEP /?ELS2
|
|
FSET? PASSPORT,LOCKED \?ELS2
|
|
ZERO? ON-TRAIN /?ELS2
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3912 (78650)
|
|
ZERO? STACK \?ELS3
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3931 (78663)
|
|
ZERO? STACK \?ELS2
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3914 (78705)
|
|
ZERO? STACK \?ELS3
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3933 (78718)
|
|
ZERO? STACK \?ELS2
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3918 (78803)
|
|
?ELS3: FSET? OBJ,OPENBIT /TRUE
|
|
?CND1: EQUAL? STR,GAS-CAR-RM \?ELS12
|
|
EQUAL? CAR-HERE,GAS-CAR \?ELS15
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3937 (78816)
|
|
?ELS2: FSET? OBJ,OPENBIT /TRUE
|
|
?CND1: EQUAL? STR,GAS-CAR-RM \?ELS8
|
|
EQUAL? CAR-HERE,GAS-CAR \?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3922 (78925)
|
|
JUMP ?CND10
|
|
?ELS15: FCLEAR OBJ,LOCKED
|
|
JUMP ?CND10
|
|
?ELS12: CALL ZMEMQ,STR,CAR-ROOMS-REST
|
|
ZERO? STACK /?ELS19
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3941 (78937)
|
|
JUMP ?CND7
|
|
?ELS10: FCLEAR OBJ,LOCKED
|
|
JUMP ?CND7
|
|
?ELS8: CALL ZMEMQ,STR,CAR-ROOMS-REST
|
|
ZERO? STACK /?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3928 (79071)
|
|
ZERO? STACK /?ELS19
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3947 (79080)
|
|
ZERO? STACK /?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3930 (79111)
|
|
JUMP ?CND10
|
|
?ELS19: FCLEAR OBJ,LOCKED
|
|
?CND10: FSET? OBJ,LOCKED /?ELS28
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3949 (79120)
|
|
JUMP ?CND7
|
|
?ELS11: FCLEAR OBJ,LOCKED
|
|
?CND7: FSET? OBJ,LOCKED /?ELS16
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3936 (79258)
|
|
?ELS28: LOC WINNER
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3955 (79265)
|
|
?ELS16: LOC WINNER
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3938 (79312)
|
|
ZERO? STACK \?THN33
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3957 (79319)
|
|
ZERO? STACK \?THN19
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3941 (79382)
|
|
ZERO? STACK /?ELS32
|
|
?THN33: FCLEAR OBJ,LOCKED
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3960 (79389)
|
|
ZERO? STACK /?ELS20
|
|
?THN19: FCLEAR OBJ,LOCKED
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3946 (79514)
|
|
?ELS32: GET PT,DEXITSTR >STR
|
|
ZERO? STR /?ELS38
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3965 (79521)
|
|
?ELS20: GET PT,DEXITSTR >STR
|
|
ZERO? STR /?ELS23
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3951 (79594)
|
|
?ELS38: CALL TOO-BAD-BUT,OBJ,STR?135
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-3970 (79601)
|
|
?ELS23: CALL TOO-BAD-BUT,OBJ,STR?135
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3981 (80155)
|
|
EQUAL? HERE,STACK \?ELS10
|
|
EQUAL? L,HERE /?THN13
|
|
EQUAL? L,LOCAL-GLOBALS \?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4000 (80162)
|
|
EQUAL? HERE,STACK \?ELS7
|
|
EQUAL? L,HERE /?THN8
|
|
EQUAL? L,LOCAL-GLOBALS \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3985 (80265)
|
|
ZERO? STACK /?ELS10
|
|
?THN13: CALL HE-SHE-IT,WINNER,TRUE-VALUE
|
|
EQUAL? WINNER,PLAYER \?ELS19
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4004 (80269)
|
|
ZERO? STACK /?ELS7
|
|
?THN8: CALL HE-SHE-IT,WINNER,TRUE-VALUE
|
|
EQUAL? WINNER,PLAYER \?ELS12
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3989 (80375)
|
|
JUMP ?CND17
|
|
?ELS19: PRINTI " does"
|
|
?CND17: PRINTR "n't need to walk around within a place."
|
|
?ELS10: EQUAL? L,LOCAL-GLOBALS \?ELS29
|
|
EQUAL? PRSO,SCENERY-OBJ \?ELS34
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4008 (80377)
|
|
JUMP ?CND11
|
|
?ELS12: PRINTI " does"
|
|
?CND11: PRINTR "n't need to walk around within a place."
|
|
?ELS7: EQUAL? L,LOCAL-GLOBALS \?ELS19
|
|
EQUAL? PRSO,SCENERY-OBJ \?ELS23
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3996 (80587)
|
|
?ELS34: CALL MORE-SPECIFIC
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4015 (80588)
|
|
?ELS23: CALL MORE-SPECIFIC
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-3998 (80625)
|
|
?ELS29: EQUAL? PRSO,INTDIR \?ELS38
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4017 (80626)
|
|
?ELS19: EQUAL? PRSO,INTDIR \?ELS24
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4001 (80692)
|
|
?ELS38: CALL ZMEMQ,O,STATIONS
|
|
ZERO? STACK /?ELS40
|
|
EQUAL? O,STATION-NAME \?ELS45
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4020 (80693)
|
|
?ELS24: CALL ZMEMQ,O,STATIONS
|
|
ZERO? STACK /?ELS25
|
|
EQUAL? O,STATION-NAME \?ELS29
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4007 (80831)
|
|
?ELS45: CALL ZMEMQ,O,TRAIN-TABLE
|
|
ZERO? STACK /?ELS49
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4026 (80832)
|
|
?ELS29: CALL ZMEMQ,O,TRAIN-TABLE
|
|
ZERO? STACK /?ELS32
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4010 (80947)
|
|
?ELS49: PRINTI "You'll have to take a "
|
|
ZERO? IN-STATION \?CND56
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4029 (80948)
|
|
?ELS32: PRINTI "You'll have to take a "
|
|
ZERO? IN-STATION \?CND37
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4013 (81037)
|
|
?CND56: PRINTR "train."
|
|
?ELS40: FSET? O,PERSONBIT \?ELS68
|
|
FSET? O,NDESCBIT /?THN65
|
|
?ELS68: IN? L,ROOMS /?ELS64
|
|
FSET? O,TOUCHBIT /?ELS64
|
|
?THN65: CALL WHO-KNOWS?,O
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4032 (81038)
|
|
?CND37: PRINTR "train."
|
|
?ELS25: FSET? O,PERSONBIT \?ELS44
|
|
FSET? O,NDESCBIT /?THN43
|
|
?ELS44: IN? L,ROOMS /?ELS45
|
|
FSET? O,TOUCHBIT /?ELS45
|
|
?THN43: CALL WHO-KNOWS?,O
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4020 (81216)
|
|
?ELS64: EQUAL? L,ROOF \?ELS72
|
|
EQUAL? HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER \?ELS72
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4039 (81217)
|
|
?ELS45: EQUAL? L,ROOF \?ELS47
|
|
EQUAL? HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER \?ELS47
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4024 (81334)
|
|
?ELS72: CALL FAR-AWAY?,L
|
|
ZERO? STACK /?ELS76
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4043 (81335)
|
|
?ELS47: CALL FAR-AWAY?,L
|
|
ZERO? STACK /?ELS49
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4030 (81497)
|
|
EQUAL? L,GLOBAL-OBJECTS /?CND79
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4049 (81498)
|
|
EQUAL? L,GLOBAL-OBJECTS /?CND52
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4032 (81566)
|
|
?CND79: PRINTR ".)"
|
|
?ELS76: CALL ESTABLISH-GOAL,PLAYER,L
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4051 (81567)
|
|
?CND52: PRINTR ".)"
|
|
?ELS49: CALL ESTABLISH-GOAL,PLAYER,L
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4036 (81677)
|
|
?PRG88: CALL FOLLOW-GOAL,PLAYER
|
|
ZERO? STACK /?PRG88
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4055 (81678)
|
|
?PRG58: CALL FOLLOW-GOAL,PLAYER
|
|
ZERO? STACK /?PRG58
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4059 (82074)
|
|
FSET? PRSO,WEARBIT /?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4078 (82075)
|
|
FSET? PRSO,WEARBIT /?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4063 (82160)
|
|
?ELS5: FSET? PRSO,WORNBIT \?ELS9
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4082 (82161)
|
|
?ELS4: FSET? PRSO,WORNBIT \?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4067 (82260)
|
|
?ELS9: MOVE PRSO,PLAYER
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4086 (82261)
|
|
?ELS7: MOVE PRSO,PLAYER
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4075 (82390)
|
|
EQUAL? PRSO,PLAYER \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4094 (82391)
|
|
EQUAL? PRSO,PLAYER \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4077 (82460)
|
|
?ELS5: CALL QCONTEXT-GOOD?
|
|
ZERO? STACK /?ELS13
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4096 (82461)
|
|
?ELS4: CALL QCONTEXT-GOOD?
|
|
ZERO? STACK /?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4080 (82528)
|
|
FSET? P,PERSONBIT /?THN10
|
|
?ELS13: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4099 (82528)
|
|
PUSH 1
|
|
FSET? STACK,PERSONBIT /?THN7
|
|
?ELS8: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4083 (82622)
|
|
?THN10: PRINT I-ASSUME
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4103 (82633)
|
|
?THN7: PRINT I-ASSUME
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4090 (82744)
|
|
?ELS9: FSET? PRSO,PERSONBIT \?ELS17
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4110 (82754)
|
|
?ELS9: FSET? PRSO,PERSONBIT \?ELS12
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4095 (82831)
|
|
?ELS17: CALL WONT-HELP-TO-TALK-TO,PLAYER
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4115 (82841)
|
|
?ELS12: CALL WONT-HELP-TO-TALK-TO,PLAYER
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4116 (83066)
|
|
ZERO? STACK /?ELS5
|
|
EQUAL? WINNER,PLAYER \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4136 (83076)
|
|
ZERO? STACK /?ELS4
|
|
EQUAL? WINNER,PLAYER \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4120 (83163)
|
|
ZERO? NO? /?ELS10
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4140 (83173)
|
|
ZERO? NO? /?ELS7
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4123 (83212)
|
|
?ELS10: CALL PERFORM,V?YES
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4143 (83221)
|
|
?ELS7: CALL PERFORM,V?YES
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4125 (83249)
|
|
?ELS5: CALL ARENT-TALKING
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4145 (83257)
|
|
?ELS4: CALL ARENT-TALKING
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4143 (83553)
|
|
?PRG7: PRINTI ">"
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4163 (83561)
|
|
?PRG5: PRINTI ">"
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4146 (83623)
|
|
ZERO? VAL /?CND11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4166 (83631)
|
|
ZERO? VAL /?CND9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4148 (83679)
|
|
EQUAL? VAL,ACT?RESTART \?ELS16
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4168 (83686)
|
|
EQUAL? VAL,ACT?RESTART \?ELS12
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4151 (83748)
|
|
JUMP ?CND11
|
|
?ELS16: EQUAL? VAL,ACT?RESTORE \?ELS18
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4171 (83755)
|
|
JUMP ?CND9
|
|
?ELS12: EQUAL? VAL,ACT?RESTORE \?ELS13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4156 (83864)
|
|
JUMP ?CND11
|
|
?ELS18: EQUAL? VAL,ACT?QUIT \?CND11
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4176 (83870)
|
|
JUMP ?CND9
|
|
?ELS13: EQUAL? VAL,ACT?QUIT \?CND9
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4159 (83923)
|
|
?CND11: PRINTI "(Type RESTORE, RESTART, or QUIT.) "
|
|
JUMP ?PRG7
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4179 (83927)
|
|
?CND9: PRINTI "(Type RESTORE, RESTART, or QUIT.) "
|
|
JUMP ?PRG5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4172 (84202)
|
|
EQUAL? PRSA,V?WALK \?ELS5
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4192 (84205)
|
|
EQUAL? PRSA,V?WALK \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4174 (84244)
|
|
?ELS5: EQUAL? PRSA,V?THROUGH,V?FOLLOW,V?WALK-TO \FALSE
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4194 (84247)
|
|
?ELS4: EQUAL? PRSA,V?THROUGH,V?FOLLOW,V?WALK-TO \FALSE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4177 (84347)
|
|
EQUAL? PRSA,V?WALK-TO \?ELS14
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4197 (84350)
|
|
EQUAL? PRSA,V?WALK-TO \?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>VERBS.ZAP.1, 1-4180 (84426)
|
|
?ELS14: CALL DIR-FROM,HERE,P
|
|
**** FILE PS:<SWG>VERBS.ZAP.3, 1-4200 (84429)
|
|
?ELS10: CALL DIR-FROM,HERE,P
|
|
***************
|
|
|