Commit 04b1ca0d authored by Jesse McGrew's avatar Jesse McGrew
Browse files

advent.zil: Clarified the description of the sewer pipes.

Added response for putting things in the sewer pipes.
Added response for watering the plant from outside the pit.
Added response for putting the bird in the water.
The stream responds to RESERVOIR (and not RIVER).
parent 822437f3c85e
...@@ -326,7 +326,7 @@ A small stream flows out of the building and down a gully.") ...@@ -326,7 +326,7 @@ A small stream flows out of the building and down a gully.")
<OBJECT STREAM <OBJECT STREAM
(DESC "stream") (DESC "stream")
(IN LOCAL-GLOBALS) (IN LOCAL-GLOBALS)
(SYNONYM STREAM WATER ;BROOK RIVER LAKE ;RESERVOIR) (SYNONYM STREAM WATER ;BROOK ;RIVER LAKE RESERVOIR)
(ADJECTIVE SMALL TUMBLING SPLASHING BABBLING RUSHING) (ADJECTIVE SMALL TUMBLING SPLASHING BABBLING RUSHING)
(ACTION STREAM-F) (ACTION STREAM-F)
(FLAGS SPRINGBIT)> (FLAGS SPRINGBIT)>
...@@ -352,6 +352,10 @@ A small stream flows out of the building and down a gully.") ...@@ -352,6 +352,10 @@ A small stream flows out of the building and down a gully.")
(<PRSO? ,BOTTLE> (<PRSO? ,BOTTLE>
<PERFORM ,V?FILL-WITH ,BOTTLE ,STREAM> <PERFORM ,V?FILL-WITH ,BOTTLE ,STREAM>
<RTRUE>) <RTRUE>)
(<PRSO? ,LITTLE-BIRD>
<FSET ,WICKER-CAGE ,OPENBIT>
<MOVE ,LITTLE-BIRD ,HERE>
<TELL CT ,LITTLE-BIRD " splashes cheerfully, then flies out of the water." CR>)
(ELSE (ELSE
<REMOVE ,PRSO> <REMOVE ,PRSO>
<TELL CT ,PRSO " wash"> <TELL CT ,PRSO " wash">
...@@ -455,9 +459,15 @@ There is a building in the distance.") ...@@ -455,9 +459,15 @@ There is a building in the distance.")
(IN INSIDE-BUILDING) (IN INSIDE-BUILDING)
(SYNONYM PAIR PIPES PIPE) (SYNONYM PAIR PIPES PIPE)
(ADJECTIVE PAIR FOOT DIAMETER SEWER) (ADJECTIVE PAIR FOOT DIAMETER SEWER)
(TEXT "Too small. The only exit is to the west.") (TEXT "Too small to fit inside.")
(ACTION SEWER-PIPES-F)
(FLAGS NDESCBIT)> (FLAGS NDESCBIT)>
<ROUTINE SEWER-PIPES-F ()
<COND (<AND <VERB? PUT-IN> <PRSI? ,SEWER-PIPES>>
<PERFORM ,V?PUT-IN ,PRSO ,STREAM>
<RTRUE>)>>
<OBJECT SET-OF-KEYS <OBJECT SET-OF-KEYS
(DESC "set of keys") (DESC "set of keys")
(SYNONYM KEY KEYS KEYRING SET) (SYNONYM KEY KEYS KEYRING SET)
...@@ -1956,7 +1966,9 @@ There is a large hole in the wall above the pit at the end of this room.") ...@@ -1956,7 +1966,9 @@ There is a large hole in the wall above the pit at the end of this room.")
<COND (<VERB? EXAMINE> <DESCRIBE-PLANT-STICKING-UP>) <COND (<VERB? EXAMINE> <DESCRIBE-PLANT-STICKING-UP>)
(<AND <VERB? CLIMB> <=? ,PLANT-HEIGHT ,HUGE-HEIGHT>> (<AND <VERB? CLIMB> <=? ,PLANT-HEIGHT ,HUGE-HEIGHT>>
<PERFORM ,V?CLIMB ,PLANT> <PERFORM ,V?CLIMB ,PLANT>
<RTRUE>)>> <RTRUE>)
(<VERB? WATER OIL>
<TELL "You can't aim well enough from here." CR>)>>
<OBJECT HOLE-ABOVE-PIT-WEST <OBJECT HOLE-ABOVE-PIT-WEST
(DESC "hole above pit") (DESC "hole above pit")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment