| … | |
… | |
| 259 | $hb->add (my $mg = new CFClient::UI::Gauge type => 'mana', expand => 1); |
259 | $hb->add (my $mg = new CFClient::UI::Gauge type => 'mana', expand => 1); |
| 260 | $hb->add (my $gg = new CFClient::UI::Gauge type => 'grace', expand => 1); |
260 | $hb->add (my $gg = new CFClient::UI::Gauge type => 'grace', expand => 1); |
| 261 | $hb->add (my $fg = new CFClient::UI::Gauge type => 'food', expand => 1); |
261 | $hb->add (my $fg = new CFClient::UI::Gauge type => 'food', expand => 1); |
| 262 | $vb->add (my $exp = new CFClient::UI::Label valign => 0, align => -1, text => "XP:"); |
262 | $vb->add (my $exp = new CFClient::UI::Label valign => 0, align => -1, text => "XP:"); |
| 263 | $vb->add (my $lvl = new CFClient::UI::Label valign => 0, align => -1, text => "Lvl:"); |
263 | $vb->add (my $lvl = new CFClient::UI::Label valign => 0, align => -1, text => "Lvl:"); |
|
|
264 | $vb->add (my $rng = new CFClient::UI::Label valign => 0, align => -1, text => "Rng:"); |
| 264 | |
265 | |
| 265 | |
266 | |
| 266 | $GAUGES = { |
267 | $GAUGES = { |
| 267 | exp => $exp, lvl => $lvl, win => $win, |
268 | exp => $exp, lvl => $lvl, win => $win, range => $rng, |
| 268 | food => $fg, mana => $mg, hp => $hg, grace => $gg |
269 | food => $fg, mana => $mg, hp => $hg, grace => $gg |
| 269 | }; |
270 | }; |
| 270 | $win |
271 | $win |
| 271 | } |
272 | } |
| 272 | |
273 | |
| … | |
… | |
| 356 | $GAUGES->{hp} ->set_value ($hp, $hp_m); |
357 | $GAUGES->{hp} ->set_value ($hp, $hp_m); |
| 357 | $GAUGES->{mana} ->set_value ($sp, $sp_m); |
358 | $GAUGES->{mana} ->set_value ($sp, $sp_m); |
| 358 | $GAUGES->{food} ->set_value ($fo, $fo_m); |
359 | $GAUGES->{food} ->set_value ($fo, $fo_m); |
| 359 | $GAUGES->{grace} ->set_value ($gr, $gr_m); |
360 | $GAUGES->{grace} ->set_value ($gr, $gr_m); |
| 360 | $GAUGES->{exp} ->set_text ("XP: " . ($stats->{11} || $stats->{28})); |
361 | $GAUGES->{exp} ->set_text ("XP: " . ($stats->{11} || $stats->{28})); |
|
|
362 | my $rng = $stats->{20}; |
|
|
363 | $rng =~ s/^Range: //; # thank you so much dear server |
|
|
364 | $GAUGES->{range} ->set_text ("Rng: " . $rng); |
| 361 | $GAUGES->{lvl} ->set_text ("LVL: " . $stats->{12}); |
365 | $GAUGES->{lvl} ->set_text ("LVL: " . $stats->{12}); |
| 362 | $STATWIDS->{title} ->set_text ("Title: " . $stats->{21}); |
366 | $STATWIDS->{title} ->set_text ("Title: " . $stats->{21}); |
| 363 | |
367 | |
| 364 | if (0) { # this code can vanish, just wanted to preserver it for a checkin |
368 | if (0) { # this code can vanish, just wanted to preserver it for a checkin |
| 365 | $STATWIDS->{st_str} ->set_text (sprintf "S%d", $stats->{5}); |
369 | $STATWIDS->{st_str} ->set_text (sprintf "S%d", $stats->{5}); |
