[ViewVC] Contents of: cvs/deliantra/Deliantra-Client/bin/pclient

#!/opt/bin/perl

use strict;
use utf8;

use Glib;
use Gtk2 -init;

use SDL;
use SDL::App;
use SDL::Event;
use SDL::Surface;
use SDL::OpenGL;
use SDL::OpenGL::Constants;

use Crossfire;
use Crossfire::Client;
use Crossfire::Protocol;

use Crossfire::Client::Widget;

our $FACECACHE;

our $VERSION = '0.1';

our %GL_EXT;

our $CFG;
our $CONN;

our $WIDTH;
our $HEIGHT;
our $FULLSCREEN;

our $FONTSIZE;
our $FOCUS;
our $HOVER;

our $SDL_TIMER;
our $SDL_APP;
our $SDL_EV = new SDL::Event;
our %SDL_CB;

our @GL_INIT; # hooks called on every gl init

our $ALT_ENTER_MESSAGE;
our $STATUS_LINE;

our $TOPLEVEL;

our $tw; # Test widget #d#

my $last_refresh;
my %ANIMATE;
my $refresh_handler;

sub init_screen {
   $SDL_APP = new SDL::App
      -flags         => SDL_ANYFORMAT | SDL_HWSURFACE,
      -title         => "Crossfire+ Client",
      -width         => $WIDTH,
      -height        => $HEIGHT,
      -opengl        => 1,
      -red_size      => 5,
      -green_size    => 5,
      -blue_size     => 5,
      -alpha_size    => 0,
      -double_buffer => 1,
      -fullscreen    => $FULLSCREEN,
      -resizeable    => 0;

   $last_refresh = SDL::GetTicks;

   %GL_EXT = map +($_ => 1), split /\s+/, Crossfire::Client::gl_extensions;

   $GL_EXT{GL_ARB_texture_non_power_of_two}
      or warn "WARNING: non-power-of-two opengl extension required";

   $FONTSIZE = int $HEIGHT / 50;

   #############################################################################

   glClearColor 0, 0, 0, 0;

   glEnable GL_TEXTURE_2D;
   glEnable GL_COLOR_MATERIAL;
   glShadeModel GL_FLAT;
   glDisable GL_DEPTH_TEST;
   glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;

   $_->() for @GL_INIT;

   #############################################################################
   
   $STATUS_LINE = new Crossfire::Client::Widget::Label
                      0, $HEIGHT * 59 / 60 - $FONTSIZE, 1, $FONTSIZE,
                      "";
   $TOPLEVEL->add ($STATUS_LINE);

   $ALT_ENTER_MESSAGE = new Crossfire::Client::Widget::Label
                            0, $HEIGHT * 59 / 60, 1, $HEIGHT / 60,
                            "Use <b>Alt-Enter</b> to toggle fullscreen mode";
   $TOPLEVEL->add ($ALT_ENTER_MESSAGE);

   # Test code #d#
   unless ($tw) { # haha...
      $tw = new Crossfire::Client::Widget::Animator;
      my $lbl1 = new Crossfire::Client::Widget::Label
         0, 0, 10, $FONTSIZE, "<i>This</i> is a\n<u>TEST</u>!\nOf a themed\nFrame!";
      my $lbl2 = new Crossfire::Client::Widget::Label
         0, 0, 10, $FONTSIZE, "LBL2";

      my $vb = new Crossfire::Client::Widget::VBox;
      my $f  = new Crossfire::Client::Widget::FancyFrame;
      my $f2 = new Crossfire::Client::Widget::FancyFrame;
      $f->add ($lbl1);
      $f2->add ($lbl2);
      $vb->add ($f);
      $vb->add ($f2, 1);

      $tw->add ($vb);
      $tw->w (400);
      $tw->h (300);
      $tw->move ($WIDTH - 200, 0);
      $tw->moveto (0, 0);
      $TOPLEVEL->add ($tw);

#     $f->move ($WIDTH - 200, 0);
#     $TOPLEVEL->add ($f);
   }
}

