summaryrefslogtreecommitdiff
path: root/wake-up.scm
diff options
context:
space:
mode:
Diffstat (limited to 'wake-up.scm')
-rw-r--r--wake-up.scm32
1 files changed, 17 insertions, 15 deletions
diff --git a/wake-up.scm b/wake-up.scm
index e6e7d6b..3f64dce 100644
--- a/wake-up.scm
+++ b/wake-up.scm
@@ -233,7 +233,8 @@
(to-state 'morning-2))
(combine
(answer "You are too tired to work. You do nothing for a \
- couple of hours and you feel for wasting your time.")
+ couple of hours and you feel bad for wasting your \
+ time.")
(depress+)
(to-state 'morning-2))))
@@ -259,8 +260,9 @@
(cheer-up)
(to-state 'lunch))
(combine
- (answer "You are too tired to work. You do nothing for a \
- couple of hours and you feel for wasting your time.")
+ (answer "You are too tired to work. Not that long ago you \
+ were able to work for longer time. You are getting \
+ worse.")
(depress+)
(to-state 'lunch)))
(combine
@@ -271,8 +273,8 @@
(cons "Relax."
(combine
- (answer "You do nothing for a couple of hours and feel guilty \
- because you didn't work.")
+ (answer "You do nothing for a couple of hours. Is this what you \
+ call \"working hard\"?")
(depress)
(rest+)
(to-state 'lunch))))))
@@ -290,8 +292,7 @@
(tire)
(to-state 'evening))
(combine
- (answer "You are too tired to work. You do nothing for a \
- couple of hours and you feel for wasting your time.")
+ (answer "You are too tired to work. As always.")
(depress+)
(to-state 'evening)))
(combine
@@ -303,14 +304,13 @@
(cons "Relax."
(f-or-depressed
(combine
- (answer "You do nothing for a couple of hours and feel guilty \
- because you didn't work.")
- (depress+)
+ (answer "You do nothing. Sometimes it's good for you.")
+ (depress)
(rest)
(to-state 'evening))
(combine
(answer "You can't just relax. You are worthless if you don't \
- work.\
+ work. \
You overwork and spend the whole afternoon working in \
bad conditions.")
(tire+)
@@ -339,7 +339,8 @@
(cons "Relax at home."
(f-or-depressed
(combine
- (answer "You relax at home. You stayed at home the whole day.")
+ (answer "You relax at home. You stayed at home the whole day. \
+ Again.")
(depress+)
(to-state 'dinner))
(combine
@@ -375,8 +376,9 @@
(to-state 'wake-up))
(combine
- (answer "You are too tired to work. You watch some TV and \
- feel bad about it.")
+ (answer "You are too tired to work. You watch some TV while \
+ you could be doing something productive. The story \
+ of your life.")
(depress)
(rest)
(next-day)
@@ -391,7 +393,7 @@
(to-state 'wake-up))
(combine
(answer "You didn't work enough during the day and you want \
- to relax. You shouldn't. \
+ to relax. You should be working.\n \
You work until it's late and then go to bed.")
(tire+)
(depress)