my-story.lisp

(data "title" "My Story")
(data "author" "Mortchek")
(start-page "foo")

(page "foo"
    (text "You are in a place.\n")
    (choice (go "bar") "Do a thing!\n")
    (choice (go "baz") "Do a different thing!\n")
    (choice (give "sword") "Pick up a sword!\n")
    (choice (give "shield") "Pick up a shield!\n")
    (choice (go "nonexistent") "Take a trip to Limbo!"))

(page "bar"
    (text "You did a thing!"))

(page "baz"
    (text "You did a different thing!"))

my-story.txt

data
  title: My Story
  author: Mortchek
  initial page: foo

page foo
  You are in a place.
  `go bar: Do a thing!'
  `go baz: Do a different thing!'
  `give sword: Pick up a sword!'
  `give shield: Pick up a shield!'
  `go nonexistent: Take a trip to Limbo!'


page bar
    You did a thing!


page baz
    You did a different thing!