!7

//!include once #1025868 // DynTalkBot2 compact include - causes exceptions sometimes after reloads

concept PostedRuleMatch {

  long guildID, msgID;

  AGIBlue_MatchedRule matchedRule;

  L<Reaction> reactions() {

    ret conceptsWhere(concepts(), Reaction, +msgID);

  }

  toString { ret sfu(this); }

}

concept Reaction {

  long msgID, userID;

  S emoji;

}

standardBot1 agiBlueRulesBot {

  init {

    dbIndexing(PostedRuleMatch, 'msgID, Reaction, 'msgID);

    analyze();

    dropPunctuation = false;

  }

  processSimplified {

    if null (s = dropMyPrefixOrNull(s)) null;

    PairS p = tok_splitAtDoubleArrow_pair(s);

    if (p != null)

      ret agiBlue_postInSlice_trueIfNew(agiBlue_rulesSlice(),

        s, "is", "a rule") ? "OK" : "I know";

    long channelID = longPar channelID(_);

    L<AGIBlue_Rule> rules = agiBlue_ruleObjects();

    L<AGIBlue_MatchedRule> matches = agiBlue_matchAllRulesOnInput(s);

    if (empty(matches)) ret "No matches with " + nRules(rules);

    L<AGIBlue_MatchedRule> matches2 = takeFirst(resultsToShow, matches);

    for (AGIBlue_MatchedRule mm : matches2) {

      S r = backtickQuote(mm.rewrittenRHS())

        + "\n  " + mm.map;

      postInChannel(channelID, r, msg -> {

        temp enter();

        cnew(PostedRuleMatch, guildID := guildID, msgID := msg.getIdLong(), matchedRule := mm);

        queue(msg.addReaction(positiveEmoji));

        queue(msg.addReaction(negativeEmoji));

      });

    }

    postInChannel(channelID, plusNMoreWithNL(matches, matches2));

  }

  void onMessageReaction(Map map, bool added) {

    long msgID = cast map.get('msgID);

    long userID = cast map.get('userID);

    S emoji = cast map.get('emoji);

    if (added) {

      Reaction r = uniq(Reaction, +msgID, +userID, +emoji);

      print("Added reaction: " + sfu(r));

    } else {

      print("Removed reaction: " + sfu(removeConceptsWhere(Reaction, +msgID, +userID, +emoji)));

    }

  }

  allServers {

    transient S positiveEmoji = unicode_thumbsUp();

    transient S negativeEmoji = unicode_thumbsDown();

    transient int resultsToShow = 3;

    void analyze {

      for (PostedRuleMatch pr) {

        int pos = 0, neg = 0;

        for (Reaction r : pr.reactions()) {

          if (eq(r.emoji, positiveEmoji)) ++pos;

          else if (eq(r.emoji, negativeEmoji)) ++neg;

        }

        if (pos > 0 && neg > 0) continue with print("Unclear reactions to " + pr);

        if (pos == 0 && neg == 0) continue;

        SS map = pr.matchedRule.map;

        S pn = pos > 0 ? "Positive" : "Negative";

        if (empty(map))

          if (neg > 0)

            continue with print("Weird: Negative reaction to unchanged rule: " + pr);

          else

            continue with print("Unchanged rule confirmed: " + pr);

        if (l(map) == 1)

          continue with print(quote(firstKey(map)) + " and " + quote(firstValue(map)) + " are " + (pos > 0 ? "similar" : "dissimilar"));

        print(pn + " feedback needs to be assigned to parts: " + map);

      }

    }

  }

}