diff --git a/ATL/Pooh/pooh-extensions.lisp b/ATL/Pooh/pooh-extensions.lisp index 373cc8a..e8cb666 100644 --- a/ATL/Pooh/pooh-extensions.lisp +++ b/ATL/Pooh/pooh-extensions.lisp @@ -56,7 +56,7 @@ (add-player-experience player 3)) (progn (format t "~&Ouch! That hurt! You take 2 HP fall damage.") (change-player-health player -2))) - (read-line) + (sleep 4) (goto player "Pooh's porch")) (defun kanga-healing (player) @@ -177,14 +177,14 @@ (defun leave-bee-tree (player) "Make sure you've climbed down before leaving the bee tree." - (when climbed (climb-down player) (read-line)))) + (when climbed (climb-down player) (pause 4)))) (let ((honey-found NIL)) (defun climb-rock (player &optional arg) "Climb the rock at the rapids" - (if (> 25 (random 100)) + (if (> 33 (random 100)) (progn (format t "~&You slip!") - (read-line) + (sleep 3) (goto player "Stream")) (progn (format t "~&You clamber up on the rock.") (unless honey-found @@ -193,6 +193,16 @@ 'item "Hunny") (setf honey-found T)))))) +(defun stream-current (player &optional arg) + "The stream sweeps the player on into the Floody place." + (when (> 75 (random 100)) + (describe-place "Stream") + (format t "~&~%You struggle to get back to the banks.") (sleep 5) + (format t "~&You fight against the rushing water, but it's stronger than you.") (sleep 2) + (format t "~&The stream pulls you along.") (sleep 3) + (format t "~&It finally deposits you in a floody place.") (sleep 2) + (goto player "Floody place") (clear-screen))) + (defun play (player &optional arg) "Let the player play a game" (let ((place (player-place player))) @@ -212,8 +222,9 @@ (60 (format t "~&You pile up sand for a big strong keep in the center.")) (80 (format t "~&You decorate the castle, adding pretty little details.")) (100 (format t "~&You stand back and admire your handiwork. What a fine castle!") - (set-object-attribute (get-game-object 'place "Sandy pit") 'item "Sandcastle"))) - (unless (= sandcastle 100) (incf sandcastle 20)))) + (set-object-attribute (get-game-object 'place "Sandy pit") 'item "Sandcastle")) + (110 (format t "~&You've already built a sandcastle here! And a fine one it is too..."))) + (unless (= sandcastle 110) (incf sandcastle 20)))) (let ((score 0)) (defun poohsticks (player) @@ -264,7 +275,8 @@ (if (member 'ring (extract-elements arg)) (progn (format t "~&You slip the golden ring on your finger.") (sleep 1) - (format t "~&You feel something ought to happen.~&Nothing does.")) + (format t "~&You feel something ought to happen.") (sleep 2) + (format t "~&Nothing does.")) (format t "~&What do you want to wear?"))) (defun ring-of-destiny (player) @@ -274,7 +286,9 @@ (defun annoying-ring (player) "The ring cannot be dropped!" (format t "~&You feel a stab of pain in your heart as you watch the ring drop.") + (sleep 1) (format t "~&On second thoughts, you pick it up again.~%~%") + (sleep 1) (take player "Golden ring")) diff --git a/ATL/Pooh/pooh-extensions.lisp b/ATL/Pooh/pooh-extensions.lisp index 373cc8a..e8cb666 100644 --- a/ATL/Pooh/pooh-extensions.lisp +++ b/ATL/Pooh/pooh-extensions.lisp @@ -56,7 +56,7 @@ (add-player-experience player 3)) (progn (format t "~&Ouch! That hurt! You take 2 HP fall damage.") (change-player-health player -2))) - (read-line) + (sleep 4) (goto player "Pooh's porch")) (defun kanga-healing (player) @@ -177,14 +177,14 @@ (defun leave-bee-tree (player) "Make sure you've climbed down before leaving the bee tree." - (when climbed (climb-down player) (read-line)))) + (when climbed (climb-down player) (pause 4)))) (let ((honey-found NIL)) (defun climb-rock (player &optional arg) "Climb the rock at the rapids" - (if (> 25 (random 100)) + (if (> 33 (random 100)) (progn (format t "~&You slip!") - (read-line) + (sleep 3) (goto player "Stream")) (progn (format t "~&You clamber up on the rock.") (unless honey-found @@ -193,6 +193,16 @@ 'item "Hunny") (setf honey-found T)))))) +(defun stream-current (player &optional arg) + "The stream sweeps the player on into the Floody place." + (when (> 75 (random 100)) + (describe-place "Stream") + (format t "~&~%You struggle to get back to the banks.") (sleep 5) + (format t "~&You fight against the rushing water, but it's stronger than you.") (sleep 2) + (format t "~&The stream pulls you along.") (sleep 3) + (format t "~&It finally deposits you in a floody place.") (sleep 2) + (goto player "Floody place") (clear-screen))) + (defun play (player &optional arg) "Let the player play a game" (let ((place (player-place player))) @@ -212,8 +222,9 @@ (60 (format t "~&You pile up sand for a big strong keep in the center.")) (80 (format t "~&You decorate the castle, adding pretty little details.")) (100 (format t "~&You stand back and admire your handiwork. What a fine castle!") - (set-object-attribute (get-game-object 'place "Sandy pit") 'item "Sandcastle"))) - (unless (= sandcastle 100) (incf sandcastle 20)))) + (set-object-attribute (get-game-object 'place "Sandy pit") 'item "Sandcastle")) + (110 (format t "~&You've already built a sandcastle here! And a fine one it is too..."))) + (unless (= sandcastle 110) (incf sandcastle 20)))) (let ((score 0)) (defun poohsticks (player) @@ -264,7 +275,8 @@ (if (member 'ring (extract-elements arg)) (progn (format t "~&You slip the golden ring on your finger.") (sleep 1) - (format t "~&You feel something ought to happen.~&Nothing does.")) + (format t "~&You feel something ought to happen.") (sleep 2) + (format t "~&Nothing does.")) (format t "~&What do you want to wear?"))) (defun ring-of-destiny (player) @@ -274,7 +286,9 @@ (defun annoying-ring (player) "The ring cannot be dropped!" (format t "~&You feel a stab of pain in your heart as you watch the ring drop.") + (sleep 1) (format t "~&On second thoughts, you pick it up again.~%~%") + (sleep 1) (take player "Golden ring")) diff --git a/ATL/Pooh/pooh.atl b/ATL/Pooh/pooh.atl index 6ec8224..5300102 100644 --- a/ATL/Pooh/pooh.atl +++ b/ATL/Pooh/pooh.atl @@ -22,5 +22,4 @@ define-player "Christopher Robin" description "Christopher Robin is my game dev character." - place "Piglet's porch" ;Development - ;place "Christopher Robin's house" \ No newline at end of file + place "Rapids" ;Development \ No newline at end of file diff --git a/ATL/Pooh/pooh-extensions.lisp b/ATL/Pooh/pooh-extensions.lisp index 373cc8a..e8cb666 100644 --- a/ATL/Pooh/pooh-extensions.lisp +++ b/ATL/Pooh/pooh-extensions.lisp @@ -56,7 +56,7 @@ (add-player-experience player 3)) (progn (format t "~&Ouch! That hurt! You take 2 HP fall damage.") (change-player-health player -2))) - (read-line) + (sleep 4) (goto player "Pooh's porch")) (defun kanga-healing (player) @@ -177,14 +177,14 @@ (defun leave-bee-tree (player) "Make sure you've climbed down before leaving the bee tree." - (when climbed (climb-down player) (read-line)))) + (when climbed (climb-down player) (pause 4)))) (let ((honey-found NIL)) (defun climb-rock (player &optional arg) "Climb the rock at the rapids" - (if (> 25 (random 100)) + (if (> 33 (random 100)) (progn (format t "~&You slip!") - (read-line) + (sleep 3) (goto player "Stream")) (progn (format t "~&You clamber up on the rock.") (unless honey-found @@ -193,6 +193,16 @@ 'item "Hunny") (setf honey-found T)))))) +(defun stream-current (player &optional arg) + "The stream sweeps the player on into the Floody place." + (when (> 75 (random 100)) + (describe-place "Stream") + (format t "~&~%You struggle to get back to the banks.") (sleep 5) + (format t "~&You fight against the rushing water, but it's stronger than you.") (sleep 2) + (format t "~&The stream pulls you along.") (sleep 3) + (format t "~&It finally deposits you in a floody place.") (sleep 2) + (goto player "Floody place") (clear-screen))) + (defun play (player &optional arg) "Let the player play a game" (let ((place (player-place player))) @@ -212,8 +222,9 @@ (60 (format t "~&You pile up sand for a big strong keep in the center.")) (80 (format t "~&You decorate the castle, adding pretty little details.")) (100 (format t "~&You stand back and admire your handiwork. What a fine castle!") - (set-object-attribute (get-game-object 'place "Sandy pit") 'item "Sandcastle"))) - (unless (= sandcastle 100) (incf sandcastle 20)))) + (set-object-attribute (get-game-object 'place "Sandy pit") 'item "Sandcastle")) + (110 (format t "~&You've already built a sandcastle here! And a fine one it is too..."))) + (unless (= sandcastle 110) (incf sandcastle 20)))) (let ((score 0)) (defun poohsticks (player) @@ -264,7 +275,8 @@ (if (member 'ring (extract-elements arg)) (progn (format t "~&You slip the golden ring on your finger.") (sleep 1) - (format t "~&You feel something ought to happen.~&Nothing does.")) + (format t "~&You feel something ought to happen.") (sleep 2) + (format t "~&Nothing does.")) (format t "~&What do you want to wear?"))) (defun ring-of-destiny (player) @@ -274,7 +286,9 @@ (defun annoying-ring (player) "The ring cannot be dropped!" (format t "~&You feel a stab of pain in your heart as you watch the ring drop.") + (sleep 1) (format t "~&On second thoughts, you pick it up again.~%~%") + (sleep 1) (take player "Golden ring")) diff --git a/ATL/Pooh/pooh.atl b/ATL/Pooh/pooh.atl index 6ec8224..5300102 100644 --- a/ATL/Pooh/pooh.atl +++ b/ATL/Pooh/pooh.atl @@ -22,5 +22,4 @@ define-player "Christopher Robin" description "Christopher Robin is my game dev character." - place "Piglet's porch" ;Development - ;place "Christopher Robin's house" \ No newline at end of file + place "Rapids" ;Development \ No newline at end of file diff --git a/ATL/Pooh/woods.atl b/ATL/Pooh/woods.atl index c11507c..e6abda4 100644 --- a/ATL/Pooh/woods.atl +++ b/ATL/Pooh/woods.atl @@ -85,7 +85,7 @@ description "You can feel the ground becoming soft underneath your feet as you approach the marshes and bogs to the south of the 100 Acre wood. Plenty of moss grows around the roots of - the trees. Here and there a willow bends its branches." + the trees. A couple of willows bend their branches here." item "Stick" neighbour "Central woods" neighbour "Eastern woods" @@ -273,8 +273,9 @@ description "Whoops! You fell in! Brrr, this water is cold! Better get out quickly. But that is easier said than done, the current here is pretty strong..." + neighbour "Rapids" neighbour "Floody place" - hidden "Golden ring" + entry-hook "stream-current" define-place "Christopher Robin's house" description "TODO" @@ -294,11 +295,17 @@ neighbour "Owl's porch" define-place "Floody place" - description "TODO" + description "The stream that flows through the forest disappears here, + forming a marshy area before it reappears further on. The ground + is very boggy here, take care that you don't get stuck. There + are also a lot of flies and mosquitoes buzzing around - not + a particularly comfortable place to be!" + neighbour "Stream" neighbour "Southern woods" neighbour "Eeyore's gloomy place" neighbour "Bridge" - + hidden "Golden ring" + define-place "Eeyore's gloomy place" description "TODO" npc "Eeyore" diff --git a/ATL/Pooh/pooh-extensions.lisp b/ATL/Pooh/pooh-extensions.lisp index 373cc8a..e8cb666 100644 --- a/ATL/Pooh/pooh-extensions.lisp +++ b/ATL/Pooh/pooh-extensions.lisp @@ -56,7 +56,7 @@ (add-player-experience player 3)) (progn (format t "~&Ouch! That hurt! You take 2 HP fall damage.") (change-player-health player -2))) - (read-line) + (sleep 4) (goto player "Pooh's porch")) (defun kanga-healing (player) @@ -177,14 +177,14 @@ (defun leave-bee-tree (player) "Make sure you've climbed down before leaving the bee tree." - (when climbed (climb-down player) (read-line)))) + (when climbed (climb-down player) (pause 4)))) (let ((honey-found NIL)) (defun climb-rock (player &optional arg) "Climb the rock at the rapids" - (if (> 25 (random 100)) + (if (> 33 (random 100)) (progn (format t "~&You slip!") - (read-line) + (sleep 3) (goto player "Stream")) (progn (format t "~&You clamber up on the rock.") (unless honey-found @@ -193,6 +193,16 @@ 'item "Hunny") (setf honey-found T)))))) +(defun stream-current (player &optional arg) + "The stream sweeps the player on into the Floody place." + (when (> 75 (random 100)) + (describe-place "Stream") + (format t "~&~%You struggle to get back to the banks.") (sleep 5) + (format t "~&You fight against the rushing water, but it's stronger than you.") (sleep 2) + (format t "~&The stream pulls you along.") (sleep 3) + (format t "~&It finally deposits you in a floody place.") (sleep 2) + (goto player "Floody place") (clear-screen))) + (defun play (player &optional arg) "Let the player play a game" (let ((place (player-place player))) @@ -212,8 +222,9 @@ (60 (format t "~&You pile up sand for a big strong keep in the center.")) (80 (format t "~&You decorate the castle, adding pretty little details.")) (100 (format t "~&You stand back and admire your handiwork. What a fine castle!") - (set-object-attribute (get-game-object 'place "Sandy pit") 'item "Sandcastle"))) - (unless (= sandcastle 100) (incf sandcastle 20)))) + (set-object-attribute (get-game-object 'place "Sandy pit") 'item "Sandcastle")) + (110 (format t "~&You've already built a sandcastle here! And a fine one it is too..."))) + (unless (= sandcastle 110) (incf sandcastle 20)))) (let ((score 0)) (defun poohsticks (player) @@ -264,7 +275,8 @@ (if (member 'ring (extract-elements arg)) (progn (format t "~&You slip the golden ring on your finger.") (sleep 1) - (format t "~&You feel something ought to happen.~&Nothing does.")) + (format t "~&You feel something ought to happen.") (sleep 2) + (format t "~&Nothing does.")) (format t "~&What do you want to wear?"))) (defun ring-of-destiny (player) @@ -274,7 +286,9 @@ (defun annoying-ring (player) "The ring cannot be dropped!" (format t "~&You feel a stab of pain in your heart as you watch the ring drop.") + (sleep 1) (format t "~&On second thoughts, you pick it up again.~%~%") + (sleep 1) (take player "Golden ring")) diff --git a/ATL/Pooh/pooh.atl b/ATL/Pooh/pooh.atl index 6ec8224..5300102 100644 --- a/ATL/Pooh/pooh.atl +++ b/ATL/Pooh/pooh.atl @@ -22,5 +22,4 @@ define-player "Christopher Robin" description "Christopher Robin is my game dev character." - place "Piglet's porch" ;Development - ;place "Christopher Robin's house" \ No newline at end of file + place "Rapids" ;Development \ No newline at end of file diff --git a/ATL/Pooh/woods.atl b/ATL/Pooh/woods.atl index c11507c..e6abda4 100644 --- a/ATL/Pooh/woods.atl +++ b/ATL/Pooh/woods.atl @@ -85,7 +85,7 @@ description "You can feel the ground becoming soft underneath your feet as you approach the marshes and bogs to the south of the 100 Acre wood. Plenty of moss grows around the roots of - the trees. Here and there a willow bends its branches." + the trees. A couple of willows bend their branches here." item "Stick" neighbour "Central woods" neighbour "Eastern woods" @@ -273,8 +273,9 @@ description "Whoops! You fell in! Brrr, this water is cold! Better get out quickly. But that is easier said than done, the current here is pretty strong..." + neighbour "Rapids" neighbour "Floody place" - hidden "Golden ring" + entry-hook "stream-current" define-place "Christopher Robin's house" description "TODO" @@ -294,11 +295,17 @@ neighbour "Owl's porch" define-place "Floody place" - description "TODO" + description "The stream that flows through the forest disappears here, + forming a marshy area before it reappears further on. The ground + is very boggy here, take care that you don't get stuck. There + are also a lot of flies and mosquitoes buzzing around - not + a particularly comfortable place to be!" + neighbour "Stream" neighbour "Southern woods" neighbour "Eeyore's gloomy place" neighbour "Bridge" - + hidden "Golden ring" + define-place "Eeyore's gloomy place" description "TODO" npc "Eeyore" diff --git a/lisp/ui.lisp b/lisp/ui.lisp index 32a3e3a..17fba86 100644 --- a/lisp/ui.lisp +++ b/lisp/ui.lisp @@ -16,7 +16,7 @@ ;; TODO Split module in two -;; XXX Change to 5 once the (string-from-list) bug is fixed +;; TODO Change to 5 once the (string-from-list) bug is fixed (setf *max-line-items* 10) (defun play-game () @@ -32,13 +32,15 @@ (let ((place (get-game-object 'place (player-place player)))) (describe-place place) (input-string command) - (while (or (zerop (length command)) - (eql (aref command 0) #\Escape)) - (input-string command)) + ;;FIXME Sometimes it still crashes on an empty line! + ;;TODO Rewrite with 'do' (while (not (and (or (equalp command "quit") (equalp command "exit")) (y-or-n-p "~&Really quit?"))) - (game-command command player) + (cond ((zerop (length command))) + ((not (alpha-char-p (aref command 0))) + (format t "~&Invalid input.")) + (T (game-command command player))) (input-string command)) (format t "~&Goodbye!")))) @@ -174,7 +176,7 @@ (format t "~&This place does not border your current location!") (return-from goto)) ;; You can only enter a place if you have one of the requirements - ;; FIXME Deal with multiple possible requirements + ;; TODO Deal with multiple possible requirements (let ((req (place-requires (get-game-object 'place location)))) (unless (equalp req "") (unless (or (player-has-ability req player) diff --git a/ATL/Pooh/pooh-extensions.lisp b/ATL/Pooh/pooh-extensions.lisp index 373cc8a..e8cb666 100644 --- a/ATL/Pooh/pooh-extensions.lisp +++ b/ATL/Pooh/pooh-extensions.lisp @@ -56,7 +56,7 @@ (add-player-experience player 3)) (progn (format t "~&Ouch! That hurt! You take 2 HP fall damage.") (change-player-health player -2))) - (read-line) + (sleep 4) (goto player "Pooh's porch")) (defun kanga-healing (player) @@ -177,14 +177,14 @@ (defun leave-bee-tree (player) "Make sure you've climbed down before leaving the bee tree." - (when climbed (climb-down player) (read-line)))) + (when climbed (climb-down player) (pause 4)))) (let ((honey-found NIL)) (defun climb-rock (player &optional arg) "Climb the rock at the rapids" - (if (> 25 (random 100)) + (if (> 33 (random 100)) (progn (format t "~&You slip!") - (read-line) + (sleep 3) (goto player "Stream")) (progn (format t "~&You clamber up on the rock.") (unless honey-found @@ -193,6 +193,16 @@ 'item "Hunny") (setf honey-found T)))))) +(defun stream-current (player &optional arg) + "The stream sweeps the player on into the Floody place." + (when (> 75 (random 100)) + (describe-place "Stream") + (format t "~&~%You struggle to get back to the banks.") (sleep 5) + (format t "~&You fight against the rushing water, but it's stronger than you.") (sleep 2) + (format t "~&The stream pulls you along.") (sleep 3) + (format t "~&It finally deposits you in a floody place.") (sleep 2) + (goto player "Floody place") (clear-screen))) + (defun play (player &optional arg) "Let the player play a game" (let ((place (player-place player))) @@ -212,8 +222,9 @@ (60 (format t "~&You pile up sand for a big strong keep in the center.")) (80 (format t "~&You decorate the castle, adding pretty little details.")) (100 (format t "~&You stand back and admire your handiwork. What a fine castle!") - (set-object-attribute (get-game-object 'place "Sandy pit") 'item "Sandcastle"))) - (unless (= sandcastle 100) (incf sandcastle 20)))) + (set-object-attribute (get-game-object 'place "Sandy pit") 'item "Sandcastle")) + (110 (format t "~&You've already built a sandcastle here! And a fine one it is too..."))) + (unless (= sandcastle 110) (incf sandcastle 20)))) (let ((score 0)) (defun poohsticks (player) @@ -264,7 +275,8 @@ (if (member 'ring (extract-elements arg)) (progn (format t "~&You slip the golden ring on your finger.") (sleep 1) - (format t "~&You feel something ought to happen.~&Nothing does.")) + (format t "~&You feel something ought to happen.") (sleep 2) + (format t "~&Nothing does.")) (format t "~&What do you want to wear?"))) (defun ring-of-destiny (player) @@ -274,7 +286,9 @@ (defun annoying-ring (player) "The ring cannot be dropped!" (format t "~&You feel a stab of pain in your heart as you watch the ring drop.") + (sleep 1) (format t "~&On second thoughts, you pick it up again.~%~%") + (sleep 1) (take player "Golden ring")) diff --git a/ATL/Pooh/pooh.atl b/ATL/Pooh/pooh.atl index 6ec8224..5300102 100644 --- a/ATL/Pooh/pooh.atl +++ b/ATL/Pooh/pooh.atl @@ -22,5 +22,4 @@ define-player "Christopher Robin" description "Christopher Robin is my game dev character." - place "Piglet's porch" ;Development - ;place "Christopher Robin's house" \ No newline at end of file + place "Rapids" ;Development \ No newline at end of file diff --git a/ATL/Pooh/woods.atl b/ATL/Pooh/woods.atl index c11507c..e6abda4 100644 --- a/ATL/Pooh/woods.atl +++ b/ATL/Pooh/woods.atl @@ -85,7 +85,7 @@ description "You can feel the ground becoming soft underneath your feet as you approach the marshes and bogs to the south of the 100 Acre wood. Plenty of moss grows around the roots of - the trees. Here and there a willow bends its branches." + the trees. A couple of willows bend their branches here." item "Stick" neighbour "Central woods" neighbour "Eastern woods" @@ -273,8 +273,9 @@ description "Whoops! You fell in! Brrr, this water is cold! Better get out quickly. But that is easier said than done, the current here is pretty strong..." + neighbour "Rapids" neighbour "Floody place" - hidden "Golden ring" + entry-hook "stream-current" define-place "Christopher Robin's house" description "TODO" @@ -294,11 +295,17 @@ neighbour "Owl's porch" define-place "Floody place" - description "TODO" + description "The stream that flows through the forest disappears here, + forming a marshy area before it reappears further on. The ground + is very boggy here, take care that you don't get stuck. There + are also a lot of flies and mosquitoes buzzing around - not + a particularly comfortable place to be!" + neighbour "Stream" neighbour "Southern woods" neighbour "Eeyore's gloomy place" neighbour "Bridge" - + hidden "Golden ring" + define-place "Eeyore's gloomy place" description "TODO" npc "Eeyore" diff --git a/lisp/ui.lisp b/lisp/ui.lisp index 32a3e3a..17fba86 100644 --- a/lisp/ui.lisp +++ b/lisp/ui.lisp @@ -16,7 +16,7 @@ ;; TODO Split module in two -;; XXX Change to 5 once the (string-from-list) bug is fixed +;; TODO Change to 5 once the (string-from-list) bug is fixed (setf *max-line-items* 10) (defun play-game () @@ -32,13 +32,15 @@ (let ((place (get-game-object 'place (player-place player)))) (describe-place place) (input-string command) - (while (or (zerop (length command)) - (eql (aref command 0) #\Escape)) - (input-string command)) + ;;FIXME Sometimes it still crashes on an empty line! + ;;TODO Rewrite with 'do' (while (not (and (or (equalp command "quit") (equalp command "exit")) (y-or-n-p "~&Really quit?"))) - (game-command command player) + (cond ((zerop (length command))) + ((not (alpha-char-p (aref command 0))) + (format t "~&Invalid input.")) + (T (game-command command player))) (input-string command)) (format t "~&Goodbye!")))) @@ -174,7 +176,7 @@ (format t "~&This place does not border your current location!") (return-from goto)) ;; You can only enter a place if you have one of the requirements - ;; FIXME Deal with multiple possible requirements + ;; TODO Deal with multiple possible requirements (let ((req (place-requires (get-game-object 'place location)))) (unless (equalp req "") (unless (or (player-has-ability req player) diff --git a/lisp/util.lisp b/lisp/util.lisp index bfefb5a..a618aeb 100644 --- a/lisp/util.lisp +++ b/lisp/util.lisp @@ -292,7 +292,7 @@ (format t "$ ")))) (setf help-msg " Input your text below. When you are done, finish with a line that contains only -a single fullstop. If you make a mistake, you can still edit your text later.") +a single fullstop. If you make a mistake, you can reenter your text later.") (format t help-msg) (setf text (text-input)) (while (not (y-or-n-p "~&Save and exit?"))