!7

p {

  final File file = getProgramFile(#1007478, "my-universe.txt");

  final JTextField tf = jtextfield(trim(loadTextFile(file, aGlobalID())));

  showForm("Choose your universe", tf, r-thread {

    pcall-messagebox {

      S myUniverse = assertPossibleGlobalID(getTextTrim(tf));

      saveTextFile(file, myUniverse);

      RemoteDB db = new RemoteDB(#1006463, true); // auto start AI Concepts

      L<RC> l = db.xlist("AIConcept");

      bool haveUniverse = false;

      print("Found " + n(l, "concepts"));

      for (RC rc : l) {

        S id = rc.getString("globalID");

        if (eq(id, myUniverse)) haveUniverse = true;

        S u = rc.getString("originatingUniverse");

        print(rc.id + ": " + u);

        if (empty(u)) {

          print("  => Adopting to " + myUniverse + "!");

          rc.set(originatingUniverse := myUniverse);

        }

      }

      if (!haveUniverse) {

        print("Making universe concept " + myUniverse);

        db.xnew("AIConcept", globalID := myUniverse, name := "My Universe", comment := "Feel free to rename this.", originatingUniverse := myUniverse);

      }

      db.close();

      print("Done!");

    }

  });

}