sclass AI_WhatDidYouDoTodayBot > AttractorBot {

  Long now;

  S name;

  run {

    say("What did you do today?");

  }

  // CONFIG

  class SetNameAttractor > Attractor {

    S name;

    public bool matches(S s) {

      new Matches m;

      if "My name is ..."

        ret true with name = $1;

      if "I have no name"

        ret true with name = null;

      false;

    }

    run {

      if (nempty(name) && eqic(AI_WhatDidYouDoTodayBot.this.name, name))

        ret with say("I know, " + name);

      AI_WhatDidYouDoTodayBot.this.name = name;

      say("Hello " + or2(name, "stranger"));

    }

  }

  class Attractor1 > Attractor {

    public bool matches(S s) {

      new Matches m;

      if "I ..." true;

      false;

    }

    run {

      say(nempty(name)

        ? switcheroo_youToI(switcheroo_iToName(name, input))

        : switcheroo(input));

    }

  }

  *() {

    standardAttractors(new SetNameAttractor, new Attractor1);

  }

}