393 lines
12 KiB
Plaintext
393 lines
12 KiB
Plaintext
|
|
;COMPARISON OF SS:<ZORK2>GVERBS.ZIL.407 AND SS:<ZORK1>GVERBS.ZIL.391
|
|
;OPTIONS ARE /3
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-82 (1812)
|
|
Copyright (c) 1981, 1982, 1983 Infocom, Inc. ">)
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-82 (1812)
|
|
Copyright (c) 1981, 1982, 1983, 1984, 1985 Infocom, Inc. ">)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-86 (1984)
|
|
Copyright (c) 1981, 1982, 1983, 1984 Infocom, Inc. ">)
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-86 (1996)
|
|
Copyright (c) 1981, 1982, 1983 Infocom, Inc. ">)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-112 (2750)
|
|
<ROUTINE V-DEBUG ()
|
|
<TELL "Turning debugging feature ">
|
|
<COND (,DEBUG
|
|
<SETG DEBUG <>>
|
|
<TELL "off">)
|
|
(T
|
|
<SETG DEBUG T>
|
|
<TELL "on">)>
|
|
<TELL "." CR>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-112 (2756)
|
|
<ROUTINE V-COMMAND-FILE ()
|
|
<DIRIN 1>
|
|
<RTRUE>>
|
|
<ROUTINE V-RANDOM ()
|
|
<COND (<NOT <EQUAL? ,PRSO ,INTNUM>>
|
|
<TELL "Illegal call to #RND." CR>)
|
|
(T
|
|
<RANDOM <- 0 ,P-NUMBER>>
|
|
<RTRUE>)>>
|
|
<ROUTINE V-RECORD ()
|
|
<DIROUT 4>
|
|
<RTRUE>>
|
|
<ROUTINE V-UNRECORD ()
|
|
<DIROUT -4>
|
|
<RTRUE>>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-229 (5915)
|
|
<ROUTINE PRE-BURN ()
|
|
<COND (<NOT ,PRSI>
|
|
<TELL "You should say what you want to burn it with." CR>)
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-238 (6054)
|
|
<ROUTINE TELL-NO-PRSI ()
|
|
<TELL "You didn't say with what!" CR>>
|
|
<ROUTINE PRE-BURN ()
|
|
<COND (<NOT ,PRSI>
|
|
<TELL-NO-PRSI>)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-245 (6360)
|
|
<COND (<IN? ,PRSO ,WINNER>
|
|
<REMOVE-CAREFULLY ,PRSO>
|
|
<TELL "The " D ,PRSO>
|
|
<JIGS-UP
|
|
" catches fire. Unfortunately, you were holding it at the time.">)
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-257 (6526)
|
|
<COND (<OR <IN? ,PRSO ,WINNER>
|
|
<IN? ,WINNER ,PRSO>>
|
|
<REMOVE-CAREFULLY ,PRSO>
|
|
<TELL "The " D ,PRSO>
|
|
<TELL
|
|
" catches fire. Unfortunately, you were ">
|
|
<COND (<IN? ,WINNER ,PRSO>
|
|
<TELL "in">)
|
|
(T <TELL "holding">)>
|
|
<JIGS-UP " it at the time.">)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-266 (6914)
|
|
<COND %<COND (<==? ,ZORK-NUMBER 1>
|
|
'(<FSET? ,PRSO ,VEHBIT>
|
|
<V-CLIMB-UP ,P?UP ,PRSO>))
|
|
(T
|
|
'(<FSET? ,PRSO ,VEHBIT>
|
|
<PERFORM ,V?BOARD ,PRSO>
|
|
<RTRUE>))>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-283 (7216)
|
|
<COND (<FSET? ,PRSO ,VEHBIT>
|
|
<PERFORM ,V?BOARD ,PRSO>
|
|
<RTRUE>)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-358 (9735)
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-371 (9913)
|
|
<COND (<IN? ,WINNER ,PRSO>
|
|
<TELL
|
|
"Not a bright idea, especially since you're in it." CR>
|
|
<RTRUE>)>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-373 (10192)
|
|
<COND (<FSET? ,PRSI ,TOOLBIT>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-390 (10493)
|
|
<COND (<EQUAL? ,PRSI ,SHOVEL>
|
|
<TELL "There's no reason to be digging here." CR>)
|
|
(<FSET? ,PRSI ,TOOLBIT>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-440 (12400)
|
|
<COND (<AND <SET EAT? <FSET? ,PRSO ,FOODBIT>> <IN? ,PRSO ,WINNER>>
|
|
<COND (<VERB? DRINK>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-459 (12788)
|
|
<COND (<SET EAT? <FSET? ,PRSO ,FOODBIT>>
|
|
<COND (<AND <NOT <IN? ,PRSO ,WINNER>>
|
|
<NOT <IN? <LOC ,PRSO> ,WINNER>>>
|
|
<TELL "You're not holding that." CR>)
|
|
(<VERB? DRINK>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-452 (12816)
|
|
<GLOBAL-IN? ,GLOBAL-WATER ,HERE>
|
|
<EQUAL? ,PRSO ,PSEUDO-OBJECT>>
|
|
<HIT-SPOT>)
|
|
(<NOT .NOBJ>
|
|
<TELL
|
|
"There isn't any water here." CR>)
|
|
(<NOT <IN? .NOBJ ,WINNER>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-474 (13308)
|
|
<EQUAL? ,PRSO ,PSEUDO-OBJECT>>
|
|
<HIT-SPOT>)
|
|
(<OR <NOT .NOBJ>
|
|
<NOT <ACCESSIBLE? .NOBJ>>>
|
|
<TELL
|
|
"You don't have any to drink." CR>)
|
|
(<ACCESSIBLE? .NOBJ> ;<NOT <IN? .NOBJ ,WINNER>>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-474 (13467)
|
|
<COND (<AND <EQUAL? ,PRSO ,WATER>
|
|
<NOT <GLOBAL-IN? ,GLOBAL-WATER ,HERE>>>
|
|
<REMOVE-CAREFULLY ,PRSO>)>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-496 (13979)
|
|
<REMOVE-CAREFULLY ,PRSO>>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-564 (16542)
|
|
<SETG P-IT-OBJECT <>>
|
|
<SETG P-IT-LOC <>>)>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-584 (16967)
|
|
<SETG P-IT-OBJECT <>>)>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-586 (17073)
|
|
<COND (<IN? ,WINNER ,PRSO>
|
|
<PERFORM ,V?DISEMBARK ,PRSO>
|
|
<RTRUE>)
|
|
(T <DO-WALK ,P?OUT>)>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-605 (17476)
|
|
<DO-WALK ,P?OUT>>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-596 (17299)
|
|
<SET TX <GETPT ,HERE ,P?GLOBAL>>
|
|
<COND (<AND .TX <ZMEMQB ,GLOBAL-WATER .TX <- <PTSIZE .TX> 1>>>
|
|
<PERFORM ,V?FILL ,PRSO ,GLOBAL-WATER>
|
|
<RTRUE>)
|
|
(<IN? ,WATER <LOC ,WINNER>>
|
|
<PERFORM ,V?FILL ,PRSO ,WATER>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL "There is nothing to fill it with." CR>
|
|
<RTRUE>)>)>
|
|
<COND (<EQUAL? ,PRSI ,WATER>
|
|
<RFALSE>)
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-612 (17617)
|
|
<COND (<AND <SET TX <GETPT ,HERE ,P?GLOBAL>>
|
|
<ZMEMQB ,GLOBAL-WATER .TX <- <PTSIZE .TX> 1>>>
|
|
<SETG PRSI ,GLOBAL-WATER>
|
|
<RFALSE>)
|
|
(T
|
|
<TELL "There is nothing to fill it with." CR>
|
|
<RTRUE>)>)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-756 (21795)
|
|
(<FSET? ,PRSO ,BURNBIT>
|
|
<TELL
|
|
"If you wish to burn the " D ,PRSO ", you should say so." CR>)
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-767 (21960)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-960 (27706)
|
|
<PERFORM ,V?THROW ,PRSO>
|
|
<RTRUE>)>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-968 (27765)
|
|
<TELL "Huh?" CR>)>>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1313 (37385)
|
|
%<COND (<==? ,ZORK-NUMBER 2>
|
|
'(<EQUAL? ,PRSO ,DOOR-KEEPER>
|
|
<SETG PRSI <>>
|
|
<RFALSE>))
|
|
(T
|
|
'(<NULL-F> T))>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1320 (37425)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1351 (38471)
|
|
<COND (<FSET? ,PRSO ,DOORBIT>
|
|
<DO-WALK <OTHER-SIDE ,PRSO>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1352 (38359)
|
|
<COND (<AND <FSET? ,PRSO ,DOORBIT>
|
|
<SET M <OTHER-SIDE ,PRSO>>>
|
|
<DO-WALK .M>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1357 (38659)
|
|
(<OR .OBJ <NOT <FSET? ,PRSO ,TAKEBIT>>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1359 (38571)
|
|
(<AND <NOT .OBJ> <NOT <FSET? ,PRSO ,TAKEBIT>>>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1395 (40068)
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1397 (39987)
|
|
(.OBJ
|
|
<TELL "You can't do that!" CR>)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1409 (40583)
|
|
(<AND ,PRSI <FSET? ,PRSI ,ACTORBIT>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1413 (40557)
|
|
(<FSET? ,PRSI ,ACTORBIT>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1413 (40731)
|
|
(T <TELL "Thrown." CR>)>)
|
|
(T <TELL "Huh?" CR>)>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1417 (40693)
|
|
(T <TELL "Thrown." CR>)>)>>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1443 (41553)
|
|
<COND (<NOT <FSET? ,PRSO ,TURNBIT>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1446 (41485)
|
|
<COND (<AND <NOT ,PRSI>
|
|
<NOT <EQUAL? ,PRSO ,BOOK>>>
|
|
<TELL "Your bare hands don't appear to be enough." CR>)
|
|
(<NOT <FSET? ,PRSO ,TURNBIT>>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1503 (43288)
|
|
<EQUAL? ,WINNER ,ADVENTURER>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1509 (43342)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1604 (45864)
|
|
<COND (<OR .LOOK? <NOT ,SUPER-BRIEF> <EQUAL? ,HERE ,ZORK3>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1609 (45881)
|
|
<COND (<OR .LOOK? <NOT ,SUPER-BRIEF>>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1650 (47403)
|
|
(<AND <FSET? .OBJ ,WEARBIT>
|
|
<IN? .OBJ ,WINNER>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1655 (47398)
|
|
(<FSET? .OBJ ,WEARBIT>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1688 (48515)
|
|
"AUX" Y 1ST? AV STR (PV? <>) (INV? <>))
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1692 (48477)
|
|
"AUX" Y 1ST? SHIT AV STR (PV? <>) (INV? <>))
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1694 (48721)
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1698 (48688)
|
|
<SET SHIT T>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1698 (48810)
|
|
<COND %<COND (<==? ,ZORK-NUMBER 2>
|
|
'(<NOT .Y>
|
|
<COND (<AND <0? .LEVEL>
|
|
<==? ,SPELL? ,S-FANTASIZE>
|
|
<PROB 20>>
|
|
<TELL "There is a "
|
|
<PICK-ONE ,FANTASIES>
|
|
" here." CR>
|
|
<SET 1ST? <>>)>
|
|
<RETURN <NOT .1ST?>>))
|
|
(ELSE
|
|
'(<NOT .Y>
|
|
<RETURN <NOT .1ST?>>))>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1703 (48793)
|
|
<COND (<NOT .Y>
|
|
<RETURN>)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1718 (49441)
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1712 (49096)
|
|
<SET SHIT <>>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1731 (49864)
|
|
<RETURN <NOT .1ST?>>)
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1726 (49544)
|
|
<RETURN>)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1749 (50514)
|
|
<SET Y <NEXT? .Y>>>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1744 (50182)
|
|
<SET Y <NEXT? .Y>>>
|
|
<COND (<AND .1ST? .SHIT> <RFALSE>) (T <RTRUE>)>>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1882 (53926)
|
|
"You try to pick it up, but with everything else you have, you can't manage
|
|
to hold onto it!" CR>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1878 (53645)
|
|
"You're holding too many things already!" CR>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1887 (54075)
|
|
<FCLEAR ,PRSO ,NDESCBIT>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1882 (53741)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-1984 (56471)
|
|
(AV <>) OLIT OHERE)
|
|
<SET OLIT ,LIT>
|
|
<SET OHERE ,HERE>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-1978 (56109)
|
|
(AV <>) OLIT)
|
|
<SET OLIT ,LIT>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-2008 (57052)
|
|
<COND (<AND .LB <NOT <FSET? ,HERE ,RLANDBIT>> <NOT ,DEAD>>
|
|
%<COND (<==? ,ZORK-NUMBER 1>
|
|
'<TELL
|
|
"The " D .WLOC " comes to a rest on the shore." CR CR>)
|
|
(T
|
|
'<COND (<EQUAL? .AV ,BALLOON>
|
|
<TELL
|
|
"The balloon lands." CR>)
|
|
(<FSET? .WLOC ,VEHBIT>
|
|
<TELL
|
|
"The " D .WLOC " comes to a stop." CR CR>)>)>)>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-2001 (56663)
|
|
<COND (<AND .LB
|
|
<NOT <FSET? ,HERE ,RLANDBIT>>
|
|
<NOT ,DEAD>
|
|
<FSET? .WLOC ,VEHBIT>>
|
|
<TELL
|
|
"The " D .WLOC " comes to a rest on the shore." CR CR>)>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-2054 (58530)
|
|
(<AND <NOT <EQUAL? ,ADVENTURER ,WINNER>>
|
|
<IN? ,ADVENTURER .OHERE>>
|
|
<TELL "The " D ,WINNER " leaves the room." CR>)
|
|
(<AND .V?
|
|
<EQUAL? ,WINNER ,ADVENTURER>>
|
|
<V-FIRST-LOOK>)>
|
|
<RTRUE>)>>
|
|
<ROUTINE GO-NEXT (TBL "AUX" VAL)
|
|
<COND (<SET VAL <LKP ,HERE .TBL>>
|
|
<GOTO .VAL>)>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-2042 (57947)
|
|
(<NOT <EQUAL? ,ADVENTURER ,WINNER>>
|
|
<TELL "The " D ,WINNER " leaves the room." CR>)
|
|
(.V? <V-FIRST-LOOK>)>
|
|
<RTRUE>)>>
|
|
;"0 -> no next, 1 -> success, 2 -> failed move"
|
|
<ROUTINE GO-NEXT (TBL "AUX" VAL)
|
|
<COND (<SET VAL <LKP ,HERE .TBL>>
|
|
<COND (<NOT <GOTO .VAL>> 2)
|
|
(T 1)>)>>
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-2121 (60321)
|
|
<COND (<EQUAL? .RM ,INSIDE-BARROW>
|
|
<RFALSE>)>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-2109 (59729)
|
|
***************
|
|
|
|
**** FILE SS:<ZORK2>GVERBS.ZIL.407, 1-2127 (60455)
|
|
<SETG P-IT-OBJECT .OBJ>
|
|
<SETG P-IT-LOC ,HERE>>
|
|
**** FILE SS:<ZORK1>GVERBS.ZIL.391, 1-2113 (59811)
|
|
<SETG P-IT-OBJECT .OBJ>>
|
|
***************
|
|
|