# HG changeset patch
# User Arne Babenhauserheide <arne_bab@web.de>
# Date 1663498157 -7200
#      Sun Sep 18 12:49:17 2022 +0200
# Node ID 5e879881e02f52793614c4684fc4ef0274810b62
# Parent  d023f49af917246e4e135af382b461f75f9c02be
ask whether to change the text speed before entering the summer market

diff --git a/dryads-wake.w b/dryads-wake.w
--- a/dryads-wake.w
+++ b/dryads-wake.w
@@ -463,6 +463,20 @@
     set! state : game-state-outcomes-add! state outcome-dryad-abducted-melter
     summer-market state
 
+define : change-speed-question state
+    Enter : Old One
+    Old One
+        Hello ,(game-state-name state)., on a word.
+        Do you want to change the text speed?
+
+    Choose
+        : Speak faster.
+            ,(faster) Text speed was increased
+        : Speak more slowly.
+            ,(slower) Text speed was decreased
+        : Keep the speed.
+            Text speed wasn’t changed.
+
 define-scene : summer-market state
     Enter : Juli Fin :profile juli
             Melter Lark :profile melter
@@ -483,6 +497,8 @@
         ... ,(begin (usleep 300000) #f) ... ,(begin (usleep 600000) #f) ... 
         ,(begin (usleep 333333) ".") ,(begin (usleep 333333) ".") ,(begin (usleep 333333) ".")
 
+    set! state : change-speed-question state
+
     Melter Lark
         Are you ready for the market?