summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--wake-up.scm31
1 files 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 \