!7

cmodule CurrentTimeDialog > DynSayAndInputBot {
  class TimeBot extends AbstractSayAndInputBot2 implements Runnable {
    Attractor
      thanks = new MatchAttractor("thanks|thank you|thx", r { say("You're welcome") }),
      whatCanYouDo = new MatchAttractor("what can you do...|what is your skill|who are you", r {
        say("I can tell you the time");
        addAttractor(doIt);
      }),
      doIt = new MatchAttractor("do it|ok|i want that", r sayTime),
      talkToMe = new MatchAttractor("talk to me|hi|talk|say something", r run_public),
      doItAgain = new MatchAttractor("do it again|again|another time", r sayTime),
      whatsTheTime = new MatchAttractor("what's the time|tell me the time|time", r sayTime),
      yes_SayTime = new Attractor(f<S, Bool> isYes_1, r sayTime),
      sayOK = new Attractor(f1_true(), r { say("OK") });
      
    *() {
      addPreprocessors(f ai_dropLeadingAndTrailingAppellations_sortedByLength);
      standardAttractors(doItAgain, whatsTheTime, talkToMe, whatCanYouDo, thanks);
    }
    
    public void run {
      say("Do you want to know the current time?");
      addAttractor(yes_SayTime);
      addLowPrioAttractor(sayOK);
    }
    
    void sayTime { say("It is " + localTime_24()); }
  }
  
  TimeBot makeBot() { ret new TimeBot; }
}