(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)