"DEFS for SHOGUN (c) Copyright 1988 Infocom, Inc. All Rights Reserved." ;"see if we can save some space" / "> (NUM N) * (CHAR CHR C) * G *:STRING D ,PRSO D ,PRSI D * CD ,PRSO CD ,PRSI CD * THE ,PRSO THE ,PRSI THE * CTHE ,PRSO CTHE ,PRSI CTHE * (A AN) ,PRSO (A AN) ,PRSI (A AN) * (CA CAN) ,PRSO (CA CAN) ,PRSI (CA CAN) * I *:STRING HIM/HER * CHE/SHE * HE/SHE * HIS/HER * IS/ARE * S * > >> >> ;"to replace parser's versions" )> TELL-CTHE TELL-THE THINGS >> >> >> > > > > ) ( )> ;"interrupts won't run")> )>>> > > ;"direction defs for 'rooms-first'" (DIR TO R:ROOM = (UEXIT 1) ;444 #SEMI "UNCONDITIONAL EXIT" (REXIT ) #SEMI "TO ROOM") (DIR S:STRING = (NEXIT 2) ;99 #SEMI "IMPOSSIBLE EXIT" (NEXITSTR ) #SEMI "FAILURE MESSAGE") (DIR SORRY S:STRING = (NEXIT 2) #SEMI "IMPOSSIBLE EXIT" (NEXITSTR ) #SEMI "FAILURE MESSAGE") (DIR PER F:FCN = (FEXIT 3) ;53 #SEMI "CONDITIONAL EXIT" (FEXITFCN ) #SEMI "PER FUNCTION" ) (DIR TO R:ROOM IF F:GLOBAL "OPT" ELSE S:STRING = (CEXIT 4) ;7 #SEMI "CONDITIONAL EXIT" (REXIT ) #SEMI "TO ROOM" (CEXITFLAG ) #SEMI "IF FLAG IS TRUE" (CEXITSTR ) #SEMI "FAILURE MESSAGE") (DIR TO R:ROOM IF O:OBJECT IS OPEN "OPT" ELSE S:STRING = (DEXIT 5) ;15 #SEMI "CONDITIONAL EXIT" (DEXITOBJ ) #SEMI "IF DOOR IS OPEN" (DEXITSTR ) #SEMI "FAILURE MESSAGE" (DEXITRM ) #SEMI "TO ROOM")> >> > ) (> > >> ) (ELSE )>>> > >> ) (T )>) ( ) (> ) (T )>) ( ) ( ) (> >> )> > > )>) ( )> > ) ( > ) (T )>) ( >> ) (> > ) (T )>) (T )>>> ,W?FO> ,W?APOSTROPHE> > ,W?C>> ,W?FOC) ( ,W?FOC> ,W?APOSTROPHE> > ,W?SLE>> ,W?FOCSLE)>>> )>)>>> >> -1 -1
-1
>>