adjust txtadv

beautiful-racket-demo/txtadv-demo/demo-short.rkt

@@ -0,0 +1,38 @@
+#lang txtadv-demo
+
+===VERBS===
+
+north, n
+ "go north"
+
+south, s
+ "go south"
+
+get _, grab _, take _
+ "take"
+
+===THINGS===
+
+---cactus---
+get
+  "You win!"
+
+===PLACES===
+
+---meadow---
+"Welcome to the Cactus Game! You're standing in a meadow. There is a desert to the south."
+[]
+
+south
+ desert
+
+---desert---
+"You're in a desert. There is nothing for miles around."
+[cactus]
+
+north
+  meadow
+
+===START===
+
+meadow

beautiful-racket-demo/txtadv-demo/main.rkt

@@ -0,0 +1,5 @@
+#lang racket/base
+
+(module reader racket/base
+  (require "reader.rkt")
+  (provide (all-from-out "reader.rkt")))

beautiful-racket-demo/txtadv-demo/parser.rkt

@@ -1,6 +1,6 @@
 #lang brag
 
-txtadv-program : verb-section everywhere-section things-section places-section start-section
+txtadv-program : [verb-section] [everywhere-section] [things-section] [places-section] start-section
 
 verb-section : /"===VERBS===" verb-item+