| … | |
… | |
| 61 | our $STATUS_LINE; |
61 | our $STATUS_LINE; |
| 62 | our $DEBUG_STATUS; |
62 | our $DEBUG_STATUS; |
| 63 | |
63 | |
| 64 | sub status { |
64 | sub status { |
| 65 | $STATUS_LINE->set_text ($_[0]); |
65 | $STATUS_LINE->set_text ($_[0]); |
| 66 | my ($w, $h) = $STATUS_LINE->size_request; |
|
|
| 67 | $STATUS_LINE->size_allocate (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $h, $w, $h); |
66 | $STATUS_LINE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $STATUS_LINE->{h}); |
| 68 | } |
67 | } |
| 69 | |
68 | |
| 70 | sub debug { |
69 | sub debug { |
| 71 | $DEBUG_STATUS->set_text ($_[0]); |
70 | $DEBUG_STATUS->set_text ($_[0]); |
| 72 | my ($w, $h) = $DEBUG_STATUS->size_request; |
71 | $DEBUG_STATUS->move ($WIDTH - $DEBUG_STATUS->{w}, 0, $DEBUG_STATUS->{w}, $DEBUG_STATUS->{h}); |
| 73 | $DEBUG_STATUS->size_allocate ($WIDTH - $w, 0, $w, $h); |
|
|
| 74 | } |
72 | } |
| 75 | |
73 | |
| 76 | sub start_game { |
74 | sub start_game { |
| 77 | status "logging in..."; |
75 | status "logging in..."; |
| 78 | |
76 | |
| … | |
… | |
| 351 | |
349 | |
| 352 | $window |
350 | $window |
| 353 | } |
351 | } |
| 354 | |
352 | |
| 355 | sub sdl_init { |
353 | sub sdl_init { |
| 356 | #SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO | SDL_INIT_NOPARACHUTE |
354 | SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO | SDL_INIT_NOPARACHUTE |
| 357 | SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO |
355 | #SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO |
| 358 | and die "SDL::Init failed!\n"; |
356 | and die "SDL::Init failed!\n"; |
| 359 | } |
357 | } |
| 360 | |
358 | |
| 361 | sub init_screen { |
359 | sub init_screen { |
| 362 | sdl_init; |
360 | sdl_init; |
| … | |
… | |
| 440 | status "Configuration Saved"; |
438 | status "Configuration Saved"; |
| 441 | }); |
439 | }); |
| 442 | |
440 | |
| 443 | $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup |
441 | $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup |
| 444 | |
442 | |
| 445 | my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH - 150, y => 0); |
443 | my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH - 300, y => 0); |
| 446 | $tgw->add (my $hb = new CFClient::UI::HBox (req_w => 60, req_h => 150)); |
444 | $tgw->add (my $hbox = new CFClient::UI::HBox ()); |
| 447 | $hb->add (my $fg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'food', expand => 1)); |
445 | |
|
|
446 | $hbox->add (my $hg = new CFClient::UI::VGauge (gauge => 'hp')); |
| 448 | $hb->add (my $mg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'mana', expand => 1)); |
447 | $hbox->add (my $mg = new CFClient::UI::VGauge (gauge => 'mana')); |
| 449 | $hb->add (my $hg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'hp', expand => 1)); |
|
|
| 450 | $hb->add (my $gg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'grace', expand => 1)); |
448 | $hbox->add (my $gg = new CFClient::UI::VGauge (gauge => 'grace')); |
|
|
449 | $hbox->add (my $fg = new CFClient::UI::VGauge (gauge => 'food')); |
| 451 | |
450 | |
| 452 | $GAUGES = { food => $fg, mana => $mg, hp => $hg, grace => $gg }; |
451 | $GAUGES = { food => $fg, mana => $mg, hp => $hg, grace => $gg }; |
| 453 | $CFClient::UI::ROOT->add ($tgw); |
452 | $CFClient::UI::ROOT->add ($tgw); |
| 454 | } |
453 | } |
| 455 | |
454 | |
