From 506610b29b5e301b58b0c4517f290f03562b4083 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Sat, 5 Nov 2022 22:52:27 +0100 Subject: Fix message formatting --- wake-up.scm | 31 +++++++++++++++---------------- 1 file changed, 15 insertions(+), 16 deletions(-) diff --git a/wake-up.scm b/wake-up.scm index 5c4a276..b6ff104 100644 --- a/wake-up.scm +++ b/wake-up.scm @@ -30,16 +30,15 @@ (display (string-append "Days played: " (number->string (*day*)))) (newline) (newline) - (display "This game tries to show the internal dialog of a \ - depressed person that is alone at home, working as a \ - freelance, on a phd or any job that allows to work on \ - an independent way.\n\ - Somehow, it tries to express the life of those who \ - suffer in silence, alone in their caves. Hopefully, \ - this game made you empathize with them. \n\ - If you feel identified by what it is shown here, it \ - might be time to review your internal dialog and treat \ - yourself better. You deserve to be loved.\n") + (display "This game tries to show the internal dialog of a depressed person \ + that is alone at home, working as a freelance, on a phd or any job \ + that allows to work on an independent way.\n\ + Somehow, it tries to express the life of those who suffer in \ + silence, alone in their caves. Hopefully, this game made you \ + empathize with them. \n\ + If you feel identified by what it is shown here, it might be time \ + to review your internal dialog and treat yourself better. You \ + deserve to be loved.\n") (newline) (display "Thanks for playing.") (newline) @@ -212,7 +211,7 @@ (rest) (to-state 'morning-2)))) - (cons "Stay in bed" + (cons "Stay in bed." (combine (answer "You rest for a little bit more, but you feel \ bad because you have a hard time waking up \ @@ -241,7 +240,7 @@ (cons "Relax." (combine (answer "You do nothing for a couple of hours and feel guilty \ - because you didn't work") + because you didn't work.") (depress) (rest) (to-state 'morning-2)))))) @@ -273,7 +272,7 @@ (cons "Relax." (combine (answer "You do nothing for a couple of hours and feel guilty \ - because you didn't work") + because you didn't work.") (depress) (rest+) (to-state 'lunch)))))) @@ -305,7 +304,7 @@ (f-or-depressed (combine (answer "You do nothing for a couple of hours and feel guilty \ - because you didn't work") + because you didn't work.") (depress+) (rest) (to-state 'evening)) @@ -319,9 +318,9 @@ (register-state 'evening - (state "You still have some time until dinner. What do you want to do" + (state "You still have some time until dinner. What do you want to do?" (list - (cons "Work" + (cons "Work." (f-or-depressed (combine (answer "You work. It's late so it's really tiring and you have \ -- cgit v1.2.3