kekkonen/kekkonen.scm

20 lines
816 B
Scheme
Raw Normal View History

2021-11-26 14:40:19 -05:00
(import world)
2020-09-29 08:59:45 -04:00
2020-10-04 05:55:39 -04:00
(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.")
2020-09-29 08:59:45 -04:00
(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)
2020-10-04 05:55:39 -04:00
(add-alias 'trail 'north)
(add-alias 'trail 'n)
(set-hidden 'trail #t)
2020-09-29 08:59:45 -04:00
(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)