sub start_game {
   $SDL_TIMER = add Glib::Timeout 1000/50, sub {
      ($SDL_CB{$SDL_EV->type} || sub { warn "unhandled event ", $SDL_EV->type })->()
         while $SDL_EV->poll;

      1
   };

   $WIDTH      = $CFG->{width};
   $HEIGHT     = $CFG->{height};
   $FULLSCREEN = 0;

   init_screen;

   my $mapsize = List::Util::min 64, List::Util::max 11, int $HEIGHT * $CFG->{mapsize} * 0.01 / 32;

   $CONN = new conn
      host => $CFG->{host},
      port => $CFG->{port},
      user => $CFG->{user},
      pass => $CFG->{password},
      mapw => $mapsize,
      maph => $mapsize,
   ;

   Crossfire::Client::lowdelay fileno $CONN->{fh};
}

sub stop_game {
   remove Glib::Source $SDL_TIMER;
   remove Glib::Source $refresh_handler if $refresh_handler;
   undef $refresh_handler;

   undef $SDL_APP;
   undef $CONN;
   SDL::Quit;
}


sub force_refresh {
   glViewport 0, 0, $WIDTH, $HEIGHT;

   glMatrixMode GL_PROJECTION;
   glLoadIdentity;
   glOrtho 0, $WIDTH, $HEIGHT, 0, -6000 , 6000;
   glMatrixMode GL_MODELVIEW;

   glClear GL_COLOR_BUFFER_BIT;

   $TOPLEVEL->draw;

   SDL::GLSwapBuffers;
}

sub refresh {
   $refresh_handler ||= add Glib::Idle sub {
      return unless $SDL_APP;

      my $next_refresh = SDL::GetTicks;
      my $interval = ($next_refresh - $last_refresh) * 0.001;
      $last_refresh = $next_refresh;

      force_refresh;
      $_->animate ($interval) for grep $_, values %ANIMATE;

      if (%ANIMATE) {
         1
      } else {
         undef $refresh_handler;
         0
      }
   };
}

sub animation_start {
   my ($widget) = @_;
   $ANIMATE{$widget} = $widget;
   Scalar::Util::weaken $ANIMATE{$widget};

   refresh;
}

sub animation_stop {
   my ($widget) = @_;
   delete $ANIMATE{$widget};
}

%SDL_CB = (
   SDL_QUIT() => sub {
      main_quit Gtk2;
   },
   SDL_VIDEORESIZE() => sub {
   },
   SDL_VIDEOEXPOSE() => sub {
      refresh;
   },
   SDL_KEYDOWN() => sub {
      if ($SDL_EV->key_mod & KMOD_ALT && $SDL_EV->key_sym == SDLK_RETURN) {
         # alt-enter
         $FULLSCREEN = !$FULLSCREEN;
         init_screen;
      } else {
         Crossfire::Client::Widget::feed_sdl_key_down_event ($SDL_EV);
      }
   },
   SDL_KEYUP() => sub {
      Crossfire::Client::Widget::feed_sdl_key_up_event ($SDL_EV);
   },
   SDL_MOUSEMOTION() => sub {
      my ($x, $y) = ($SDL_EV->motion_x, $SDL_EV->motion_y);
      $HOVER = $TOPLEVEL->find_widget ($x, $y);
      ::refresh;

      warn "mouse $x, $y = $HOVER\n";
   },
   SDL_MOUSEBUTTONDOWN() => sub {
      Crossfire::Client::Widget::feed_sdl_button_down_event ($SDL_EV);
   },
   SDL_MOUSEBUTTONUP() => sub {
      Crossfire::Client::Widget::feed_sdl_button_up_event ($SDL_EV);
   },
   SDL_ACTIVEEVENT() => sub {
      warn "active\n";#d#
   },
);

@conn::ISA = Crossfire::Protocol::;

sub conn::map_update {
   my ($self, $dirty) = @_;

   refresh;
}

sub conn::map_scroll {
   my ($self, $dx, $dy) = @_;

#   refresh;
}

sub conn::map_clear {
   my ($self) = @_;

#   refresh;
}

sub conn::face_find {
   my ($self, $face) = @_;

   $FACECACHE->{"$face->{chksum},$face->{name}"}
}

sub conn::face_update {
   my ($self, $face) = @_;

   $FACECACHE->{"$face->{chksum},$face->{name}"} = $face->{image};

   $face->{texture} = new_from_image Crossfire::Client::Texture delete $face->{image};
}

sub conn::query {
   my ($self, $flags, $prompt) = @_;

   warn "<<<<QUERY:$flags:$prompt>>>\n";#d#
}

sub gtk_add_cfg_field {
   my ($tbl, $cfg, $klbl, $key, $value) = @_;
   my $i = $cfg->{_i}++;
   $tbl->attach_defaults (my $lbl = Gtk2::Label->new ($klbl), 0, 1, $i, $i + 1);
   $tbl->attach_defaults (my $ent = Gtk2::Entry->new,         1, 2, $i, $i + 1);
      if ($key eq 'password') {
         $ent->set_invisible_char ("*");
         $ent->set (visibility => 0)
      }
      $ent->set_text ($value);
      $ent->signal_connect (changed => sub {
         my ($ent) = @_;
         $cfg->{$key} = $ent->get_text;
         # TODO: Mapsize should be a slider in the game gui
         if ($key eq 'mapsize' and $cfg->{$key} > 100) {
            $cfg->{$key} = 100;
         } elsif ($key eq 'mapsize' and $cfg->{$key} < 50) {
            $cfg->{$key} = 50;
         }
      });
}

sub run_config_dialog {
   my (%events) = @_;

   my $w = Gtk2::Window->new;

   my @cfg = (
      [qw/Host     host/],
      [qw/Port     port/],
      [qw/Mapsize% mapsize/],
      [qw/Username user/],
      [qw/Password password/],
   );

   my $cfg = {};

   my $a = SDL::ListModes (0, SDL_FULLSCREEN|SDL_HWSURFACE);
   my @modes = map { [SDL::RectW ($_), SDL::RectH ($_)] } @$a;

   $w->add (my $vb = Gtk2::VBox->new);
      $vb->pack_start (my $t = Gtk2::Table->new (2, scalar @cfg), 0, 0, 0);
         my $selmode = $::CFG->{width} . 'x' . $::CFG->{height};
         $t->attach_defaults (Gtk2::Label->new ("Modes"), 0, 1, 0, 1);
         $t->attach_defaults (my $cb = Gtk2::ComboBox->new_text, 1, 2, 0, 1);
            my $i = 0;
            my $act = 0;
            for (map { "$_->[0]x$_->[1]" } reverse @modes) {
               if ($_ eq $selmode) { $act = $i }
               $cb->append_text ($_);
               $i++;
            }
            $cb->set_active ($act);
            $cb->signal_connect (changed => sub {
               my ($cb) = @_;
               my $txt = $cb->get_active_text;
               if ($txt =~ m/(\d+)x(\d+)/) {
                  $::CFG->{width} = $1;
                  $::CFG->{height} = $2;
               }
            });

         $cfg->{_i} = 1;
         for (@cfg) {
            gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]});
         }

      $vb->pack_start (my $hb = Gtk2::HBox->new, 0, 0, 0);
         $hb->pack_start (my $cb = Gtk2::Button->new ("save"), 1, 1, 5);
            $cb->signal_connect (clicked => sub {
               for (keys %$cfg) {
                  $::CFG->{$_} = $cfg->{$_}
                     if $_ ne '_i';
               }
               Crossfire::Client::write_cfg "$Crossfire::VARDIR/pclientrc";
            });
         $hb->pack_start (my $cb = Gtk2::Button->new ("login"), 1, 1, 5);
            $cb->signal_connect (clicked => sub {
               for (keys %$cfg) {
                  $::CFG->{$_} = $cfg->{$_}
                     if $_ ne '_i';
               }
               my $cb = $events{login} || sub {};
               $cb->($::CFG->{user}, $::CFG->{password});
            });
         $hb->pack_start (my $cb = Gtk2::Button->new ("logout"), 1, 1, 5);
            $cb->signal_connect (clicked => sub {
               my $cb = $events{logout} || sub {};
               $cb->();
            });
         $hb->pack_start (my $cb = Gtk2::Button->new ("quit"), 1, 1, 5);
            $cb->signal_connect (clicked => sub { $w->destroy });

   $w->show_all;

   $w->signal_connect (destroy => sub { Gtk2->main_quit });
}


