"VERBS for SHOGUN (c) Copyright 1988 Infocom, Inc. All Rights Reserved." > >> ; ;"stuff to try to save space" ;> > > > > > > > > > )) ) (ELSE )> > ) (ELSE )> > > > > > ;> > )) " "> >> ) (ELSE )>> ) (ELSE )> > ; ) (ELSE )> > ) ( ) (ELSE )>> ) (ELSE )>> > ;"end of space saving stuff" ;"subtitle game commands" > > > > ) (ELSE > ,PERIOD>)>> > > <+ ,D-ALL? ,D-PARA?>>> )> <+ ,D-ALL? ,D-PARA?>> > > )> ; > > ) (T )>> ; > >>> ) (ELSE )>> ) (ELSE )>> )>> )) ;"guarantee status line okay")> >> 4) (ELSE 5)>> > >
>> ) (T )>) ( ) ( ) (ELSE )> ) ( ) ( )> > ) (T )>> > ;"result of last RESTORE" ;"make sure AGAIN gets fooled" >> >)> > > ;"because interrupts won't run")> .LCNT>> > RESET-MARGIN> ) (ELSE )>) (ELSE >)>)> ) ( )>) ( > )> T)>> )>> > ) (> ) (ELSE ,FAILED)>> ,P?SCORE>> > " of a possible " N <* ,SCORE-FACTOR > " in this scene, and " N <* ,SCORE-FACTOR ,SCORE> " out of " N <* ,SCORE-FACTOR ,TOTAL-SCORE> " overall, in " N ,MOVES " move"> > )> >> >> > > )>> )> > )) > 1>)> )> )> )> )> )> )> )> )> )> )> )> )> )> )> )> > > >)> )> )> " Interpreter version " N "." N > )> > > ) (STR2 <>)) )> )> > ) ( )> > > ) (,PRSO ;) (ELSE ) (T )>)>> ;"subtitle real verbs" ) (T )>> >> ) (,YABU-QUESTION ) (ELSE )> ) (ELSE )>> "V-ASK-ABOUT -- transform into PRSO, TELL ME ABOUT PRSI" > > ) ( > >> )>> ) ( ) ( ) (T )>> ) "AUX" W) ) > >) ( >> )>)>>> "V-ASK-FOR -- transform into PRSO, GIVE PRSI TO ME" > ) ( ) ( ) (T )>> ) (> ) (ELSE )>> > > > > ) ( ) ( ) ( > ) (T )>) ( >> ) (T ) (ELSE )> )> > " on ") (ELSE " in ")> THE .AV "!" CR>> ) (ELSE )> ,M-ENTER> > ) (T )>> > ) (T )>> ) (T )>> > ) (T )>> > ) (T )>> > > ;) ( > >>> ) ( ) ( 0>> ) (T )>) ( ) (T )>> ) (T )>> ) "AUX" OLIT) > > ) (ELSE )>) (ELSE )>> > 2> > > ) (ELSE )>> > )>> ;> > ROOMS YOU> > ) ( ) (ELSE )>> ) ( >> > ) (ELSE )> ) (T )>> > ) ( ) (ELSE )>> > > > ) ;( ) (ELSE )>) (> ) (> > >> ) (T > ;"for vehicle in vehicle" )>) ( ) ( ) (ELSE )>> > ) (T )>> > )>> ) ( ) (ELSE )>> ) (ELSE )>> ) (ELSE )>> ) ( > >>> ) (> )>> ) ( > ) ( ) ( ) (T )>) ( ) ( ) (T )>> > ) (ELSE )>) ( ,VEHBIT> > ) ( ) (ELSE )>> ) (T )>> ) "AUX" L) ) ( ) ( ) ( ) ( > ) ( > ) (> > ) ( ) (.WHERE ) (T )>) (ELSE )> > ) (> >> ) ( )>) ( > ) (T )>> > >> )>> > > ) (T )>> ) ( ) (T )>) (T )>> ) ( ) (T )>) ( ) (T )>> ) (ELSE )>) (> ) (ELSE )>> ) ( ) (> ) ( ;"useless")>> )) )(ELSE )> > > > > > ) ( ) (ELSE )>> > ) (ELSE )>> ,OPPONENT> ) ( ,ROOMS> ) ( ) (> > ) ( ) ( ,HANDS> >> ) (ELSE ,HANDS>> ) (ELSE )> )>) (> ) ( ) ( ) (ELSE )>) (T )>> > ) (ELSE )>) (T )>> ) ( ) (ELSE )>> ;"flashlight is only light source"> > > ) (> ) (ELSE )>) ( ,OPPONENT> ) (T )>> ) (ELSE )>> > ) (>> ) (ELSE )>> > ,KEY>> ) ( ) ( ) (ELSE )>) (ELSE )>> > > > >>>> > )> > )> )>> ,P?AFTER>>> )>> > >> >> ) "AUX" S SA SP) ,P?SCORE>> > > " out of a possible " N <* ,SCORE-FACTOR .SP>>) (ELSE )> ) (ELSE )>> > ,CONTINUE-MENU) (ELSE ,CONTINUE-AND-HINT-MENU)> ,CONTINUE-MENU-F> )>> ,P?SCORE> 0>> ,P?SCORE> 1>>
>>
>> ) ( ) ( ) ( )> > > )>)>> )>> ) (> > >> ) (ELSE )>> ) ( ,ROOMS ,LG-HOLE> ) (ELSE )> ) (ELSE )>> > )>)> > ) ( ) ( > ) ( ) (> > ) (T )>) (T )>> ) ( > ) (T )>> ) (T )>> ) (> ) (ELSE )>> > ROOMS> ) ( >> ) ( > ) ( ) (T )>> > ) ( > ) ( >> )>> )>> >> "verbs which don't require object to exist/be nearby" >> "verbs with no object or which don't require touching their object." >> > > ) (>> )>> )> ) ( ) (ELSE )>) (> >> > ) (ELSE )>) ( 0>> > > > ) (> > >> ) (T )>)>) (T ;"door" ) ( ) (T )>)>> ; ) (T )>> > ;> ;"no effect"> >> ) ( ) (ELSE )>> ) (ELSE )>> )>> > ) (ELSE )>> )) ) (ELSE )>> )>)>> )> > ;> > ) (ELSE )>> )) >> ) ( > ) ( ) ( ) ( ) ( >> )>> > > > > > >> ) (> >> ) ( ) ( ) ( > ,PERSON> >>> )> ) ( ) (> T>>> ) ( ) (T )>> > > > ) (ELSE )>> > > ) (ELSE )>) ( ) ( ) ( >> ) (ELSE )>) (T )>> > > >> ) (> ) ( ,WINNER>> > ,LOAD-ALLOWED>> ) (ELSE )>> > > ) (> ) (>> >> ) (T )>> ) (>> )>> > > CR>) (T )>> ) ( ) (ELSE )>) ( > ) (ELSE )>> > > ) (ELSE )>) (ELSE )>> > ) ( ) ( ) ( > ) (ELSE )> )>> "> ) (> ) (ELSE )> > > ) ( ) ( ) ( <+ ,D-ALL? ,D-PARA?>>> )>> > ) ( ,PRSI > ) ( ,INTDIR>> ) ( > ) (T )>> ) (ELSE )>> > > ) ( ) ;(> ) (T )>> ) (ELSE )>> > > > ) ( ) ( ) ( ) (ELSE )>)>> )> > > ) ( )> > ) (ELSE )> ) ( ) (ELSE )> ) (ELSE )>) (ELSE )>) (ELSE )>> ) (ELSE )>> > ) (ELSE )>> > ) ( ,VEHBIT> > ) (ELSE )>> ; > ;> > > ) (T )>> > > > ) ( >> ) ( ,VEHBIT>> ,CONTBIT> ,OPENBIT>>> ) (,PRSI ) ( >> > ) ( ) (ELSE )>) (> ) ( ) (ELSE )> )>> "return true if prso or prsi is inaccessible from vehicle and verb requires access to it. e.g., >EXAMINE obj-outside-vehicle => rfalse >TAKE obj-outside-vehicle => rtrue" ; )> ) ( )>> ; "." CR>> ;)) .V>> ) (ELSE )>> T> > ) ( )> )> )>> > > ) ( > ) (ELSE )>) (ELSE )>> > >> ) ( ) (ELSE )>) ( > ) (ELSE )>) (ELSE " and hold " HIM/HER ,PRSO "." CR> )>) (ELSE )>> >> ) (,P-CONT ) (T > )> )>) (T )>> ) ( > ) (ELSE )>) ( ) ( ) ( ) (> ) (ELSE ) (ELSE )> )>) (T )>> ) (ELSE )>> ) (ELSE )>> > ) (ELSE )>> ) ( ) ( ) ( > ) (ELSE )>) ( ) (> ) ( ) (T )>> ,DEXIT> .DOOR>> )>>> ) (> ) ( ) ( )>> > )>) (ELSE )>) (> > ) (> > ) ( )>> ) (ELSE )>> > > ) ( ) (ELSE )>> > > > > > ) ( > ) (ELSE )>> > ) ( ) (> ) (ELSE )>> > ) ( ,KEY>> ) ( > ) ( ) (ELSE )>) (ELSE )>> > > ) ( ) ( ) ( ) (> > CR> ) ( >) ( >>> )>) ( > >) (> ) (T )>) ( > ) ( > >>> > > )>) (> ) (T )>)> > ) (ELSE )>) ( ) ( )>)> ) ( ,P-LAST-OPEN > ) (T )>> > > > ) ( ) ( ;"do this first because rooms can be in GLOBALS" > ) (ELSE )>) ( > ) ( ) (ELSE )>) (ELSE )> ) (> > ) (ELSE ) ( ) (ELSE )>) (ELSE )> )>) (T )>> ) "AUX" DIR PT PTS OBJ) > ) ( .RM>> ) ( .RM>> >> )>) ( .RM>> > > >> )>) ( ,M-ENTER .STRICT?> .RM>> )>> > ) (T )>)> > 0> ) ( )>> > ) ( ,HERE ,WINNER> ) (T )>> > > ) (ELSE )>> > > > ) ( ) ( ) (ELSE )>) (> ) ( ) (ELSE )>> ) LAST) > >> ) ( >> ) ( >> ) ( >> ) ( >> )> ;"prevents recursion" > )>) ( ) (ELSE )>>> ) ( > > >> ) (ELSE )>) (ELSE )>) (ELSE )>> ;> ; ) (ELSE )>) (ELSE )>> ;>> )>> ; ) ( ) (T )>> > >> )>> )> > ) ( >> ) (ELSE )>> ;"subtitle object manipulation" )> >> ) (ELSE )> )> ) (> >> ) (ELSE )>)> ) ( ) ( ) (ELSE )> ) ( ,WINNER>> > ,LOAD-ALLOWED>> > ) (T )> 4> ) (T )> )> ) (> ,FUMBLE-NUMBER> )> ) (T )>> > > ) (ELSE )>> ) (OBJ2 <>)) > >)> )>)> > > > >> >>) ;(ELSE )> ) (ELSE )>> >> ) (> ,OPENBIT>>> > ) ( ) (T > )>> > ) > >)>>> ;"WEIGHT: Gets sum of SIZEs of supplied object, recursing to nth level." > >>> <+ .WT >)>> ;"subtitle movement" ;)) > .LEN> ) ( .ITM> ) (T >>)>)>>> > ,M-LEAVE>)> > )> ,ROOMS>> .RM>) (ELSE )> > ; > )> ,M-ENTER> ,M-FATAL> ) (> ) (.V? )> ;)> > \ ;"subtitle death and stuff" > >> )) > ) (ELSE )> ) (ELSE )>> )) > ;"lie to update-status-line" )> ) (ELSE )> > ;) (BIT -1) "AUX" (F ) N (1ST? <>)) > > >> ) (ELSE )>)> ) (T )>> .1ST?> ) "AUX" (F ) N (1ST? <>)) > ) (ELSE )> ) (T )>> .1ST?> ;"subtitle useful utility routines" ) (> > > > > )> )> > > )> ) ( > )> ) (ELSE > )> )>) ( > )> ) (ELSE > )> )>)> > > )) ;"can player TOUCH object?" ;"revised 5/2/84 by SEM and SWG" ) ( ) (T )>) ( ) (> ) ( ;"allows real objs in (global ...)" ) ( ,HERE >> ) ( > ) (T )>> )) ;"can player SEE object" ;"revised 5/2/84 by SEM and SWG" ) ( > )(T )>> )) ;"is object carried, or in something carried, by player?" )> ) ( > ;"can't hold but can give" ) ( ) ( ) ( ) ( ) ( ) (T .WHO>)>> > >>> >> 2>>)>> > ;) (1ST? T)) >) ( >) ( > T) ( > >)>)> >>> ; )>> > CR>> > > > > >> )>> > ) (ELSE )>) (ELSE )>> ) (>> ) (ELSE )>> > > > > > )>> ) ( >> ) (ELSE )>> > ) ( ) ( >> ) (ELSE )>> > ) ( ,PRSI >> ) (ELSE )>) (ELSE )>> > > > ) ( ) (ELSE )>> ) ( > ) (ELSE )>> > > ;> ;> ) (ELSE )>> > > > > > ) (ELSE )>> > > ) (ELSE )>> > ) (ELSE )>> ) (ELSE )>> > > > > > ) (ELSE )>> > > > > ) (ELSE )>> > > ) ( ,ROOMS ,HEAD> > ) (> ) (ELSE >)> ) (ELSE )>) ( ) ( ) ( ) (ELSE )>) (ELSE )>> > ) (ELSE )>> >> ) ( > ) ( ) ( ) (ELSE )>> > ) (ELSE )>> > > ) (ELSE )>> ) ( ) (ELSE )>) (ELSE )>> ) (ELSE )>> ) (ELSE )>> > > > ) ( ,VEHBIT>> ) ( ) (ELSE )>) ( ) (,PRSI ) (ELSE )>) ( ) ( > ) (ELSE )>) (,PRSO )>> > ) (ELSE )>> > > )>> ) N (1ST? T) (LAST <>)) ) (ELSE > > ) (ELSE )> )> ;)> ) (T > ) (ELSE )> ) (ELSE )> )>>)>> ) ( ) (ELSE )>> > )>)> ) (ELSE )>> > ) (ELSE )> > )> > )> > > >) (ELSE )>> > > > >> ) (ELSE )>) (ELSE )>> ) (ELSE )>> > ) (ELSE )>> ) (ELSE )>> > > ) (ELSE )>> > ) (ELSE )>> ) (ELSE )>> ) (ELSE )>> > ) (ELSE )>> ) LEN) > ,LEXV-ELEMENT-SIZE-BYTES> 1>> > ) (ELSE ,LEXV-ELEMENT-SIZE-BYTES> .N>)>> > > ) ( ) ( ) ( ) ( ) ( ) (ELSE )>) (ELSE )>> > ) (ELSE )>) (ELSE )>) (ELSE )>> ) (ELSE )>> > >) (ELSE > 1>)> ,S-STATUS>> >> > )>) (,HINTS-OFF )> ;"default chapter is current scene" >) (ELSE )> > > ) ( ) (T )> > > ) (ELSE ) (T )> )>> >> )>> > > ) ( ) (ELSE )>> ) (ELSE )>> ) (ELSE )>) (ELSE )>> "standing, sitting, kneeling, and lying down" > > >>> > >> > >> > ,ROOMS> > >> ) ( ) (T )>) (ELSE )>> ,ROOMS>> ) ( ) (ELSE )>) (ELSE )>> ) (ELSE )>> > ) (ELSE )>> ) (ELSE )>) ( )>> > ) (ELSE )>> > ) ( ) (ELSE )>) (ELSE )>> > ) (ELSE )>> > ) (ELSE )>> ) (ELSE )>> ) (ELSE )>> OPPONENT> ,OPPONENT> ) (> ) (ELSE )>> > ;> ) (ELSE )>> > "changing color" > ) FG BG) ) ( > > )>)> " text on a " " background.| Is that what you want"> ) (ELSE ) (ELSE )>)>>> 640>>)>> 11) ( 320>> 9) (ELSE 8 ;"cut out grays")>> ,M-COLOR>> ,F-COLOR>> >>> ;"b&w Mac" ) (T )>) (T > >)> > ) "AUX" CHAR) "." CR> ) (ELSE )>)> >> > ) (T )>> > ) ( >)> .TMP> ;"white is really 9, not 1" ) ( >)> .TMP> ;1
;9
;10
;11>> > > ,ME> )> ) ( ) (ELSE )>> > ) (ELSE )>> > > ,PRSO > > > > >>> > ) (ELSE )>> ) ( ) ( ) (ELSE )>) (ELSE )>> > > ) ( ) (ELSE )>> ) ( ) (ELSE )>> ) ( ) (ELSE )>> ) (ELSE )>> > ) ( ) (ELSE )>> ) (ELSE )>> > > ) ( ) (,PRSI ) (,OPPONENT ) (ELSE )>> > ) (ELSE )>> >