!7

cmodule ClustersBot extends DynTalkBot2<ClustersBot.ByServer> {
  start {
    makeByServer = () -> new ByServer;
    useAGIBlueForDropPunctuation = false;
    preprocessAtSelfToMyName = false;
  }

  sclass Cluster {
    GlobalID globalID = aGlobalIDObject();
    Set<S> synonyms = ciSet();

    *() {}
    *(S s) { synonyms.add(s); }
  }
 
  class ByServer extends DynTalkBot2.ByServer {
    new L<Cluster> clusters;
    Cluster topic;
    
    synchronized S processSimplifiedLine(S s, O... _) {
      try answer super.processSimplifiedLine(s, _); // adding authorized users etc.
      
      new Matches m;
      
      S sOld = s;
      s = dropPrefixOrNull(myPrefix(), s);
      if (s == null) {
        print("no got prefix: " + quote(myPrefix()) + " / " + quote(sOld));
        null;
      }
      
      if (matchX("do you know ...", s, m)) {
        topic = new Cluster($1);
        clusters.add(topic);
        change();
        ret "No I don't know " + $1;
      }

      if (matchX2("he is ...|she is ...|it is ...|it's ...", s, m)) {
        if (topic == null) ret "Who is?";
        if (topic.synonyms.add($1)) {
          change();
          ret "Aha. " + join(" = ", topic.synonyms);
        } else
          ret "Yup, I know";
      }
        
      if (eqic(s, "help"))
        ret trim([[
Help text will go here.
  
[Bot made by https://BotCompany.de]
  ]]).replace("@me", atSelf());
  
      null;
    }
  }
}