ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/Protocol.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.208 by root, Sun Jan 11 03:19:47 2009 UTC vs.
Revision 1.209 by root, Sun Jan 11 22:11:23 2009 UTC

1package DC::Protocol; 1package DC::Protocol;
2 2
3use utf8; 3use utf8;
4use strict; 4use strict;
5
6use Guard ();
5 7
6use Deliantra::Protocol::Constants; 8use Deliantra::Protocol::Constants;
7 9
8use DC; 10use DC;
9use DC::DB; 11use DC::DB;
… …
287 tooltip => $DC::UI::TOOLTIP, 289 tooltip => $DC::UI::TOOLTIP,
288 290
289 mapwidget => $::MAPWIDGET, 291 mapwidget => $::MAPWIDGET,
290 menubar => $::MENUBAR, 292 menubar => $::MENUBAR,
291 menupopup => $::MENUPOPUP, 293 menupopup => $::MENUPOPUP,
294 pickup_enable => $::PICKUP_ENABLE,
292 buttonbar => $::BUTTONBAR, 295 buttonbar => $::BUTTONBAR,
293 metaserver => $::METASERVER, 296 metaserver => $::METASERVER,
294 buttonbar => $::BUTTONBAR, 297 buttonbar => $::BUTTONBAR,
295 login_button => $::LOGIN_BUTTON, 298 login_button => $::LOGIN_BUTTON,
296 quit_dialog => $::QUIT_DIALOG, 299 quit_dialog => $::QUIT_DIALOG,
… …
520 523
521 $::GAUGES->{hp} ->set_value ($hp, $hp_m); 524 $::GAUGES->{hp} ->set_value ($hp, $hp_m);
522 $::GAUGES->{mana} ->set_value ($sp, $sp_m); 525 $::GAUGES->{mana} ->set_value ($sp, $sp_m);
523 $::GAUGES->{food} ->set_value ($fo, $fo_m); 526 $::GAUGES->{food} ->set_value ($fo, $fo_m);
524 $::GAUGES->{grace} ->set_value ($gr, $gr_m); 527 $::GAUGES->{grace} ->set_value ($gr, $gr_m);
525 $::GAUGES->{exp} ->set_text ("Exp: " . (::formsep ($stats->{+CS_STAT_EXP64})) 528 $::GAUGES->{exp} ->set_label ("Exp: " . (::formsep ($stats->{+CS_STAT_EXP64}))#d#
526 . " (lvl " . ($stats->{+CS_STAT_LEVEL} * 1) . ")"); 529 . " (lvl " . ($stats->{+CS_STAT_LEVEL} * 1) . ")");
527 $::GAUGES->{prg} ->set_value ($stats->{+CS_STAT_LEVEL}, $stats->{+CS_STAT_EXP64}); 530 $::GAUGES->{exp} ->set_value ($stats->{+CS_STAT_LEVEL}, $stats->{+CS_STAT_EXP64});
528 $::GAUGES->{range} ->set_text ($stats->{+CS_STAT_RANGE}); 531 $::GAUGES->{range} ->set_text ($stats->{+CS_STAT_RANGE});
529 my $title = $stats->{+CS_STAT_TITLE}; 532 my $title = $stats->{+CS_STAT_TITLE};
530 $title =~ s/^Player: //; 533 $title =~ s/^Player: //;
531 $::STATWIDS->{title} ->set_text ("Title: " . $title); 534 $::STATWIDS->{title} ->set_text ("Title: " . $title);
532 535
… …
645 my $sw = $self->{skillwid}{$idx}; 648 my $sw = $self->{skillwid}{$idx};
646 $sw->[0]->set_text (::formsep ($val->[1])); 649 $sw->[0]->set_text (::formsep ($val->[1]));
647 $sw->[1]->set_text ($val->[0] * 1); 650 $sw->[1]->set_text ($val->[0] * 1);
648 $sw->[2]->set_value (@$val); 651 $sw->[2]->set_value (@$val);
649 652
650 $::GAUGES->{sklprg}->set_label ("$name %d%%"); 653 $::GAUGES->{skillexp}->set_label ("$name %d%%");
651 $::GAUGES->{sklprg}->set_value (@$val); 654 $::GAUGES->{skillexp}->set_value (@$val);
652 } 655 }
653} 656}
654 657
655sub user_send { 658sub user_send {
656 my ($self, $command) = @_; 659 my ($self, $command) = @_;
… …
1010 my ($self, $num, $cb) = @_; 1013 my ($self, $num, $cb) = @_;
1011 1014
1012 push @{$self->{face_cb}{$num}}, $cb; 1015 push @{$self->{face_cb}{$num}}, $cb;
1013 1016
1014 defined wantarray 1017 defined wantarray
1015 ? DC::guard { 1018 ? Guard::guard {
1016 @{$self->{face_cb}{$num}} 1019 @{$self->{face_cb}{$num}}
1017 = grep $_ != $cb, 1020 = grep $_ != $cb,
1018 @{$self->{face_cb}{$num}}; 1021 @{$self->{face_cb}{$num}};
1019 } 1022 }
1020 : () 1023 : ()
… …
1393 }); 1396 });
1394 1397
1395 $self->update_server_info; 1398 $self->update_server_info;
1396 1399
1397 $self->send_command ("output-rate $::CFG->{output_rate}") if $::CFG->{output_rate} > 0; 1400 $self->send_command ("output-rate $::CFG->{output_rate}") if $::CFG->{output_rate} > 0;
1398 $self->send_command ("pickup $::CFG->{pickup}"); 1401 $self->send_pickup ($::CFG->{pickup});
1399 1402
1400 $self->send_exti_msg (clientlog => sprintf "OpenGL Info: %s [%s]", 1403 $self->send_exti_msg (clientlog => sprintf "OpenGL Info: %s [%s]",
1401 DC::OpenGL::gl_vendor, DC::OpenGL::gl_version);#d# 1404 DC::OpenGL::gl_vendor, DC::OpenGL::gl_version);#d#
1402} 1405}
1403 1406

Diff Legend

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