… | |
… | |
36 | |
36 | |
37 | use CFClient; |
37 | use CFClient; |
38 | use CFClient::UI; |
38 | use CFClient::UI; |
39 | use CFClient::MapWidget; |
39 | use CFClient::MapWidget; |
40 | |
40 | |
41 | $SIG{__DIE__} = sub { CFClient::fatal "$_[0]"; exit 1 }; |
41 | $Event::DIED = sub { |
|
|
42 | CFClient::error $_[1]; |
|
|
43 | }; |
42 | |
44 | |
43 | our $VERSION = '0.1'; |
45 | our $VERSION = '0.1'; |
44 | |
46 | |
45 | my $MAX_FPS = 60; |
47 | my $MAX_FPS = 60; |
46 | my $MIN_FPS = 5; # unused as of yet |
48 | my $MIN_FPS = 5; # unused as of yet |
… | |
… | |
837 | $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup |
839 | $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup |
838 | } |
840 | } |
839 | |
841 | |
840 | sub video_shutdown { |
842 | sub video_shutdown { |
841 | $CFClient::UI::ROOT->{children} = []; |
843 | $CFClient::UI::ROOT->{children} = []; |
|
|
844 | undef $CFClient::UI::GRAB; |
|
|
845 | undef $CFClient::UI::HOVER; |
842 | undef $SDL_ACTIVE; |
846 | undef $SDL_ACTIVE; |
843 | } |
847 | } |
844 | |
848 | |
845 | my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d# |
849 | my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d# |
846 | my $bgmusic;#TODO#hack#d# |
850 | my $bgmusic;#TODO#hack#d# |