#!/usr/bin/perl

use Glib;
use Gtk2;

use KGS::Protocol;
use KGS::Listener::Debug;

use Audio::Data;
use Audio::Play;

use IO::Socket::INET;
use List::Util;
use Errno;

use Storable;

init Gtk2;

our $HACK = 1; # do NEVER enable. ;)
our $DEBUG_EXPOSE = 0;

if ($HACK) {
   $KGS::debug = 1;
}

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 game.pl room.pl roomlist.pl appwin.pl)) {
   print "loading module $_\n";
   require "$APPDIR/$_";
}

our $appwin = new appwin;

if (1 && -f "testboard.storable") {
   use KGS::Constants;

   for (19) {
      my $board = new game %{Storable::retrieve "testboard.storable"};

      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";
      }
      $board->{window}->show_all;
   }
}

main Gtk2;

$appwin->destroy;

Gtk2->main_iteration while Gtk2->events_pending;

1;