[227992] Pixabay Bot

sclass Bot {
  S lastQuery;
  L<Map> lastSearchResult;

  S initialMessage() {
    ret [[Hello! I will find Pixabay images for you. Just type what you would like to see, e.g. "ocean".]];
  }

  S answer(S s) {
    if "more" {
      if (empty(lastSearchResult)) ret "Got no more";
      ret "Here's more " + lastQuery + nextResult();
    }
      
    lastQuery = s;
    lastSearchResult = pixabaySearch(s);
    if (empty(lastSearchResult)) ret "No results for: " + lastQuery;
    ret "Behold " + lastQuery + nextResult();
  }

  S nextResult() {
    Map result = popFirst(lastSearchResult);
    S imgURL = cast result.get("webformatURL");
    ret " (say \"more\" to see more):<br>"
      + himgsrc(imgURL, style := "max-width: 100% !important; height: auto",
       width := result.get("webformatWidth"), height := result.get("webformatHeight")
       //onload := [[$("#chat_converse").scrollTop(1000000)]]
    );
  }
}

sO calc() { ret new Bot; }