!7

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

concept PostedRuleMatch {
  long guildID, msgID;
  AGIBlue_MatchedRule matchedRule;
}

concept Reaction {
  long msgID, userID;
  S emoji;
}

standardBot1 agiBlueRulesBot {
  init { dbIndexing(PostedRuleMatch, 'msgID, Reaction, 'msgID); }

  processSimplified {
    if null (s = dropMyPrefixOrNull(s)) null;
    
    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(5, matches);
    for (S 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(unicode_thumbsUp()));
        queue(msg.addReaction(unicode_thumbsDown()));
      });
    }
    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)
      uniq(Reaction, +msgID, +userID, +emoji);
    else 
      removeConcepts(Reaction, +msgID, +userID, +emoji);
  }
}