[ViewVC] Diff of: cvs/kgsueme/kgsueme/game.pl

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.85 by pcg, Thu May 20 23:17:25 2004 UTC vs.
Revision 1.86 by pcg, Fri May 21 03:18:15 2004 UTC

    my $self = shift;
    $self->signal_connect (destroy => sub { $_[0]->stop });
    $self->{set}    = sub { };
-   $self->{format} = sub { "ERROR" };
+   $self->{format} = sub { "???" };
 }
 sub configure {
    my ($self, $timesys, $main, $interval, $count) = @_;
    $self->{boardbox} = new Gtk2::VBox;
    $hpane->pack1((my $vbox = new Gtk2::VBox), 1, 1);
-   # challenge
-   $self->{challenge} = new challenge channel => $self->{channel};
    # board box (aspect/canvas)
    $self->{boardbox}->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0);
    {
    $vbox->pack_start ((my $hbox = new Gtk2::HBox 1), 0, 1, 0);
    $hbox->add ($self->{userpanel}[$_] = new game::userpanel colour => $_)
       for COLOUR_WHITE, COLOUR_BLACK;
-   $vbox->pack_start (($self->{chat} = new chat), 1, 1, 0);
+   $vbox->pack_start (($self->{chat} = new superchat), 1, 1, 0);
    weaken $self->{chat};
+   $self->{rules_inlay} = $self->{chat}->new_switchable_inlay ("Game Rules", sub { $self->draw_rules (@_) }, 1);
    $self->{chat}->signal_connect (command => sub {
       my ($chat, $cmd, $arg) = @_;
       if ($cmd eq "rsave") {
          Storable::nstore { tree => $self->{tree}, curnode => $self->{curnode}, move => $self->{move} }, $arg;#d#
    $self->{user}[COLOUR_BLACK] = $self->{user1};
    $self->{user}[COLOUR_WHITE] = $self->{user2};
    # show board
    if ($self->is_inprogress) {
-      $self->{left}->remove ($self->{challenge}->widget) if $self->{challenge} && $self->{boardbox}->parent;
       $self->{left}->add ($self->{boardbox}) unless $self->{boardbox}->parent;
-   } else {
+      if (my $ch = delete $self->{challenge}) {
-      $self->{left}->remove ($self->{boardbox}) if $self->{boardbox}->parent;
+         (delete $_->{inlay})->clear for values %$ch;
-      $self->{left}->add ($self->{challenge}->widget) unless $self->{challenge}->widget->parent;
+      }
    }
    $self->{left}->show_all;
    # view text
    eval { #d#
    };
    $self->{chat}->append_text ($text);
 }
-sub event_update_rules {
+sub draw_rules {
-   my ($self, $rules) = @_;
+   my ($self, $inlay) = @_;
-   if ($self->{user}) {
+   my $rules = $self->{rules};
-      $self->{userpanel}[$_]->configure ($self->{app}, $self->{user}[$_], $rules)
-         for COLOUR_BLACK, COLOUR_WHITE;
-   }
-   sound::play 3, "gamestart";
+   my $text = "";
-   my $text = "\n<header>Game Rules</header>";
    $text .= "\nRuleset: " . $ruleset{$rules->{ruleset}};
    $text .= "\nTime: ";
    } elsif ($rules->{timesys} == TIMESYS_CANADIAN) {
       $text .= util::format_time $rules->{time};
       $text .= sprintf " + %s/%d CAN", util::format_time $rules->{interval}, $rules->{count};
    }
+   $inlay->clear;
-   $self->{chat}->append_text ("<infoblock>$text</infoblock>");
+   $inlay->append_text ("<infoblock>$text</infoblock>");
+}
+sub event_update_rules {
+   my ($self, $rules) = @_;
+   $self->{rules} = $rules;
+   if ($self->{user}) {
+      $self->{userpanel}[$_]->configure ($self->{app}, $self->{user}[$_], $rules)
+         for COLOUR_BLACK, COLOUR_WHITE;
+   }
+   sound::play 3, "gamestart";
+   $self->draw_rules ($self->{rules_inlay});
 }
 sub inject_resign_game {
    my ($self, $msg) = @_;
                                . "\nBlack Score " . (util::toxml $msg->{blackscore}->as_string)
                                . "</infoblock>"
                               );
 }
+sub draw_challenge {
+   my ($self, $c) = @_;
+   my $inlay     = $c->{inlay};
+   my $challenge = $c->{challenge};
+   my $rules     = $challenge->{rules};
+   my $as_black = $challenge->{user1}{name} eq $self->{conn}{name};
+   my $opponent = $as_black ? $challenge->{user2} : $challenge->{user1};
+   $inlay->clear;
+   $inlay->append_text ("\n<challenge>Challenge to <user>" . $opponent->as_string . "</user></challenge>");
+   $inlay->append_text ("\nHandicap: $rules->{handicap}");
+#bless( (
+#                gametype => 3,
+#                user1 => 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 => 0
+#                                }, 'KGS::Rules' ),
+#                user2 => bless( {
+#                                  flags => 436220808,
+#                                  name => 'Nerdamus'
+#                                }, 'KGS::User' )
+#              ), 'KGS::Challenge' )
+}
 sub event_challenge {
    my ($self, $challenge) = @_;
+   my $as_black = $challenge->{user1}{name} eq $self->{conn}{name};
+   my $opponent = $as_black ? $challenge->{user2} : $challenge->{user1};
+   my $c = $self->{challenge}{$opponent->{name}} ||= {};
+   $c->{inlay} ||= $self->{chat}->new_inlay;
+   $c->{challenge} = $challenge;
+   $self->draw_challenge ($c);
-   use KGS::Listener::Debug;
+#   require KGS::Listener::Debug;
-   $self->{chat}->append_text ("\n".KGS::Listener::Debug::dumpval($challenge));
+#   $self->{chat}->append_text ("\n".KGS::Listener::Debug::dumpval($challenge));
 }
 1;

Diff Legend

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

Comparing kgsueme/kgsueme/game.pl (file contents): Revision 1.85 by pcg, Thu May 20 23:17:25 2004 UTC vs. Revision 1.86 by pcg, Fri May 21 03:18:15 2004 UTC

Diff Legend

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.85 by pcg, Thu May 20 23:17:25 2004 UTC vs.
Revision 1.86 by pcg, Fri May 21 03:18:15 2004 UTC