diff options
| -rw-r--r-- | community-garden/edit.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/community-garden/edit.scm b/community-garden/edit.scm index 01addd6..cfd3c44 100644 --- a/community-garden/edit.scm +++ b/community-garden/edit.scm @@ -29,10 +29,20 @@ (define (read*) (display "> ") (read)) + (format #t ">>> Community Garden Command Console <<< + Enter (help) for a list of commands. +") (while running? (match (read*) (('quit) (set! running? #f)) + (('help) + (format #t "Available commands: +(get-garden-name) - display current garden name +(list-plants) - list available plant names +(dig-up x y) - dig up plant at tile (x, y) +(plant x y name) - plant at tile (x, y) +")) (('get-garden-name) (vat-run (on (<- gardener 'get-garden-name) (lambda (name) |