!7

cmodule Giraffe > DynDiscordHopper {

  switchable S myName = "Giraffe";

  switchable S sliceID = "wgeuwbcepeoxfwma"; // "Height bot" slice - https://agi.blue/?slice=cxbfnllthxfsuwxw

  transient PKIKeyPair keys;

  start {

    keys = keyPairForProgram();

    dm_vmBus_onMessage_q('discordGuildJoin, voidfunc(Map map) {

      ret unless map.get('module) == module();

      print("Got join");

      postInChannel(preferredChannelID,

        discordAt(getLong userID(map)) + ", " + questionToAsk());

    });

  }

  @Override S answer(S input, Map map) {

    ret mapEachLine_tlft_nempties(input, s -> {

      new Matches m;

      // preprocess

      if (discordBotID != 0)

        s = replacePrefix(discordAt(discordBotID), myName + " ", s);

      s = simpleSpaces_noTok(s);

      if "what's your name" ret myName;

      S questionToAsk = questionToAsk();

      if (eqic(s, "hey " + myName))

        ret or2(questionToAsk, "I don't know what to ask");

      if (swic_trim(s, myName + " example for: ", m))

        ret findExample(m.rest());

      if (swic_trim(s, myName + " ", m)) {

        S question = m.rest();

        S answerPattern = randomAnswerPattern(m.rest());

        if (nempty(answerPattern))

          ret fillPattern(answerPattern);

      }

      // react to user input matching an answer pattern

      for (S pattern : allAnswerPatterns(questionToAsk)) {

        S regexp = ellipsisToGroupedDotPlusRegexp(angleBracketVarsToEllipsis(pattern));

        print("Have regexp: " + regexp);

        LS groups = regexpFirstGroupsIC(regexp, s);

        if (nempty(groups))

          ret "Aha! " + first(groups) + " " + discordAt(getLong userID(map));

      }

      null;

    });

  }

  S questionToAsk() {

    ret agiBlue_randomLookupInSlice(sliceID, "question to ask", "is");

  }

  // assume s is sanitized

  S findExample(S s) {

    ret agiBlue_randomALookupInSlice(sliceID, "is a", s);

  }

  S randomAnswerPattern(S question) {

    ret agiBlue_randomLookupInSlice(sliceID, question, "answer pattern");

  }

  LS allAnswerPatterns(S question) {

    ret agiBlue_multiLookupInSlice(sliceID, question, "answer pattern");

  }

  S fillPattern(S pattern) {

    LS tok = javaTokWithAngleBrackets(pattern);

    for (int idx : indicesOfAngleBracketVars(tok)) {

      S value = findExample(deAngleBracket(tok.get(idx)));

      if (nempty(value))

        tok.set(idx, value);

    }

    ret join(tok);

  }

}