!7

static Pair<SS, SS> text2tag, tag2answer;
static SS text2tag_symbols;
static new ThreadLocal<Session> session;
static ThreadLocal<L<S>> buttons = new ThreadLocal;
static Map<S, Int> spellMap;
static L<S> countries;

concept Session {
  S cookie;
  Double lastDollarValue;
  S lastQuestion;
}

sbool debug;

svoid setSession(S cookie) {
  session.set(uniq_sync(Session, +cookie));
}

svoid clearSession(S cookie) {
  deleteConcepts(Session, +cookie);
}

p {
  db();
  
  // load stuff
  spellMap = loadSpellList(#1008389);

  veryBigConsole();
  bot();
}

sS returnQuestion(S q) {
  cset(session!, lastQuestion := q);
  ret q;
}

sS answer(S s) {
  if (session! == null) setSession("default");
  buttons.set(null);
  if (creator() == null) if "debug" set debug;
  
  S lq = session->lastQuestion;
  cset(session!, lastQuestion := null);
  
  if (eq(lq, "Would you like some tea?")) {
    if "yes" ret "Here's your tea.";
    if "no" ret "Very well then.";
  }
  
  if "test buttons" {
    buttons.set(ll("Yes", "No"));
    ret returnQuestion("Would you like some tea?");
  }

  S _s = s;
  s = levenAttract(spellMap, s);
  if (neqic(s, _s)) print("Spell-correct => " + s);

  ret "Sorry, I didn't understand that";
}

sS initialMessage() {
  ret "Stefan's Hypercube Bot here. What's up?";
}