From b8c71eeec47b5566c86cffce3c6ddecc0a6e8883 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Sun, 6 Nov 2022 19:18:52 +0100
Subject: Make messages rougher
---
wake-up.scm | 32 +++++++++++++++++---------------
1 file 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)
--
cgit v1.2.3