"VERBS for
SUSPENSION
(c) Copyright 1982 Infocom, Inc. All Rights Reserved.
"
"SUBTITLE DESCRIBE THE UNIVERSE"
"SUBTITLE SETTINGS FOR VARIOUS LEVELS OF DESCRIPTION"
"SUBTITLE DESCRIBERS"
<ROUTINE V-LOOK ("AUX" STR AV)
<COND (<IN-MOTION? ,WINNER>
<ROBOT-TELL "Moving through " <>>)
(ELSE
<ROBOT-TELL "Internal map reference -- " <>>)>
<TELL "Inside the " D ,CAR "." CR>)
(ELSE
<TELL SD ,WINNER-HERE CR>)>
<COND (<AND <IRIS?> <NOT ,IRIS-FIXED>>
<TELL <PICK-ONE ,IRIS-BLIND> CR> <RTRUE>)>
<COND (<NOT <APPLY <GETP ,WINNER-HERE ,P?ACTION> ,M-LOOK>>
<LONG-DESCS>)>
<COND (<AND <EQUAL? ,WINNER-HERE ,HALL-END ,CAR-AREA>
<IN? ,CAR ,WINNER-HERE>
<GLOBAL IRIS-BLIND
<PLTABLE
"I can't see a thing." "I can't see." "Visual function nonfunctional."
"Everything is dark." "Where's my white cane?" "Get me a seeing-eye robot."
"Get me a seeing-eye cane. Without my visual function, I'm worthless."
"I don't mean to complain, but it would be nice if I got repaired."
"I'm doing the best I can, but without visual circuits, that's next to nothing.">>
<ROUTINE LONG-DESCS ()
<COND (<NOT <EQUAL? <GET <GETP ,WINNER-HERE ,P?ROOMDESCS> ,ROFF> 0>>
<TELL <GET <GETP ,WINNER-HERE ,P?ROOMDESCS> ,ROFF> CR>)
(ELSE
<TELL "I am in the " SD ,WINNER-HERE "." CR>)>>
Some robots (not Whiz or Waldo!) can see each other at a distance, according to the CORRIDOR property.
<COND (<AND <GETP ,WINNER-HERE ,P?CORRIDOR>
<CORRIDOR-LOOK>)>>
<ROUTINE DESCRIBE-ROBOTS ("AUX" (COUNT -1) (OFFS 0) OBJ LEADER RC)
<SET COUNT 0>)>
<REPEAT ()
<COND (<IN? <GET ,NAME-TBL .OFFS> ,WINNER-HERE>
<SET COUNT <+ .COUNT 1>>)>
<COND (<G? <SET OFFS <+ .OFFS 1>> 6>
<RETURN>)>>
<COND (<EQUAL? .COUNT 0> <RTRUE>)>
<COND (<AND <IRIS?>
<NOT ,IRIS-FIXED>
<RTRUE>>)>
<TELL "Standing outside the " D ,CAR " ">)
(ELSE
<TELL "In the room with me ">)>
<COND (<EQUAL? .COUNT 1>
<TELL "are ">)
(ELSE
<TELL "is ">)>)
(T
<TELL "are ">)>
<SET OFFS 0>
<REPEAT ()
<COND (<AND <IN? <SET OBJ <GET ,NAME-TBL .OFFS>> ,WINNER-HERE>
<NOT <EQUAL? ,WINNER .OBJ>>>
<COND (<EQUAL? .OBJ ,PEOPLE>
<TELL "some ">)>
<COND (<FSET? .OBJ ,CUTBIT>
<TELL "non-functional ">)>
<TELL D .OBJ>
<COND (<IN-MOTION? .OBJ>
<TELL " (in motion)">)>
<COND (<EQUAL? <GET ,FOLLOW-TBL ,ROFF> .OBJ>
<TELL " whom I'm following">)>
<SET RC 0>
<REPEAT ()
<SET RC <+ .RC 1>>
<COND (<EQUAL? .RC 7>
<RETURN>)
(T
<COND (<EQUAL? <GET ,DRAG-TBL .RC> .OBJ>
<TELL " (being dragged)">
<RETURN>)>)>>
<COND (<AND ,PLUGGED-IN
<EQUAL? .OBJ ,WHIZ>>
<TELL " (plugged in)">)>
<COND (<EQUAL? .COUNT 1>
<TELL "." CR>
<RETURN>)
(<EQUAL? .COUNT 2>
<TELL " and ">)
(T <TELL ", ">)>
<SET COUNT <- .COUNT 1>>)>
<SET OFFS <+ .OFFS 1>>>>
<ROUTINE DESCRIBE-OBJECTS ("AUX" (OFFS 0) OBJ)
<REPEAT ()
<COND (<AND <IN? <SET OBJ <GET ,NAME-TBL .OFFS>> ,WINNER-HERE>
<NOT <EQUAL? .OBJ ,WINNER>>>
<PRINT-CONTENTS .OBJ>)>
<COND (<G? <SET OFFS <+ .OFFS 1>> 5>
<RETURN>)>>
<COND (<AND <IRIS?>
<NOT ,IRIS-FIXED>
<RTRUE>>)>
<PRINT-CONT ,WINNER-HERE -1>>
<ROUTINE DESCRIBABLE? (OBJ)
<COND (<NOT <EQUAL? <GET <GETP .OBJ ,P?OBJDESCS>
<RTRUE>)>>
<ROUTINE PRINT-CONTENTS (OBJ "AUX" F N (1ST? T) NUM)
<COND (<SET F <FIRST? .OBJ>>
<REPEAT ()
<SET N <NEXT? .F>>
<COND (<AND <NOT <FSET? .F ,NDESCBIT>>
<DESCRIBABLE? .F>>
<COND (.1ST?
<SET 1ST? <>>
<COND (<SET NUM <GETP .OBJ ,P?ROBOT>>
<COND (<EQUAL? .NUM 7>
<TELL "The " D .OBJ
" are carrying ">)
(T
<TELL D .OBJ
" is carrying ">)>)>)
(T
<TELL ", ">
<COND (<NOT .N> <TELL "and ">)>)>
<TELL "a " D .F>)>
<SET F .N>
<COND (<NOT .F>
<COND (<AND <NOT .1ST?> <GETP .OBJ ,P?ROBOT>>
<TELL "." CR>)>
<RETURN>)>>)>>
<ROUTINE PRINT-CONT (OBJ "OPTIONAL" (LEVEL 0) "AUX" Y (1ST? T))
<COND (<NOT <SET Y <FIRST? .OBJ>>> <RTRUE>)>
<REPEAT ()
<COND (<AND <NOT <FSET? .Y ,INVISIBLE>>
<NOT <FSET? .Y ,NDESCBIT>>
<NOT <GETP .Y ,P?ROBOT>>
<DESCRIBABLE? .Y>
<AND <NOT <EQUAL? .OBJ ,CAR>>
<COND (.1ST?
<FIRSTER .OBJ .LEVEL>
<SET 1ST? <>>)>
<DESCRIBE-OBJECT .Y <+ .LEVEL 1>>)>
<COND (<NOT <SET Y <NEXT? .Y>>>
<RETURN <NOT .1ST?>>)>>>
<GLOBAL CARRY-TBL
<PLTABLE "I am carrying..." "I am grasping..." "Sensors indicate I'm holding..." "My ears can hear the following in my extensions..." "My Zen Master says I am grasping..." "CLC feedback indicates I'm holding...">>
<ROUTINE FIRSTER (OBJ LEVEL "AUX" CNT)
<COND (<==? .OBJ ,WINNER>
<ROBOT-TELL <GET ,CARRY-TBL ,ROFF>>)
(<NOT <IN? .OBJ ,ROOMS>>
<COND (<FSET? .OBJ ,SURFACEBIT>
<TELL "Sitting ">
<TELL "in">)
(T
<TELL "on">)>
<TELL " the " D .OBJ >
<SET CNT <CCOUNT .OBJ>>
<COND (<L? .CNT 2>
<TELL " is... " CR>)
(ELSE
<TELL " are... " CR>)>)
(ELSE
<TELL <GET ,INDENTS .LEVEL>
"The " D .OBJ " contains..." CR>)>)>>
<ROUTINE DESCRIBE-OBJECT (OBJ LEVEL "AUX" (STR <>) (WCOUNT 0))
<COND (<AND <0? .LEVEL>
<RTRUE>)
(<AND <0? .LEVEL>
<NOT <FSET? .OBJ ,TOUCHBIT>>>
<TELL <GET <GETP .OBJ ,P?OBJDESCS> <+ ,ROFF ,FDOFF>>>)
(<0? .LEVEL>
<TELL "There is a " D .OBJ " here">
<COND (<AND <EQUAL? .OBJ ,WEDGE>
,ON-WEDGE>
<TELL " supporting ">
<TELL "me">)
(T
<REPEAT ()
<COND (<G? <SET WCOUNT <+ .WCOUNT 1>> 6>
<RETURN>)
(T
<COND (<EQUAL? ,ON-WEDGE .WCOUNT>
<TELL D
<GET ,NAME-TBL <- .WCOUNT 1>>>)>)>>)>)>
<TELL ".">)
(ELSE
<TELL <GET ,INDENTS .LEVEL>>
<TELL "A " D .OBJ>
<COND (<FSET? .OBJ ,WEARBIT> <TELL " (being worn)">)>)>
<CRLF>
<COND (<AND <SEE-INSIDE? .OBJ> <FIRST? .OBJ>>
<PRINT-CONT .OBJ <+ .LEVEL 1>>)>>
<ROUTINE PRE-EXAMINE ()
<PERFORM ,V?LOOK>
<RTRUE>)
(T
<ROBOT-TELL "I can't see there from here.">
<RTRUE>)>)>>
<ROUTINE V-EXAMINE ("AUX" STR)
<COND (<AND ,PRSI
<ROBOT-TELL "Better check the facts, compadre.">
<RTRUE>)
<RTRUE>)
<IRIS?>
<EQUAL? <LOC ,IRIS>
<V-LOOK>
<RTRUE>)>
<SET STR <GET <GETP ,PRSO ,P?OBJDESCS> <+ ,RTOFF ,ROFF >>>
<COND (<NOT <EQUAL? .STR 0>>
<ROBOT-TELL .STR>
<COND (<GETP ,PRSO ,P?ROBOT> <PRINT-CONTENTS ,PRSO>)>
<TELL "The " D ,PRSO " is set at "
"." CR>)>)
<COND (<NOT <EQUAL? .STR 0>>
<TELL .STR " ">)>
(ELSE
<ROBOT-TELL "I perceive nothing special about the " <>>
<TELL D ,PRSO "." CR>)>>
"SUBTITLE SCORING"
<ROUTINE V-SCORE ("OPTIONAL" (ASK? T))
#DECL ((ASK?) <OR ATOM FALSE>)
<TELL "There have been ">
<TELL " casualties (original population: 30,172,000) in ">
<TELL N ,MOVES>
<COND (<1? ,MOVES> <TELL " cycle.">) (ELSE <TELL " cycles.">)>
<CRLF>>
<ROUTINE FINISH ()
<V-SCORE>
<QUIT>>
<ROUTINE V-QUIT ("OPTIONAL" (ASK? T) "AUX" SCOR)
#DECL ((ASK?) <OR ATOM <PRIMTYPE LIST>> (SCOR) FIX)
<V-SCORE>
<COND (<OR <AND .ASK?
<TELL
"Do you wish to leave the game? (Y is affirmative): ">
<YES?>>
<NOT .ASK?>>
<QUIT>)
(ELSE <TELL "Ok." CR>)>>
<ROUTINE YES? ()
<PRINTI ">">
<COND (<EQUAL? <GET ,P-LEXV 1> ,W?YES ,W?Y>
<RTRUE>)
(T
<RFALSE>)>>
Print the title, release, and serial number.
In 1982, Infocom briefly branded its games as “INTERLOGIC”. They had mostly switched to “interactive fiction” by 1984.
<TELL
"SUSPENDED: INTERLOGIC Science Fiction|
Copyright (c) 1983 by Infocom, Inc. All rights reserved.|
SUSPENDED and INTERLOGIC are trademarks of Infocom, Inc.|
Release ">
<PRINTN <BAND <GET 0 1> *3777*>>
<TELL " / Serial number ">
<REPEAT ()
<COND (<G? <SET CNT <+ .CNT 1>> 23>
<RETURN>)
(T
<PRINTC <GETB 0 .CNT>>)>>
<CRLF>>
;<ROUTINE V-AGAIN ("AUX" OBJ)
<COND (<==? ,L-PRSA ,V?WALK>
<DO-WALK ,L-PRSO>)
(T
<SET OBJ
<COND (<AND ,L-PRSO <NOT <LOC ,L-PRSO>>>
,L-PRSO)
(<AND ,L-PRSI <NOT <LOC ,L-PRSI>>>
,L-PRSI)>>
<COND (.OBJ
<ROBOT-TELL "I can't see the " <>>
<TELL D .OBJ " anymore." CR>
<RFATAL>)
(T
<PERFORM ,L-PRSA ,L-PRSO ,L-PRSI>)>)>>
"SUBTITLE DEATH AND TRANSFIGURATION"
Handles the abrupt death of a robot. Sets the CUTBIT flag and marks the robot as terminal in DEADBOTS.
(Acid damage is handled in the individual robot action routines.)
<TELL .DESC CR>
<CRLF>
<TELL "FC: So much for that robot. Too bad." CR>
<KILL-GOAL .ROBOT T>
<FSET .ROBOT ,CUTBIT>
<DEAD-FCN>
<RFATAL>>
<ROUTINE V-RESTORE ()
<COND (<RESTORE>
<TELL "Ok." CR>
<V-LOOK>)
(T
<TELL "Failed." CR>)>>
<ROUTINE V-SAVE ()
<COND (<SAVE>
<TELL "Ok." CR>)
(T
<TELL "Failed." CR>)>>
<ROUTINE V-RESTART ()
<V-SCORE T>
<TELL "Do you wish to restart? (Y is affirmative): ">
<COND (<YES?>
<TELL "Restarting." CR>
<RESTART>
<TELL "Failed." CR>)>>
<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>
<ROUTINE V-WALK-AROUND ()
<ROBOT-TELL "Give me a direction for movement or a location to move to.">>
<ROUTINE GO-NEXT (TBL "AUX" VAL)
#DECL ((TBL) TABLE (VAL) ANY)
<COND (<SET VAL <LKP ,WINNER-HERE .TBL>>
<GOTO .VAL>)>>
<ROUTINE PRE-LAMP-ON ()
<ROBOT-TELL "I can't do that to " <>>
(T <TELL "the " D ,PRSO>)>
<TELL "." CR>
<RFATAL>)>>
<ROUTINE V-LAMP-ON ()
<RTRUE>)
<PERFORM ,V?PUSH ,ORANGE-BUTTON>
<RTRUE>)
<ROBOT-TELL "It's already on.">)
(ELSE <ROBOT-TELL "Done.">
<COND (<L? ,MOVES 75>
<DO-RTD>)>)>>
<ROUTINE V-LAMP-OFF ()
<RTRUE>)
<PERFORM ,V?PUSH ,ORANGE-BUTTON>
<RTRUE>)
<ROBOT-TELL "It's not on.">)
(ELSE <ROBOT-TELL "Done.">
<COND (<L? ,MOVES 75>
<DO-RTD>)>)>>
<ROUTINE LKP (ITM TBL "AUX" (CNT 0) (LEN <GET .TBL 0>))
#DECL ((ITM) ANY (TBL) TABLE (CNT LEN) FIX)
<REPEAT ()
<COND (<G? <SET CNT <+ .CNT 1>> .LEN>
<RFALSE>)
(<==? <GET .TBL .CNT> .ITM>
<COND (<==? .CNT .LEN> <RFALSE>)
(T
<RETURN <GET .TBL <+ .CNT 1>>>)>)>>>
<ROUTINE V-WALK ("AUX" PT PTS STR OBJ RM)
#DECL ((PT) <OR FALSE TABLE> (PTS) FIX (STR) <OR STRING FALSE>
(OBJ) OBJECT (RM) <OR FALSE OBJECT>)
<COND (<NOT <EQUAL? <GET ,FOLLOW-TBL ,ROFF> 0>>
<ROBOT-TELL "Okay, but I have to stop following.">
<PUT ,FOLLOW-TBL ,ROFF 0>)>
<COND (<NOT ,P-WALK-DIR>
<RTRUE>)
(<SET PT <GETPT ,WINNER-HERE ,PRSO>>
<COND (<==? <SET PTS <PTSIZE .PT>> ,UEXIT>
(<==? .PTS ,NEXIT>
<TELL <GET .PT ,NEXITSTR> CR>
<RFATAL>)
(<==? .PTS ,FEXIT>
<COND (<SET RM <APPLY <GET .PT ,FEXITFCN>>>
<GOTO .RM>)
(T
<RFATAL>)>)
(<==? .PTS ,CEXIT>
<COND (<VALUE <GETB .PT ,CEXITFLAG>>
(<SET STR <GET .PT ,CEXITSTR>>
<TELL .STR CR>
<RFATAL>)
(T
<ROBOT-TELL <GET ,CANT-GO ,ROFF>>
<RFATAL>)>)
(<==? .PTS ,DEXIT>
(<SET STR <GET .PT ,DEXITSTR>>
<TELL .STR CR>
<RFATAL>)
(T
<TELL "The " D .OBJ " is closed." CR>
<THIS-IS-IT .OBJ>
<RFATAL>)>)>)
(T
<ROBOT-TELL <GET ,CANT-GO ,ROFF>>
<RFATAL>)>>
<GLOBAL CANT-GO <PLTABLE
"I don't see how."
"Sonar can't detect a passage in that direction."
"Sensors indicate a dead-end that way."
"Echo patterns describe a wall there."
"I haven't the means to justify a dead-end."
"The CLC cannot confirm a passage there.">>
<ROUTINE THIS-IS-IT (OBJ)
<SETG P-IT-OBJECT .OBJ>
<SETG P-IT-LOC ,WINNER-HERE>>
;<ROUTINE V-INVENTORY ()
<COND (<NOT <==? <CCOUNT ,WINNER> 0>>
<PRINT-CONT ,WINNER>)
(T <ROBOT-TELL <GET ,INVEN-QUIPS ,ROFF>>)>>
;"The revise INVEN verb below takes into account the fact that AUDA may be
GIVEN an object which he cannot normally hear. In doing this, the I command
will always now print something."
<ROUTINE V-INVENTORY ("AUX" OBJ STR)
<COND (<AUDA?>
<COND (<SET OBJ <FIRST? ,AUDA>>
<SET STR <GET <GETP .OBJ ,P?OBJDESCS><+ ,FDOFF ,ROFF >>>
<COND (<EQUAL? .STR 0>
<ROBOT-TELL <GET ,INVEN-QUIPS ,ROFF>>
<RTRUE>)
(T <PRINT-CONT ,AUDA>)>)
(T <ROBOT-TELL <GET ,INVEN-QUIPS ,ROFF>>)>)
<PRINT-CONT ,WINNER>)
(T <ROBOT-TELL <GET ,INVEN-QUIPS ,ROFF>>)>>
<GLOBAL INVEN-QUIPS
<PLTABLE "I am holding nothing in my dainty extensions."
"My extensions grasp nothing."
"I cannot sense a thing in my grasping extensions."
"I can't hear a thing in my extension."
"As far as I know, I'm Zen on inventory."
"CLC feedback indicates I carry nothing.">>
<ROUTINE V-COUNT ("AUX" TEMP)
<ROBOT-TELL "There are two of them. And they're weird things, too.">
<RTRUE>)
(<NOT <EQUAL? ,PRSO ,HANDS ,SURGERY-HAND>>
"I have my counting abilities, and they only extend to extensions.">
<RTRUE>)>
<COND (<AND ,PRSI
<NOT <IN? ,PRSI ,WINNER-HERE>>>
<CANT-DETECT ,PRSI>
<RTRUE>)
(<AND ,PRSI
<ROBOT-TELL "There aren't any " <>>
(<NOT ,PRSI>
<ROBOT-TELL "I have " <>>
<TELL N ,NUM-EXT>
<COND (<EQUAL? ,NUM-EXT 1>
<TELL " extension">)
(T <TELL " extensions">)>
<TELL "." CR>)
(,PRSI
<TELL "There ">
<TELL "is">)
(T <TELL "are">)>
<SET TEMP ,WINNER>
<CHANGE-WINNER ,PRSI T>
<TELL " " N ,NUM-EXT " extension">
<CHANGE-WINNER .TEMP T>
<TELL "s">)>
<TELL " in " D ,PRSI "." CR>)>>
<ROUTINE PRE-TAKE ()
<COND (<IN? ,PRSO ,WINNER> <ROBOT-TELL "I already have it.">)
<ROBOT-TELL "It's too high up there and I can't reach it.">
<RTRUE>)
<ROBOT-TELL "Not while it's attached.">
<RTRUE>)
(<AND <IRIS?>
<NOT ,IRIS-FIXED>>
<ROBOT-TELL "I can't take what I can't see.">
<RFATAL>)
<ROBOT-TELL "I can't reach that.">
<RTRUE>)
(<AND ,PRSI
<ROBOT-TELL "Not while " <>>
<TELL D ,PRSI " has it attached." CR>
<RTRUE>)
<ROUTINE V-TAKEOUT ()
<COND (<AND ,PRSI
<ROBOT-TELL "The " <>>
<TELL D ,PRSO " isn't in ">
<TELL "the ">)>
<TELL D ,PRSI "." CR>
<RTRUE>)
<ROUTINE V-TAKE ()
<COND (<==? <ITAKE> T>
<ROBOT-TELL "Taken.">
<SETG WEDGE-PLACED 0>
<SETG ON-WEDGE <>>)>)>>
This game inherits the Zork mechanic where carrying too many objects gives a random chance of fumbling. However, this only applies when carrying more than FUMBLE-NUMBER objects, which is seven. And no robot has eight arms! So this never happens.
<GLOBAL FUMBLE-PROB 8>
<ROUTINE TRYTAKE ()
(<AND <FSET? ,PRSO ,TRYTAKEBIT>
(ELSE <ITAKE>)>>
<GLOBAL EXTEN-QUIPS
<PLTABLE
"I'm not Waldo, you know. I've only got 2 extensions, and they're full."
"What do you want from me? I can only do 6 things at once!"
"Please don't use me as a pack mule. I have but 3 extensions to give for my complex."
"Did I hear you right? Me, with but 1 measly extension, and full at that?"
"An Army of Arms,|
A farewell to hands|
Without even place|
to strike up the band."
"The CLC limits my load to 2 objects."
"What do you want from me? Even with the extra extension, I can only do 7 things at once!">>
<ROUTINE ITAKE ("OPTIONAL" (VB T) "AUX" CNT OBJ WLOC TBL)
#DECL ((VB) <OR ATOM FALSE> (CNT) FIX (OBJ) OBJECT)
<COND (.VB
<ROBOT-YUKS>)>
<RFALSE>)
<COND (<AND <WALDO?>
<FSET? ,SURGERY-HAND ,WEARBIT>>
<ROBOT-TELL <GET ,EXTEN-QUIPS 7>>)
(T
<ROBOT-TELL <GET ,EXTEN-QUIPS ,ROFF>>)>
<RFALSE>)
<COND (<AND .VB
<NOT <EQUAL? ,PRSO ,BROKEN-SHELF>>>
<ROBOT-TELL "I have a free extension, but I'm not strong enough to carry that" <>>
<TELL " and what I'm carrying">)>
<TELL "." CR>)
(.VB
<ROBOT-TELL "It's far too heavy.">)>
<RFATAL>)
(<AND <G? <SET CNT <CCOUNT ,WINNER>> ,FUMBLE-NUMBER>
<PROB <* .CNT ,FUMBLE-PROB>>>
<SET OBJ <FIRST? ,WINNER>>
<SET OBJ <NEXT? .OBJ>>
;"This must go! Chomping compiler strikes again"
"Oh, no. The " <>>
<TELL D .OBJ " slips from my extenders while taking the "
D ,PRSO " and both tumble to the ground." CR>
<SET WLOC <LOC ,WINNER>>
<COND (<FSET? .WLOC ,RMUNGBIT>
<PERFORM ,V?DROP .OBJ>
(ELSE
<MOVE .OBJ .WLOC>
<MOVE ,PRSO .WLOC>)>
<RFATAL>)
(T
<COND (<EQUAL? ,WINNER-HERE ,TUBE1>
<SETG ORANGESET <>>)
(<EQUAL? ,WINNER-HERE ,TUBE2>
<SETG REDSET <>>)>)>
<RTRUE>)>>
<ROUTINE PRE-PUT ()
<RTRUE>)
(<OR <IN? ,PRSO ,GLOBAL-OBJECTS>
<TELL "FC: Nice try." CR>)
(,PRSI
<COND (<AND <EQUAL? ,PRSI ,CONVEYERBELTA
<RTRUE>)
<RTRUE>)>
<RFALSE>)
>>
<ROUTINE V-PUT-AGAINST ()
<RTRUE>)
(<IN? ,PRSI ,WINNER-HERE>
<ROBOT-TELL "Okay.">
<MOVE ,WEDGE ,WINNER-HERE>
<RTRUE>)
(T
<CANT-DETECT ,PRSO>)>>
<ROUTINE V-PUT ()
<OPENABLE? ,PRSI>
(T
<ROBOT-TELL "I can't do that.">
<RTRUE>)>
<ROBOT-TELL "The " <>>
<TELL D ,PRSI " isn't open." CR>)
<ROBOT-TELL "How can I do that?">)
<COND (<AND <WALDO?>
<EQUAL? ,PRSO ,SURGERY-HAND>>
<RTRUE>)
<ROBOT-YUKS>)
(T
<ROBOT-TELL "The " <>>
<GETP ,PRSI ,P?CAPACITY>>
<ROBOT-TELL "There's no room.">)
<NOT <TRYTAKE>>>
<RTRUE>)
(T
<ROBOT-TELL "Done.">
<NOT ,IRIS-FIXED>
<TELL CR <GET ,INTER-TBL 1>
" OOOH! That felt good! Close my panel, big boy."
CR>)
<ROUTINE PRE-DROP ()
<RTRUE>)>>
"SZAP => ZAP who WITH what"
<ROUTINE PRE-SZAP ()
<RTRUE>>
"ZAP => ZAP <weapon> <who>"
<ROUTINE PRE-ZAP ()
<COND (,PRSI <RFALSE>)
(ELSE <TELL
"You have nothing to shoot the " D ,PRSO " with." CR>)>>
<ROUTINE DONT-HAVE (OBJ)
<ROBOT-TELL "I don't have " <>>
<COND (<NOT <GETP .OBJ ,P?ROBOT>>
<TELL "the ">)>
<TELL D .OBJ "." CR>>
<ROUTINE V-ZAP ()
<TELL "You can't use a " D ,PRSO " as a ray gun!" CR>)
(<NOT ,PRSI> <TELL "At what?" CR>)
(ELSE <TELL "Nothing happens." CR>)>>
<ROUTINE V-SZAP ()
<TELL "ZAPPP!!" CR>>
<GLOBAL GIVEN-BAG <>>
<ROUTINE PRE-GIVE ()
"That's easy to say since I don't even have it.">)
<ROBOT-TELL "One thing at a time. First tell me where it is.">
<RTRUE>)
<DISABLE <INT I-CHASEAUDA>>
<SETG RTHIEF <>>
<SETG CHASING-THIEF <>>
<COND (,GIVEN-BAG
<RTRUE>)
(ELSE
<RTRUE>)>)
(ELSE
"They don't seem to be interested in that.">
<RTRUE>)>)>>
<ROUTINE PRE-SGIVE ()
<RTRUE>>
<ROUTINE V-GIVE ("AUX" OBJ)
<ROBOT-TELL "I can't give a " <>>
(<IDROP> <ROBOT-TELL "Given.">
<SET OBJ ,WINNER>
<CHANGE-WINNER ,PRSI T>
<ITAKE>
<CHANGE-WINNER .OBJ T>)>>
<ROUTINE V-SGIVE ()
<TELL "FOOOO!!" CR>>
<ROUTINE V-DROP () <COND (<IDROP>
<TELL "(removing it first)" CR>
<ROBOT-TELL "Dropped.">)>>
<ROUTINE V-THROW () <COND (<IDROP> <ROBOT-TELL "Thrown.">)>>
<ROUTINE IDROP ()
<ROBOT-TELL "I'm not carrying the " <>>
<TELL D ,PRSO "." CR>
<RFALSE>)
<ROBOT-TELL "The " <>>
<TELL D ,PRSO " is closed." CR>
<RFALSE>)
(T
<COND (<AND <EQUAL? ,PRSO ,SURGERY-HAND>
<ROUTINE ALREADY (ON-OFF "OPTIONAL" (OBJ <>))
<COND (.OBJ
<ROBOT-TELL "The " <>>
<TELL D .OBJ " is ">)
(ELSE
<ROBOT-TELL "It's " <>>)>
<TELL "already " .ON-OFF "." CR>>
<ROUTINE V-OPEN ("AUX" F STR)
<ROBOT-TELL "The " <>>
<TELL D ,CAR
" opens only when a robot attempts to enter it." CR>
<RTRUE>)
"I'm not sure anyone is clever enough to do that to the " <>>
<TELL D ,PRSO "." CR>)
<ROBOT-TELL "What?! " <>>
<TELL D ,PRSO " is a robot. That's spelled R-O-B-O-T!" CR>)
(<FSET? ,PRSO ,SURFACEBIT>
<ROBOT-TELL "I think you're out of your mind.">)
<NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>>
(T
<ROBOT-TELL "Opened.">)
(T
<ROBOT-TELL "When I open the " <>>
<TELL D ,PRSO " I detect ">
<TELL "." CR>)>)>)
(T <TELL D ,PRSO " cannot be opened." CR>)>>
<ROUTINE V-CLOSE ()
<ROBOT-TELL "You must tell me how to do that to a " <>>
<TELL D ,PRSO "." CR>)
(<FSET? ,PRSO ,SURFACEBIT>
<ROBOT-TELL "Not a likely occurrence within reality, no?">)
<ROBOT-TELL "I don't think " <>>
<TELL " would like that." CR>
<RTRUE>)
(<AND <NOT <FSET? ,PRSO ,SURFACEBIT>>
<OR <NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>
<ROBOT-TELL "Closed.">)
(T <ALREADY "closed">)>)
(ELSE
<ROBOT-TELL "I can't close that.">)>>
<ROUTINE CCOUNT (OBJ "AUX" (CNT 0) X)
<COND (<SET X <FIRST? .OBJ>>
<REPEAT ()
<COND (<NOT <FSET? .X ,NDESCBIT>>
<SET CNT <+ .CNT 1>>)>
<COND (<NOT <SET X <NEXT? .X>>>
<RETURN>)>>)>
.CNT>
<ROUTINE CABLECOUNT (OBJ "AUX" (CNT 0) X)
<COND (<SET X <FIRST? .OBJ>>
<REPEAT ()
<SET CNT <+ .CNT 1>>
<COND (<NOT <SET X <NEXT? .X>>>
<RETURN>)>>)>
.CNT>
"WEIGHT: Get sum of SIZEs of supplied object, recursing to the nth level."
<ROUTINE WEIGHT
(OBJ "AUX" CONT (WT 0))
#DECL ((OBJ) OBJECT (CONT) <OR FALSE OBJECT> (WT) FIX)
<COND (<SET CONT <FIRST? .OBJ>>
<REPEAT ()
<SET WT <+ .WT <WEIGHT .CONT>>>
<COND (<NOT <SET CONT <NEXT? .CONT>>> <RETURN>)>>)>
<+ .WT <GETP .OBJ ,P?SIZE>>>
<GLOBAL COPR-NOTICE
" a transcript of interaction with SUSPENDED.
SUSPENDED is a trademark of Infocom, Inc.
Copyright (c) 1983 Infocom, Inc. All rights reserved.">
<ROUTINE V-SCRIPT ()
<PUT 0 8 <BOR <GET 0 8> 1>>
<TELL "Here begins" ,COPR-NOTICE CR>>
<ROUTINE V-UNSCRIPT ()
<TELL "Here ends" ,COPR-NOTICE CR>
<PUT 0 8 <BAND <GET 0 8> -2>>
<RTRUE>>
<ROUTINE PRE-MOVE ()
<COND (,PRSI
<RTRUE>)>)
(<AND ,PRSI
<EQUAL? ,PRSI ,CONVEYERBELTA>
<RTRUE>)
(<AND ,PRSI
<EQUAL? ,PRSI ,CONVEYERBELTB ,CONVEYERBELTC>
<ROBOT-TELL "There's no way to do that from here.">)
(,PRSI
<ROBOT-TELL "One step at a time, please.">
<RTRUE>)
(<HELD? ,PRSO> <ROBOT-TELL "I don't juggle objects!">
<RTRUE>)>>
<ROUTINE V-MOVE ()
<COND (<EQUAL? ,PRSO ,BROKEN-SHELF>
<ROBOT-TELL "Okay. It's been moved." <>>
<COND (<FSET? ,SMASHED-BOX ,INVISIBLE>
<TELL " Moving it has revealed a " D ,SMASHED-BOX ".">
<FCLEAR ,SMASHED-BOX ,INVISIBLE>)>
<CRLF>)
<ROBOT-TELL "Moving the " <>>
<TELL D ,PRSO " reveals nothing." CR>)
(<AND <NOT ,PRSI>
<NOT <EQUAL? ,WINNER-HERE ,REPAIR1>>>
<ROBOT-TELL "If you want " <>>
<TELL D ,PRSO
" to be dragged, you should supply a location, too." CR>
<RTRUE>)
<RTRUE>)
(T <ROBOT-TELL "I can't move " <>>
<TELL "the ">)>
<TELL D ,PRSO "." CR>)>>
<ROUTINE V-MOVE-ROBOT-TO-LOC ()
<ROBOT-TELL "There's no place for me to get a grip on her.">)
<ROBOT-TELL "There's nothing to be gained by doing that. Franklin destroyed this robot beyond all hopes of repairing.">)
<RTRUE>)
<ROBOT-TELL "I suppose you'll have me chasing my tail, next.">)
<ROBOT-TELL "Give me a break, would you? One at a time!">)
<ROBOT-TELL "You'll have to tell me where the " <>>
<TELL D ,PRSI " is.">)
<ROBOT-TELL "Let " <>>
<TELL D ,PRSO " get there alone." CR>)
(T
<RFATAL>)>>
<ROUTINE V-WAIT ("OPTIONAL" (NUM 3))
#DECL ((NUM) FIX)
<TELL "FC: Time passes..." CR>
<REPEAT ()
<COND (<L? <SET NUM <- .NUM 1>> 0> <RETURN>)
(T
<COND (<CLOCKER> <RETURN>)>)>>
<SETG CLOCK-WAIT T>>
<ROUTINE PRE-BOARD ("AUX" AV)
<SET AV <LOC ,WINNER>>
<COND (<FSET? .AV ,VEHBIT>
<ROBOT-TELL "I'm already in it!">)
(T <RFALSE>)>)
(T
<ROBOT-TELL "I suppose you have a theory on boarding a " <>>
<TELL D ,PRSO "." CR>)>
<RFATAL>>
<ROUTINE V-BOARD ("AUX" AV)
#DECL ((AV) OBJECT)
<COND (<NOT <EQUAL? ,CAR-FULL 0>>
<ROBOT-TELL "There's no room in there for me, too.">
<RTRUE>)>
<MOVE ,PEOPLE ,WINNER-HERE>
<CRLF>)>
<ROBOT-TELL "I am now in the " <>>
<TELL D ,PRSO "." CR>
<COND (<NOT <EQUAL? <GET ,FOLLOW-TBL ,ROFF> 0>>
<PUT ,FOLLOW-TBL 0 ,ROFF>)>
<COND (<EQUAL? ,WINNER-HERE ,HALL-END>
<SETG WINNER-HERE ,CAR-AREA>)
(<EQUAL? ,WINNER-HERE ,CAR-AREA>
<SETG WINNER-HERE ,HALL-END>)>
<MOVE ,CAR ,WINNER-HERE>
<ROBOT-TELL "My gyroscopic stabilizers detect motion.">
<CRLF>
<V-LOOK>
<CRLF>
<ROBOT-TELL "External map reference -- " <>>
<TELL SD ,WINNER-HERE CR>
<RTRUE>
;<APPLY <GETP ,PRSO ,P?ACTION> ,M-ENTER>
;<RTRUE>>
<ROUTINE V-THROUGH ("OPTIONAL" (OBJ <>) "AUX" M TBL)
#DECL ((OBJ) <OR OBJECT FALSE> (M) <PRIMTYPE VECTOR>)
<RTRUE>)
<ROBOT-YUKS>)
(.OBJ <ROBOT-TELL "I can't do that!">)
<ROBOT-TELL "That would involve quite a contortion!">)
(ELSE
<ROBOT-YUKS>)>>
<ROUTINE V-DISEMBARK ()
<ROBOT-TELL "I'm not in that!">
<RFATAL>)
(T
<ROBOT-TELL "I am on my mobile extensions again.">
<MOVE ,WINNER ,WINNER-HERE>
<SETG CAR-FULL 0>)>>
<ROUTINE GOTO (RM "OPTIONAL" (V? T) "AUX" (WLOC <LOC ,WINNER>) OLIT
(COUNT 0) L F)
#DECL ((RM WLOC) OBJECT)
<SET OLIT ,LIT>
<MOVE ,WINNER .RM>
<SETG WINNER-HERE .RM>
<REPEAT ()
<COND (<G? <SET COUNT <+ .COUNT 1>> 6>
<RETURN>)
(ELSE
<COND (<EQUAL? <GET ,FOLLOW-TBL .COUNT> ,WINNER>
<SET F <GET ,NAME-TBL <- .COUNT 1>>>
<COND (<MOVE-RBT? .F <LOC .F> ,WINNER-HERE>
<RETURN>)>)>)>>
<SETG LIT <LIT? ,WINNER-HERE>>
<COND (<==? <APPLY <GETP ,WINNER-HERE ,P?ACTION> ,M-ENTER> 2>
<RTRUE>)>
<COND (.V? <V-LOOK>)>
<RTRUE>>
<ROUTINE V-DRINK ()
<V-EAT>>
<ROUTINE V-EAT ()
<ROBOT-TELL <GET ,EAT-QUIPS ,ROFF>>>
<GLOBAL EAT-QUIPS
<PLTABLE
"Really, now. A robot? Eating?"
"Get serious, amigo."
"With whose orifice? Yours?"
"I'll shut my ears and pretend you didn't say that."
"Never. I'm a starving artist."
"The CLC wouldn't approve.">>
<ROUTINE V-CURSES ()
<COND (,PRSO
<TELL "Insults of this nature won't help you." CR>)
(T
<TELL "What a loony!" CR>)>)
(T
<TELL
"Such language in a high-class establishment like this!" CR>)>>
<ROUTINE PRE-LISTEN ()
<COND (<NOT <AUDA?>>
<ROBOT-TELL "I can't hear.">)>>
<ROUTINE V-LISTEN ()
<COND (<AND ,PRSO
<ROBOT-TELL "I hear nothing special.">)
<ROBOT-TELL "Okay, okay already. I'm listening.">)
(T
<ROBOT-TELL "Okay. Auditory circuits activated.">
<SETG AUDA-LISTENS T>)>>
This table indicates which robot is being FOLLOWed by a given robot. (Not the same as ROBOT-FOLLOW!)
<LTABLE 0 0 0 0 0 0>>
<ROUTINE V-FOLLOW ()
<ROBOT-TELL "I can't follow the " <>>
<TELL D ,PRSO "." CR>
<RFATAL>)>
<NOT <EQUAL?
,WINNER-HERE>>>
<ROBOT-TELL "Sure. Tell me where " <>>
<TELL "the " D ,PRSO " are." CR>)
(ELSE
<TELL D ,PRSO " is." CR>)>
<RFATAL>)>
<ROBOT-TELL "Be serious. I can't do that.">
<RTRUE>)>
<ROBOT-TELL "Okay. I'll follow " <>>
<TELL "the ">)>
<TELL D ,PRSO "." CR>
<PUT ,FOLLOW-TBL ,ROFF ,PRSO>
<ROUTINE V-LEAP ("AUX" T S)
#DECL ((T) <OR FALSE TABLE>)
<COND (,PRSO
<COND (<IN? ,PRSO ,WINNER-HERE>
<ROBOT-TELL "The " <>>
<TELL D ,PRSO " is too big to jump over." CR>)
(T <V-SKIP>)>)
(T <ROBOT-TELL "That would be a good trick.">)>)
(<SET T <GETPT ,WINNER-HERE ,P?DOWN>>
<SET S <PTSIZE .T>>
<COND (<OR <==? .S 2> ;NEXIT
<AND <==? .S 4> ;CEXIT
<NOT <VALUE <GETB .T 1>>>>>
<TELL
"FC: This was not a very safe place to try jumping." CR>
<JIGS-UP "You should have looked before you leaped."
,WINNER>)
(T <V-SKIP>)>)
(ELSE <V-SKIP>)>>
<ROUTINE V-SKIP ()
<ROBOT-YUKS>>
<GLOBAL HS 0>
<ROUTINE V-HELLO ()
<COND (,PRSO
"I think that only schizophrenics say \"Hello\" to a "<>>
<TELL D ,PRSO "." CR>)
(ELSE <ROBOT-TELL <PICK-ONE ,HELLOS>>)>>
<GLOBAL HELLOS
<PLTABLE "Hello."
"Nice weather we've been having lately."
"You talking to me, man?"
"Are you trying to accomplish something?"
"Hello dere."
"Goodbye.">>
<ROUTINE V-HINT ("AUX" TEMP)
<COND (<G? <GET ,DEADBOTS 6> 29>
<TELL "FC: Whiz is no longer operational, and there's nothing I can do to help you without him." CR>
<RTRUE>)
<TELL "FC: Whiz is plugged in to the Advisory Pedestal and ready to ask about things for you." CR>
<RTRUE>)
<SETG PLUGGED-IN 3>
<TELL "FC: I've taken the liberty of directing Whiz to plug in to the Advisory Pedestal. You may now direct him to ask about things for you." CR>
<CHANGE-WINNER ,WHIZ>)
(T
<TELL "FC: I'm taking the liberty of directing Whiz to the Advisory Peripheral so you may later have him ask about things." CR>
<SET TEMP ,WINNER>
<CHANGE-WINNER ,WHIZ T>
<CRLF>
<RTRUE>)>>
<GLOBAL WHEEEEE
<PLTABLE "This kind of action can just kill my knee-joints."
"I wasn't built for this kind of abuse, you know."
"I'd say this was fun, but I'm only a robot. Without a sense of humor.">>
<ROUTINE V-READ ()
<IRIS?>
<EQUAL? <LOC ,IRIS>
<V-LOOK>
<RTRUE>)
<RTRUE>)
<NOT <IRIS?>>>
"I'm not equipped with the necessary visual sensors.">
<RTRUE>)
(T
<ROBOT-TELL "How can I read a " <>>
<TELL D ,PRSO "?" CR>)>>
<ROUTINE V-LOOK-UNDER ()
<COND (<AND <EQUAL? ,PRSO ,BROKEN-SHELF>
<FSET? ,SMASHED-BOX ,INVISIBLE>
<NOT <AUDA?>>>
<ROBOT-TELL "There is something under there.">)
(T <ROBOT-TELL "There is nothing but dust there.">)>>
<ROUTINE V-LOOK-BEHIND () <V-LOOK-UNDER>>
<ROUTINE V-LOOK-INSIDE ()
<ROBOT-TELL "There is nothing special to be seen.">)
(<SEE-INSIDE? ,PRSO>
<COND (<AND <FIRST? ,PRSO> <PRINT-CONT ,PRSO>>
<RTRUE>)
(<FSET? ,PRSO ,SURFACEBIT>
<ROBOT-TELL "There is nothing on the " <>>
<TELL D ,PRSO "." CR>)
(T
<ROBOT-TELL "The " <>>
<TELL D ,PRSO " is empty." CR>)>)
(ELSE <ROBOT-TELL "The " <>>
<TELL D ,PRSO " is closed." CR>)>)
(ELSE <ROBOT-TELL "I don't know how to look inside a " <>>
<TELL D ,PRSO "." CR>)>>
<ROUTINE SEE-INSIDE? (OBJ)
<AND <NOT <FSET? .OBJ ,INVISIBLE>>
<ROUTINE PRE-TURN ()
<COND (<NOT <FSET? ,PRSO ,TURNBIT>> <ROBOT-TELL "I can't turn that!">)
<ROBOT-TELL "I certainly can't turn it with a " <>>
<TELL D ,PRSI "." CR>)>>
<ROUTINE V-TURN () <ROBOT-TELL "You must be more specific.">>
<ROUTINE V-PICK () <V-TURN>>
<ROUTINE V-KILL ()
<IKILL "kill">>
<ROUTINE IKILL (STR)
#DECL ((STR) STRING)
<COND (<NOT ,PRSO> <TELL "There is nothing here to " .STR "." CR>)
<ROBOT-TELL "I've known strange people, but fighting a " <>>
<TELL D ,PRSO "?" CR>)
<FUTILE .STR>)
<ROBOT-TELL "Trying to " <>>
<TELL .STR>
<TELL " the">)>
(ELSE <TELL "I can't." CR>)>>
<ROUTINE V-ATTACK () <IKILL "attack">>
<ROUTINE V-KICK () <HACK-HACK "Kicking ">>
<ROUTINE V-WAVE () <HACK-HACK "Waving ">>
<ROUTINE V-RAISE ()
<RTRUE>)
(T
<HACK-HACK "Playing in this way with ">)>>
<ROUTINE V-LOWER () <HACK-HACK "Playing in this way with ">>
<ROUTINE V-RUB () <HACK-HACK "Fiddling with ">>
<ROUTINE V-PUSH () <HACK-HACK "Pushing ">>
<ROUTINE PRE-MUNG ()
<HACK-HACK "Trying to destroy ">)
(<NOT ,PRSI>
<FUTILE "destroy">)>>
<ROUTINE FUTILE (STR)
<ROBOT-TELL "Trying to " <>>
<TELL .STR>
<TELL " a">)>
<ROUTINE V-MUNG ()
<ROBOT-TELL "I can't do that.">>
<ROUTINE HACK-HACK
(STR)
#DECL ((STR) STRING)
<TELL .STR>
<TELL "the ">)>
<GLOBAL HO-HUMS
<PLTABLE " is not what I was designed for."
" would hurt my extensions."
" offends my sensibilities."
" is the worst thing I've ever heard."
" goes against my Zen training."
" contradicts the CLC directives.">>
<ROUTINE WORD-TYPE
(OBJ WORD "AUX" SYNS)
#DECL ((OBJ) OBJECT (WORD SYNS) TABLE)
<ZMEMQ .WORD
<SET SYNS <GETPT .OBJ ,P?SYNONYM>>
<- </ <PTSIZE .SYNS> 2> 1>>>
<ROUTINE V-KNOCK ()
<ROBOT-TELL "Why knock on a " <>>
<TELL D ,PRSO "?" CR>>
<ROUTINE V-YELL () <ROBOT-TELL <GET ,YELL-QUIPS ,ROFF>>>
<GLOBAL YELL-QUIPS
<PLTABLE "Well shut my eyes, I never heard of such a thing!"
"With whose external organs, yours? Cut me some slack."
"Sensory mechanisms are one-way, dummy."
"I'll pretend I didn't hear that insanity."
"If only I could, I could release some of this built-up tension."
"The CLC is the only one who'd listen if I did.">>
<ROUTINE V-PLUGIN ("AUX" TBL)
<COND (<NOT <WHIZ?>>
<ROBOT-YUKS>)
<ROBOT-TELL "I'm already plugged in to the " <>>
<TELL <GET ,PLUG-LOCS ,PLUGGED-IN> CR>)
(<AND <NOT <EQUAL? ,PRSO ,PERIPH1-OBJ ,PERIPH2-OBJ
,PERIPH3-OBJ>>
<NOT <EQUAL? ,PRSO ,PERIPH4-OBJ ,ROOMS>>>
<ROBOT-TELL "I can't plug in to the "<>>
<TELL D ,PRSO "." CR>)
(<OR <EQUAL? ,WINNER-HERE ,PERIPH-1 ,PERIPH-2>
<EQUAL? ,WINNER-HERE ,PERIPH-3 ,PERIPH-4>>
<COND (<EQUAL? ,WINNER-HERE ,PERIPH-1> <SETG PLUGGED-IN 1>)
(<EQUAL? ,WINNER-HERE ,PERIPH-2> <SETG PLUGGED-IN 2>)
(<EQUAL? ,WINNER-HERE ,PERIPH-3> <SETG PLUGGED-IN 3>)
(<EQUAL? ,WINNER-HERE ,PERIPH-4> <SETG PLUGGED-IN 4>)>
<ROBOT-TELL "It's great to be home. Plugged in to the " <>>
<TELL <GET ,PLUG-LOCS ,PLUGGED-IN>
" Ready to process queries." CR>)
(T
<ROBOT-TELL "There's nothing to plug in to here.">)>>
<GLOBAL PLUG-LOCS
<PLTABLE "Index Pedestal."
"Technical Pedestal."
"Advisory Pedestal."
"Historical Pedestal.">>
<ROUTINE V-UNPLUG ()
<COND (<NOT <WHIZ?>>
<ROBOT-TELL "Who do you think I am, Whiz? Gimme a break!">)
(<NOT ,PLUGGED-IN>
"That's not possible. I'm not plugged in.">)
(ELSE
<SETG PLUGGED-IN <>>
<ROBOT-TELL "Unplugged.">)>>
<ROUTINE V-QUERY ()
<COND (<AND <NOT <WHIZ?>>
<NOT ,PRSO>>
<ROBOT-TELL "Get real, joker!">)
(<NOT <WHIZ?>>
<TELL "FC: I'm translating that command into a request for a description of the " D ,PRSO "." CR>
<RTRUE>)
(<NOT ,PLUGGED-IN>
<ROBOT-TELL "I can't until a CLC link is established.">
<RFATAL>)
(<NOT ,PRSI>
<DO-QUERY>
<RTRUE>)
(<OR <EQUAL? ,PRSO ,PERIPH1-OBJ ,PERIPH2-OBJ>
<EQUAL? ,PRSO ,PERIPH3-OBJ ,PERIPH4-OBJ>
<DO-QUERY>
<RTRUE>)
(ELSE
<ROBOT-TELL "I don't know how to query a " <>>
<TELL D ,PRSO "." CR>)>>
<GLOBAL PLUGOUTS
<PLTABLE "IP: " "TP: " "AP: " "HP: ">>
<ROUTINE DO-QUERY ("AUX" STR OUTSTR (COUNT 0))
<SET OUTSTR <GET ,PLUGOUTS ,PLUGGED-IN>>
<COND (<NOT .STR>
<COND (<EQUAL? ,PLUGGED-IN 1>
<TELL .OUTSTR "Index search indicates no data stored on that subject." CR>)
(T
<TELL .OUTSTR
"No data available on that subject from the "
<GET ,PLUG-LOCS ,PLUGGED-IN> CR>)>
<RTRUE>)
(<EQUAL? ,PLUGGED-IN 1>
<REPEAT ()
<SET COUNT <+ .COUNT 1>>
<COND (<EQUAL? .COUNT 4>
<RTRUE>)>
<COND (<NOT <EQUAL? <GET .STR .COUNT> 0>>
<TELL .OUTSTR "Data available from the "
<GET ,PLUG-LOCS <+ .COUNT 1>> CR>)>>)
(ELSE
<COND (<NOT <EQUAL? <SET STR <GET .STR <- ,PLUGGED-IN 1>>> 0>>
<TELL .OUTSTR .STR CR>)
(T
<TELL .OUTSTR
"No data available on that subject at this peripheral." CR>)>)>>
<ROUTINE V-SHAKE ("AUX" X)
<ROBOT-TELL "This seems to have no effect.">)
<FIRST? ,PRSO>>
<ROBOT-TELL "It sounds as if there is something inside the " <>>
<TELL D ,PRSO "." CR>)
<REPEAT ()
<COND (<SET X <FIRST? ,PRSO>> <MOVE .X ,WINNER-HERE>)
(ELSE <RETURN>)>>
<ROBOT-TELL "All of the objects spill onto the floor.">)
(T <ROBOT-TELL "Why bother?">)>>
<ROUTINE V-DIG () <ROBOT-TELL "What a silly idea!">>
<ROUTINE V-SMELL ()
<ROBOT-TELL "I can't do that.">>
<ROUTINE GLOBAL-IN? (OBJ1 OBJ2 "AUX" T)
#DECL ((OBJ1 OBJ2) OBJECT (T) <OR FALSE TABLE>)
<COND (<SET T <GETPT .OBJ2 ,P?GLOBAL>>
<ZMEMQB .OBJ1 .T <- <PTSIZE .T> 1>>)>>
<ROUTINE HERE?? (OBJ)
<OR <IN? .OBJ ,WINNER-HERE> <GLOBAL-IN? .OBJ ,WINNER-HERE>>>
<ROUTINE V-SWIM ()
<ROBOT-TELL "You can't swim here!">>
<ROUTINE V-ALARM ()
<ROBOT-TELL "Be serious, would you?">
<RFATAL>)
(<AND <G? ,SLEEPERS 0>
<IN? ,PEOPLE ,SLEEP-CHAMBER>
<IN? ,WINNER ,SLEEP-CHAMBER>>
<ROBOT-TELL "I'm shaking them.">
<COND (<AUDA-HEARS?>
<TELL CR
"\"Beat it, you stupid robot! Can't you see we're trying to sleep?!\"" CR>)>
<COND (<ROBOT-THERE? ,WALDO>
<TELL CR
"WALDO: The " D ,PEOPLE " are motioning violently and then resuming their reclining positions." CR>)
(<ROBOT-THERE? ,SENSA>
<TELL CR
"SENSA: The air is becoming charged with ionic activity as the " D ,PEOPLE
" stir from quiescence. They then return to a quiet state." CR>)
(<ROBOT-THERE? ,POET>
<TELL CR
"POET: Like loaves of bread sitting on a warm oven, the " D ,PEOPLE
" rise then fall." CR>)>)
(T
<ROBOT-TELL "They're not asleep.">)>>
<ROUTINE V-ZORK () <TELL "I see no Zork here." CR>>
<ROUTINE V-COMMAND ()
<TELL "The " D ,PRSO " pays no attention." CR>)
(ELSE
<TELL "You cannot talk to that!" CR>)>>
<ROUTINE V-CLIMB-ON ()
<RTRUE>)
<V-CLIMB-UP ,P?UP T>)
(T
<TELL "I can't climb onto the " D ,PRSO "." CR>)>>
<ROUTINE V-GET-OFF ()
<ROBOT-TELL "I can't. I'm not on it.">)
(ELSE
<SETG ON-WEDGE <>>
<ROBOT-TELL "Okay. I'm off of it now.">)>>
<ROUTINE V-CLIMB-FOO () <V-CLIMB-UP ,P?UP T>>
<ROUTINE V-CLIMB-UP ("OPTIONAL" (DIR ,P?UP) (OBJ <>) "AUX" X)
#DECL ((DIR) FIX (OBJ) <OR ATOM FALSE> (X) TABLE)
<COND (<GETPT ,WINNER-HERE .DIR>
<DO-WALK .DIR>
<RTRUE>)
(<NOT .OBJ>
<RTRUE>)
(ELSE <TELL "Bizarre!" CR>)>>
<ROUTINE V-CLIMB-DOWN ()
<RTRUE>)
<RTRUE>)
(T <V-CLIMB-UP ,P?DOWN>)>>
<ROUTINE V-PUT-UNDER ()
<COND (<EQUAL? ,PRSI ,TOPSHELF ,WHEEL ,CLONESWITCH>
<RTRUE>)>
<TELL "I can't do that." CR>>
<ROUTINE V-ENTER ()
<ROUTINE V-EXIT ()
<ROUTINE V-SEARCH ()
<RTRUE>)
(T <ROBOT-TELL "I found nothing unusual.">)>>
<ROUTINE V-FIND ("AUX" (L <LOC ,PRSO>))
<NOT <IN? ,PRSO ,WINNER-HERE>>>
<RTRUE>)
(<EQUAL? .L ,GLOBAL-OBJECTS>
<ROBOT-TELL "You find it.">)
<ROBOT-TELL "I have it.">)
(<OR <IN? ,PRSO ,WINNER-HERE>
<==? ,PRSO ,PSEUDO-OBJECT>>
<TELL D ,PRSO " is">)
(T <TELL "It's">)>
<TELL " right here." CR>)
(<FSET? .L ,VILLAIN>
<ROBOT-TELL "The " <>>
<TELL D .L " have it." CR>)
(<FSET? .L ,CONTBIT>
<ROBOT-TELL "It's in the " <>>
<TELL D .L "." CR>)
(ELSE
<ROBOT-TELL "Beats me.">)>>
<GLOBAL TELL-QUIPS
<PLTABLE "I can't do that. I only have eyes for you."
"I wouldn't be very handy if I did."
"Unable to articulate speech patterns."
"I hear you but I can't believe you."
"Sure. Mairzy dotes & dozey dotes."
"My connecting cable won't reach.">>
The previous WINNER value. This is needed, for example, to reset the WINNER after a BOTH command.
<ROUTINE REAL-ROBOT (OBJ)
<COND (<==? .OBJ ,GLOBAL-IRIS>
,IRIS)
(<==? .OBJ ,GLOBAL-WALDO>
,WALDO)
(<==? .OBJ ,GLOBAL-AUDA>
,AUDA)
(<==? .OBJ ,GLOBAL-SENSA>
,SENSA)
(<==? .OBJ ,GLOBAL-POET>
,POET)
(<==? .OBJ ,GLOBAL-WHIZ>
,WHIZ)
(T ,PEOPLE)>>
Indicates the robot you are currently commanding. This is a numeric index, not an object value. See NAME-TBL, ROBOT.
<ROUTINE V-$TELL ()
<COND (<IN? ,PRSO ,GLOBAL-OBJECTS>
<SETG PRSO <REAL-ROBOT ,PRSO>>)>
<SETG OLD-WINNER ,WINNER>
<CHANGE-WINNER ,PRSO>)
(T
<TELL "FC: You can't talk to the " D ,PRSO "!" CR>
<SETG QUOTE-FLAG <>>
<SETG P-CONT <>>
<RFATAL>)>>
<ROUTINE V-ANSWER ()
<TELL "Nobody is awaiting your answer." CR>
<RFATAL>>
<ROUTINE V-REPLY ()
<TELL "It is hardly likely that the " D ,PRSO " is interested." CR>
<RFATAL>>
<ROUTINE V-IS-IN ()
<TELL "Yes, it is ">
<COND (<FSET? ,PRSI ,SURFACEBIT>
<TELL "on">)
(T <TELL "in">)>
<TELL " the " D ,PRSI "." CR>)
(T <TELL "No, it isn't." CR>)>>
<ROUTINE V-KISS ()
<COND (<IRIS?> <ROBOT-TELL "Without lips, that's quite a trick.">)
(<WALDO?> <ROBOT-TELL "With what, my hands?">)
(<SENSA?> <ROBOT-TELL "I can't do that.">)
(<AUDA?> <ROBOT-TELL "No, I don't think so.">)
(<POET?> <ROBOT-TELL "Loose lips sink slips.">)
(<WHIZ?> <ROBOT-TELL "I'd sooner kiss the CLC.">)>>
<ROUTINE V-RAPE ()
<ROBOT-TELL "What a BIZARRE concept!">>
<ROUTINE FIND-IN (WHERE WHAT "AUX" W)
<SET W <FIRST? .WHERE>>
<COND (<NOT .W> <RFALSE>)>
<REPEAT ()
<COND (<FSET? .W .WHAT> <RETURN .W>)
(<NOT <SET W <NEXT? .W>>> <RETURN <>>)>>>
<ROUTINE V-WEAR ()
<COND (<NOT <FSET? ,PRSO ,WEARABLEBIT>>
<ROBOT-TELL "An interesting but highly unlikely thought.">)
(ELSE
<ROBOT-TELL "It's now being worn.">
<ROUTINE V-REMOVE ()
<ROUTINE V-TAKE-OFF ()
<V-DISEMBARK>)
<ROBOT-TELL "It's been removed.">
<RTRUE>)
(T <ROBOT-TELL "I'm not wearing that.">)>>
<ROUTINE V-STEP-ON ()
<RTRUE>)
(<EQUAL? ,PRSO ,CONVEYERBELTA ,CONVEYERBELTB ,CONVEYERBELTC>
<ROBOT-TELL "There's no need for that since I'm working fine.">)
(ELSE
<TELL "That's a silly thing to do." CR>)>>
<ROUTINE V-PUT-ON ()
<ROBOT-TELL "I can't reach up that far.">)
(ELSE
<ROUTINE ROB (WHO "OPTIONAL" (WHERE <>) (HIDE? <>) "AUX" N X (ROBBED? <>))
<SET X <FIRST? .WHO>>
<REPEAT ()
<COND (<NOT .X> <RETURN .ROBBED?>)>
<SET N <NEXT? .X>>
<COND (<RIPOFF .X .WHERE>
<COND (.HIDE? <FSET .X ,NDESCBIT>)>
<SET ROBBED? .X>)>
<SET X .N>>>
<ROUTINE RIPOFF (X WHERE)
<COND (<AND <NOT <IN? .X .WHERE>>
<NOT <FSET? .X ,INVISIBLE>>
<FSET? .X ,TOUCHBIT>
<FSET? .X ,TAKEBIT>>
<COND (.WHERE <MOVE .X .WHERE>)
(ELSE <REMOVE .X>)>
<RTRUE>)>>
<ROUTINE V-STAND ()
<RTRUE>)
(ELSE
<TELL "I'm already standing, I think." CR>)>>
<ROUTINE V-NO ()
<TELL "FC: You sound rather negative." CR>>
<ROUTINE V-YES ()
<TELL "FC: You sound rather positive." CR>>
<ROUTINE V-POINT ("AUX" W)
<ROBOT-TELL "Let " <>>
<TELL "selves." CR>)
(T
<TELL "self." CR>)>)
<ROBOT-TELL "Okay, but it's impolite.">)
<ROBOT-TELL "That would be a neat trick.">)
(<AND <IN? ,PRSI ,GLOBAL-OBJECTS>
<NOT <EQUAL? ,PRSI ,GLOBAL-IRIS
<NOT <EQUAL? ,PRSI ,GLOBAL-AUDA ,GLOBAL-POET
,GLOBAL-WHIZ>>>
<TELL "FC: There's no need to do that." CR>)
(<OR <NOT ,TV-ON>
<NOT ,IRIS-FIXED>
<ROBOT-TELL "Okay.">)
(T
<ROBOT-TELL "The " <>>
<TELL D ,TV " has been pointed at ">
<TELL "the ">)>
<TELL D ,PRSI "." CR>
<CRLF>
<SET W ,WINNER>
<CHANGE-WINNER ,IRIS T>
<TELL <GET ,INTER-TBL 1>
" Transmission indicates the cables rest in the grooves in the following order: ">
<COND (<IN? .W ,TUBE2>
<COND (,REDSET
<TELL D ,REDSET>)
(ELSE
<TELL "empty">)>
<TELL "; " D ,YELLOWCABLE "; "
D ,GREENCABLE "; and " D ,PINKCABLE ". ">)
(T
<TELL D ,WHITECABLE "; " D ,BLUECABLE "; "
D ,BLACKCABLE "; and ">
<COND (,ORANGESET
<TELL D ,ORANGESET ". ">)
(ELSE
<TELL "empty. ">)>)>
<CHANGE-WINNER .W T>
<RTRUE>)
<SET W ,WINNER>
<CHANGE-WINNER ,IRIS T>
<TELL <GET ,INTER-TBL 1>
" The little sign presents me with the access code the machine in the Main Supply Room needs to reset the Filtering Computers. It says " SD ,CODE1 SD ,CODE2 "." CR>
<CHANGE-WINNER .W T>
<RTRUE>)>
<TELL <GET ,INTER-TBL 1> " " <PICK-ONE ,IRIS-TV-QUIPS>>
<TELL "a ">)>
<SET W ,WINNER>
<CHANGE-WINNER ,IRIS T>
<TELL D ,PRSI "." CR>
<CHANGE-WINNER .W T>)>>
<GLOBAL IRIS-TV-QUIPS
<PLTABLE
"The image is rather fuzzy, but it looks like "
"I can't make it out too clearly, but it seems like "
"You call this clear reception? All I can make out is the shape of "
"The image is broken up, but it looks as if it could be "
"Now I know why cable-tv was invented. All I can make out is the shape of ">>
<ROUTINE V-SET ("AUX" DIALOFF OLDNUM)
<COND (<NOT .DIALOFF>
<ROBOT-TELL "I don't know how to do that to " <>>
<TELL "a ">)>
<TELL D ,PRSO "." CR> <RTRUE>)>
<ROBOT-TELL "How am I supposed to accomplish that?"><RTRUE>)>
<SET OLDNUM <GET ,DIALSETS .DIALOFF>>
<SETG P-NUMBER <+ .OLDNUM 10>>
<COND (<G? ,P-NUMBER 100>
<ROBOT-TELL "It can't go " <>>
<TELL "forward">)
(T
<TELL "right">)>
<TELL " any more." CR>)>)
<COND (<EQUAL? .OLDNUM 0>
<ROBOT-TELL "It can't go " <>>
<TELL "back">)
(T
<TELL "left">)>
<TELL " any more." CR> <RTRUE>)
(<L? .OLDNUM 10>
<SETG P-NUMBER 0>)
(ELSE
<SETG P-NUMBER <- .OLDNUM 10>>)>)>
<COND (<G? ,P-NUMBER 100>
<ROBOT-TELL "That setting is out of range."> <RTRUE>)>
<COND (<EQUAL? ,P-NUMBER .OLDNUM>
<ROBOT-TELL "That's where it was already set."> <RTRUE>)>
<ROBOT-TELL "The " <>>
<ROUTINE V-PLAY ()
<TELL "Playing a " D ,PRSO "?" CR>>
<ROUTINE V-$VERIFY ()
<TELL "Verifying game..." CR>
<COND (<VERIFY> <TELL "Game correct." CR>)
(T <TELL CR "** Game File Failure **" CR>)>>
<ROUTINE V-STAND-ON ()
<RTRUE>)
(ELSE
<ROBOT-TELL "I can't manage that.">)>>
<ROUTINE V-ALL-REPORT ("AUX" TEMP (COUNT -1) ROB)
<SET TEMP ,WINNER>
<REPEAT ()
<SET COUNT <+ .COUNT 1>>
<COND (<EQUAL? .COUNT 6>
<RETURN>)>
<SET ROB <GET ,NAME-TBL .COUNT>>
<COND (<FSET? .ROB ,CUTBIT>
<TELL "FC: " SD .ROB " is no longer functional." CR>
<CLOCKER>
<COND (<L? .COUNT 5>
<CRLF>)>)
(T
<CHANGE-WINNER .ROB T>
<CLOCKER>
<PERFORM ,V?REPORT>
<COND (<L? .COUNT 5>
<CRLF>)>)>>
<CHANGE-WINNER .TEMP T>>
<ROUTINE V-ALL-REPORT-LOC ("AUX" TEMP (COUNT -1) ROB)
<SET TEMP ,WINNER>
<REPEAT ()
<SET COUNT <+ .COUNT 1>>
<COND (<EQUAL? .COUNT 6>
<RETURN>)>
<SET ROB <GET ,NAME-TBL .COUNT>>
<COND (<FSET? .ROB ,CUTBIT>
<TELL "FC: " SD .ROB
" is no longer in communication." CR>)
(T
<CHANGE-WINNER .ROB T>
<PERFORM ,V?REPORT-LOC>)>>
<CHANGE-WINNER .TEMP T>>
<ROUTINE V-REPORT ()
<TELL "FC: Full report from ">
<TELL <GET ,ROBOT-NAMES ,ROFF> CR>
<V-LOOK>
<COND (<AUDA?>
<COND (,AUDA-LISTENS
<TELL "Auditory circuits active." CR>)
(T
<TELL "Auditory circuits inactive." CR>)>)>
<COND (<POET?>
<PERFORM ,V?TOUCH ,WINNER-HERE>
<RTRUE>)>
<COND (<WHIZ?>
<COND (,PLUGGED-IN
<TELL "Plugged in at " <GET ,PLUG-LOCS ,PLUGGED-IN> CR>)
(T <TELL "Unable to process queries at this time." CR>)>)>>
<ROUTINE V-REPORT-LOC ()
<COND (<AND ,PRSO
<RTRUE>)
(T
<COND (<IN-MOTION? ,WINNER>
<ROBOT-TELL "Entering the " <>>)
(T
<ROBOT-TELL "In the " <>>)>
<TELL D ,CAR>)
(T <TELL SD <LOC ,WINNER>>)>
<TELL "." CR>)>>
This is the LOOK AT __ THROUGH __ command, which is copied straight over from Starcross. Suspended has no transparent objects, so the action is useless.
(The “X isn’t transparent” message is misleading, really. Only Iris would notice! And Waldo’s sonar can penetrate some surfaces, and so on.)
The action is called LOOK-SAFELY because Starcross has a laser that can blind you.
<TELL "The " D ,PRSO " looks as before, only tinged by the
color of the " D ,PRSI "." CR>)
(ELSE <TELL "The " D ,PRSI " isn't transparent." CR>)>>
<ROUTINE V-REACH ()
<COND (<FIRST? ,PRSO>
<TELL "There is something">)
(ELSE <TELL "There is nothing">)>
<COND (<FSET? ,PRSO ,SURFACEBIT>
<TELL " sitting on the ">)
(ELSE <TELL " inside the ">)>
<TELL D ,PRSO "." CR>>
<ROUTINE V-REACH-FOR ()
<RTRUE>)
(<IN? ,PRSO ,WINNER-HERE>
<TELL "It's here! Now what?" CR>)
(ELSE <TELL "It is out of reach." CR>)>>
<ROUTINE DO-WALK (DIR)
<SETG P-WALK-DIR .DIR>
<PERFORM ,V?WALK .DIR>>
<GLOBAL WALK-INSULTS
<PLTABLE "I have enough trouble seeing where I am without being told to go to where I already am."
"That's easy. Poof. Sonar indicates that's where I was and still am."
"Sensory mechanisms detect that I am where you want me to be already."
"From what I hear, I am where you want me to be."
"How can you be two places at once when you're not anywhere at all?"
"I'm confused. That's where I am.">>
<GLOBAL ORDER-RCD
<PLTABLE "Got it, good looking. I'll let you know when I get there."
"I'm on my way. Expect a report on arrival."
"Order input acknowledged. Output on arrival."
"I hear you loud and clear. Talk to you when I get there."
"All life's a stage, so just consider me a player. See you."
"CLC setting coordinates. Will report in on arrival.">>
<ROUTINE V-WALK-TO ()
<TELL "FC: What makes you think you're not already there?" CR>
<RTRUE>)
(<EQUAL? ,PRSO ,WINNER-HERE ,WINNER>
<ROBOT-TELL <GET ,WALK-INSULTS ,ROFF>>)
<COND (<NOT <EQUAL? <GET ,FOLLOW-TBL ,ROFF> 0>>
<PUT ,FOLLOW-TBL ,ROFF 0>)>
<ROBOT-TELL <GET ,ORDER-RCD ,ROFF>>
<CHECK-MORE?>)
<TELL "FC: " D ,PRSO "'s location: ">)
(T
<TELL "FC: " D ,PRSO " is non-functional. Last known location: ">)>
<TELL SD <LOC ,PRSO> ". Establishing path..." CR>
<ROBOT-TELL <GET ,ORDER-RCD ,ROFF>>
<COND (<NOT <EQUAL? <GET ,FOLLOW-TBL ,ROFF> 0>>
<PUT ,FOLLOW-TBL ,ROFF 0>)>
<PUT ,ROBOT-FOLLOW ,ROFF ,PRSO>
<CHECK-MORE?>)
(<IN? ,PRSO ,WINNER-HERE>
<ROBOT-TELL "It's right here.">)
(T
<ROBOT-TELL "You'll have to tell me where it is first.">)>>
<ROUTINE CHECK-MORE? ()
<COND (,P-CONT
<TELL CR "FC: When " D ,WINNER
" arrives, you'll have to tell ">
<TELL " what to do then. I have too much to keep track of already." CR>
<RFATAL>)>>
<ROUTINE DO-THE-TV ()
,TV-ON>
<SETG TV-ON <>>
<TELL "(Unplugging " D ,TV " first.)" CR>)
<TELL "(getting off the " D ,WEDGE " first.)" CR>
<SETG ON-WEDGE <>>)>>
<ROUTINE V-STOP ()
<COND (<AND ,PRSO
<ROBOT-TELL "I can't do that to " <>>
<TELL "the ">)>
<TELL D ,PRSO "." CR>
<RTRUE>)>
<COND (<AND ,PRSO
<AUDA?>>
<ROBOT-TELL "Okay. Auditory sensors deactivated.">
<SETG AUDA-LISTENS <>>
<RTRUE>)
(<AND ,PRSO
<ROBOT-TELL "Okay. I'll stop dragging " <>>
<TELL "." CR>
(,PRSO
<ROBOT-YUKS>)
(<NOT <IN-MOTION? ,WINNER>>
<ROBOT-TELL "I wasn't going anywhere special anyway.">
<PUT ,FOLLOW-TBL ,ROFF 0>
<RTRUE>)
<ROBOT-TELL "I have stopped at the " <>>
<TELL SD ,WINNER-HERE "." CR>
<PUT ,FOLLOW-TBL ,ROFF 0>)>>
<ROUTINE V-FLY ()
<ROBOT-TELL "Robots are not usually equipped for flying.">>
<ROUTINE V-SMILE ()
<ROBOT-TELL "If only I could!">>
%<COND (<GASSIGNED? ZILCH> T)
(T '<ROUTINE V-ESCAPE ()
<QUITTER <ASCII 7> ,INCHAN>>)>
<ROUTINE GRASPING? (OBJ)
<REPEAT ()
<COND (<NOT .OBJ>
<RFALSE>)>
<COND (<IN? .OBJ ,WINNER>
<RTRUE>)
(ELSE
<SET OBJ <LOC .OBJ>>)>>>
<ROUTINE PRE-REPLACE ("AUX" OBJ)
<ROBOT-TELL "I can't. My extensions are full.">
<RTRUE>)
<ROBOT-TELL "I'd better grasp one of them first.">
<RFATAL>)
"You've asked me to replace something with itself.">
<RFATAL>)
<SET OBJ ,PRSO>
<SETG PRSI .OBJ>
<RFALSE>)>>
<ROUTINE V-REPLACE ("AUX" LOC)
<ROBOT-TELL "You'd better rethink that.">)
<ROBOT-TELL "That's tough to do since the " <>>
<RTRUE>)
(T
<SET LOC <LOC ,PRSO>>
<MOVE ,PRSI .LOC>
<ROBOT-TELL "Okay. It's done.">
<COND (<AND <EQUAL? .LOC ,PANEL>
<NOT ,IRIS-FIXED>
<TELL CR <GET ,INTER-TBL 1>
" OOOH! That felt good! Close my panel, big boy."
CR>)
(<EQUAL? .LOC ,GROOVE2>
(<EQUAL? .LOC ,GROOVE1>
<ROUTINE V-CUT ()
<COND (<NOT ,PRSI>
<ROBOT-TELL "With what?">
<RTRUE>)
(<NOT <FSET? ,PRSO ,CUTABLEBIT>>
<ROBOT-TELL "It won't cut.">
<RTRUE>)
<ROBOT-TELL "It's already been cut.">
<RTRUE>)
(<AND ,PRSI
<NOT <EQUAL? ,PRSI ,WIRECUTTER>>>
<ROBOT-TELL "I don't think " <>>
<TELL "the ">)>
<TELL D ,PRSI " will work very well for this job." CR>)
(ELSE
<ROBOT-TELL "Done.">)>>
<ROUTINE V-TOUCH ("AUX" (NUM 0) TBL)
<COND (<POET?>
<SET NUM
<GET <SET TBL <GETP ,WINNER-HERE ,P?ROOMDESCS>> 0>>)
(<EQUAL? ,WINNER-HERE <META-LOC ,PRSO>>
<SET NUM <GET <SET TBL <GETP ,PRSO ,P?OBJDESCS>>0>>)>
<COND (<G? .NUM 18>
<ROBOT-TELL <GET .TBL 19>>)
(ELSE
<ROBOT-TELL "Sensory pads detect no abnormal flow.">)>)
(<WALDO?>
<RTRUE>)
(ELSE
<ROBOT-TELL "Not me, man. Better ask someone else.">)>>
<ROUTINE META-LOC (OBJ)
<REPEAT ()
<COND (<IN? .OBJ ,GLOBAL-OBJECTS>
<RFALSE>)>
<COND (<IN? .OBJ ,ROOMS>
<RETURN .OBJ>)
(ELSE
<SET OBJ <LOC .OBJ>>)>>>
<ROUTINE V-PUSH-UP ()
<CANT-DETECT ,PRSO>
<RTRUE>)
<TELL
"FC: I think you're following the path of Franklin." CR>
<RTRUE>)
<ROBOT-TELL "I try, but " <>>
<TELL " keeps moving away." CR>
<RTRUE>)
<EQUAL? ,WEDGE-PLACED 1>>
<ROBOT-TELL "Umph! Hard work, but consider it done!">
<MOVE ,PRSO ,CONVEYERBELTA> <SETG ON-WEDGE ,WINNER>
<SETG BELT-ON T>
<COND (<EQUAL? <GET <INT I-BELT> ,C-ENABLED?> 0>
<FSET ,PRSO ,FIXABLEBIT>)
(T
<ROBOT-TELL "I'd like to, but there's no way to get " <>>
<TELL " up that high from where I am." CR>)>>
<ROUTINE V-REPAIR ()
<EQUAL? ,PRSO ,WHITECABLE ,BLUECABLE ,BLACKCABLE>
<EQUAL? ,PRSO ,ORANGECABLE ,YELLOWCABLE ,GREENCABLE>
<ROBOT-TELL "Things aren't that simple.">)
(T
<ROBOT-TELL "It doesn't seem to be in need of repairs.">)>>
;"OLD V-PUSH-UP FOLLOWS. REPLACED ABOVE WITH REWRITTEN VERB."
;<ROUTINE V-PUSH-UP ()
<COND (<NOT <GETP ,PRSO ,P?ROBOT>>
<ROBOT-TELL "Why bother? It hardly seems worthwhile.">)
(<NOT <IN? ,PRSO <LOC ,WINNER>>>
<CANT-DETECT ,PRSO>
<RFATAL>)
(<AND <IN? ,WINNER ,REPAIR1>
<EQUAL? ,WEDGE-PLACED 1>
<G? <GET ,DEADBOTS <GETP ,PRSO ,P?ROBOT>> 29>>
<ROBOT-TELL "Umph! Hard work, but consider it done!">
<MOVE ,PRSO ,CONVEYERBELTA>
<SETG ON-WEDGE ,WINNER>
<SETG BELT-ON T>
<COND (<EQUAL? <GET <INT I-BELT> ,C-ENABLED?> 0>
<ENABLE <QUEUE I-BELT 2>>)>
<FSET ,PRSO ,FIXABLEBIT>)
(T
<PERFORM ,V?PUSH ,PRSO>)>>
<ROUTINE BIG-NUM-PRINT (NUM "AUX" TEMP)
<COND (<EQUAL? .NUM 0>
<TELL "0">
<RTRUE>)
(<G? .NUM 999>
<SET TEMP </ .NUM 1000>>
<SET NUM <MOD .NUM 1000>>
<TELL N .TEMP ",">
<COND (<EQUAL? .NUM 0>
<TELL "000">)
(<L? .NUM 10>
<TELL "00" N .NUM>)
(<L? .NUM 100>
<TELL "0" N .NUM>)
(T <TELL N .NUM>)>)
(T
<TELL N .NUM>)>
<TELL ",000">>
<ROUTINE V-ADVANCED ()
<COND (,ADVANCED-FLAG
<TELL
"FC: You are already in the advanced situation." CR>)
(<G? ,MOVES 1>
<TELL <GET ,INTER-TBL 7>
" Your request for the advanced game has been rejected since " N ,MOVES " cycles have already transpired. Please consult your indoctrination manual for the proper procedure." CR>)
(T
<TELL
"FC: Request for advanced game acknowledged." CR>
<CRLF>
<SETG PEOPLE-APPEAR 80>
<ENABLE <QUEUE I-PEOPLE1 ,PEOPLE-APPEAR>>
<SETG RTD-KILLS 2>
<SETG ACID-KILLS 2>
<SETG DYING1 1>
<SETG DYING2 2>
<SETG DYING3 3>
<DISABLE <INT I-AUDA-HINTS>>
<DISABLE <INT I-IRIS-HINTS>>
<PUT ,DEADBOTS 6 30>
<SETG ADVANCED-FLAG T>)>>
<ROUTINE V-IMPOSSIBLE ()
<COND (<G? ,MOVES 1>
<TELL
"FC: It is impossible to do that now. Please refer to your indoctrination manual for the proper way to initiate the impossible game." CR>
<RTRUE>)
(T
<TELL "FC: Okay, you asked for it..." CR CR>
<TELL
"FC INTERRUPT: External sensors detect huge radiation abnormalities in the star which provides Contra with all light and heat.|
|
WARNING! TIME CRITICAL!!|
|
External sensors detect significant instability in the star." CR>)>>
IMPOSSIBLE mode is of course a joke. The star goes nova in two turns and there’s nothing you can do about it.
I don’t know if the wonderful game Outer Wilds (2019) was inspired by this. I hope so.
I know that I was inspired to add an IMPOSSIBLE mode to my game The Dreamhold (2004). Although – spoiler – in my game, it’s not truly impossible!
<TELL CR
"FC INTERRUPT: Oh oh. Abnormalities in star approaching critical level.
NOVA IMMINENT!|
|
So long from all the gang -- Iris, Waldo, Sensa, Auda, Poet, Whiz, FRED, and last but not least, we three FCs." CR>
<QUIT>>
<ROUTINE V-WHY ()
<COND (<NOT <WHIZ?>>
<ROBOT-TELL "Sure beats me. You might ask Whiz...">)
(T
"Please refer to your manual for proper querying procedures.">)>>