… | |
… | |
13 | |
13 | |
14 | use Crossfire; |
14 | use Crossfire; |
15 | use Crossfire::Client; |
15 | use Crossfire::Client; |
16 | use Crossfire::Protocol; |
16 | use Crossfire::Protocol; |
17 | |
17 | |
18 | use Client::Util; |
18 | use Crossfire::Client::Util; |
19 | use Client::Widget; |
19 | use Crossfire::Client::Widget; |
20 | |
20 | |
21 | our $FACECACHE; |
21 | our $FACECACHE; |
22 | |
22 | |
23 | our $VERSION = '0.1'; |
23 | our $VERSION = '0.1'; |
24 | |
24 | |
… | |
… | |
167 | $face->{texture} = new_from_image Crossfire::Client::Texture delete $face->{image}; |
167 | $face->{texture} = new_from_image Crossfire::Client::Texture delete $face->{image}; |
168 | } |
168 | } |
169 | |
169 | |
170 | ############################################################################# |
170 | ############################################################################# |
171 | |
171 | |
|
|
172 | SDL::Init(SDL_INIT_EVERYTHING()); |
|
|
173 | |
172 | my $mapwidget = Client::MapWidget->new; |
174 | my $mapwidget = Crossfire::Client::Widget::MapWidget->new; |
|
|
175 | |
|
|
176 | #find_rcfile "uifont.ttf"; |
173 | |
177 | |
174 | $mapwidget->activate; |
178 | $mapwidget->activate; |
175 | $mapwidget->focus_in; |
179 | $mapwidget->focus_in; |
176 | |
180 | |
177 | Client::Util::read_cfg "$Crossfire::VARDIR/pclientrc"; |
181 | read_cfg "$Crossfire::VARDIR/pclientrc"; |
178 | |
182 | |
179 | $FACECACHE = eval { Crossfire::load_ref "$Crossfire::VARDIR/pclient.faces" } || {}; |
183 | $FACECACHE = eval { Crossfire::load_ref "$Crossfire::VARDIR/pclient.faces" } || {}; |
180 | |
184 | |
181 | $CFG ||= { |
185 | $CFG ||= { |
182 | width => 640, |
186 | width => 640, |
… | |
… | |
184 | fullscreen => 0, |
188 | fullscreen => 0, |
185 | host => "crossfire.schmorp.de", |
189 | host => "crossfire.schmorp.de", |
186 | port => 13327, |
190 | port => 13327, |
187 | }; |
191 | }; |
188 | |
192 | |
189 | Client::Util::run_config_dialog |
193 | Crossfire::Client::Util::run_config_dialog |
190 | login => sub { start_game }, |
194 | login => sub { start_game }, |
191 | logout => sub { stop_game }; |
195 | logout => sub { stop_game }; |
192 | |
196 | |
193 | main Gtk2; |
197 | main Gtk2; |
194 | |
198 | |