!7

static LS questions = ll(
  "Do you have a car?",
  "Do you have a girlfriend?",
  "Do you own a boat?",
  "Are you tired?",
);

concept Answer {
  S question, answer;
}

compact module AskYesNoQuestions > DynDialogWithUser {
  start {
    db();
    if (empty(dialog))
      addLine('Computer, random(questions));
    onUserInput(voidfunc(S input) {
      DialogItem q = last(dialog);
      if (q != null && eqic(q.author, 'Computer)) {
        uniq_sync(Answer, question := q.line, +answer);
        addLine('Computer, "Thanks, saved.");
      }
    });
  }
}