| … | |
… | |
| 58 | use Compress::LZF; |
58 | use Compress::LZF; |
| 59 | |
59 | |
| 60 | use CFPlus; |
60 | use CFPlus; |
| 61 | use CFPlus::OpenGL (); |
61 | use CFPlus::OpenGL (); |
| 62 | use CFPlus::Protocol; |
62 | use CFPlus::Protocol; |
|
|
63 | use CFPlus::DB; |
| 63 | use CFPlus::UI; |
64 | use CFPlus::UI; |
| 64 | use CFPlus::UI::Inventory; |
65 | use CFPlus::UI::Inventory; |
| 65 | use CFPlus::UI::SpellList; |
66 | use CFPlus::UI::SpellList; |
| 66 | use CFPlus::Pod; |
67 | use CFPlus::Pod; |
| 67 | use CFPlus::MapWidget; |
68 | use CFPlus::MapWidget; |
| … | |
… | |
| 395 | status "logging in..."; |
396 | status "logging in..."; |
| 396 | |
397 | |
| 397 | $LOGIN_BUTTON->set_text ("Logout"); |
398 | $LOGIN_BUTTON->set_text ("Logout"); |
| 398 | $SETUP_DIALOG->hide; |
399 | $SETUP_DIALOG->hide; |
| 399 | |
400 | |
| 400 | my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / ::T; |
401 | my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32; |
| 401 | |
402 | |
| 402 | my ($host, $port) = split /:/, $PROFILE->{host}; |
403 | my ($host, $port) = split /:/, $PROFILE->{host}; |
| 403 | |
404 | |
| 404 | $MAP = new CFPlus::Map; |
405 | $MAP = new CFPlus::Map; |
| 405 | |
406 | |
| … | |
… | |
| 2082 | |
2083 | |
| 2083 | $SIG{INT} = $SIG{TERM} = sub { exit }; |
2084 | $SIG{INT} = $SIG{TERM} = sub { exit }; |
| 2084 | |
2085 | |
| 2085 | { |
2086 | { |
| 2086 | CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc"; |
2087 | CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc"; |
|
|
2088 | CFPlus::DB::Server::run; |
|
|
2089 | |
| 2087 | CFPlus::UI::set_layout ($::CFG->{layout}); |
2090 | CFPlus::UI::set_layout ($::CFG->{layout}); |
| 2088 | |
2091 | |
| 2089 | my %DEF_CFG = ( |
2092 | my %DEF_CFG = ( |
| 2090 | sdl_mode => 0, |
2093 | sdl_mode => 0, |
| 2091 | width => 640, |
2094 | width => 640, |
