--- kgsueme/bin/kgsueme	2003/07/25 17:48:30	1.53
+++ kgsueme/bin/kgsueme	2004/06/06 07:55:06	1.65
@@ -1,5 +1,7 @@
 #!/usr/bin/perl
 
+use strict 'vars';
+
 use Glib;
 use Gtk2;
 
@@ -32,26 +34,54 @@
 
    our $config;
    our $LIBDIR = ".";
-   our $APPDIR = "$LIBDIR/kgsueme";
-   our $IMGDIR = "$LIBDIR/images";
-   our $SNDDIR = "$LIBDIR/sounds";
-
-   for (qw(util.pl gtk.pl chat.pl image.pl sound.pl user.pl gamelist.pl userlist.pl challenge.pl
-           board.pl game.pl room.pl roomlist.pl app.pl)) {
-      require "$APPDIR/$_";
+
+   use KGS::Constants;
+
+   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 $@;
    }
 }
 
-our $app = new app;
-
-if (0) {
+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 $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 (1) {
-         my $data = Storable::retrieve "board1.dat";
+      if (0) {
+         my $data = Storable::retrieve "board2.dat";
          while (my ($k, $v) = each %$data) {
             $game->{$k} = $v;
          }
@@ -60,20 +90,6 @@
 
       if (0) {
          $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;
@@ -84,10 +100,13 @@
          $game->{cur_board}{label}[0][2] = "AWA";
          $game->{board}->set_board ($game->{cur_board});
       }
-      $game->{window}->show_all;
    }
+   main Gtk2;
+
 }
 
+our $app = new app;
+
 main Gtk2;
 
 $app->destroy;