From b8c71eeec47b5566c86cffce3c6ddecc0a6e8883 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga 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