diff options
| author | David Thompson <dthompson2@worcester.edu> | 2022-12-15 20:36:50 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-01-06 16:00:25 -0500 |
| commit | 85148e83f8189d4a3aa97b6c601c086ca955c7c2 (patch) | |
| tree | e453444c04bcfd13ae9c13dcb6426e408ca696c4 | |
| parent | b2256def06f103075d9db4254128ef5148b3eaa2 (diff) | |
Add help info to edit-garden console.
| -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) |