!7

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

  class ByServer extends DynTalkBot2.ByServer {
    delegate Cluster to StringClustersWithIDs.
    
    new StringClustersWithIDs clusters;
    Cluster topic;
    
    void _doneLoading { clusters.onChange(r change); }

    synchronized S processSimplifiedLine(S s, O... _) {
      try answer super.processSimplifiedLine(s, _); // adding authorized users etc.
      
      new Matches m;
      if null (s = dropMyPrefixOrNull(s)) null;

      if (matchX2("do you know ...|name ...", s, m)) {
        L<Cluster> found = clusters.searchForCluster($1);
        if (empty(found)) {
          topic = clusters.newCluster($1);
          ret "No I don't know " + $1;
        }
        topic = random(found); change();
        ret (l(found) > 1 ? "I know multiple. " : "")
          + "You mean " + join(" = ", topic.synonyms) + "?";
      }

      if (matchX2("he is ...|she is ...|it is ...|he's ...|she's ...|it's ...|they are ...", 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 "number of clusters" ret l_str(clusters.clusters);
        
      if (eqic(s, "help"))
        ret ltrim([[
I am a bot that knows synonyms. DB size: ]] + l(clusters.clusters) + [[

Stuff to say.
@me do you know james brown?
@me he is a singer
@me name an activist
@me number of clusters
  
[Bot made by https://BotCompany.de]
  ]]).replace("@me", atSelf());
  
      null;
    }
  }
}

Began life as a copy of #1025290