20 lines
816 B
Scheme
20 lines
816 B
Scheme
(import world)
|
|
|
|
(create-object 'garden "A Well-Kept Garden" "A french-style garden with topiary in the shape of various animals. A fountain gurgles happily in the middle. A trail leads off into a forest to the north.")
|
|
(create-object 'unicorn "a frolicking unicorn" "A white unicorn, with a long spiral horn.")
|
|
(create-object 'forest "A Foreboding Forest" "Tall trees bunch around a winding path.")
|
|
(create-object 'trail "a trail" "A winding trail.")
|
|
(add-alias 'trail 'winding)
|
|
(add-alias 'trail 'north)
|
|
(add-alias 'trail 'n)
|
|
(set-hidden 'trail #t)
|
|
(set-enter-message 'trail "You walk along the winding trail...")
|
|
(move-object 'you 'garden)
|
|
(move-object 'trail 'garden)
|
|
(toggle-fixed 'trail)
|
|
(set-destination 'trail 'forest)
|
|
(move-object 'unicorn 'garden)
|
|
|
|
(print-room-description (get-container 'you))
|
|
(adventure)
|