!7

cmodule Monkey > DynDiscordHopper {

  switchable S myName = "Monkey";

  transient PKIKeyPair keys;

  start {

    keys = keyPairForProgram();

    dm_vmBus_onMessage_q('discordGuildLeave, voidfunc(Map map) {

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

      O user = rcall getUser(map.get('event));

      S name = cast rcall getName(user);

      postInChannel(preferredChannelID, nempty(name) ? name + " just left us" : "I sense a leaver");

    });

  }

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

    ret mapEachLine_tlft_nempties(input, s -> {

      new Matches m;

      if "what's your name" ret myName;

      if (swic_trim(s, "!power ", m)) {

        ret or2(joinWithSpacedPlus(ai_powerWordsExpand(agiBlue_parsedPowerWords(), tok_splitAtPlus(m.rest()))), "No results");

      }

      try answer super.answer(s, map);

      //try answer agiBlue_getAnswer(s);

      try answer agiBlue_lookup(s, 'answer , /*'is, 'means*/);

      if (flexMatchIC("what does * mean", s, m))

        //try answer agiBlue_lookup($1, 'means);

        try answer random(agiBlue_multiLookupInAllSlices($1, 'means);

      if (contains(s, "..."))

        try answer random(listMinusElementIC(s, (LS) collect q(jsonDecodeList(loadPageWithParams("http://agi.blue/bot/allPagesContainingRegexp", q := "^" + ellipsisToDotStarRegexp(s) + "$", max := 10)))));

      T3S triple = agiBlue_parseTriple(s);

      if (triple != null && !any isDollarVar(tripleToList(triple))) {

        agiBot_postSignedEntry(keys, triple);

        ret "Stored. <" + agiBlue_linkForPhrase(triple.a) + ">";

      }

      null;

    });

  }

}