[ViewVC] Diff of: cvs/kgsueme/bin/kgsueme

Comparing kgsueme/bin/kgsueme (file contents):
Revision 1.46 by pcg, Fri Jun 27 01:54:32 2003 UTC vs.
Revision 1.47 by pcg, Sat Jun 28 04:26:15 2003 UTC

    our $IMGDIR = "$LIBDIR/images";
    our $SNDDIR = "$LIBDIR/sounds";
    for (qw(util.pl gtk.pl image.pl sound.pl gamelist.pl userlist.pl challenge.pl
            board.pl game.pl room.pl roomlist.pl appwin.pl)) {
-      print "loading module $_\n";
       require "$APPDIR/$_";
    }
 }
 our $appwin = new appwin;
    for (19) {
       my $board = new game size => $_;# %{Storable::retrieve "testboard.storable"};
       if (1) {
          $board->{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) {
+               $board->{cur_board}{board}[$x][$y] =
+                  $x[rand @x];
+            }
+         }
          $board->{cur_board}{board}[0][0] = MARK_B;
          $board->{cur_board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W;
          $board->{cur_board}{board}[2][2] = MARK_W | MARK_TRIANGLE;
          $board->{cur_board}{board}[1][2] = MARK_B | MARK_LABEL;
          $board->{cur_board}{label}[1][2] = "198";

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines