planetfall/verbs.zabstr
historicalsource e85ca899aa Final Revision
2019-04-13 21:35:51 -04:00

225 lines
6.2 KiB
Plaintext

<GLOBAL VERBOSE <> %<> WORD>
<GLOBAL SUPER-BRIEF <> %<> WORD>
<DEFINE-ROUTINE V-VERBOSE>
<DEFINE-ROUTINE V-BRIEF>
<DEFINE-ROUTINE V-SUPER-BRIEF>
<DEFINE-ROUTINE V-LOOK>
<DEFINE-ROUTINE V-LOOK-CRETIN>
<DEFINE-ROUTINE V-FIRST-LOOK>
<DEFINE-ROUTINE PRE-EXAMINE>
<DEFINE-ROUTINE V-EXAMINE>
<GLOBAL LIT <> %<> WORD>
<DEFINE-ROUTINE DESCRIBE-ROOM>
<DEFINE-ROUTINE DESCRIBE-OBJECTS>
<DEFINE-ROUTINE DESCRIBE-OBJECT>
<DEFINE-ROUTINE PRINT-CONT>
<DEFINE-ROUTINE FIRSTER>
<GLOBAL INTERNAL-MOVES 0 %<> WORD>
<GLOBAL SCORE 0 %<> WORD>
<GLOBAL DAY 1 %<> WORD>
<DEFINE-ROUTINE SCORE-OBJ>
<DEFINE-ROUTINE V-SCORE>
<DEFINE-ROUTINE FINISH>
<DEFINE-ROUTINE V-QUIT>
<DEFINE-ROUTINE YES?>
<DEFINE-ROUTINE V-VERSION>
<DEFINE-ROUTINE V-AGAIN>
<DEFINE-ROUTINE JIGS-UP>
<DEFINE-ROUTINE V-RESTORE>
<DEFINE-ROUTINE V-SAVE>
<DEFINE-ROUTINE V-RESTART>
<CONSTANT REXIT 0>
<CONSTANT UEXIT 1>
<CONSTANT NEXIT 2>
<CONSTANT FEXIT 3>
<CONSTANT CEXIT 4>
<CONSTANT DEXIT 5>
<CONSTANT NEXITSTR 0>
<CONSTANT FEXITFCN 0>
<CONSTANT CEXITFLAG 1>
<CONSTANT CEXITSTR 1>
<CONSTANT DEXITOBJ 1>
<CONSTANT DEXITSTR 1>
<DEFINE-ROUTINE V-WALK-AROUND>
<DEFINE-ROUTINE V-WALK-TO>
<DEFINE-ROUTINE V-WALK>
<DEFINE-ROUTINE V-INVENTORY>
<GLOBAL INDENTS <PTABLE "" " " " " " " " " " "> %<>
WORD>
<DEFINE-ROUTINE PRE-TAKE>
<DEFINE-ROUTINE V-TAKE>
<GLOBAL FUMBLE-NUMBER 7 %<> WORD>
<GLOBAL FUMBLE-PROB 8 %<> WORD>
<DEFINE-ROUTINE TRYTAKE>
<DEFINE-ROUTINE ITAKE>
<DEFINE-ROUTINE PRE-PUT>
<DEFINE-ROUTINE V-PUT>
<DEFINE-ROUTINE V-SLIDE>
<DEFINE-ROUTINE PRE-GIVE>
<DEFINE-ROUTINE PRE-SGIVE>
<DEFINE-ROUTINE V-GIVE>
<DEFINE-ROUTINE V-SGIVE>
<DEFINE-ROUTINE V-DROP>
<DEFINE-ROUTINE V-THROW>
<DEFINE-ROUTINE IDROP>
<DEFINE-ROUTINE V-OPEN>
<DEFINE-ROUTINE V-OPEN-WITH>
<DEFINE-ROUTINE PRINT-CONTENTS>
<DEFINE-ROUTINE V-CLOSE>
<DEFINE-ROUTINE CCOUNT>
<DEFINE-ROUTINE WEIGHT>
<GLOBAL COPR-NOTICE
" a transcript of interaction with PLANETFALL.|
PLANETFALL is a registered trademark of Infocom, Inc.|
Copyright (c) 1983 Infocom, Inc. All rights reserved.|" %<> WORD>
<DEFINE-ROUTINE V-SCRIPT>
<DEFINE-ROUTINE V-UNSCRIPT>
<DEFINE-ROUTINE PRE-MOVE>
<DEFINE-ROUTINE V-MOVE>
<DEFINE-ROUTINE V-LAMP-ON>
<DEFINE-ROUTINE V-LAMP-OFF>
<DEFINE-ROUTINE V-WAIT>
<DEFINE-ROUTINE PRE-BOARD>
<DEFINE-ROUTINE V-BOARD>
<DEFINE-ROUTINE V-DISEMBARK>
<DEFINE-ROUTINE OWN-FEET>
<DEFINE-ROUTINE V-STAND>
<DEFINE-ROUTINE GOTO>
<DEFINE-ROUTINE V-EAT>
<DEFINE-ROUTINE V-EAT-FROM>
<DEFINE-ROUTINE V-CURSE>
<DEFINE-ROUTINE V-LISTEN>
<DEFINE-ROUTINE V-FOLLOW>
<DEFINE-ROUTINE V-LEAP>
<DEFINE-ROUTINE V-SKIP>
<DEFINE-ROUTINE V-LEAVE>
<DEFINE-ROUTINE V-HELLO>
<GLOBAL HELLOS <PLTABLE "Hello." "Nice weather we're having." "Goodbye."> %<>
WORD>
<DEFINE-ROUTINE V-HELP>
<GLOBAL WHEEEEE <PLTABLE
"You've spent too much time among the Leaping Loon-toads of Leonia."
"Having fun?" "Wheeeeeee!!!"> %<> WORD>
<DEFINE-ROUTINE PRE-READ>
<DEFINE-ROUTINE V-READ>
<DEFINE-ROUTINE V-LOOK-UNDER>
<DEFINE-ROUTINE V-LOOK-BEHIND>
<DEFINE-ROUTINE V-LOOK-INSIDE>
<DEFINE-ROUTINE SEE-INSIDE?>
<DEFINE-ROUTINE V-LOOK-DOWN>
<DEFINE-ROUTINE V-TURN>
<DEFINE-ROUTINE V-LOCK>
<DEFINE-ROUTINE V-UNLOCK>
<DEFINE-ROUTINE V-ATTACK>
<DEFINE-ROUTINE V-KICK>
<DEFINE-ROUTINE V-WAVE>
<DEFINE-ROUTINE V-RUB>
<DEFINE-ROUTINE V-PUSH>
<DEFINE-ROUTINE NO-BUTTON>
<DEFINE-ROUTINE V-PUSH-UP>
<DEFINE-ROUTINE V-PUSH-DOWN>
<DEFINE-ROUTINE V-PULL>
<DEFINE-ROUTINE V-MUNG>
<DEFINE-ROUTINE HACK-HACK>
<GLOBAL HO-HUM <PLTABLE " isn't notably helpful." " has no effect."
" is as worthwhile as cleaning a Grotch cage."> %<> WORD>
<DEFINE-ROUTINE WORD-TYPE>
<DEFINE-ROUTINE V-KNOCK>
<DEFINE-ROUTINE V-YELL>
<DEFINE-ROUTINE BATTERY-FALLS>
<DEFINE-ROUTINE V-SHAKE>
<DEFINE-ROUTINE V-SHAKE-WITH>
<DEFINE-ROUTINE V-SMELL>
<DEFINE-ROUTINE GLOBAL-IN?>
<DEFINE-ROUTINE V-SWIM>
<DEFINE-ROUTINE V-SWIM-DIR>
<DEFINE-ROUTINE V-SWIM-UP>
<DEFINE-ROUTINE V-ALARM>
<DEFINE-ROUTINE V-ZORK>
<DEFINE-ROUTINE V-SIT>
<DEFINE-ROUTINE V-SIT-DOWN>
<DEFINE-ROUTINE V-GO-UP>
<DEFINE-ROUTINE V-CLIMB-ON>
<DEFINE-ROUTINE V-CLIMB-FOO>
<DEFINE-ROUTINE V-CLIMB-UP>
<DEFINE-ROUTINE V-CLIMB-DOWN>
<DEFINE-ROUTINE PRE-PUT-UNDER>
<DEFINE-ROUTINE V-PUT-UNDER>
<DEFINE-ROUTINE V-ENTER>
<DEFINE-ROUTINE V-EXIT>
<DEFINE-ROUTINE V-SEARCH>
<DEFINE-ROUTINE V-FIND>
<DEFINE-ROUTINE V-TELL>
<DEFINE-ROUTINE V-ASK-FOR>
<DEFINE-ROUTINE V-SAY>
<DEFINE-ROUTINE V-TALK>
<DEFINE-ROUTINE V-ANSWER>
<DEFINE-ROUTINE V-REPLY>
<DEFINE-ROUTINE V-KISS>
<DEFINE-ROUTINE V-RAPE>
<DEFINE-ROUTINE V-DIAGNOSE>
<DEFINE-ROUTINE V-WEAR>
<DEFINE-ROUTINE V-REMOVE>
<DEFINE-ROUTINE V-TAKE-OFF>
<DEFINE-ROUTINE V-STEP-ON>
<DEFINE-ROUTINE V-PUT-ON>
<DEFINE-ROUTINE V-NO>
<DEFINE-ROUTINE V-YES>
<DEFINE-ROUTINE V-MAYBE>
<DEFINE-ROUTINE V-POINT>
<DEFINE-ROUTINE V-SET>
<DEFINE-ROUTINE V-$VERIFY>
<CONSTANT SERIAL 0>
<DEFINE-ROUTINE V-$COMMAND>
<DEFINE-ROUTINE V-$RANDOM>
<CONSTANT D-RECORD-ON 4>
<CONSTANT D-RECORD-OFF -4>
<DEFINE-ROUTINE V-$RECORD>
<DEFINE-ROUTINE V-$UNRECORD>
<DEFINE-ROUTINE V-STAND-ON>
<DEFINE-ROUTINE V-REACH>
<DEFINE-ROUTINE V-REACH-FOR>
<DEFINE-ROUTINE DO-WALK>
<DEFINE-ROUTINE V-FLUSH>
<DEFINE-ROUTINE V-FLY>
<DEFINE-ROUTINE V-SMILE>
<DEFINE-ROUTINE V-SALUTE>
<DEFINE-ROUTINE V-ATTRACT>
<DEFINE-ROUTINE V-ZATTRACT>
<DEFINE-ROUTINE V-SPAN>
<DEFINE-ROUTINE NUMBERS-ONLY>
<DEFINE-ROUTINE V-TYPE>
<DEFINE-ROUTINE PRE-SZAP>
<DEFINE-ROUTINE PRE-ZAP>
<DEFINE-ROUTINE V-ZAP>
<DEFINE-ROUTINE V-SZAP>
<DEFINE-ROUTINE V-SCRUB>
<DEFINE-ROUTINE V-POUR>
<DEFINE-ROUTINE V-EMPTY>
<DEFINE-ROUTINE V-THROW-OFF>
<DEFINE-ROUTINE V-SLEEP>
<DEFINE-ROUTINE V-FIX-IT>
<DEFINE-ROUTINE V-OIL>
<DEFINE-ROUTINE V-SHOW>
<DEFINE-ROUTINE V-INSERT>
<DEFINE-ROUTINE V-TASTE>
<DEFINE-ROUTINE V-ZESCAPE>
<DEFINE-ROUTINE V-TIME>
<DEFINE-ROUTINE V-PLAY>
<DEFINE-ROUTINE V-PLAY-WITH>
<DEFINE-ROUTINE V-SCOLD>
<DEFINE-ROUTINE ROB>
<GLOBAL YUKS <PLTABLE "Fat chance." "A valiant attempt."
"You can't be serious." "Not bloody likely." "An interesting idea..."
"What a concept!"> %<> WORD>
<DEFINE-ROUTINE THIS-IS-IT>
<DEFINE-ROUTINE ACCESSIBLE?>
<DEFINE-ROUTINE VISIBLE?>
<DEFINE-ROUTINE A-AN>
<DEFINE-ROUTINE ALREADY>
<DEFINE-ROUTINE NOT-HOLDING>
<DEFINE-ROUTINE TAKE-IT-OFF>
<DEFINE-ROUTINE ANYMORE>
<DEFINE-ROUTINE FIXED-FONT-ON>
<DEFINE-ROUTINE FIXED-FONT-OFF>