"GLOBALS for NORD AND BERT (c) Copyright 1987 Infocom, Inc. All Rights Reserved." ; ; ; ; ; ; > ;"DESC-IN-ROOMBIT = if room desc is printed, then dont print desc of obj in d-objects. if just enter room, do say 'There's a shmoo here.'" ;"DESC-IN-ROOMBIT = if obj with this is container, in a look the contents must be printed in the m-look. If you enter room, contents printed in usual way. Sitting on the..." )> ; > ) ( ) (T )>)>> ;"input was 'number'" >>> )> ) (>;"secret num. for outside testers" )>> ) ;(> > ) (T )> )>> ;"for YOUNG WOMAN" ) ( ) ( ) (T )>) ( ,W?MAN> ;"MAN is the PRSO" ;"in case PRSI is also MAN or WOMAN"> > ) (T )>) ( ,W?WOMAN ,W?LADY> ;"WOMAN is PRSO" ;"in case PRSI is also MAN or WOMAN"> > ) (T )>) ( ,W?MAN> ;"MAN is the PRSI" ;"in case PRSO is also MAN or WOMAN"> > ) (T )>) ( ,W?LADY ,W?WOMAN> ;"WOMAN is PRSI" ;"in case PRSO is also MAN or WOMAN"> > ) (T )>)>> ) ( ) ( ) ( >> ) ( ) ( > ) ( >> ) ( ) ( >>> ) ( ) (T )>> >> ) ( ) ( ) ( >> ) ( >> ) ( ) (T )>> )) > ) ;( >> ) (T )> ) ( ;"as syn for hair-raising experience" ) ( ,W?POSSESSION>>> ) ( ;"make adj obj of obj - to avoid 'be specif'" >>> ) ( > ) ( > ) (T )> ) ( > ) (T )> ) ( > ) (T )> ) ( > ) (T )> ) ( > > ) ( ) (T >)> > ) ( > )> > > )>) (T )> ) (T )>) (T ;"for YOU CANT VERB OBJECT" ) ;"OBJECT need not be here" ( ) (T )> ; ) (T )> > )> > )> )> > > ) (T )>> ) (T )>> ;"Protocol: returns .OBJ if that's the one to use ,NOT-HERE-OBJECT if case was handled and msg TELLed <> if WHICH-PRINT should be called" returns # of matches. If 1, then P-MOBY-FOUND is it. You can treat the 0 and >1 cases alike or differently. Always return RFALSE (not handled) if you have resolved the problem." > ;)> ;)> ) (T )> ) ( > ,P?GENERIC>>>> ;"Protocol: returns .OBJ if that's the one to use ,NOT-HERE-OBJECT if case was handled and msg TELLed <> if WHICH-PRINT should be called" ;)> ) (.PRSO? ) (T )> ) (T ,NOT-HERE-OBJECT)>> )> ;"classic to ezip" )>) (.PRSO? <>>) (T <>>)>> ; ; > ) (T )>)>> ) ( > )>> ) ( ) (T )> >> "carpet">) ( > ) ( > ) ( >> ) ( > ) ( ) ( > ) (T )>) ( ) ( > )>> > >> )>> > ) ( > ) ( )>> ;"PHRASEBIT = LEAD A HORSE TO WATER" > > >> ;"added" ) (> ,BABY-THROWN> > >>> ) ( ) ( ) ( ) ( > ) ( > ) ( > ) ( >> ) ( ) ( )>) ( )>> ; ; )>> ;"RMUNGBIT = green thumb told in inventory" > ) ( ) ( ) (> ) (T )>) ;( ) (T )> ) ;( ) ( > ) ;( > ) ;( > )>> ;"WORNBIT = wearing your shoes" ) (T )> ,SWUM-IN-RHINES > ) (T )> ) ( > > ) ;(,SWUM-IN-RHINES ) ( ;"ie, stay out" ) (T )>);"and put on your shoes. NO" (T )>) ( > )>> ;> ) (T ;> >> >)> >> > ;> >> ) ( ,LOUSE-ON-HEAD> )>> ;"seenbit = fly question m-beg" > >> )>> > ) ( )>> ;"RMUNGBIT = used as phrasebit for evil eye case in restaurant" > > >> ) ( > ;"pre-give preforms examine" ) ( )>)>)>> ; ; ) ( > ) ( > >)> )>> > )>> ;"Sheriff stands here next to his cop cars with triwrling silent blue lights arranged in a road block just outside of town, tumbleweeds. Tall, muscular square-jawed mirror-black glasses. Tilted. silent man with a toothpick angling out of his mouth. Tight-lipped. Leaning back against the care with his legs and arms crossed. If you want to try and help, I can deputize you. You are given a short oath, and conclude it with I Do. (Now, we're just waiting for the national guard, we've sent a messanger on foot, since all communications have been jammed by whoever's messed up this town.) You can't go beyond this point though. Three of my finest deputies have entered and never come back... Need to be cool as a cucumber..." ;(LDESC "[Hiking around in the country one day, you come upon a wind-blown newspaper, pick it up and begin reading it while slowly continuing to walk. From the unbelievable things you read, the paper seems to be some kind of foolish joke, but you keep reading while not being mindful of where you're going. When you finally decide the stories are just too far-fetched and you're about to let fly with the newspaper, your thoughts are abruptly interrupted as you bump into a road block and hear the words:| | \"Whoa there!\"| | A sheriff is leaning against a police car whose blue lights are silently rotating. He tilts his hat back and sizes you up for a moment. \"Civic-minded,\" he says. \"Well, so you've read about the troubles. It's good to see a new volunteer.\" The sheriff recites a short oath. Stunned, you respond \"I do?\"| | \"Good enough. Okay, Deputy, you can do one of the following:| | "Go to the Shopping Bizarre, Play Jacks, Buy the Farm, Eat your Words, Act the Part, Visit the Manor of Speaking, Shake a Tower, or Meet the Mayor."]| | [To try another scene, restart back to here. The status line will tell you exactly where you can go. Within each part of the story, you can type just the name of the room you want to go to, rather than GO TO (ROOM).]") >> >> ) ( )> ", " ", " ", " ", " ", " ", " ", or " ".|| If at any time in your travels you wish to tackle another situation, indicate BEGINNING, and you shall return here empty-handed.">)>> ;">Play Jacks| >Buy the Farm| >Eat your Words| >Act the Part| >Visit the Manor of Speaking| >Shake a Tower >Meet the Mayor" > )) )> ) (T )> > " >)> > " >)> > " >)> > " >)> > " >)> > " >)> > " >)> > " >)> > ;"Go to the Shopping Bizarre, Play Jacks, Buy the Farm, Eat your Words, Act the Part, Visit the Manor of Speaking, or Shake a Tower." > ;> > ;"this moved to routine FINISHED" > >> ) ( > ) ( ; )> ) ( )> ) ( )> > )> ) ( )> > )> > )> ) ( )> ) ( )> > )> > )> ) ( )> ) ( ;"so INIT-STATUS-LINE is called" ) ( )> > ) ;"passed test" (> )> >> > > )> ". If we're mistaken you can prove it -- w">) (T )> "?\"" CR> )> )>) ( > ) ( >> ) ( > ) ( > ) ( > ) ( > ) ( > ) ( > ; ) ( ) (T "such thing">)>> > ;"scene of question of rank" > > ;"used with pick-next, score and rank-questions, element no. 1 is 2" > > ;"for Super saver" > ) ( > ) ( > ) ( >> ) ( >> ) ( >> ) ( >> )>) (,RANK-Q ".\"" CR>) ( ) (T )>> )> > > ;"so init-status is called" ) (T )>> ,TOUCHBIT> > > ;"so INIT-STATUS-LINE will split right, etc." ) ( ) ( >>> )>) ( ;)> ;)> >> )>) ( ) ( ,PROTAG-JACKHAMMER-F> )> ) ( >> ) ( ) ( > )> ) ( > )> > ;"so get off of vehicle first" ;"and clearing all including 2nd status line" > ;"bug was 2nd line of staus line didn't clear in" ;"beginning room after hint. cause: scrolled text" ;"didn't push it up under the first line of stat line" ;"added CRLF, hope enough text to push up now" > ) (> ) ( ) (T ;"go to new section" )>> 1>> ; ;"should do this before printing prompt" > >> > )> > ;"so veh don't go with him in GOTO" > > ) ( ) ( )> )> >> )> ) ( )> ) ( ) ( > )> ) ( )> > > ; )> )> > > ,ROOMS>>> > > ;"if in something" )> > > )> > >> >> ) (T )> )> > ;"amfv's PLAYER has no actorbit, but changed THIS-IT? prevents finding protag" > ;"2 3 4 " > > ;"after 3rd str printed" ) (,WIDE >) (T )>> ;"YOU CANT VERB SOMETHING" > ) ( > ) ( ) ( > > ) (T )> ) ( >> ) ( > ) ( ) ( ) ;( ) (T ) (T )>)>) ( ) ( )>> ) ( ) ( ) ( ) ( > ) (T )>)>> >> ) ( ) ( )> )>) ( > )>> > ) (> > ) ( ) ( ) ( ) ( > )>> ; ; ) ( )> > ) (T )> ) ( > )> ) ( ) ( ) (T ;"so you can refer" )>) ( ) ( )>) ( ) (T )>) ( ) (T )>) ( > ) ( ) ( > ;"SHEET-F handles it") (T > )> )>) ( > ) ( ) (T )>) ( ) ( ) (T )>)>> ;"status line stuff" ;" puts cursor in text part of screen" ;" puts cursor in window part of screen" ;" returns printing to normal (default)" ;" sets printing mode to inverse video" ;" sets printing mode to bold, else normal" ;" italicizes, else underline, else normal" ;" turns on printing to the screen" ;" turns off printing to the screen" ;" turns on printing to the printer" ;" turns off printing to the printer" ;" turns on printing to that table" ;" turns off printing to that table" ; ;" sends READs and INPUTs to record file" ;;" stops sending READs and INPUTs to file" ;"gets called only at START of game unless otherwise" )) ;"clear screen" > > )> ) (T )> ;> ;"moved to top of routine" > )> ) (T )>)> > ) ( ) (T )> >)> > > 0> ) (T )>>> > > ;"is set to present HERE room." > ) "AUX" LEN (PTR 2) CHAR ;(SCRIPTING-ON <>)) ;> ; ; 1> )> ;)> ;)> ;> )> 1>> ) (> ; "ZIL?" 8>> ; "ITALICS BIT SET?" > ; "SPACE?" ) (T )> ) (T >)>> ) (.NO-CAPS? ) (T ; "NO ITALICS, CAPITALIZE" > > >)> ) (T >)>>)>> > ) (T )>> >> ) ( > ) (T )>> > >> ) (T )>> ;"this routine is fucked. When prsi is passed, PRSO is often printed. Fucked" ) (STRING <>)) > ; ) (T )> >>> )> ) ( ) (T )> > > > >> ) (T )> ) (T )>> > 0> ,W?IT>> ) (T <>>)>> > 0> ,W?IT>> ) (T <>>)>> > ;> > ;"P-OFW is the FIRST! noun in a NOUN-OF-NOUN phrase" ;"PERFORM sets now-prsi global as it calls prsi first, then prso -- thus when we get to the verb defaults, now-prsi is false." ) (WORD3 <>) "AUX" O I OOF IOF) > > > > > ,NOW-PRSI >> ) ( ) ( > ,NOW-PRSI >> ) ( ) ( > ,NOW-PRSI >> ) (T )>> > ;"set to false in start of parser" ;"rfalses if no transformation, and nothing printed" ) (NO-CR <>) "AUX" (OBJECT-IS-OLD <>)) > ) ;"stops mobyverbs from printing trans & no obj here" ( )> ) (T )> > ;"used was 'stake'" .OLD-WORD>> >) ( >) ;(T "semied during hazing section" >)> > )> )> > >> ;"v-hair just rtrues" )> ) (T )>> ) (WORD3 <>) "AUX" O I) > > > >> ) ( ) ( > >> ) ( ) ( > >> ) (T )>> ; > ) (T )>> ) (T )>> > > >> ) (T )>> > ; > ;> > > >)> )> > ; > ;> ; > ) ;( ) (T )>> )) )> > ) ( ) (T )> > ;> ) (T )> > )> > > ) (T )> > > ;> > > > ) ( ) ( ) ( ) (T )>> > ) ( > ) ( ) ( ) (T )>> )) ) (T )> > > ;> ;> ; ; ; ; ;