sclass GazelleTalkToBot {

  long botID; // Gazelle post ID

  S cookie = "test_" + aGlobalID();

  int n; // number of messages loaded

  double serverTimeout = 10, networkTimeout = 10;

  new L<Msg> msgs;

  *(long *botID) {}

  swappable void onNewDialog() {}

  swappable void onNewMsg(Msg msg) {}

  void grab {

    S json = loadPageWithTimeoutAndParamsSilently(serverTimeout+networkTimeout, "https://gazelle.rocks/incremental",

      +cookie,

      _botConfig := "codePost=" + botID,

      json := 1,

      a := zeroToNull(n),

      timeout := iceil(serverTimeout));

    if (empty(json)) ret; // just timed out

    Map map = decodeJSONMap(json);

    onResult(map);

  }

  swappable void onResult(Map map) {

    if (map.containsKey("n")) n = toInt(map.get("n"));

    if (isTrue(map.get("newDialog"))) onNewDialog();

    fOr (Map m : (L<Map>) map.get("msgs")) {

      new Msg msg;

      msg.fromUser = isTrue(m.get("fromUser"));

      msg.text = (S) m.get("text");

      msg.time = toLong(m.get("time"));

      msgs.add(msg);

      print("Got msg: " + msg);

      pcall { onNewMsg(msg); }

    }

  }

  // send a message to bot

  void send(S message) {

    S response = loadPageWithTimeoutAndParamsSilently(networkTimeout, "https://gazelle.rocks/msg",

      +cookie,

      _botConfig := "codePost=" + botID,

      +message);

    if (!startsWith(response, "OK")) print("Server said: " + response);

  }

}