!7

p {
  O winner = loadWinnerAI(#1006908);
  print("Winner: " + winner);
  print("Structure: " + structure(winner));
  
  BufferedImage img = shootScreen2();
  O rgbImage = nuForeignObject(winner, "main$RGBImage", img);
  new Game game;
  O exportedGame = proxy(winner, game);
  set(winner, "game", exportedGame);
  set(winner, "ai", "image", rgbImage);
  callOpt(winner, "go");
  print("Point: " + game.submitted);
}

sclass Game {
  Pt submitted;
  
  L submit(O point) {
    submitted = (Pt) quickImport(point);
    null;
  }
}

static O loadWinnerAI(S progID) {
  S code = loadProgramTextFile(progID, "winner.text");
  if (empty(code)) fail("No winner in program: " + progID);
  O program = hotwire(progID);
  ret unstructureInRealm(code, program);
}