!7

cmodule GThingsLister > DynObjectTable<S> {
  // standard fields for a Gazelle module
  
  S globalID = aGlobalID();
  bool active = true;
  
  LS thingsSaid = syncList();
  LS thingsNotYetSaid = syncList();
  
  start {
    main.addAll(thingsNotYetSaid, "frogs", "shoes");
  }
  
  S giveMeOne() {
    if (empty(thingsNotYetSaid)) {
      dm_gazelle_stopThisModule();
      ret "I don't know any more body parts...";
    }
    S s = removeRandom(thingsNotYetSaid);
    thingsSaid.add(s);
    ret s + "!";
  }
  
  S answer(S s) {
    if (!active) null;
    if "done|stop|gazelle stop|stop gazelle|thanks|thanks gazelle" {
      dm_gazelle_stopThisModule();
      ret "OK";
    }
    if "ok|cool|yes|good|next one please"
      ret giveMeOne();
    null;
  }
  
  S initialAnswer(O... _) {
    ret "Hello! I list things that are not actually body parts (it's just a demo).";
  }
}