#############################################################################

SDL::Init SDL_INIT_EVERYTHING;

$TOPLEVEL = Crossfire::Client::Widget::Toplevel->new;

my $mapwidget = Crossfire::Client::Widget::MapWidget->new;

$TOPLEVEL->add ($mapwidget);
$mapwidget->focus_in;

Crossfire::Client::read_cfg "$Crossfire::VARDIR/pclientrc";

$CFG ||= {
   width      => 640,
   height     => 480,
   mapsize    => 100,
   fullscreen => 0,
   host       => "crossfire.schmorp.de",
   port       => 13327,
};

Crossfire::Client::set_font Crossfire::Client::find_rcfile "uifont.ttf";

$FACECACHE = eval { Crossfire::load_ref "$Crossfire::VARDIR/pclient.faces" } || {};

run_config_dialog
   login  => sub { start_game  },
   logout => sub { stop_game };

main Gtk2;

Crossfire::save_ref $FACECACHE, "$Crossfire::VARDIR/pclient.faces";
Revision:	1.56
Committed:	Sun Apr 9 22:28:05 2006 UTC (18 years, 1 month ago) by root
Branch:	MAIN
Changes since 1.55:	+1 -1 lines
Log Message:	* empty log message *
#	Content
1	#!/opt/bin/perl
2
3	use strict;
4	use utf8;
5
6	use Glib;
7	use Gtk2 -init;
8
9	use SDL;
10	use SDL::App;
11	use SDL::Event;
12	use SDL::Surface;
13	use SDL::OpenGL;
14	use SDL::OpenGL::Constants;
15
16	use Crossfire;
17	use Crossfire::Client;
18	use Crossfire::Protocol;
19
20	use Crossfire::Client::Widget;
21
22	our $FACECACHE;
23
24	our $VERSION = '0.1';
25
26	our %GL_EXT;
27
28	our $CFG;
29	our $CONN;
30
31	our $WIDTH;
32	our $HEIGHT;
33	our $FULLSCREEN;
34
35	our $FONTSIZE;
36	our $FOCUS;
37	our $HOVER;
38
39	our $SDL_TIMER;
40	our $SDL_APP;
41	our $SDL_EV = new SDL::Event;
42	our %SDL_CB;
43
44	our @GL_INIT; # hooks called on every gl init
45
46	our $ALT_ENTER_MESSAGE;
47	our $STATUS_LINE;
48
49	our $TOPLEVEL;
50
51	our $tw; # Test widget #d#
52
53	my $last_refresh;
54	my %ANIMATE;
55	my $refresh_handler;
56
57	sub init_screen {
58	$SDL_APP = new SDL::App
59	-flags => SDL_ANYFORMAT \| SDL_HWSURFACE,
60	-title => "Crossfire+ Client",
61	-width => $WIDTH,
62	-height => $HEIGHT,
63	-opengl => 1,
64	-red_size => 5,
65	-green_size => 5,
66	-blue_size => 5,
67	-alpha_size => 0,
68	-double_buffer => 1,
69	-fullscreen => $FULLSCREEN,
70	-resizeable => 0;
71
72	$last_refresh = SDL::GetTicks;
73
74	%GL_EXT = map +($_ => 1), split /\s+/, Crossfire::Client::gl_extensions;
75
76	$GL_EXT{GL_ARB_texture_non_power_of_two}
77	or warn "WARNING: non-power-of-two opengl extension required";
78
79	$FONTSIZE = int $HEIGHT / 50;
80
81	#############################################################################
82
83	glClearColor 0, 0, 0, 0;
84
85	glEnable GL_TEXTURE_2D;
86	glEnable GL_COLOR_MATERIAL;
87	glShadeModel GL_FLAT;
88	glDisable GL_DEPTH_TEST;
89	glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
90
91	$_->() for @GL_INIT;
92
93	#############################################################################
94
95	$STATUS_LINE = new Crossfire::Client::Widget::Label
96	0, $HEIGHT * 59 / 60 - $FONTSIZE, 1, $FONTSIZE,
97	"";
98	$TOPLEVEL->add ($STATUS_LINE);
99
100	$ALT_ENTER_MESSAGE = new Crossfire::Client::Widget::Label
101	0, $HEIGHT * 59 / 60, 1, $HEIGHT / 60,
102	"Use <b>Alt-Enter</b> to toggle fullscreen mode";
103	$TOPLEVEL->add ($ALT_ENTER_MESSAGE);
104
105	# Test code #d#
106	unless ($tw) { # haha...
107	$tw = new Crossfire::Client::Widget::Animator;
108	my $lbl1 = new Crossfire::Client::Widget::Label
109	0, 0, 10, $FONTSIZE, "<i>This</i> is a\n<u>TEST</u>!\nOf a themed\nFrame!";
110	my $lbl2 = new Crossfire::Client::Widget::Label
111	0, 0, 10, $FONTSIZE, "LBL2";
112
113	my $vb = new Crossfire::Client::Widget::VBox;
114	my $f = new Crossfire::Client::Widget::FancyFrame;
115	my $f2 = new Crossfire::Client::Widget::FancyFrame;
116	$f->add ($lbl1);
117	$f2->add ($lbl2);
118	$vb->add ($f);
119	$vb->add ($f2, 1);
120
121	$tw->add ($vb);
122	$tw->w (400);
123	$tw->h (300);
124	$tw->move ($WIDTH - 200, 0);
125	$tw->moveto (0, 0);
126	$TOPLEVEL->add ($tw);
127
128	# $f->move ($WIDTH - 200, 0);
129	# $TOPLEVEL->add ($f);
130	}
131	}
132
133	sub start_game {
134	$SDL_TIMER = add Glib::Timeout 1000/50, sub {
135	($SDL_CB{$SDL_EV->type} \|\| sub { warn "unhandled event ", $SDL_EV->type })->()
136	while $SDL_EV->poll;
137
138	1
139	};
140
141	$WIDTH = $CFG->{width};
142	$HEIGHT = $CFG->{height};
143	$FULLSCREEN = 0;
144
145	init_screen;
146
147	my $mapsize = List::Util::min 64, List::Util::max 11, int $HEIGHT * $CFG->{mapsize} * 0.01 / 32;
148
149	$CONN = new conn
150	host => $CFG->{host},
151	port => $CFG->{port},
152	user => $CFG->{user},
153	pass => $CFG->{password},
154	mapw => $mapsize,
155	maph => $mapsize,
156	;
157
158	Crossfire::Client::lowdelay fileno $CONN->{fh};
159	}
160
161	sub stop_game {
162	remove Glib::Source $SDL_TIMER;
163	remove Glib::Source $refresh_handler if $refresh_handler;
164	undef $refresh_handler;
165
166	undef $SDL_APP;
167	undef $CONN;
168	SDL::Quit;
169	}
170
171
172	sub force_refresh {
173	glViewport 0, 0, $WIDTH, $HEIGHT;
174
175	glMatrixMode GL_PROJECTION;
176	glLoadIdentity;
177	glOrtho 0, $WIDTH, $HEIGHT, 0, -6000 , 6000;
178	glMatrixMode GL_MODELVIEW;
179
180	glClear GL_COLOR_BUFFER_BIT;
181
182	$TOPLEVEL->draw;
183
184	SDL::GLSwapBuffers;
185	}
186
187	sub refresh {
188	$refresh_handler \|\|= add Glib::Idle sub {
189	return unless $SDL_APP;
190
191	my $next_refresh = SDL::GetTicks;
192	my $interval = ($next_refresh - $last_refresh) * 0.001;
193	$last_refresh = $next_refresh;
194
195	force_refresh;
196	$_->animate ($interval) for grep $_, values %ANIMATE;
197
198	if (%ANIMATE) {
199	1
200	} else {
201	undef $refresh_handler;
202	0
203	}
204	};
205	}
206
207	sub animation_start {
208	my ($widget) = @_;
209	$ANIMATE{$widget} = $widget;
210	Scalar::Util::weaken $ANIMATE{$widget};
211
212	refresh;
213	}
214
215	sub animation_stop {
216	my ($widget) = @_;
217	delete $ANIMATE{$widget};
218	}
219
220	%SDL_CB = (
221	SDL_QUIT() => sub {
222	main_quit Gtk2;
223	},
224	SDL_VIDEORESIZE() => sub {
225	},
226	SDL_VIDEOEXPOSE() => sub {
227	refresh;
228	},
229	SDL_KEYDOWN() => sub {
230	if ($SDL_EV->key_mod & KMOD_ALT && $SDL_EV->key_sym == SDLK_RETURN) {
231	# alt-enter
232	$FULLSCREEN = !$FULLSCREEN;
233	init_screen;
234	} else {
235	Crossfire::Client::Widget::feed_sdl_key_down_event ($SDL_EV);
236	}
237	},
238	SDL_KEYUP() => sub {
239	Crossfire::Client::Widget::feed_sdl_key_up_event ($SDL_EV);
240	},
241	SDL_MOUSEMOTION() => sub {
242	my ($x, $y) = ($SDL_EV->motion_x, $SDL_EV->motion_y);
243	$HOVER = $TOPLEVEL->find_widget ($x, $y);
244	::refresh;
245
246	warn "mouse $x, $y = $HOVER\n";
247	},
248	SDL_MOUSEBUTTONDOWN() => sub {
249	Crossfire::Client::Widget::feed_sdl_button_down_event ($SDL_EV);
250	},
251	SDL_MOUSEBUTTONUP() => sub {
252	Crossfire::Client::Widget::feed_sdl_button_up_event ($SDL_EV);
253	},
254	SDL_ACTIVEEVENT() => sub {
255	warn "active\n";#d#
256	},
257	);
258
259	@conn::ISA = Crossfire::Protocol::;
260
261	sub conn::map_update {
262	my ($self, $dirty) = @_;
263
264	refresh;
265	}
266
267	sub conn::map_scroll {
268	my ($self, $dx, $dy) = @_;
269
270	# refresh;
271	}
272
273	sub conn::map_clear {
274	my ($self) = @_;
275
276	# refresh;
277	}
278
279	sub conn::face_find {
280	my ($self, $face) = @_;
281
282	$FACECACHE->{"$face->{chksum},$face->{name}"}
283	}
284
285	sub conn::face_update {
286	my ($self, $face) = @_;
287
288	$FACECACHE->{"$face->{chksum},$face->{name}"} = $face->{image};
289
290	$face->{texture} = new_from_image Crossfire::Client::Texture delete $face->{image};
291	}
292
293	sub conn::query {
294	my ($self, $flags, $prompt) = @_;
295
296	warn "<<<<QUERY:$flags:$prompt>>>\n";#d#
297	}
298
299	sub gtk_add_cfg_field {
300	my ($tbl, $cfg, $klbl, $key, $value) = @_;
301	my $i = $cfg->{_i}++;
302	$tbl->attach_defaults (my $lbl = Gtk2::Label->new ($klbl), 0, 1, $i, $i + 1);
303	$tbl->attach_defaults (my $ent = Gtk2::Entry->new, 1, 2, $i, $i + 1);
304	if ($key eq 'password') {
305	$ent->set_invisible_char ("*");
306	$ent->set (visibility => 0)
307	}
308	$ent->set_text ($value);
309	$ent->signal_connect (changed => sub {
310	my ($ent) = @_;
311	$cfg->{$key} = $ent->get_text;
312	# TODO: Mapsize should be a slider in the game gui
313	if ($key eq 'mapsize' and $cfg->{$key} > 100) {
314	$cfg->{$key} = 100;
315	} elsif ($key eq 'mapsize' and $cfg->{$key} < 50) {
316	$cfg->{$key} = 50;
317	}
318	});
319	}
320
321	sub run_config_dialog {
322	my (%events) = @_;
323
324	my $w = Gtk2::Window->new;
325
326	my @cfg = (
327	[qw/Host host/],
328	[qw/Port port/],
329	[qw/Mapsize% mapsize/],
330	[qw/Username user/],
331	[qw/Password password/],
332	);
333
334	my $cfg = {};
335
336	my $a = SDL::ListModes (0, SDL_FULLSCREEN\|SDL_HWSURFACE);
337	my @modes = map { [SDL::RectW ($_), SDL::RectH ($_)] } @$a;
338
339	$w->add (my $vb = Gtk2::VBox->new);
340	$vb->pack_start (my $t = Gtk2::Table->new (2, scalar @cfg), 0, 0, 0);
341	my $selmode = $::CFG->{width} . 'x' . $::CFG->{height};
342	$t->attach_defaults (Gtk2::Label->new ("Modes"), 0, 1, 0, 1);
343	$t->attach_defaults (my $cb = Gtk2::ComboBox->new_text, 1, 2, 0, 1);
344	my $i = 0;
345	my $act = 0;
346	for (map { "$_->[0]x$_->[1]" } reverse @modes) {
347	if ($_ eq $selmode) { $act = $i }
348	$cb->append_text ($_);
349	$i++;
350	}
351	$cb->set_active ($act);
352	$cb->signal_connect (changed => sub {
353	my ($cb) = @_;
354	my $txt = $cb->get_active_text;
355	if ($txt =~ m/(\d+)x(\d+)/) {
356	$::CFG->{width} = $1;
357	$::CFG->{height} = $2;
358	}
359	});
360
361	$cfg->{_i} = 1;
362	for (@cfg) {
363	gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]});
364	}
365
366	$vb->pack_start (my $hb = Gtk2::HBox->new, 0, 0, 0);
367	$hb->pack_start (my $cb = Gtk2::Button->new ("save"), 1, 1, 5);
368	$cb->signal_connect (clicked => sub {
369	for (keys %$cfg) {
370	$::CFG->{$_} = $cfg->{$_}
371	if $_ ne '_i';
372	}
373	Crossfire::Client::write_cfg "$Crossfire::VARDIR/pclientrc";
374	});
375	$hb->pack_start (my $cb = Gtk2::Button->new ("login"), 1, 1, 5);
376	$cb->signal_connect (clicked => sub {
377	for (keys %$cfg) {
378	$::CFG->{$_} = $cfg->{$_}
379	if $_ ne '_i';
380	}
381	my $cb = $events{login} \|\| sub {};
382	$cb->($::CFG->{user}, $::CFG->{password});
383	});
384	$hb->pack_start (my $cb = Gtk2::Button->new ("logout"), 1, 1, 5);
385	$cb->signal_connect (clicked => sub {
386	my $cb = $events{logout} \|\| sub {};
387	$cb->();
388	});
389	$hb->pack_start (my $cb = Gtk2::Button->new ("quit"), 1, 1, 5);
390	$cb->signal_connect (clicked => sub { $w->destroy });
391
392	$w->show_all;
393
394	$w->signal_connect (destroy => sub { Gtk2->main_quit });
395	}
396
397
398	#############################################################################
399
400	SDL::Init SDL_INIT_EVERYTHING;
401
402	$TOPLEVEL = Crossfire::Client::Widget::Toplevel->new;
403
404	my $mapwidget = Crossfire::Client::Widget::MapWidget->new;
405
406	$TOPLEVEL->add ($mapwidget);
407	$mapwidget->focus_in;
408
409	Crossfire::Client::read_cfg "$Crossfire::VARDIR/pclientrc";
410
411	$CFG \|\|= {
412	width => 640,
413	height => 480,
414	mapsize => 100,
415	fullscreen => 0,
416	host => "crossfire.schmorp.de",
417	port => 13327,
418	};
419
420	Crossfire::Client::set_font Crossfire::Client::find_rcfile "uifont.ttf";
421
422	$FACECACHE = eval { Crossfire::load_ref "$Crossfire::VARDIR/pclient.faces" } \|\| {};
423
424	run_config_dialog
425	login => sub { start_game },
426	logout => sub { stop_game };
427
428	main Gtk2;
429
430	Crossfire::save_ref $FACECACHE, "$Crossfire::VARDIR/pclient.faces";