mirror of
https://github.com/historicalsource/hollywoodhijinx
synced 2024-05-04 09:58:27 +03:00
1108 lines
29 KiB
Plaintext
1108 lines
29 KiB
Plaintext
|
"ROOMS for ANTHILL: (C)1986 Infocom, Inc. All rights reserved."
|
||
|
|
||
|
<OBJECT NOTE
|
||
|
(IN PLAYER)
|
||
|
(DESC "note")
|
||
|
(LDESC
|
||
|
"The personal journal of Belboz the Necromancer is lying here.")
|
||
|
(SYNONYM NOTE PAPER)
|
||
|
(ADJECTIVE WHITE)
|
||
|
(FLAGS TAKEBIT)
|
||
|
(SIZE 5)
|
||
|
(ACTION NOTE-F)>
|
||
|
|
||
|
<ROUTINE NOTE-F ()
|
||
|
<COND (<VERB? READ EXAMINE LOOK-INSIDE>
|
||
|
<COND (<NOT <FSET? ,NOTE ,READBIT>>
|
||
|
<FSET ,NOTE ,READBIT>
|
||
|
<SETG CUPID-KEY <PICK-ONE ,CUPID-COMBS>>)>
|
||
|
<TELL
|
||
|
"Dearie,
|
||
|
The magic number is \"" N <GET ,CUPID-KEY 0> ".\"
|
||
|
Love, Aunt Hildegard" CR>
|
||
|
<RTRUE>)>>
|
||
|
|
||
|
<OBJECT FLASHLIGHT
|
||
|
(IN PLAYER)
|
||
|
(SYNONYM FLASHLIGHT LIGHT TORCH LAMP)
|
||
|
(ADJECTIVE FLASH)
|
||
|
(DESC "flashlight")
|
||
|
(FLAGS TIEBIT TAKEBIT)
|
||
|
(SIZE 5)
|
||
|
(VALUE 0)
|
||
|
(ACTION FLASHLIGHT-F)>
|
||
|
|
||
|
<ROUTINE FLASHLIGHT-F ()
|
||
|
<COND (<VERB? EXAMINE>
|
||
|
<COND (<FSET? ,FLASHLIGHT ,WETBIT>
|
||
|
<TELL
|
||
|
"The soggy flashlight is switched on, but isn't working." CR>)
|
||
|
(T
|
||
|
<TELL "The " D ,FLASHLIGHT " is turned ">
|
||
|
<COND (<FSET? ,FLASHLIGHT ,ONBIT>
|
||
|
<TELL "on">)
|
||
|
(T
|
||
|
<TELL "off">
|
||
|
<TELL "." CR>)>)>)
|
||
|
(<VERB? LAMP-ON>
|
||
|
<COND (<FSET? ,FLASHLIGHT ,WETBIT>
|
||
|
<TELL
|
||
|
"You can't turn it on now, it's ruined. You took it in the water!" CR>)
|
||
|
(<FSET? ,FLASHLIGHT ,ONBIT>
|
||
|
<TELL "It's already on." CR>)
|
||
|
(T
|
||
|
<FSET ,FLASHLIGHT ,ONBIT>
|
||
|
<TELL "Okay," T ,FLASHLIGHT " is now on." CR>
|
||
|
<COND (<NOT ,LIT>
|
||
|
<SETG LIT T>
|
||
|
<CRLF>
|
||
|
<V-LOOK>)>)>
|
||
|
<RTRUE>)
|
||
|
(<VERB? LAMP-OFF>
|
||
|
<COND (<FSET? ,FLASHLIGHT ,WETBIT>
|
||
|
<TELL
|
||
|
"It's wet. It's ruined. Who cares if it's on or off?">)
|
||
|
(<FSET? ,FLASHLIGHT ,ONBIT>
|
||
|
<FCLEAR ,FLASHLIGHT ,ONBIT>
|
||
|
<TELL "Okay," T ,FLASHLIGHT " is now off." CR>)
|
||
|
(T
|
||
|
<TELL "It's already off." CR>)>
|
||
|
<RTRUE>)>>
|
||
|
|
||
|
<OBJECT STAIRS ;"front porch steps, cellar stairs"
|
||
|
(IN LOCAL-GLOBALS)
|
||
|
(DESC "stairs")
|
||
|
(SYNONYM STAIRS STAIRCASE STEPS)
|
||
|
(ADJECTIVE STEEP)
|
||
|
(FLAGS NDESCBIT)
|
||
|
(ACTION STAIRS-F)>
|
||
|
|
||
|
<ROUTINE STAIRS-F ()
|
||
|
<COND (<VERB? PUSH-DOWN>
|
||
|
<MOVE-OBJ-DOWN>)
|
||
|
(<VERB? SKI>
|
||
|
<DO-WALK ,P?DOWN>)>>
|
||
|
|
||
|
"--- Inside House ---"
|
||
|
"--- Foyer ---"
|
||
|
|
||
|
<ROOM FOYER
|
||
|
(IN ROOMS)
|
||
|
(DESC "Foyer")
|
||
|
(LDESC "This is the foyer of a large, aged house. To the south
|
||
|
is the front door. There is a closet here.")
|
||
|
(SOUTH TO FRONT-PORCH IF OAK-DOOR IS OPEN)
|
||
|
(IN PER FOYER-CLOSET-ENTER-F)
|
||
|
(EAST TO OUTSIDE-PARLOR)
|
||
|
(UP PER TO-UPSTAIRS-HALL)
|
||
|
(DOWN TO CELLAR) ;"for testing only"
|
||
|
(NORTH TO GAME-ROOM) ;"for testing only"
|
||
|
(WEST TO LIVING-ROOM)
|
||
|
(FLAGS RLANDBIT ONBIT)
|
||
|
(GLOBAL OAK-DOOR FOYER-CD CLOSET-REF FOYER-STAIRS KNUEL)>
|
||
|
|
||
|
<OBJECT FOYER-CD
|
||
|
(IN LOCAL-GLOBALS)
|
||
|
(DESC "foyer closet door")
|
||
|
(SYNONYM DOOR)
|
||
|
(ADJECTIVE FOYER CLOSET)
|
||
|
(FLAGS DOORBIT NDESCBIT)>
|
||
|
|
||
|
<OBJECT FOYER-STAIRS
|
||
|
(IN LOCAL-GLOBALS)
|
||
|
(DESC "stairs")
|
||
|
(SYNONYM STAIRS STAIRCASE STEPS)
|
||
|
(ADJECTIVE FOYER)
|
||
|
(FLAGS NDESCBIT)
|
||
|
(ACTION FOYER-STAIRS-F)>
|
||
|
|
||
|
<ROUTINE FOYER-STAIRS-F ()
|
||
|
<COND (<VERB? PUSH-DOWN>
|
||
|
<MOVE-OBJ-DOWN>)
|
||
|
(<VERB? EXAMINE>
|
||
|
<TELL "The stairs"> ;"need to mention knuel here"
|
||
|
<COND (,RAMP
|
||
|
<TELL
|
||
|
", or what used to be the stairs is now a ramp">)
|
||
|
(T
|
||
|
<TELL " look like stairs and need a better desc">)>
|
||
|
<TELL "." CR>)>>
|
||
|
|
||
|
<ROUTINE TO-UPSTAIRS-HALL ()
|
||
|
<COND (<NOT <FSET? ,KNUEL ,TOUCHBIT>>
|
||
|
<TELL
|
||
|
"You start to go up but suddenly the staircase flattens out and you slide back
|
||
|
down the flatten stairs." CR>
|
||
|
<SETG RAMP T>
|
||
|
<FSET ,KNUEL ,TOUCHBIT>
|
||
|
<RFALSE>)
|
||
|
(,RAMP
|
||
|
<TELL
|
||
|
"You start to go up the flatten stairs but slide back down." CR>
|
||
|
<RFALSE>)
|
||
|
(T
|
||
|
<RETURN ,UPSTAIRS-HALL>)>>
|
||
|
|
||
|
<OBJECT KNUEL
|
||
|
(IN LOCAL-GLOBALS)
|
||
|
(DESC "knuel")
|
||
|
(SYNONYM KNUEL)
|
||
|
(ADJECTIVE BROWN)
|
||
|
(FLAGS NDESCBIT)
|
||
|
(ACTION KNUEL-F)>
|
||
|
|
||
|
<GLOBAL RAMP <>>
|
||
|
|
||
|
<ROUTINE KNUEL-F ()
|
||
|
<COND (<VERB? TURN>
|
||
|
<TELL "You turn" T ,KNUEL " and the ">
|
||
|
<FSET ,KNUEL ,TOUCHBIT>
|
||
|
<COND (,RAMP
|
||
|
<TELL "ramp becomes stairs">
|
||
|
<SETG RAMP <>>)
|
||
|
(T
|
||
|
<TELL "stairs become a ramp">
|
||
|
<SETG RAMP T>)>
|
||
|
<TELL "." CR>)>>
|
||
|
|
||
|
<GLOBAL CLOSET-FLOOR <>> ;"starts at foyer-2"
|
||
|
|
||
|
<ROUTINE FOYER-CLOSET-ENTER-F ()
|
||
|
<COND (<NOT <FSET? ,FOYER-CD ,OPENBIT>>
|
||
|
<ITS-CLOSED ,FOYER-CD>
|
||
|
<RFALSE>)
|
||
|
(<EQUAL? ,CLOSET-FLOOR ,FOYER>
|
||
|
<RETURN ,CLOSET>)
|
||
|
(<EQUAL? ,CLOSET-FLOOR ,CELLAR>
|
||
|
<RETURN ,CLOSET-TOP-2>)
|
||
|
(T
|
||
|
<JIGS-UP
|
||
|
"You step into the shaft and plunge down a floor, landing at the bottom of the
|
||
|
shaft. As you lie in the shaft bottom regaining your wits you hear a humming
|
||
|
noise. You look up to see the closet you were expecting, slowly descending. The
|
||
|
last thing you see is the cellar door to the closet swinging shut, assuring
|
||
|
you a closed-casket service."> ;"what if you don't have light?"
|
||
|
<RFALSE>)>>
|
||
|
|
||
|
<OBJECT ARMOR
|
||
|
(IN FOYER)
|
||
|
(DESC "suit of armor")
|
||
|
(SYNONYM SUIT ARMOR)
|
||
|
(ADJECTIVE METAL STEEL)
|
||
|
(FLAGS TRYTAKEBIT)
|
||
|
(DESCFCN ARMOR-F)
|
||
|
(ACTION ARMOR-F)>
|
||
|
|
||
|
<ROUTINE ARMOR-F ("OPTIONAL" (OARG <>))
|
||
|
<COND (.OARG
|
||
|
<TELL
|
||
|
"Standing demurely in the corner is a suit or armor, somewhat reminiscent
|
||
|
of the suits of armor that once graced the castle of Winston Churchill.
|
||
|
It is currrently in the position that Masters and Johnson described as "
|
||
|
<GET ,ARMOR-DESCS ,ARMOR-DESC-NUM> ".">)
|
||
|
(<VERB? EXAMINE>
|
||
|
<ARMOR-F ,M-OBJDESC>
|
||
|
;<TELL
|
||
|
"The suit of armour " <GET ,ARMOR-DESCS ,ARMOR-DESC-NUM> "." CR>)>>
|
||
|
|
||
|
<GLOBAL ARMOR-DESC-NUM 0>
|
||
|
|
||
|
<ROUTINE I-ARMOR-MOVE ()
|
||
|
<COND (<EQUAL? ,HERE ,FOYER>
|
||
|
<QUEUE I-ARMOR-MOVE 2>)
|
||
|
(T
|
||
|
<SETG ARMOR-DESC-NUM <+ ,ARMOR-DESC-NUM 1>>
|
||
|
<COND (<EQUAL? ,ARMOR-DESC-NUM 7>
|
||
|
<SETG ARMOR-DESC-NUM 0>)>)>
|
||
|
<RFALSE>>
|
||
|
|
||
|
<GLOBAL ARMOR-DESCS
|
||
|
<TABLE
|
||
|
"Desc 0"
|
||
|
"Desc 1"
|
||
|
"Desc 2"
|
||
|
"Desc 3"
|
||
|
"Desc 4"
|
||
|
"Decs 5"
|
||
|
"Desc 6">>
|
||
|
|
||
|
"--- Cellar ---"
|
||
|
|
||
|
<ROOM CELLAR
|
||
|
(IN ROOMS)
|
||
|
(DESC "Cellar")
|
||
|
(LDESC
|
||
|
"This is the cellar. A ramp leads up to the north. There's lots of creepy
|
||
|
stuff here from the old movies.")
|
||
|
(IN PER CELLAR-CLOSET-ENTER-F)
|
||
|
(WEST PER CELLAR-CLOSET-ENTER-F)
|
||
|
;(NORTH TO BACKYARD IF WHITE-CELLAR-DOOR IS OPEN)
|
||
|
(EAST TO PANTRY)
|
||
|
(UP TO FOYER) ;"for testing only"
|
||
|
;(UP "Both the ramp and the stairs lead up. Use a direction.")
|
||
|
(GLOBAL CELLAR-RAMP STAIRS WHITE-CELLAR-DOOR CELLAR-CD CLOSET-REF)
|
||
|
(FLAGS RLANDBIT ONBIT)>
|
||
|
|
||
|
<OBJECT CELLAR-CD
|
||
|
(IN LOCAL-GLOBALS)
|
||
|
(DESC "cellar closet door")
|
||
|
(SYNONYM DOOR)
|
||
|
(ADJECTIVE CLOSET)
|
||
|
(FLAGS DOORBIT NDESCBIT)>
|
||
|
|
||
|
<OBJECT WHITE-CELLAR-DOOR ;"to backyard"
|
||
|
(IN LOCAL-GLOBALS)
|
||
|
(DESC "white cellar door")
|
||
|
(SYNONYM DOOR)
|
||
|
(ADJECTIVE WHITE)
|
||
|
(FLAGS DOORBIT NDESCBIT)>
|
||
|
|
||
|
<OBJECT CELLAR-RAMP
|
||
|
(IN LOCAL-GLOBALS)
|
||
|
(DESC "cellar ramp")
|
||
|
(SYNONYM RAMP)
|
||
|
(ADJECTIVE CELLAR)
|
||
|
(FLAGS NDESCBIT)
|
||
|
(ACTION CELLAR-RAMP-F)>
|
||
|
|
||
|
<ROUTINE CELLAR-RAMP-F ()
|
||
|
<COND (<VERB? PUSH-DOWN>
|
||
|
<MOVE-OBJ-DOWN>)>>
|
||
|
|
||
|
<ROUTINE CELLAR-CLOSET-ENTER-F ()
|
||
|
<COND (<NOT <FSET? ,CELLAR-CD ,OPENBIT>>
|
||
|
<ITS-CLOSED ,CELLAR-CD>
|
||
|
<RFALSE>)
|
||
|
(<EQUAL? ,CLOSET-FLOOR ,CELLAR>
|
||
|
<RETURN ,CLOSET>)
|
||
|
(T
|
||
|
<RETURN ,SHAFT-BOTTOM>)>>
|
||
|
|
||
|
|
||
|
"--- Upstairs Hall ---"
|
||
|
|
||
|
<ROOM UPSTAIRS-HALL
|
||
|
(IN ROOMS)
|
||
|
(DESC "Upstairs Hall")
|
||
|
(LDESC "This is the upstairs hall. Stairs lead down.")
|
||
|
(IN PER UPSTAIRS-CLOSET-ENTER-F)
|
||
|
(WEST PER UPSTAIRS-CLOSET-ENTER-F)
|
||
|
(DOWN PER TO-FOYER-F)
|
||
|
(SOUTH PER TO-FOYER-F)
|
||
|
(GLOBAL UPSTAIRS-CD CLOSET-REF FOYER-STAIRS KNUEL)
|
||
|
(FLAGS RLANDBIT ONBIT)>
|
||
|
|
||
|
<OBJECT UPSTAIRS-CD
|
||
|
(IN LOCAL-GLOBALS)
|
||
|
(DESC "upstairs closet door")
|
||
|
(SYNONYM DOOR)
|
||
|
(ADJECTIVE UPSTAIRS CLOSET)
|
||
|
(FLAGS DOORBIT NDESCBIT)>
|
||
|
|
||
|
<ROUTINE TO-FOYER-F ()
|
||
|
<COND (,RAMP
|
||
|
<TELL "You slide down the flattened stairs." CR> ;"could be funnier"
|
||
|
<RETURN ,FOYER>)
|
||
|
(T
|
||
|
<RETURN ,FOYER>)>>
|
||
|
|
||
|
<ROUTINE UPSTAIRS-CLOSET-ENTER-F ()
|
||
|
<COND (<NOT <FSET? ,UPSTAIRS-CD ,OPENBIT>>
|
||
|
<ITS-CLOSED ,UPSTAIRS-CD>
|
||
|
<RFALSE>)
|
||
|
(<EQUAL? ,CLOSET-FLOOR ,UPSTAIRS-HALL>
|
||
|
<RETURN ,CLOSET>)
|
||
|
(<EQUAL? ,CLOSET-FLOOR ,FOYER>
|
||
|
<RETURN CLOSET-TOP-3>)
|
||
|
(T
|
||
|
<JIGS-UP
|
||
|
"You step into a shaft and plunge down slowing ever so slightly as your body
|
||
|
crashes through the top of the closet then abrubtly comes to a stop on the
|
||
|
floor of the closet.">)>>
|
||
|
|
||
|
|
||
|
"--- Closet Stuff ---"
|
||
|
|
||
|
<ROOM CLOSET
|
||
|
(IN ROOMS)
|
||
|
(DESC "Closet")
|
||
|
(LDESC "This is closet with a set of coat pegs.")
|
||
|
(EAST PER CLOSET-EXIT-F)
|
||
|
(OUT PER CLOSET-EXIT-F)
|
||
|
(FLAGS RLANDBIT ONBIT)
|
||
|
(GLOBAL CLOSET-REF)>
|
||
|
|
||
|
<OBJECT CLOSET-DOOR
|
||
|
(IN CLOSET)
|
||
|
(DESC "closet door")
|
||
|
(SYNONYM DOOR)
|
||
|
(ADJECTIVE CLOSET)
|
||
|
(FLAGS DOORBIT NDESCBIT)>
|
||
|
|
||
|
<ROUTINE CLOSET-EXIT-F ("AUX" DOOR)
|
||
|
<SET DOOR <WHICH-DOOR?>>
|
||
|
<COND (<NOT <FSET? .DOOR ,OPENBIT>>
|
||
|
<ITS-CLOSED ,CLOSET-DOOR>
|
||
|
<RFALSE>)
|
||
|
(<EQUAL? ,CLOSET-FLOOR ,CELLAR>
|
||
|
<RETURN ,CELLAR>)
|
||
|
(<EQUAL? ,CLOSET-FLOOR ,FOYER>
|
||
|
<RETURN ,FOYER>)
|
||
|
(T
|
||
|
<RETURN ,UPSTAIRS-HALL>)>>
|
||
|
|
||
|
<ROUTINE WHICH-DOOR? ()
|
||
|
<COND (<EQUAL? ,CLOSET-FLOOR ,CELLAR>
|
||
|
<RETURN ,CELLAR-CD>)
|
||
|
(<EQUAL? ,CLOSET-FLOOR ,FOYER>
|
||
|
<RETURN ,FOYER-CD>)
|
||
|
(T
|
||
|
<RETURN ,UPSTAIRS-CD>)>>
|
||
|
|
||
|
;<ROUTINE CLOSET-ENTER-F ()
|
||
|
<COND (<AND <EQUAL? ,HERE ,FOYER>
|
||
|
<NOT <FSET? ,FOYER-CD ,OPENBIT>>>
|
||
|
<ITS-CLOSED ,FOYER-CD>
|
||
|
<RFALSE>)
|
||
|
(<AND <EQUAL? ,HERE ,CELLAR>
|
||
|
<NOT <FSET? ,CELLAR-CD ,OPENBIT>>>
|
||
|
<ITS-CLOSED ,CELLAR-CD>
|
||
|
<RFALSE>)
|
||
|
(<AND <EQUAL? ,HERE ,UPSTAIRS-HALL>
|
||
|
<NOT <FSET? ,UPSTAIRS-CD ,OPENBIT>>>
|
||
|
<ITS-CLOSED ,UPSTAIRS-CD>
|
||
|
<RFALSE>)
|
||
|
(<EQUAL? ,CLOSET-FLOOR ,CELLAR>
|
||
|
<COND (<EQUAL? ,HERE ,CELLAR>
|
||
|
<RETURN ,CLOSET>)
|
||
|
(<EQUAL? ,HERE ,FOYER>
|
||
|
<RETURN ,CLOSET-TOP-2>)
|
||
|
(T
|
||
|
<JIGS-UP
|
||
|
"You step into a shaft and plunge down slowing ever so slightly as
|
||
|
your body crashes through the top of the closet then abrubtly comes to a stop
|
||
|
on the floor of the closet.">
|
||
|
<RFALSE>)>)
|
||
|
(<EQUAL? ,CLOSET-FLOOR ,FOYER>
|
||
|
<COND (<EQUAL? ,HERE ,CELLAR>
|
||
|
<RETURN ,SHAFT-BOTTOM>)
|
||
|
(<EQUAL? ,HERE ,FOYER>
|
||
|
<RETURN ,CLOSET>)
|
||
|
(T
|
||
|
<RETURN ,CLOSET-TOP-3>)>)
|
||
|
(<EQUAL? ,CLOSET-FLOOR ,UPSTAIRS-HALL>
|
||
|
<COND (<EQUAL? ,HERE ,CELLAR>
|
||
|
<RETURN ,SHAFT-BOTTOM>)
|
||
|
(<EQUAL? ,HERE , FOYER>
|
||
|
<JIGS-UP
|
||
|
"You step into the shaft and plunge down a floor, landing at the bottom of the
|
||
|
shaft. As you lie in the shaft bottom regaining your wits you hear a humming
|
||
|
noise. You look up to see the closet you were expecting, slowly descending. The
|
||
|
last thing you see is the cellar door to the closet swinging shut, assuring
|
||
|
you a closed-casket service."> ;"what if you don't have light?"
|
||
|
<RFALSE>)
|
||
|
(T
|
||
|
<RETURN ,CLOSET>)>)>>
|
||
|
|
||
|
<OBJECT CLOSET-REF
|
||
|
(IN LOCAL-GLOBALS)
|
||
|
(DESC "closet")
|
||
|
(SYNONYM CLOSET)
|
||
|
(ACTION CLOSET-REF-F)>
|
||
|
|
||
|
<ROUTINE CLOSET-REF-F ()
|
||
|
<COND (<VERB? EXAMINE LOOK-INSIDE SEARCH>
|
||
|
<COND (<EQUAL? ,HERE ,FOYER>
|
||
|
<LOOK-IN-CLOSET ,FOYER-CD>)
|
||
|
(<EQUAL? ,HERE ,UPSTAIRS-HALL>
|
||
|
<LOOK-IN-CLOSET ,UPSTAIRS-CD>)
|
||
|
(T
|
||
|
<LOOK-IN-CLOSET ,CELLAR-CD>)>
|
||
|
<RTRUE>)
|
||
|
(T
|
||
|
<RFALSE>)>>
|
||
|
|
||
|
<ROUTINE LOOK-IN-CLOSET (DOOR)
|
||
|
<COND (<NOT <FSET? .DOOR ,OPENBIT>>
|
||
|
<ITS-CLOSED .DOOR>)
|
||
|
(<EQUAL? ,CLOSET-FLOOR ,HERE>
|
||
|
<TELL "You see ">
|
||
|
<DESCRIBE-CONTENTS ,CLOSET -1>
|
||
|
<TELL "." CR>)
|
||
|
(T
|
||
|
<TELL "You see a dark shaft." CR>)>> ;"or elevator top"
|
||
|
|
||
|
|
||
|
"--- Peg Stuff ---"
|
||
|
|
||
|
<OBJECT PEGS
|
||
|
(IN CLOSET)
|
||
|
(DESC "set of coat pegs")
|
||
|
(SYNONYM PEGS)
|
||
|
(ADJECTIVE COAT)
|
||
|
(FLAGS NDESCBIT)
|
||
|
(ACTION PEGS-F)>
|
||
|
|
||
|
<ROUTINE PEGS-F ()
|
||
|
<COND (<VERB? EXAMINE>
|
||
|
<TELL "You see three rather worn coat pegs." CR>
|
||
|
<RTRUE>)
|
||
|
(T
|
||
|
<RFALSE>)>>
|
||
|
|
||
|
<OBJECT PEG-3
|
||
|
(IN CLOSET)
|
||
|
(DESC "third peg")
|
||
|
(SYNONYM PEG)
|
||
|
(ADJECTIVE THIRD)
|
||
|
(FLAGS NDESCBIT)
|
||
|
(ACTION PEG-3-F)>
|
||
|
|
||
|
<ROUTINE PEG-3-F ()
|
||
|
<COND (<VERB? MOVE PULL PUSH RAISE LOWER RUB>
|
||
|
<COND (<EQUAL? ,CLOSET-FLOOR ,UPSTAIRS-HALL>
|
||
|
<HUM>)
|
||
|
(T
|
||
|
<TELL "The closet moves up ">
|
||
|
<COND (<EQUAL? ,CLOSET-FLOOR ,FOYER>
|
||
|
<TELL "a floor">)
|
||
|
(T
|
||
|
<TELL "two floors">)>
|
||
|
<TELL " to the upstairs hall." CR>
|
||
|
<SETG CLOSET-FLOOR ,UPSTAIRS-HALL>)>
|
||
|
<COND (<FSET? ,UPSTAIRS-CD ,OPENBIT>
|
||
|
<FSET ,CLOSET-DOOR ,OPENBIT>)
|
||
|
(T
|
||
|
<FCLEAR ,CLOSET-DOOR ,OPENBIT>)>
|
||
|
<RTRUE>)
|
||
|
(T
|
||
|
<RFALSE>)>>
|
||
|
|
||
|
<OBJECT PEG-2
|
||
|
(IN CLOSET)
|
||
|
(DESC "second peg")
|
||
|
(SYNONYM PEG)
|
||
|
(ADJECTIVE SECOND)
|
||
|
(FLAGS NDESCBIT)
|
||
|
(ACTION PEG-2-F)>
|
||
|
|
||
|
<ROUTINE PEG-2-F ()
|
||
|
<COND (<VERB? MOVE PULL PUSH RAISE LOWER RUB>
|
||
|
<COND (<EQUAL? ,CLOSET-FLOOR ,FOYER>
|
||
|
<HUM>)
|
||
|
(T
|
||
|
<TELL "The closet moves ">
|
||
|
<COND (<EQUAL? ,CLOSET-FLOOR ,UPSTAIRS-HALL>
|
||
|
<TELL "down a floor">)
|
||
|
(T
|
||
|
<TELL "up a floor">)>
|
||
|
<TELL " to the front hall." CR>
|
||
|
<SETG CLOSET-FLOOR ,FOYER>)>
|
||
|
<COND (<FSET? ,FOYER-CD ,OPENBIT>
|
||
|
<FSET CLOSET-DOOR ,OPENBIT>)
|
||
|
(T
|
||
|
<FCLEAR ,CLOSET-DOOR ,OPENBIT>)>
|
||
|
<RTRUE>)
|
||
|
(T
|
||
|
<RFALSE>)>>
|
||
|
|
||
|
<OBJECT PEG-1
|
||
|
(IN CLOSET)
|
||
|
(DESC "first peg")
|
||
|
(SYNONYM PEG)
|
||
|
(ADJECTIVE FIRST)
|
||
|
(FLAGS NDESCBIT)
|
||
|
(ACTION PEG-1-F)>
|
||
|
|
||
|
<ROUTINE PEG-1-F ()
|
||
|
<COND (<VERB? MOVE PULL PUSH RAISE LOWER RUB>
|
||
|
<COND (<EQUAL? ,CLOSET-FLOOR ,CELLAR>
|
||
|
<HUM>)
|
||
|
(T
|
||
|
<TELL "The closet moves down ">
|
||
|
<COND (<EQUAL? ,CLOSET-FLOOR ,FOYER>
|
||
|
<TELL "a floor">)
|
||
|
(T
|
||
|
<TELL "two floors">)>
|
||
|
<TELL " to the cellar." CR>
|
||
|
<SETG CLOSET-FLOOR ,CELLAR>)>
|
||
|
<COND (<FSET? ,CELLAR-CD ,OPENBIT>
|
||
|
<FSET CLOSET-DOOR ,OPENBIT>)
|
||
|
(T
|
||
|
<FCLEAR ,CLOSET-DOOR ,OPENBIT>)>
|
||
|
<RTRUE>)
|
||
|
(T
|
||
|
<RFALSE>)>>
|
||
|
|
||
|
<ROUTINE HUM ()
|
||
|
<TELL "You hear a humming noise." CR>>
|
||
|
|
||
|
|
||
|
"--- Elevator Rooms ---"
|
||
|
|
||
|
<ROOM SHAFT-BOTTOM
|
||
|
(IN ROOMS)
|
||
|
(DESC "Shaft Bottom")
|
||
|
(LDESC "This is the shaft bottom.")
|
||
|
(EAST TO CELLAR IF CELLAR-CD IS OPEN)
|
||
|
(OUT TO CELLAR IF CELLAR-CD IS OPEN)
|
||
|
(GLOBAL CELLAR-CD)
|
||
|
(FLAGS RLANDBIT)>
|
||
|
|
||
|
<ROOM CLOSET-TOP-2
|
||
|
(IN ROOMS)
|
||
|
(DESC "Top of Closet")
|
||
|
(LDESC "You are on top of the closet.")
|
||
|
(EAST TO FOYER IF FOYER-CD IS OPEN)
|
||
|
(OUT TO FOYER IF FOYER-CD IS OPEN)
|
||
|
(GLOBAL FOYER-CD)
|
||
|
(FLAGS RLANDBIT ONBIT)>
|
||
|
|
||
|
<ROOM CLOSET-TOP-3
|
||
|
(IN ROOMS)
|
||
|
(DESC "Top of Closet")
|
||
|
(LDESC "You are on top of the closet.")
|
||
|
(EAST TO UPSTAIRS-HALL IF UPSTAIRS-CD IS OPEN)
|
||
|
(OUT TO UPSTAIRS-HALL IF UPSTAIRS-CD IS OPEN)
|
||
|
(GLOBAL UPSTAIRS-CD)
|
||
|
(FLAGS RLANDBIT ONBIT)>
|
||
|
|
||
|
|
||
|
"--- Living room ---"
|
||
|
|
||
|
<ROOM LIVING-ROOM
|
||
|
(IN ROOMS)
|
||
|
(DESC "Living Room")
|
||
|
(LDESC "This is the living room. It has a high ceiling. There is a
|
||
|
fireplace and a chandelier here.")
|
||
|
(FLAGS RLANDBIT ONBIT)
|
||
|
(NORTH TO KITCHEN)
|
||
|
(EAST TO FOYER)>
|
||
|
|
||
|
;<OBJECT CHANDELIER
|
||
|
(IN LIVING-ROOM)
|
||
|
(DESC "antique chandelier")
|
||
|
(SYNONYM CHANDELIER)
|
||
|
(ADJECTIVE ANTIQUE)
|
||
|
(FLAGS NDESCBIT)
|
||
|
(ACTION CHANDELIER-F)>
|
||
|
|
||
|
;<ROUTINE CHANDELIER-F ()
|
||
|
<COND (<VERB? EXAMINE>
|
||
|
<TELL "With the light from">
|
||
|
<COND (<AND <HELD? ,FLASHLIGHT>
|
||
|
<FSET? ,FLASHLIGHT ,ONBIT>>
|
||
|
<TELL T ,FLASHLIGHT>)
|
||
|
(T
|
||
|
<TELL "flame">)>
|
||
|
<TELL
|
||
|
"you can see" T ,CHANDELIER " is made of cut glass with many
|
||
|
thing-a-ma-gigs that hang from a chandelier hanging from the bowl of the
|
||
|
chandelier.">
|
||
|
<COND (<AND <HELD? ,FLASHLIGHT>
|
||
|
<FSET? ,FLASHLIGHT ,ONBIT>>
|
||
|
<TELL
|
||
|
" As you pan" T ,CHANDELIER " you notice something in the bowl of the
|
||
|
chandelier." CR>)
|
||
|
(T
|
||
|
<TELL
|
||
|
"Its true beauty cannot be seen in this light." CR>)>)>
|
||
|
;(<AND <VERB? SHOOT>
|
||
|
<PRSI? ,POKER>>
|
||
|
<SHATTER>)>
|
||
|
|
||
|
;<ROUTINE SHATTER ()
|
||
|
<TELL
|
||
|
"You put the poker between the strings of the harp, pull back and fire it.
|
||
|
The poker rockets up and across the living room striking the bowl of the
|
||
|
chandelier shattering it. Pieces of glass fall to the ground along with
|
||
|
a piece of paper." CR>
|
||
|
<REMOVE ,BOWL>
|
||
|
;<MOVE ,VERTICAL-MAP ,LIVING-ROOM>>
|
||
|
|
||
|
<OBJECT VERTICAL-MAP
|
||
|
(IN FRONT-JUNCTION)
|
||
|
(DESC "yellowed piece of paper")
|
||
|
(SYNONYM PAPER MAP)
|
||
|
(ADJECTIVE WHITE YELLOWED)
|
||
|
(FLAGS TAKEBIT)
|
||
|
(SIZE 1)
|
||
|
(ACTION VERTICAL-MAP-F)>
|
||
|
|
||
|
0<ROUTINE VERTICAL-MAP-F ()
|
||
|
<COND (<VERB? READ EXAMINE>
|
||
|
%<COND (<GASSIGNED? ZILCH>
|
||
|
'<TELL "You see the following:~
|
||
|
|
||
|
| | | | | | |~
|
||
|
| | | | | | | | | | | | | | | |~
|
||
|
| | | | | | | | | | |~
|
||
|
| | | | | | | | | | |~
|
||
|
| | | | | | | | | | | | | | |~
|
||
|
| | | | | | | | | | | |~
|
||
|
| | | | | | | | | | | | | | | |~
|
||
|
| | | | | | | | | | | | | | |~
|
||
|
| | | | | | | | | |~
|
||
|
| | | | | | | |~
|
||
|
| | | | | | | | |~
|
||
|
| | | | | | | | | | | | | | | |~
|
||
|
| | | | | | | | | | | | | | | |~
|
||
|
| | | | | | | | | | | |~
|
||
|
| | | | | | | | | | | | | | |~
|
||
|
| | | | | | | | | | |~
|
||
|
| | | | | | | | | | |~
|
||
|
| | | | | | | | | | | | | | | |~
|
||
|
| | | | | | |~" CR>)
|
||
|
(T
|
||
|
<TELL "You see the following:
|
||
|
|
||
|
| | | | | | |
|
||
|
| | | | | | | | | | | | | | | |
|
||
|
| | | | | | | | | | |
|
||
|
| | | | | | | | | | |
|
||
|
| | | | | | | | | | | | | | |
|
||
|
| | | | | | | | | | | |
|
||
|
| | | | | | | | | | | | | | | |
|
||
|
| | | | | | | | | | | | | | |
|
||
|
| | | | | | | | | |
|
||
|
| | | | | | | |
|
||
|
| | | | | | | | |
|
||
|
| | | | | | | | | | | | | | | |
|
||
|
| | | | | | | | | | | | | | | |
|
||
|
| | | | | | | | | | | |
|
||
|
| | | | | | | | | | | | | | |
|
||
|
| | | | | | | | | | |
|
||
|
| | | | | | | | | | |
|
||
|
| | | | | | | | | | | | | | | |
|
||
|
| | | | | | |">)>)
|
||
|
(<VERB? PUT-ON>
|
||
|
<WHOLE-MAP>)>>
|
||
|
|
||
|
<OBJECT HORIZONTAL-MAP
|
||
|
(IN FRONT-JUNCTION)
|
||
|
(DESC "soiled piece of paper")
|
||
|
(SYNONYM MAP PAPER)
|
||
|
(ADJECTIVE PAPER SOILED)
|
||
|
(FLAGS TAKEBIT READBIT)
|
||
|
(SIZE 1)
|
||
|
(ACTION HORIZONTAL-MAP-F)>
|
||
|
|
||
|
<ROUTINE HORIZONTAL-MAP-F ()
|
||
|
<COND (<VERB? READ EXAMINE>
|
||
|
%<COND (<GASSIGNED? ZILCH>
|
||
|
'<TELL "You see the following:~
|
||
|
|
||
|
_______________________________________~
|
||
|
_____ __ ___ __~
|
||
|
____ __ ___ _~
|
||
|
____ ___ ___ _______ ___~
|
||
|
____ ___ __ ___~
|
||
|
____ _ _ ___~
|
||
|
________ __ ___~
|
||
|
___ __~
|
||
|
__ __ _ __ ___ ___~
|
||
|
_ _______ x _______ ______~
|
||
|
_____________ _ _ ______ ___~
|
||
|
____ _____ __ __ ___ __~
|
||
|
___~
|
||
|
__ _____ ___~
|
||
|
___ __ _____~
|
||
|
_ _ ___ ____~
|
||
|
___ _____ ________ ____~
|
||
|
_____ ___ ____~
|
||
|
_ __ _ ____~
|
||
|
___ ____ _________ __ ___ ___ _______~" CR>)
|
||
|
(T
|
||
|
<TELL "You see the following:
|
||
|
_______________________________________
|
||
|
_____ __ ___ __
|
||
|
____ __ ___ _
|
||
|
____ ___ ___ _______ ___
|
||
|
____ ___ __ ___
|
||
|
____ _ _ ___
|
||
|
________ __ ___
|
||
|
___ __
|
||
|
__ __ _ __ ___ ___
|
||
|
_ _______ _______ ______
|
||
|
_____________ _ _ ______ ___
|
||
|
____ _____ __ __ ___ __
|
||
|
___
|
||
|
__ _____ ___
|
||
|
___ __ _____
|
||
|
_ _ ___ ____
|
||
|
___ _____ ________ ____
|
||
|
_____ ___ ____
|
||
|
_ __ _ ____
|
||
|
___ ____ _________ __ ___ ___ _______ ">)>)
|
||
|
(<VERB? PUT-ON>
|
||
|
<WHOLE-MAP>)>>
|
||
|
|
||
|
<ROUTINE WHOLE-MAP ()
|
||
|
<TELL "You see the following:~
|
||
|
|
||
|
_______________________________________~
|
||
|
| _____ | | | __ ___ | __ | |~
|
||
|
|____ | | | | | | | |__| |___|_ | | | |~
|
||
|
| ____| | |___|___| | _______ | |___| |~
|
||
|
|____ | | | ___ __| | ___ | | | | |~
|
||
|
| ____|_ _| | ___ | | | | | | | | | | |~
|
||
|
| | ________|__ ___ | | | | | | | | |~
|
||
|
| | | | ___ | | __| | | | | | | | | |~
|
||
|
| | | | |__ __| |_| __| |___| | | |___|~
|
||
|
| | | |_| _______ |x| |_______|______ |~
|
||
|
| |_____________|_|_| |______ ___ | |~
|
||
|
|____ | _____ | __|__ ___ __| | | | |~
|
||
|
| | | | | | | | | | | ___ | | | | |~
|
||
|
| | | | | | | | | | __| |_____|___| | |~
|
||
|
| | | | | | | | | ___ | __ _____| |~
|
||
|
| | | | | | |_| | |_| ___ | | | ____|~
|
||
|
| |___| | |_____| | ________| | |____ |~
|
||
|
| | | |_____ ___| | | | | | ____|~
|
||
|
| | | |_ | __| | _| | | | | | | |____ |~
|
||
|
|___|____|_________ __|___|___|_______|~">>
|
||
|
|
||
|
|
||
|
<OBJECT BOWL
|
||
|
(IN LIVING-ROOM)
|
||
|
(DESC "chandelier bowl")
|
||
|
(SYNONYM BOWL)
|
||
|
(ADJECTIVE CHANDELIER)
|
||
|
(FLAGS NDESCBIT)
|
||
|
(ACTION BOWL-F)>
|
||
|
|
||
|
<ROUTINE BOWL-F ()
|
||
|
<COND (<VERB? EXAMINE>
|
||
|
<COND (<AND <HELD? ,FLASHLIGHT>
|
||
|
<FSET? ,FLASHLIGHT ,ONBIT>>
|
||
|
<TELL
|
||
|
"You shine your light on the bowl of the chandelier. Its thick, slick surface,
|
||
|
covered with a rose-like pattern, reflects a rose colored light around the
|
||
|
room. You can see a square shape in the bottom of the bowl." CR>)
|
||
|
(T
|
||
|
<TELL
|
||
|
"The light from the flame reflects off the thick, slick surface of the
|
||
|
chandelier's bowl. You can barely make out a rose-like pattern on the bowl."
|
||
|
CR>)>)
|
||
|
;(<AND <VERB? SHOOT>
|
||
|
<PRSI? ,POKER>>
|
||
|
<SHATTER>)>>
|
||
|
|
||
|
|
||
|
"--- Kitchen ---"
|
||
|
|
||
|
<ROOM KITCHEN
|
||
|
(IN ROOMS)
|
||
|
(DESC "Kitchen")
|
||
|
(LDESC "This is the kitchen. South to exit. The pantry is to the west.")
|
||
|
(FLAGS RLANDBIT ONBIT)
|
||
|
(WEST TO PANTRY)
|
||
|
(SOUTH TO LIVING-ROOM)>
|
||
|
|
||
|
<ROOM PANTRY
|
||
|
(IN ROOMS)
|
||
|
(DESC "Pantry")
|
||
|
(LDESC
|
||
|
"This is the pantry. A doorway leads east and stairs lead down." CR)
|
||
|
(SYNONYM PANTRY)
|
||
|
(ADJECTIVE SMALL)
|
||
|
(DOWN TO CELLAR)
|
||
|
(WEST TO CELLAR)
|
||
|
(EAST TO KITCHEN)
|
||
|
(FLAGS DOORBIT NDESCBIT)
|
||
|
(GLOBAL STAIRS)>
|
||
|
|
||
|
"--- Game Room ---"
|
||
|
|
||
|
<ROOM GAME-ROOM
|
||
|
(IN ROOMS)
|
||
|
(DESC "Game Room")
|
||
|
(LDESC "The focus of this room is a hand-carved, teak pool table.
|
||
|
Strange, but the 8 ball is set apart from the rest. A stained glass,
|
||
|
rectangular light illuminates the pool table top. Shelves on the east wall
|
||
|
hold an assortment of games. A somewhat archaic record player is in a teak
|
||
|
cabinet on the north wall. Doorways lead north and south.")
|
||
|
(FLAGS RLANDBIT ONBIT)
|
||
|
(NORTH TO PATIO)
|
||
|
(SOUTH TO FOYER)>
|
||
|
|
||
|
<OBJECT 8-BALL
|
||
|
(IN LIVING-ROOM)
|
||
|
(DESC "eight ball")
|
||
|
(SYNONYM BALL)
|
||
|
(ADJECTIVE BLACK EIGHT)
|
||
|
(FLAGS TAKEBIT NDESCBIT VOWELBIT)
|
||
|
(SIZE 5)
|
||
|
(ACTION 8-BALL-F)>
|
||
|
|
||
|
<ROUTINE 8-BALL-F ()
|
||
|
<COND (<VERB? TURN>
|
||
|
<TELL
|
||
|
"Looking into the bottom of the eight ball you the message" "\""
|
||
|
<PICK-ONE ,EIGHTISMS> ".\"" CR>
|
||
|
<RTRUE>)>>
|
||
|
|
||
|
<GLOBAL EIGHTISMS
|
||
|
<LTABLE 0
|
||
|
"No tap dancing in the fish pond"
|
||
|
"Hollywood was here"
|
||
|
"Never lick a gift whore in the mouth"
|
||
|
"What do you think this is, 'Dark Shadows'?"
|
||
|
"Look behind the painting in the bedroom">>
|
||
|
|
||
|
|
||
|
"--- Pool Table ---"
|
||
|
|
||
|
<OBJECT POOL-TABLE
|
||
|
(IN GAME-ROOM)
|
||
|
(DESC "pool table")
|
||
|
(SYNONYM TABLE)
|
||
|
(ADJECTIVE POOL)
|
||
|
(FLAGS SURFACEBIT CONTBIT OPENBIT SEARCHBIT)
|
||
|
(CAPACITY 100)
|
||
|
(ACTION POOL-TABLE-F)>
|
||
|
|
||
|
<ROUTINE POOL-TABLE-F ()
|
||
|
<COND (<VERB? EXAMINE>
|
||
|
<TELL
|
||
|
"The pool table is made of the finest wood and on the table is">
|
||
|
<DESCRIBE-SENT ,POOL-TABLE>
|
||
|
<CRLF>)>>
|
||
|
|
||
|
<OBJECT POCKET
|
||
|
(IN GAME-ROOM)
|
||
|
(DESC "ball pocket")
|
||
|
(SYNONYM POCKET)
|
||
|
(ADJECTIVE BALL POOL TABLE SIDE CORNER)
|
||
|
(FLAGS CONTBIT OPENBIT NDESCBIT SEARCHBIT)
|
||
|
(CAPACITY 5)
|
||
|
;(ACTION POCKET-F)>
|
||
|
|
||
|
;<ROUTINE POCKET-F ()
|
||
|
<RFALSE>>
|
||
|
|
||
|
<OBJECT BALL-RETURN
|
||
|
(IN GAME-ROOM)
|
||
|
(DESC "ball return")
|
||
|
(SYNONYM RETURN)
|
||
|
(ADJECTIVE BALL)
|
||
|
(FLAGS CONTBIT OPENBIT NDESCBIT SEARCHBIT)
|
||
|
(CAPACITY 5) ;"HUMMMMM"
|
||
|
;(ACTION BALL-RETURN-F)>
|
||
|
|
||
|
;<ROUTINE BALL-RETURN-F ()>
|
||
|
|
||
|
<OBJECT CUE-BALL
|
||
|
(IN POOL-TABLE)
|
||
|
(DESC "cue ball")
|
||
|
(SYNONYM BALL)
|
||
|
(ADJECTIVE WHITE CUE)
|
||
|
(FLAGS TAKEBIT)
|
||
|
(SIZE 5)
|
||
|
(ACTION CUE-BALL-F)>
|
||
|
|
||
|
<ROUTINE CUE-BALL-F ()
|
||
|
<COND (<AND <VERB? PUT DROP SHOOT>
|
||
|
<PRSI? ,POCKET>>
|
||
|
<COND (<VERB? SHOOT>
|
||
|
<COND (<NOT <HELD? ,POOL-CUE>>
|
||
|
<TELL
|
||
|
"You're not holding" TR ,POOL-CUE>
|
||
|
<RTRUE>)
|
||
|
(<NOT <IN? ,CUE-BALL ,POOL-TABLE>>
|
||
|
<TELL
|
||
|
"The " D ,CUE-BALL " isn't on" TR ,POOL-TABLE>)
|
||
|
(T
|
||
|
<TELL
|
||
|
"The ball speeds across the smooth, green surface into" T ,POCKET ". You">)>)
|
||
|
(T
|
||
|
<TELL "You ">
|
||
|
<PRINTB ,P-PRSA-WORD>
|
||
|
<TELL T ,CUE-BALL " in" T ,POCKET " and">)>
|
||
|
<TELL
|
||
|
" hear it roll towards" T ,BALL-RETURN ". As" T ,CUE-BALL " drops into the
|
||
|
return, a panel on the east wall swings open." CR>
|
||
|
;<FSET ,PANEL ,OPENBIT>
|
||
|
<MOVE ,CUE-BALL ,BALL-RETURN>)>>
|
||
|
|
||
|
<OBJECT RACKED-BALLS
|
||
|
(IN POOL-TABLE)
|
||
|
(DESC "racked balls")
|
||
|
(SYNONYM BALLS)
|
||
|
(ADJECTIVE RACKED)
|
||
|
(FLAGS TAKEBIT NARTICLEBIT)
|
||
|
(SIZE 40)
|
||
|
(ACTION RACKED-BALLS-F)>
|
||
|
|
||
|
<ROUTINE RACKED-BALLS-F ()
|
||
|
<COND (<VERB? EXAMINE>
|
||
|
<TELL "You see a set of pool balls ">
|
||
|
<COND (<HELD? ,RACKED-BALLS>
|
||
|
<TELL "all glued to one another ">)>
|
||
|
<TELL "in a triangle shape." CR>)>>
|
||
|
|
||
|
<OBJECT RACK
|
||
|
(IN GAME-ROOM)
|
||
|
(DESC "rack")
|
||
|
(SYNONYM RACK)
|
||
|
(ADJECTIVE POOL)
|
||
|
(FLAGS TAKEBIT)
|
||
|
(SIZE 5)>
|
||
|
|
||
|
<OBJECT POOL-CUE
|
||
|
(IN GAME-ROOM)
|
||
|
(DESC "pool cue")
|
||
|
(SYNONYM CUE STICK)
|
||
|
(ADJECTIVE POOL)
|
||
|
(FLAGS TAKEBIT)
|
||
|
(SIZE 15)>
|
||
|
|
||
|
|
||
|
"--- Misc ---"
|
||
|
|
||
|
<ROUTINE I-LIGHTS-DIM ()
|
||
|
<COND (<FSET? ,HERE ,OUTDOORSBIT>
|
||
|
<TELL
|
||
|
"The sun is rapidly sinking into west. It's getting dark out here." CR>)
|
||
|
(T
|
||
|
<COND (<FSET? ,HERE ,ONBIT>
|
||
|
<TELL
|
||
|
"The sun is going down. It's getting dark in here." CR>)>)>
|
||
|
<QUEUE I-LIGHTS-OUT 10>>
|
||
|
|
||
|
<ROUTINE I-LIGHTS-OUT ()
|
||
|
<FCLEAR ,FOYER, ONBIT>
|
||
|
<FCLEAR ,CLOSET ,ONBIT>
|
||
|
<FCLEAR ,CELLAR, ONBIT>
|
||
|
<TELL "The sun has set. ">
|
||
|
<SETG LIT <LIT? ,HERE>>
|
||
|
<COND (<NOT ,LIT>
|
||
|
<TOO-DARK>)
|
||
|
(T
|
||
|
<CRLF>)>>
|
||
|
|
||
|
|
||
|
<OBJECT SACK
|
||
|
(DESC "cloth sack")
|
||
|
(SYNONYM TOP SACK BAG)
|
||
|
(ADJECTIVE CLOTH)
|
||
|
(FLAGS TAKEBIT CONTBIT)
|
||
|
(SIZE 20)
|
||
|
;(ACTION SACK-F)>
|
||
|
|
||
|
;<ROUTINE SACK-F ()
|
||
|
<COND (<VERB? EXAMINE>
|
||
|
<TELL "">)>>
|
||
|
|
||
|
<OBJECT WINDOW
|
||
|
(IN LIVING-ROOM)
|
||
|
(DESC "window")
|
||
|
(SYNONYM WINDOW)
|
||
|
(FLAGS NDESCBIT RMUNGBIT) ;"rmung: means you are holding sack top"
|
||
|
(ACTION WINDOW-F)>
|
||
|
|
||
|
<GLOBAL SACK-IN-WINDOW T>
|
||
|
|
||
|
<ROUTINE WINDOW-F ()
|
||
|
<COND (<VERB? EXAMINE>
|
||
|
<COND (<AND ,SACK-IN-WINDOW
|
||
|
<NOT <FSET? ,WINDOW ,OPENBIT>>>
|
||
|
<TELL
|
||
|
"The window is closed on a cloth which is tied in a knot. " CR>)
|
||
|
;"Underneath the closed D ,WINDOW you see the top of a cloth tied in a knot."
|
||
|
;"Beneath the sash of the closed D ,WINDOW is a cloth tied in a knot. The rest of the cloth is outside."
|
||
|
|
||
|
(T
|
||
|
<TELL "The " D ,WINDOW " is ">
|
||
|
<COND (<FSET? ,WINDOW ,OPENBIT>
|
||
|
<TELL "open.">)
|
||
|
(T
|
||
|
<TELL "closed">)>
|
||
|
<TELL "." CR>)>)
|
||
|
(<VERB? OPEN>
|
||
|
<COND (<FSET? ,WINDOW ,OPENBIT>
|
||
|
<ALREADY-OPEN>)
|
||
|
(,SACK-IN-WINDOW
|
||
|
<TELL
|
||
|
"As you lift up the window, the sack slides off the window ceil and falls to
|
||
|
the ground with a decided thud." CR>
|
||
|
<FSET ,WINDOW ,OPENBIT>
|
||
|
<SETG SACK-IN-WINDOW <>>)
|
||
|
(<FSET? ,WINDOW ,RMUNGBIT> ;"rmung: you are holding sack"
|
||
|
<TELL
|
||
|
"With one hand you lift the window and with the other you pull the sack inside.
|
||
|
" CR>
|
||
|
<MOVE ,SACK ,PLAYER>
|
||
|
<FSET? ,WINDOW ,OPENBIT>
|
||
|
<SETG SACK-IN-WINDOW <>>)
|
||
|
(T
|
||
|
<TELL "You open the window." CR>
|
||
|
<FSET ,WINDOW ,OPENBIT>
|
||
|
<SETG SACK-IN-WINDOW <>>)>)
|
||
|
(<VERB? CLOSE>
|
||
|
<COND (<NOT <FSET? ,WINDOW ,OPENBIT>>
|
||
|
<ALREADY-CLOSED>)
|
||
|
(T
|
||
|
<TELL "You close" TR ,WINDOW>)>)>>
|
||
|
|
||
|
"--- Junk Yard ---"
|
||
|
|
||
|
;<OBJECT HARP
|
||
|
(IN LIVING-ROOM)
|
||
|
(DESC "harp")
|
||
|
(SYNONYM HARP)
|
||
|
(ADJECTIVE PRETTY)
|
||
|
(FLAGS TRYTAKEBIT NDESCBIT)
|
||
|
(SIZE 80)
|
||
|
(ACTION HARP-F)>
|
||
|
|
||
|
;<ROUTINE HARP-F ()
|
||
|
<COND (<VERB? TAKE>
|
||
|
<SPINACH>)
|
||
|
(<VERB? EXAMINE>
|
||
|
<TELL
|
||
|
"The harp is made of a fine wood and covered with dust as are the strings."
|
||
|
CR>)
|
||
|
(<VERB? PLAY>
|
||
|
<TELL
|
||
|
"You begin to pluck the strings. The sound is somewhat like a piano being
|
||
|
pushed down 20 flights of stairs. Its obvious you didn't spend your summers
|
||
|
here practicing the harp." CR>)>>
|
||
|
|
||
|
<OBJECT THE-ROOM
|
||
|
(IN ROOMS)
|
||
|
(DESC "Room")
|
||
|
(FLAGS ONBIT RLANDBIT)
|
||
|
(NORTH TO OTHER-ROOM)
|
||
|
(NE TO OTHER-ROOM)
|
||
|
(EAST TO OTHER-ROOM)
|
||
|
(SE TO OTHER-ROOM)
|
||
|
(SOUTH TO OTHER-ROOM)
|
||
|
(SW TO OTHER-ROOM)
|
||
|
(WEST TO OTHER-ROOM)
|
||
|
(NW TO OTHER-ROOM)
|
||
|
(IN TO OTHER-ROOM)
|
||
|
(OUT TO OTHER-ROOM)
|
||
|
(UP TO OTHER-ROOM)
|
||
|
(DOWN TO OTHER-ROOM)>
|
||
|
|
||
|
<OBJECT OTHER-ROOM
|
||
|
(IN ROOMS)
|
||
|
(DESC "Room")
|
||
|
(FLAGS ONBIT RLANDBIT)
|
||
|
(NORTH TO THE-ROOM)
|
||
|
(NE TO THE-ROOM)
|
||
|
(EAST TO THE-ROOM)
|
||
|
(SE TO THE-ROOM)
|
||
|
(SOUTH TO THE-ROOM)
|
||
|
(SW TO THE-ROOM)
|
||
|
(WEST TO THE-ROOM)
|
||
|
(NW TO THE-ROOM)
|
||
|
(IN TO THE-ROOM)
|
||
|
(OUT TO THE-ROOM)
|
||
|
(UP TO THE-ROOM)
|
||
|
(DOWN TO THE-ROOM)>
|
||
|
|
||
|
|
||
|
|
||
|
|