"MISC for PLUNDERED HEARTS (c) Copyright 1987 Infocom, Inc. All Rights Reserved." ;"macros" D * A * T ,PRSO T ,PRSI T * AR * TR * N * C * CTHE * > > > > > ) ( ) (ELSE )>>)> )> > >>) (ELSE .ATM)> GVAL>) (ELSE .ATM)> !.L)> > 3> )>> !.L>)>>> >> > > > ) (
) (ELSE )>>)> > > .ATM) (ELSE )>> !.O)>>> >> >>> ,PLUS-MODE> ) (T )>> ,PLUS-MODE> ) (T )>> ,PLUS-MODE> ) (T )>> ;>>> ;"this new PICK-ONE won't begin repeating any of the items in the table until they've all been used." > > > > >> >> > > > )> .MSG> ; ) (T )> ) ;( >) ( >) (T )>> ;> > ) ( ) (T )> > ) (T )> > > > > > > 3> )> > NOUN>)> > ADJECTIVE>)> <3 .OBJ>>> .V>> ;"MAIN-LOOP and associated routines" ; SHOOT THE PIRATE") (DESC "Plundered Hearts") (NW "You can't go that way.") (SW "You can't go that way.") (SYNONYM ZZMGCK) ;"No, this synonym doesn't need to exist... sigh"> ;"else, ZIL gets confused between verb-word GO and routine GO" SHOOT THE PIRATE| Trembling, you fire the heavy arquebus. You hear its loud report over the roaring wind, yet the dark figure still approaches. The gun falls from your nerveless hands.| \"You won't kill me,\" he says, stepping over the weapon. \"Not when I am the only protection you have from Jean Lafond.\"| " ,NUTBROWN "Lips curving," ,EYES-RAKE ". You are intensely aware of the strength of his hard seaworn body, of the deep sea blue of his eyes. And then his mouth is on yours, lips parted, demanding, and you arch into his kiss...| He presses you against him, head bent. \"But who, my dear,\" he whispers into your hair, \"will protect you from me?\"|"> ; ; ; ; ; ; ; > > )>>> >>> ) TBL V (PTBL T) OBJ1 TMP ONUM) > > > > > > .ICNT> ) (T ,IT> )> )>)>> > .OCNT> ) (T ,IT> )> )>)>>)> )> ,P-SONUMS>> >> 0) ( >) (T >)> .OCNT) ( > > .ICNT) (T 1)>> ; .OCNT) ( >) (T >)> .OCNT) ( > > .ICNT) (T 1 ;.ICNT)>> <1? .ICNT>> >)> >) (<0? .NUM> ,P-SONUMS>> > >) ;( ) (T > ) ( >) (T >)> > )>) (T > )> > > .NUM> > )> > )> > ) (T )> ) ( )> ) (T >) (T >)> > > 0> ,W?ALL ,W?EVERYT>> ) (T ) ( ) ( ) (T )> )>)> > )>)>>)> >)> > ,P-WON ;"fake YOU CANT SEE responses set P-WON to false"> ,M-END>>)>) (T >)> >)> > > >)> ;> )>> > >> )>> )) ;"RFALSE if OBJ1 should be included in the ALL, otherwise RTRUE" > ) (;"TAKE prso FROM prsi and prso isn't in prsi" ,PRSI >> ) (> ;"can't get at object" ) ( ;"cases for ALL" > ) ( ;"TAKE ALL and object not accessible or takeable" > >> ) (> >>> >> ;"tray" ) (T )>) ( ) ( > ;"already have it" ) (T )>) ( ;"VERB ALL, object not held" >> ) ( ;"PUT ALL IN X,obj already in x" > > )>)>> ) (T )>> > > ) "AUX" TMP) > > ) (T )> ) (<0? > >) (T > )> > > > ) (I <>)) > ) (I <>) "AUX" V OA OO OI) ; % ') (T ' 1>>>)> )> >> ) (T )>) (T ) (T )> )>)> >> ) (T )>) (T ) (T )> )>)> >> ) (T )>) (T ) (T )> )>)> > >> >) (T >> T) ( ,P?ACTION> ,M-BEG>> T) (>> T) (>>> T) ;(> ,P?CONTFCN> ,P?CONTFCN>>>> T) (> >>> T) ( >> T)>)> .V> ) "AUX" RES) <>) (T ; " CR>) (T ">)>)> ) (T )>> ; ) ( ) (T )>)> .RES)>> ;"CLOCKER and related routines" ;30 ;% ') (T ')>> > >> > ;"length of an interrupt entry" ;"offset of routine name" ;"offset of count" > )>> > > ) ( .RTN> > ) (T )>)> >>> > 1>>> )>> ;> > ) ( .RTN> > 1>> ) (T )>)> >>> )) ;"automatically enables as well" > > ) (T )> > )> >)> ) ( .RTN> ) (> )> >> ') (T ' >)>> >>)> .INT> ) (Q? <>) OWINNER) > )> > > > ) (>> > 3>> ) (> > )> > )> > ') (ELSE ' 1>>)>> )> )> >>> )>)>)>)> > >)>>> ; ;> 127> )>>