| … | |
… | |
| 310 | my $win = new CFClient::UI::Frame ( |
310 | my $win = new CFClient::UI::Frame ( |
| 311 | y => $HEIGHT - $gh, x => 0, user_w => $WIDTH, user_h => $gh |
311 | y => $HEIGHT - $gh, x => 0, user_w => $WIDTH, user_h => $gh |
| 312 | ); |
312 | ); |
| 313 | $win->add (my $vb = new CFClient::UI::VBox); |
313 | $win->add (my $vb = new CFClient::UI::VBox); |
| 314 | |
314 | |
| 315 | $vb->add (my $hbg = new CFClient::UI::HBox expand => 1); |
315 | $vb->add (my $hb1 = new CFClient::UI::HBox expand => 1); |
| 316 | |
316 | |
| 317 | $hbg->add (new CFClient::UI::Empty expand => 1); |
317 | $hb1->add (new CFClient::UI::Empty expand => 1); |
| 318 | $hbg->add (my $hb = new CFClient::UI::HBox); |
318 | $hb1->add (my $hb = new CFClient::UI::HBox); |
| 319 | $hb->add (my $hg = new CFClient::UI::Gauge type => 'hp', tooltip => "Health points"); |
319 | $hb->add (my $hg = new CFClient::UI::Gauge type => 'hp', |
|
|
320 | tooltip => "Health points - depletes when you get wounded, refills when you heal or idle"); |
| 320 | $hb->add (my $mg = new CFClient::UI::Gauge type => 'mana', tooltip => "Spellpoints"); |
321 | $hb->add (my $mg = new CFClient::UI::Gauge type => 'mana', |
|
|
322 | tooltip => "Spell points - deplete when you cast wizard spells, refills when you idle"); |
| 321 | $hb->add (my $gg = new CFClient::UI::Gauge type => 'grace', tooltip => "Grace"); |
323 | $hb->add (my $gg = new CFClient::UI::Gauge type => 'grace', |
|
|
324 | tooltip => "Grace points - deplete when you cast priest spells, refills when you pray"); |
| 322 | $hb->add (my $fg = new CFClient::UI::Gauge type => 'food', tooltip => "Food"); |
325 | $hb->add (my $fg = new CFClient::UI::Gauge type => 'food', |
|
|
326 | tooltip => "Food - depletes with time, faster when you heal or build mana, refills when you eat healthy food"); |
| 323 | |
327 | |
|
|
328 | $vb->add (my $hb2 = new CFClient::UI::HBox); |
|
|
329 | |
|
|
330 | $hb2->add (new CFClient::UI::Empty expand => 1); |
|
|
331 | $hb2->add (my $vb2 = new CFClient::UI::VBox); |
| 324 | $vb->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, text => "XP: 0 LVL: 0"); |
332 | $vb2->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, |
|
|
333 | tooltip => "Experience points and level - increases when you kill monsters or successfully use skills"); |
| 325 | $vb->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, text => "Rng:"); |
334 | $vb2->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, |
|
|
335 | tooltip => "Ranged attack - how you attack when you press shift-cursor (spell, skill, weapon etc.)"); |
| 326 | |
336 | |
| 327 | $GAUGES = { |
337 | $GAUGES = { |
| 328 | exp => $exp, win => $win, range => $rng, |
338 | exp => $exp, win => $win, range => $rng, |
| 329 | food => $fg, mana => $mg, hp => $hg, grace => $gg |
339 | food => $fg, mana => $mg, hp => $hg, grace => $gg |
| 330 | }; |
340 | }; |
