ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/bin/pclient
(Generate patch)

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.183 by root, Tue Apr 25 11:18:50 2006 UTC vs.
Revision 1.186 by root, Tue Apr 25 12:10:58 2006 UTC

… …
381} 381}
382 382
383sub make_stats_window { 383sub make_stats_window {
384 my $tgw = new CFClient::UI::FancyFrame x => $WIDTH * 2/5, y => 0, title => "Stats"; 384 my $tgw = new CFClient::UI::FancyFrame x => $WIDTH * 2/5, y => 0, title => "Stats";
385 385
386 $tgw->add (my $vb = new CFClient::UI::VBox); 386 $tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);
387 $vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1); 387 $vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1);
388 $vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1); 388 $vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1);
389 389
390 $vb->add (my $hb = new CFClient::UI::HBox expand => 1); 390 $vb->add (my $hb = new CFClient::UI::HBox expand => 1);
391 391
… …
410 [2, 5, st_wspd => "WSp", 10.54, "Weapon Speed, how many attacks you may make per unit of time (0.120s). Higher values indicate faster attack speed. Current weapon and Dex effect the value of weapon speed."], 410 [2, 5, st_wspd => "WSp", 10.54, "Weapon Speed, how many attacks you may make per unit of time (0.120s). Higher values indicate faster attack speed. Current weapon and Dex effect the value of weapon speed."],
411 ) { 411 ) {
412 my ($col, $row, $id, $label, $template, $tooltip) = @$_; 412 my ($col, $row, $id, $label, $template, $tooltip) = @$_;
413 413
414 $tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label 414 $tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label
415 can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip); 415 font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip);
416 $tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label 416 $tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label
417 can_hover => 1, can_events => 1, fg => $black, valign => 0, align => -1, text => $label, tooltip => $tooltip); 417 font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $black, valign => 0, align => -1, text => $label, tooltip => $tooltip);
418 } 418 }
419 419
420 $hb->add (my $tbl2 = new CFClient::UI::Table expand => 1); 420 $hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);
421 421
422 my $row = 0; 422 my $row = 0;
… …
447 blind fear tund elec cold ghit/) 447 blind fear tund elec cold ghit/)
448 { 448 {
449 $tbl2->add ($col, $row, 449 $tbl2->add ($col, $row,
450 $STATWIDS->{"res_$_"} = 450 $STATWIDS->{"res_$_"} =
451 new CFClient::UI::Label 451 new CFClient::UI::Label
452 font => $FONT_FIXED,
452 template => "-100%", 453 template => "-100%",
453 align => +1, 454 align => +1,
454 valign => 0, 455 valign => 0,
455 can_events => 1, 456 can_events => 1,
456 can_hover => 1, 457 can_hover => 1,
457 tooltip => $resist_names{$_}, 458 tooltip => $resist_names{$_},
458 ); 459 );
459 $tbl2->add ($col + 1, $row, new CFClient::UI::Image 460 $tbl2->add ($col + 1, $row, new CFClient::UI::Image
461 font => $FONT_FIXED,
460 can_hover => 1, 462 can_hover => 1,
461 can_events => 1, 463 can_events => 1,
462 image => "ui/resist/resist_$_.png", 464 image => "ui/resist/resist_$_.png",
463 tooltip => $resist_names{$_}, 465 tooltip => $resist_names{$_},
464 ); 466 );
… …
724} 726}
725 727
726sub message_window { 728sub message_window {
727 my $window = new CFClient::UI::FancyFrame 729 my $window = new CFClient::UI::FancyFrame
728 title => "Messages", 730 title => "Messages",
729 border_bg => [1, 1, 1, 0.5], 731 border_bg => [1, 1, 1, 1],
730 bg => [0.3, 0.3, 0.3, 0.8], 732 bg => [0, 0, 0, 0.5],
731 user_w => int $::WIDTH / 3, 733 user_w => int $::WIDTH / 3,
732 user_h => int $::HEIGHT / 5, 734 user_h => int $::HEIGHT / 5,
733 child => (my $vbox = new CFClient::UI::VBox); 735 child => (my $vbox = new CFClient::UI::VBox);
734 736
735 $vbox->add ($LOGVIEW = new CFClient::UI::TextView 737 $vbox->add ($LOGVIEW = new CFClient::UI::TextView

Diff Legend

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