ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/kgsueme/game.pl
(Generate patch)

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.81 by pcg, Fri Apr 2 23:22:30 2004 UTC vs.
Revision 1.87 by pcg, Fri May 21 15:32:02 2004 UTC

1use utf8; 1use utf8;
2
3use Scalar::Util ();
2 4
3package game::goclock; 5package game::goclock;
4 6
5# Lo and Behold! I admit it! The rounding stuff etc.. in goclock 7# Lo and Behold! I admit it! The rounding stuff etc.. in goclock
6# is completely borked. 8# is completely borked.
7 9
8use Time::HiRes (); 10use Time::HiRes ();
9 11
10use KGS::Constants; 12use KGS::Constants;
11 13
12use base gtk::widget; 14use Glib::Object::Subclass
15 Gtk2::Label;
13 16
14sub new { 17sub INIT_INSTANCE {
15 my $class = shift; 18 my $self = shift;
16 my $self = $class->SUPER::new(@_);
17 19
18 $self->{widget} = new Gtk2::Label; 20 $self->signal_connect (destroy => sub { $_[0]->stop });
19 21
20 $self->{set} = sub { }; 22 $self->{set} = sub { };
21 $self->{format} = sub { "ERROR" }; 23 $self->{format} = sub { "???" };
22
23 $self;
24} 24}
25 25
26sub configure { 26sub configure {
27 my ($self, $timesys, $main, $interval, $count) = @_; 27 my ($self, $timesys, $main, $interval, $count) = @_;
28 28
… …
75 my $timer = $self->{time} + $self->{start} - $timestamp; 75 my $timer = $self->{time} + $self->{start} - $timestamp;
76 76
77 # we round the timer value slightly... the protocol isn't exact anyways, 77 # we round the timer value slightly... the protocol isn't exact anyways,
78 # and this gives smoother timers ;) 78 # and this gives smoother timers ;)
79 my @format = $self->{format}->(int ($timer + 0.4)); 79 my @format = $self->{format}->(int ($timer + 0.4));
80 $self->{widget}->set_text ($self->{format}->(int ($timer + 0.4))); 80 $self->set_text ($self->{format}->(int ($timer + 0.4)));
81 81
82 $timer - int $timer; 82 $timer - int $timer;
83} 83}
84 84
85sub set_time { 85sub set_time {
… …
118 my ($self) = @_; 118 my ($self) = @_;
119 119
120 remove Glib::Source delete $self->{timeout} if $self->{timeout}; 120 remove Glib::Source delete $self->{timeout} if $self->{timeout};
121} 121}
122 122
123sub destroy {
124 my ($self) = @_;
125 $self->stop;
126 $self->SUPER::destroy;
127}
128
129package game::userpanel; 123package game::userpanel;
130 124
131use base gtk::widget; 125use Glib::Object::Subclass
126 Gtk2::HBox,
127 properties => [
128 Glib::ParamSpec->IV ("colour", "colour", "User Colour", 0, 1, 0, [qw(construct-only writable)]),
129 ];
132 130
133sub new { 131sub INIT_INSTANCE {
134 my $class = shift; 132 my ($self) = @_;
135 my $self = $class->SUPER::new(@_);
136 133
137 $self->{widget} = new Gtk2::HBox;
138
139 $self->{widget}->add (my $vbox = new Gtk2::VBox); 134 $self->add (my $vbox = new Gtk2::VBox);
140 135
141 $vbox->add ($self->{name} = new Gtk2::Label $self->{name}); 136 $vbox->add ($self->{name} = new Gtk2::Label $self->{name});
142 $vbox->add ($self->{info} = new Gtk2::Label ""); 137 $vbox->add ($self->{info} = new Gtk2::Label "");
143 $vbox->add (($self->{clock} = new game::goclock)->widget); 138 $vbox->add ($self->{clock} = new game::goclock); Scalar::Util::weaken $self->{clock};
144 139
145 $vbox->add ($self->{imagebox} = new Gtk2::VBox); 140 $vbox->add ($self->{imagebox} = new Gtk2::VBox);
146 141
147 $self; 142 $self;
148} 143}
… …
184 $self->{info}->set_text ("$captures pris."); 179 $self->{info}->set_text ("$captures pris.");
185} 180}
186 181
187package game; 182package game;
188 183
184use Scalar::Util qw(weaken);
185
189use KGS::Constants; 186use KGS::Constants;
190use KGS::Game::Board; 187use KGS::Game::Board;
191 188
192use Gtk2::GoBoard; 189use Gtk2::GoBoard;
193 190
191use Glib::Object::Subclass
192 Gtk2::Window;
193
194use base KGS::Listener::Game; 194use base KGS::Listener::Game;
195use base KGS::Game; 195use base KGS::Game;
196 196
197use base gtk::widget;
198
199use POSIX qw(ceil); 197use POSIX qw(ceil);
200 198
201sub new { 199sub new {
202 my $self = shift; 200 my ($self, %arg) = @_;
203 $self = $self->SUPER::new(@_); 201 $self = $self->Glib::Object::new;
202 $self->{$_} = delete $arg{$_} for keys %arg;
204 203
205 $self->listen($self->{conn}); 204 $self->listen ($self->{conn});
206 205
207 $self->{window} = new Gtk2::Window 'toplevel';
208 gtk::state $self->{window}, "game::window", undef, window_size => [600, 500]; 206 gtk::state $self, "game::window", undef, window_size => [600, 500];
209 207
208 $self->signal_connect (delete_event => sub { $self->part; 1 });
210 $self->{window}->signal_connect(delete_event => sub { 209 $self->signal_connect (destroy => sub {
211 $self->part; 210 $self->unlisten;
212 $self->destroy; 211 delete $self->{app}{game}{$self->{channel}};
213 1; 212 %{$_[0]} = ();
214 }); 213 });#d#
215 214
216 $self->{window}->add($self->{hpane} = new Gtk2::HPaned); 215 $self->add (my $hpane = new Gtk2::HPaned);
217 gtk::state $self->{hpane}, "game::hpane", undef, position => 500; 216 gtk::state $hpane, "game::hpane", undef, position => 500;
218 217
219 # LEFT PANE 218 # LEFT PANE
220 219
221 $self->{hpane}->pack1(($self->{left} = new Gtk2::VBox), 1, 0); 220 $hpane->pack1 (($self->{left} = new Gtk2::VBox), 1, 0);
222 221
223 $self->{boardbox} = new Gtk2::VBox; 222 $self->{boardbox} = new Gtk2::VBox;
224 223
225 $self->{hpane}->pack1((my $vbox = new Gtk2::VBox), 1, 1); 224 $hpane->pack1((my $vbox = new Gtk2::VBox), 1, 1);
226 225
227 # challenge
228
229 $self->{challenge} = new challenge channel => $self->{channel};
230
231 # board box (aspect/canvas) 226 # board box (aspect/canvas)
232 227
233 $self->{boardbox}->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0); 228 $self->{boardbox}->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0);
234 229
235 { 230 {
… …
251 246
252 $self->{boardbox}->add ($self->{board} = new Gtk2::GoBoard size => $self->{size}); 247 $self->{boardbox}->add ($self->{board} = new Gtk2::GoBoard size => $self->{size});
253 248
254 # RIGHT PANE 249 # RIGHT PANE
255 250
256 $self->{hpane}->pack2(($self->{vpane} = new Gtk2::VPaned), 1, 1); 251 $hpane->pack2 (($self->{vpane} = new Gtk2::VPaned), 1, 1);
257 $self->{hpane}->set(position_set => 1); 252 $hpane->set (position_set => 1);
258 gtk::state $self->{vpane}, "game::vpane", $self->{name}, position => 80; 253 gtk::state $self->{vpane}, "game::vpane", $self->{name}, position => 80;
259 254
260 $self->{vpane}->add(my $sw = new Gtk2::ScrolledWindow); 255 $self->{vpane}->add (my $sw = new Gtk2::ScrolledWindow);
261 $sw->set_policy("automatic", "always"); 256 $sw->set_policy ("automatic", "always");
262 257
263 $sw->add(($self->{userlist} = new userlist)->widget); 258 $sw->add ($self->{userlist} = new userlist);
264 259
265 $self->{vpane}->add(my $vbox = new Gtk2::VBox); 260 $self->{vpane}->add (my $vbox = new Gtk2::VBox);
266 261
267 $vbox->pack_start((my $hbox = new Gtk2::HBox 1), 0, 1, 0); 262 $vbox->pack_start ((my $hbox = new Gtk2::HBox 1), 0, 1, 0);
263
268 $hbox->add (($self->{userpanel}[COLOUR_WHITE] = new game::userpanel colour => COLOUR_WHITE)->widget); 264 $hbox->add ($self->{userpanel}[$_] = new game::userpanel colour => $_)
269 $hbox->add (($self->{userpanel}[COLOUR_BLACK] = new game::userpanel colour => COLOUR_BLACK)->widget); 265 for COLOUR_WHITE, COLOUR_BLACK;
270 266
271 $vbox->pack_start(($self->{chat} = new chat), 1, 1, 0); 267 $vbox->pack_start (($self->{chat} = new superchat), 1, 1, 0);
272 268
269 $self->{rules_inlay} = $self->{chat}->new_switchable_inlay ("Game Rules", sub { $self->draw_rules (@_) }, 1);
270
273 $self->{chat}->signal_connect(command => sub { 271 $self->{chat}->signal_connect (command => sub {
274 my ($chat, $cmd, $arg) = @_; 272 my ($chat, $cmd, $arg) = @_;
275 if ($cmd eq "rsave") { 273 if ($cmd eq "rsave") {
276 Storable::nstore { tree => $self->{tree}, curnode => $self->{curnode}, move => $self->{move} }, $arg;#d# 274 Storable::nstore { tree => $self->{tree}, curnode => $self->{curnode}, move => $self->{move} }, $arg;#d#
277 } else { 275 } else {
278 $self->{app}->do_command ($chat, $cmd, $arg, userlist => $self->{userlist}, game => $self); 276 $self->{app}->do_command ($chat, $cmd, $arg, userlist => $self->{userlist}, game => $self);
279 } 277 }
280 }); 278 });
281 279
282 $self->event_update_game;
283 $self; 280 $self;
284} 281}
285 282
286sub event_update_users { 283sub event_update_users {
287 my ($self, $add, $update, $remove) = @_; 284 my ($self, $add, $update, $remove) = @_;
… …
309sub join { 306sub join {
310 my ($self) = @_; 307 my ($self) = @_;
311 return if $self->{joined}; 308 return if $self->{joined};
312 309
313 $self->SUPER::join; 310 $self->SUPER::join;
314
315 $self->{window}->show_all;
316}
317
318sub part {
319 my ($self) = @_;
320
321 $self->SUPER::part;
322 $self->destroy;
323} 311}
324 312
325sub update_board { 313sub update_board {
326 my ($self) = @_; 314 my ($self) = @_;
327 return unless $self->{path}; 315 return unless $self->{path};
… …
404 $self->{chat}->append_text ($text); 392 $self->{chat}->append_text ($text);
405} 393}
406 394
407sub event_join { 395sub event_join {
408 my ($self) = @_; 396 my ($self) = @_;
397
409 $self->SUPER::event_join; 398 $self->SUPER::event_join (@_);
399 $self->event_update_game;
400 $self->show_all;
410} 401}
411 402
412sub event_part { 403sub event_part {
413 my ($self) = @_; 404 my ($self) = @_;
405
414 $self->SUPER::event_part; 406 $self->SUPER::event_part;
415 $self->destroy; 407 $self->destroy;
416} 408}
417 409
418sub event_move { 410sub event_move {
… …
422 414
423sub event_update_game { 415sub event_update_game {
424 my ($self) = @_; 416 my ($self) = @_;
425 $self->SUPER::event_update_game; 417 $self->SUPER::event_update_game;
426 418
427 return unless $self->{window}; 419 return unless $self->{joined};
428 420
429 my $title = defined $self->{channel} 421 my $title = defined $self->{channel}
430 ? $self->owner->as_string . " " . $self->opponent_string 422 ? $self->owner->as_string . " " . $self->opponent_string
431 : "Game Window"; 423 : "Game Window";
432 $self->{window}->set_title("KGS Game $title"); 424 $self->set_title("KGS Game $title");
433 $self->{title}->set_text ($title); 425 $self->{title}->set_text ($title);
434 426
435 $self->{user}[COLOUR_BLACK] = $self->{user1}; 427 $self->{user}[COLOUR_BLACK] = $self->{user1};
436 $self->{user}[COLOUR_WHITE] = $self->{user2}; 428 $self->{user}[COLOUR_WHITE] = $self->{user2};
437 429
438 # show board 430 # show board
439
440 if ($self->is_inprogress) { 431 if ($self->is_inprogress) {
441 $self->{left}->remove ($self->{challenge}->widget) if $self->{challenge} && $self->{boardbox}->parent;
442 $self->{left}->add ($self->{boardbox}) unless $self->{boardbox}->parent; 432 $self->{left}->add ($self->{boardbox}) unless $self->{boardbox}->parent;
443 } else { 433 if (my $ch = delete $self->{challenge}) {
444 $self->{left}->remove ($self->{boardbox}) if $self->{boardbox}->parent; 434 (delete $_->{inlay})->clear for values %$ch;
445 $self->{left}->add ($self->{challenge}->widget) unless $self->{challenge}->widget->parent; 435 }
446 } 436 }
437
447 $self->{left}->show_all; 438 $self->{left}->show_all;
448 439
449 # view text 440 # view text
450 441
451 eval { #d# 442 eval { #d#
… …
487 }; 478 };
488 479
489 $self->{chat}->append_text ($text); 480 $self->{chat}->append_text ($text);
490} 481}
491 482
492sub event_update_rules { 483sub draw_rules {
493 my ($self, $rules) = @_; 484 my ($self, $inlay) = @_;
494 485
495 $self->{userpanel}[$_]->configure ($self->{app}, $self->{user}[$_], $rules) 486 my $rules = $self->{rules};
496 for COLOUR_BLACK, COLOUR_WHITE;
497 487
498 sound::play 3, "gamestart"; 488 my $text = "";
499
500 my $text = "\n<header>Game Rules</header>";
501 489
502 $text .= "\nRuleset: " . $ruleset{$rules->{ruleset}}; 490 $text .= "\nRuleset: " . $ruleset{$rules->{ruleset}};
503 491
504 $text .= "\nTime: "; 492 $text .= "\nTime: ";
505 493
… …
514 } elsif ($rules->{timesys} == TIMESYS_CANADIAN) { 502 } elsif ($rules->{timesys} == TIMESYS_CANADIAN) {
515 $text .= util::format_time $rules->{time}; 503 $text .= util::format_time $rules->{time};
516 $text .= sprintf " + %s/%d CAN", util::format_time $rules->{interval}, $rules->{count}; 504 $text .= sprintf " + %s/%d CAN", util::format_time $rules->{interval}, $rules->{count};
517 } 505 }
518 506
507 $inlay->clear;
519 $self->{chat}->append_text ("<infoblock>$text</infoblock>"); 508 $inlay->append_text ("<infoblock>$text</infoblock>");
509}
510
511sub event_update_rules {
512 my ($self, $rules) = @_;
513
514 $self->{rules} = $rules;
515
516 if ($self->{user}) {
517 $self->{userpanel}[$_]->configure ($self->{app}, $self->{user}[$_], $rules)
518 for COLOUR_BLACK, COLOUR_WHITE;
519 }
520
521 sound::play 3, "gamestart";
522
523 $self->draw_rules ($self->{rules_inlay});
520} 524}
521 525
522sub inject_resign_game { 526sub inject_resign_game {
523 my ($self, $msg) = @_; 527 my ($self, $msg) = @_;
524 528
… …
538 . "\nBlack Score " . (util::toxml $msg->{blackscore}->as_string) 542 . "\nBlack Score " . (util::toxml $msg->{blackscore}->as_string)
539 . "</infoblock>" 543 . "</infoblock>"
540 ); 544 );
541} 545}
542 546
547sub draw_challenge {
548 my ($self, $c) = @_;
549
550 my $inlay = $c->{inlay};
551 my $challenge = $c->{challenge};
552 my $rules = $challenge->{rules};
553
554 my $as_black = $challenge->{user1}{name} eq $self->{conn}{name};
555 my $opponent = $as_black ? $challenge->{user2} : $challenge->{user1};
556
557 $inlay->clear;
558 $inlay->append_text ("\n<challenge>Challenge to <user>" . $opponent->as_string . "</user></challenge>");
559 $inlay->append_text ("\nHandicap: $rules->{handicap}");
560
561#bless( (
562# gametype => 3,
563# user1 => bless( {
564# flags => 2633,
565# name => 'dorkusx'
566# }, 'KGS::User' ),
567# rules => bless( {
568# count => 5,
569# time => 900,
570# timesys => 2,
571# interval => 30,
572# komi => '6.5',
573# size => 19,
574# ruleset => 0,
575# handicap => 0
576# }, 'KGS::Rules' ),
577# user2 => bless( {
578# flags => 436220808,
579# name => 'Nerdamus'
580# }, 'KGS::User' )
581# ), 'KGS::Challenge' )
582}
583
543sub event_challenge { 584sub event_challenge {
544 my ($self, $challenge) = @_; 585 my ($self, $challenge) = @_;
545 586
587 my $as_black = $challenge->{user1}{name} eq $self->{conn}{name};
588 my $opponent = $as_black ? $challenge->{user2} : $challenge->{user1};
589
590 my $c = $self->{challenge}{$opponent->{name}} ||= {};
591
592 $c->{inlay} ||= $self->{chat}->new_inlay;
593 $c->{challenge} = $challenge;
594
595 $self->draw_challenge ($c);
596
546 use KGS::Listener::Debug; 597# require KGS::Listener::Debug;
547 $self->{chat}->append_text ("\n".KGS::Listener::Debug::dumpval($challenge)); 598# $self->{chat}->append_text ("\n".KGS::Listener::Debug::dumpval($challenge));
548}
549
550sub destroy {
551 my ($self) = @_;
552
553 delete $self->{app}{gamelist}{game}{$self->{channel}};
554 $self->{userpanel}[$_] && (delete $self->{userpanel}[$_])->destroy
555 for COLOUR_BLACK, COLOUR_WHITE;
556 $self->SUPER::destroy;
557} 599}
558 600
5591; 6011;
560 602

Diff Legend

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