!7

cmodule OntologyHelperBot > DynAttractorBot {
  AttractorBot makeBot() {
    ret new SingleAttractorBot {
      void process(S s) {
        s = trim(s);
        
        if (eqic(s, "!random"))
          ret with emitAnswer(call(dm_randomOntologyEntry(), 'render));
        
        if (eqic(s, "!homepage"))
          ret with emitAnswer("http://monkey.botcompany.de");
          
        if (eqic(s, "!classify")) {
          virtual Is entry = dm_randomUnclassifiedOntologyEntry();
          if (entry == null) ret with emitAnswer("Nothing to classify!");
          tempAttractor(new YesAttractor(r { call(entry, 'setField, useful := true) }));
          tempAttractor(new NoAttractor(r { call(entry, 'setField, useful := false) }));
          ret with emitAnswer("Is this an acceptable general truth? " + quote);
      }
    };
  }
}