!7

cmodule Giraffe > DynDiscordHopper {
  switchable S myName = "Giraffe";
  switchable S sliceID = "wgeuwbcepeoxfwma"; // "Height bot" slice - https://agi.blue/?slice=cxbfnllthxfsuwxw
  
  WaitForAnswerState state;
  
  class WaitForAnswerState {
    long waitingSince = now(), waitUntil = nowPlusSeconds(30.0);
    long channelID;
    S user;
    
    void check {
      if (now() >= waitUntil) {
        postInChannel(channelID, "Hey " + user + ", can't you answer?");
        state = null;
      }
    }
    
    void processInput(long userID, S input) {
      if (discord_parseUserMention(user) != userID) ret;
      S parsedHeight = ai_parsePersonHeightStatement(input);
      if (parsedHeight == null) ret;
      postInChannel(channelID, "Aha! " + user + " is " + parsedHeight + " tall");
      agiBlue_postInSlice(sliceID, "Discord user " + user, "is", parsedHeight + " tall");
      state = null;
    }
  }
  
  start {
    dm_vmBus_onMessage_q('discordGuildJoin, voidfunc(Map map) {
      ret unless map.get('module) == module();
      print("Got join");
      postInChannel(preferredChannelID,
        discordAt(getLong userID(map)) + ", " + questionToAsk());
      if (state == null)
        state = setAll(new WaitForAnswerState, channelID := preferredChannelID, user := discordAt(getLong userID(map)));
    });
    doEvery(1.0, r { if (state != null) state.check(); });
  }
  
  @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;
      
      if (state != null)
        state.processInput(getLong userID(map), input);

      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);
  }
  
}