!7

static long attnTimeout = 10000;
sS denkmodulID = #1013938;

sS friendlySound = #1009564; //#1013870
sS angrySound = #1013884;
sS startUpSound = null; //#1013982;
sS defaultText = "Sorry";
sbool flatInfoBoxOnUtterance = true;

sS regexpActivator = "Katze|Katze|Katja|Götze|Qatar|Cookson|Captain|Cat|Kettle|Cut|Kurt|Computer";

static JTextArea ta;
static IVar<S> text;
static Class recognizer;
static Class denkmodul;
static long attention, skipTill;
sbool fullAttention;
sO speakFunction; // voidfunc(S)

p {
  if (isMain()) {
    substance();
    hideVMShowingConsole();
    outBuf(64K);
    autoRestart(10.0);
  }
  //javaSoundOnly(); // It just corrupts audio sometimes
  loadLibrary(#1013975);
  bot_ensureNotRunning("Katze.");
  recognizer = hotwireDependent(#1009816);
  //denkmodul = run(denkmodulID);
  if (nempty(denkmodulID))
    runInMCVarWithAutoRestart('denkmodul, denkmodulID, f denkmodulLoaded);
  //autoRestartModule('denkmodul, denkmodulID, true);
  
  if (isMain()) {
    text = persistentVar("Text");
    ta = fontSize(20, bindTextAreaToVar(text, jwordwraptextarea()));
    moveCaretToEnd(ta);
    //showFrame(ta);
  
    consoleIcon(#1101168);
    consoleMainContainer(); // cache it before changing layout
    //SingleComponentPanel scp = singleComponentPanel(); 
    //JSplitPane sp = jhsplit(ta, scp);
    //JPanel sp = jhgrid(ta, scp);
    //JTextArea cta = consoleTextArea();
    //replaceAWTComponent(cta, sp);
    //scp.setComponent(cta);
    //setSplitPaneLater(sp, 0.5);
    addToWindowLeftHalf(consoleFrame(), ta);
    doubleWindowSizeToTheLeft(consoleFrame());
    doubleWindowSizeToTheTop(consoleFrame());
  }
  
  set(recognizer, onFirstWebSocket := r {
    playMP3Snippet(startUpSound);    
  });

  set(recognizer, onUtterance := voidfunc(S utterance) {
    if (flatInfoBoxOnUtterance) flatInfoBox(utterance);
    if (ai_isStopListeningCommand(utterance)) {
      call(recognizer, 'stopRecognition);
      playBlip();
    }
    appendToTextAreaAndMoveCaret(ta, utterance + "\n");
    callAnswerMethodVerbose(utterance);
  });
  
  //set(recognizer, startRecognition := true);
  callMain(recognizer);
  //call(recognizer, 'switchToGerman);
}

sS answer(fS s) {
  if (sysNow() < skipTill) null;
  if (sysNow() >= attention+attnTimeout) attnOff();
  
  if (attention != 0) {
    attnOff();
    
    if "nichts|nix|vergiss es|nothing|forget it" {
      playWAVSnippet(#1013870);
    }
    
    try answer denk(s);
  }
  
  S reKatze;
  if (regexpICFind(reKatze = reKatze(), s)) {
    fullAttention = true;
    S rest;
    if (empty(reKatze) || eq(reKatze, ".")) rest = s; else {
      rest = regexpICLastGroup("(" + reKatze + ")(.*)", s);
    
      // e.g. "Computer[ ]spiel George Michael"
      if (startsWithLetter(rest) && !swic(rest, "spiel"))
        rest = trim(substring(rest, indexOf(rest, ' ')));
    }
    
    if (nempty(rest))
      try answer denk(rest);
    else {
      if (isShit(s))
        playMP3Snippet(angrySound);
      else
        playMP3Snippet(friendlySound);
      attention = sysNow();
      fullAttention = true;
      print("attn");
      ret "Yo";
    }
  }
  
  L<S> g = regexpGetGroups("(-?\\d+) x (-?\\d+)", s);
  if (g != null)
    ret speak_withBlip(str(parseLong(first(g))*parseLong(second(g))));
  
  null;
}

sbool isShit(S s) {
  ret regexpICFind("scheiß", s);
}

sS denk(S s) {
  print(">> " + s);
  
  S a = "Fehler";
  
  try {
    a = denk2(s);
  } catch e {
    if (eqic(getInnerMessage(e), "command stopped")) null;
    else printStackTrace(e);
  }
  
  if (empty(a)) {
    if (!fullAttention) null;
    a = defaultText;
  } else {
    attention = sysNow(); fullAttention = false;
    print("half attn");
  }
  
  skipTill = sysNow()+60000;
  try {
    speak_withBlip(a);
  } finally {
    skipTill = sysNow()+1000;
  }
  ret a;
}

sS denk2(S s) {
  if "neu" if (nempty(denkmodulID)) {
    upgradeModuleVar('denkmodul, denkmodulID, true);
    ret "OK";
  }
  
  print("Sending to denkmodul " + programID(denkmodul) + ": " + s);
  callOpt(denkmodul, 'setMsgGlobalID, getOpt(recognizer, 'lastGlobalID));
  S a = callAnswerFunction(denkmodul, s);
  print("Got: " + a);
  ret a;
}

svoid attnOff {
  if (attention == 0) ret;
  attention = 0;
  print("attn off");
}

sS speak_withBlip(S s) {
  if (speakFunction != null) {
    callF(speakFunction, s);
    ret s;
  } else
    ret speakInRecognizerLanguage/*_withBlip*/(s);
}

svoid denkmodulLoaded {
  setOpt(denkmodul, actions := true);
}

sS reKatze() {
  ret or((S) getOpt(denkmodul, 'regexpActivator), regexpActivator);
}

Began life as a copy of #1013871