| … | |
… | |
| 720 | user => $PROFILE->{user}, |
720 | user => $PROFILE->{user}, |
| 721 | pass => $PROFILE->{password}, |
721 | pass => $PROFILE->{password}, |
| 722 | mapw => $mapsize, |
722 | mapw => $mapsize, |
| 723 | maph => $mapsize, |
723 | maph => $mapsize, |
| 724 | |
724 | |
| 725 | client => "cfplus $DC::VERSION $] $^O", |
725 | client => "$DC::VERSION $] $^O", |
| 726 | |
726 | |
| 727 | map_widget => $MAPWIDGET, |
727 | map_widget => $MAPWIDGET, |
| 728 | statusbox => $STATUSBOX, |
728 | statusbox => $STATUSBOX, |
| 729 | map => $MAP, |
729 | map => $MAP, |
| 730 | mapmap => $MAPMAP, |
730 | mapmap => $MAPMAP, |
| … | |
… | |
| 2194 | force_h => $::HEIGHT * 0.6, |
2194 | force_h => $::HEIGHT * 0.6, |
| 2195 | has_close_button => 1, |
2195 | has_close_button => 1, |
| 2196 | ; |
2196 | ; |
| 2197 | |
2197 | |
| 2198 | $METASERVER = metaserver_dialog; |
2198 | $METASERVER = metaserver_dialog; |
| 2199 | $MESSAGE_WINDOW = new DC::UI::Dockbar; |
2199 | $MESSAGE_WINDOW = new DC::UI::Dockbar (name => 'message_window', title => 'Messages'); |
| 2200 | $MESSAGE_DIST = new DC::MessageDistributor dockbar => $MESSAGE_WINDOW; |
2200 | $MESSAGE_DIST = new DC::MessageDistributor dockbar => $MESSAGE_WINDOW; |
| 2201 | |
2201 | |
| 2202 | $SETUP_DIALOG->add ($SETUP_NOTEBOOK = new DC::UI::Notebook expand => 1, debug => 1, |
2202 | $SETUP_DIALOG->add ($SETUP_NOTEBOOK = new DC::UI::Notebook expand => 1, debug => 1, |
| 2203 | filter => new DC::UI::ScrolledWindow expand => 1, scroll_y => 1); |
2203 | filter => new DC::UI::ScrolledWindow expand => 1, scroll_y => 1); |
| 2204 | |
2204 | |
| … | |
… | |
| 2374 | if (-e "$Deliantra::VARDIR/client.cf") { |
2374 | if (-e "$Deliantra::VARDIR/client.cf") { |
| 2375 | DC::read_cfg "$Deliantra::VARDIR/client.cf"; |
2375 | DC::read_cfg "$Deliantra::VARDIR/client.cf"; |
| 2376 | } else { |
2376 | } else { |
| 2377 | #TODO: compatibility cruft |
2377 | #TODO: compatibility cruft |
| 2378 | DC::read_cfg "$Deliantra::OLDDIR/cfplusrc"; |
2378 | DC::read_cfg "$Deliantra::OLDDIR/cfplusrc"; |
| 2379 | print STDERR "INFO: used old configuratrion file\n"; |
2379 | print STDERR "INFO: used old configuration file\n"; |
| 2380 | } |
2380 | } |
| 2381 | |
2381 | |
| 2382 | DC::DB::Server::run; |
2382 | DC::DB::Server::run; |
| 2383 | |
2383 | |
| 2384 | DC::UI::set_layout ($::CFG->{layout}); |
2384 | DC::UI::set_layout ($::CFG->{layout}); |
