--- kgsueme/bin/kgsueme	2003/06/05 20:06:03	1.40
+++ kgsueme/bin/kgsueme	2004/06/03 03:46:21	1.64
@@ -27,44 +27,101 @@
    $KGS::debug = 1;
 }
 
-our $VERSION = "0.1";
+BEGIN {
+   our $VERSION = "0.1";
 
-our $config;
-our $LIBDIR = ".";
-our $APPDIR = "$LIBDIR/kgsueme";
-our $IMGDIR = "$LIBDIR/images";
-our $SNDDIR = "$LIBDIR/sounds";
-
-for (qw(util.pl gtk.pl image.pl sound.pl gamelist.pl userlist.pl challenge.pl game.pl room.pl roomlist.pl appwin.pl)) {
-   print "loading module $_\n";
-   require "$APPDIR/$_";
-}
+   our $config;
+   our $LIBDIR = ".";
 
-our $appwin = new appwin;
+   use KGS::Constants;
 
-if (0 && -f "testboard.storable") {
+   for (qw(util.pl gtk.pl chat.pl sound.pl user.pl gamelist.pl userlist.pl
+           game.pl room.pl roomlist.pl app.pl)) {
+      require (KGS::Constants::findfile "KGS/kgsueme/$_");
+      die if $@;
+   }
+}
+
+if ($ENV{KGSUEME_DEBUG}) {
    use KGS::Constants;
 
+   my $window = new Gtk2::Window 'toplevel';
+   $window->add (new game::userpanel colour => 0);
+   $window->show_all;
+
+   main Gtk2;
+
    for (19) {
-      my $board = new game %{Storable::retrieve "testboard.storable"};
+      my $game = new game size => $_;
+
+      $game->event_challenge (
+bless( {
+                type => 0,
+                black => bless( {
+                                  flags => 2633,
+                                  name => 'dorkusx'
+                                }, 'KGS::User' ),
+                rules => bless( {
+                                  count => 5,
+                                  time => 900,
+                                  timesys => 2,
+                                  interval => 30,
+                                  komi => '6.5',
+                                  size => 19,
+                                  ruleset => 0,
+                                  handicap => 2,
+                                }, 'KGS::Rules' ),
+                white => bless( {
+                                  flags => 436220808,
+                                  name => 'Nerdamus'
+                                }, 'KGS::User' )
+              }, 'KGS::Challenge' ));
+
+      
+      if (0) {
+         my $data = Storable::retrieve "board2.dat";
+         while (my ($k, $v) = each %$data) {
+            $game->{$k} = $v;
+         }
+         $game->event_update_tree;
+      }
 
       if (0) {
-         $board->{board} = new KGS::Game::Board;
-         $board->{board}{board}[0][0] = MARK_B;
-         $board->{board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W;
-         $board->{board}{board}[2][2] = MARK_W | MARK_TRIANGLE;
-         $board->{board}{board}[1][2] = MARK_B | MARK_LABEL;
-         $board->{board}{label}[1][2] = "198";
-         $board->{board}{board}[0][2] = MARK_W | MARK_LABEL;
-         $board->{board}{label}[0][2] = "AWA";
+         $game->{cur_board} = new KGS::Game::Board;
+         my @x = (
+               #MARK_B,
+               #MARK_W,
+               #MARK_GRAY_B | MARK_SMALL_W,
+               #MARK_GRAY_W | MARK_SMALL_B,
+               #MARK_W | MARK_TRIANGLE,
+               0, 0, 0,
+               );
+         for $x (0..18) {
+            for $y (0..18) {
+               $game->{cur_board}{board}[$x][$y] =
+                  $x[rand @x];
+            }
+         }
+
+         $game->{cur_board}{board}[0][0] = MARK_B;
+         $game->{cur_board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W;
+         $game->{cur_board}{board}[2][2] = MARK_W | MARK_TRIANGLE;
+         $game->{cur_board}{board}[1][2] = MARK_B | MARK_LABEL;
+         $game->{cur_board}{label}[1][2] = "198";
+         $game->{cur_board}{board}[0][2] = MARK_W | MARK_LABEL;
+         $game->{cur_board}{label}[0][2] = "AWA";
+         $game->{board}->set_board ($game->{cur_board});
       }
-      $board->{window}->show_all;
    }
+   main Gtk2;
+
 }
 
+our $app = new app;
+
 main Gtk2;
 
-$appwin->destroy;
+$app->destroy;
 
 Gtk2->main_iteration while Gtk2->events_pending;