asclass DynTalkBot2<A extends DynTalkBot2.ByServer> extends DynServerAwareDiscordBot<A> {
  switchable S myName = "Anonymous bot";
  transient bool useAGIBlueForDropPunctuation = true;
  transient bool preprocessAtSelfToMyName = true;
  transient bool dropPunctuation = true;
  transient bool ngbCommands = true;
  L<Long> authorizedUsers = ll(547706854680297473); // stefan
  
  void init {
    super.init();
    
    // We leave it as null to force subclasses to set this
    // (avoids serializing bad instances)
    // makeByServer = () -> (A) new ByServer;
    
    dm_vmBus_onMessage_q('discordGuildJoin, voidfunc(Map map) {
      ret unless map.get('module) == module();
      print("Got join");
      getByServer(getLong guildID(map), true)
        .onUserJoin(getLong userID(map), map);
    });
  }
  
  class ByServer extends DynServerAwareDiscordBot.ByServer {
    DynTalkBot2 m2() { ret DynTalkBot2.this; } // for debugging
    
    // overridable
    void onUserJoin(long userID, O... _) {}
  
    @Override S answer(S input, Map map) {
      try answer super.answer(input, map); // server-aware stuff
      ret processLine(input, map);
    }
    
    S dropMyPrefixOrNull(S s) {
      S sOld = s;
      s = dropPrefixICTrim_orNull(myPrefix(), s);
      if (s == null)
        print("no got prefix: " + quote(myPrefix()) + " / " + quote(sOld));
      ret s;
    }
  
    S processLine(S s, O... _) {
      s = preprocess(s, _);
      ret processSimplifiedLine(s, _);
    }
    
    S preprocess(S s, O... _) {
      print("Preprocessing: " + s);
      //pcall { print("mother: " + DynTalkBot2.this); }
      if (preprocessAtSelfToMyName && discordBotID != 0)
        s = replace(s, atSelf(), " " + myName + " ");
      if (dropPunctuation)
        s = dropPunctuation3_withAGIBlue(useAGIBlueForDropPunctuation, s);
      s = trim(simpleSpaces_noTok(s));
      print("simplified >> " + quote(s));
      ret s;
    }
    
    S myPrefix() {
      ret preprocessAtSelfToMyName ?
        (endsWithLetterOrDigit(myName) ? myName + " " : myName) :
        (dropPunctuation ? replace(atSelf(), "@", "") /* @ is killed by preprocessing */ : atSelf()) + " ";
    }
  
    // extend me
    S processSimplifiedLine(S input, O... _) {
      new Matches m;
      
      input = dropMyPrefixOrNull(input);
      if (input == null) null;
      
      if (ngbCommands) {
        if (eqicOneOf(input, "support channel", "support server", "support"))
          ret "Get support for me here: " + nextGenBotsDiscordInvite();
          
        if (eqicOneOf(input, "source", "sources", "source code"))
          ret snippetLink(programID());
      }
  
      if (swic_trim(input, "add master ", m)) {
        try answer checkAuth(_);
  
        add(authorizedUsers, parseFirstLong(m.rest()));
        change();
        
        ret "Okidoki. Have " + n2(l(authorizedUsers), "master");
      }
      
      if (eqic(input, "masters"))
        ret empty(authorizedUsers) ? "I have no masters." : "My masters are: " + joinWithComma(map discordAtPlusID(authorizedUsers));
      
      if (swic_trim(input, "delete master ", m)) {
        try answer checkAuth(_);
  
        remove(authorizedUsers, parseFirstLong(m.rest()));
        change();
        
        ret "Okidoki. Have " + n2(l(authorizedUsers), "master");
      }
      
      if (eqic(input, "guild count")) {
        try answer checkAuth(_);
        ret "Total guilds joined: " + guildCount + ". Live guilds: " + liveGuildCount();
      }
      
      null;
    }
    
    bool authed(O... _) {
      ret contains(authorizedUsers, optPar userID(_));
    }
  
    S checkAuth(O... _) {  
      long userID = longPar userID(_);
      bool result = authed(_);
      print("Auth-checking user ID: " + userID + " => " + result);
      if (!result) ret "You are not authorized";
      null;
    }
  }
  
  S serveGuildBackup(MessageChannel channel, Guild guild, S data) {
    if (guild == null) ret "Do this in a guild";
    if (containsDiscordToken(data)) ret "DISCORD TOKEN EXPOSED ALARM!! NOTIFY ADMINISTRATOR";
    S baseName = urlencode(jda_selfUserName(discord))
      + "-" + guild.getIdLong() + "-" + ymd_minus_hms();
    S zipName = baseName + ".zip";
    File zip = programFile("backups/" + zipName);
    createZipFileWithSingleTextFile(zip, baseName + ".txt", data);
    channel.sendMessage("Here's my latest brain contents for this guild.").addFile(zip).queue();
    null;
  }
  
  // use structure() on ByServer
  S serveGuildBackup(MessageChannel channel, Guild guild, ByServer bs) {
    ret serveGuildBackup(channel, guild, guildStructure(bs));
  }
  
  S guildStructure(ByServer bs) {
    ret structure_nullingInstancesOfClass(_getClass(module()), bs));
  }
  
  // e.g. for help texts
  S atSelfOrMyName() {
    ret preprocessAtSelfToMyName ? myName : atSelf();
  }
}