ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/bin/pclient
(Generate patch)

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.167 by root, Sun Apr 23 05:33:24 2006 UTC vs.
Revision 1.213 by root, Sun May 14 20:51:20 2006 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2 2
3use strict; 3use strict;
4use utf8; 4use utf8;
5
6BEGIN {
7 if (%PAR::LibCache) {
8 @INC = grep ref, @INC; # weed out all paths except pars loader refs
9
10 while (my ($filename, $zip) = each %PAR::LibCache) {
11 for ($zip->memberNames) {
12 next unless /^\/root\/(.*)/;
13 $zip->extractMember ($_, "$ENV{PAR_TEMP}/$1")
14 unless -e "$ENV{PAR_TEMP}/$1";
15 }
16 }
17
18 unshift @INC, $ENV{PAR_TEMP};
19
20 if ($^O eq "MSWin32") {
21 $ENV{GTK_RC_FILES} = "$ENV{PAR_TEMP}/share/themes/MS-Windows/gtk-2.0/gtkrc";
22 }
23 }
24}
25
26# need to do it again because that pile of garbage called PAR nukes it before main
27unshift @INC, $ENV{PAR_TEMP};
5 28
6use Time::HiRes 'time'; 29use Time::HiRes 'time';
7use Event; 30use Event;
8 31
9use Crossfire; 32use Crossfire;
… …
13 36
14use CFClient; 37use CFClient;
15use CFClient::UI; 38use CFClient::UI;
16use CFClient::MapWidget; 39use CFClient::MapWidget;
17 40
41$Event::DIED = sub {
42 # TODO: display dialog box or so
43 CFClient::error $_[1];
44};
45
46#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#
47
18our $VERSION = '0.1'; 48our $VERSION = '0.1';
19 49
20my $MAX_FPS = 60; 50my $MAX_FPS = 60;
21my $MIN_FPS = 5; # unused as of yet 51my $MIN_FPS = 5; # unused as of yet
22 52
… …
30our $NOW; 60our $NOW;
31 61
32our $CFG; 62our $CFG;
33our $CONN; 63our $CONN;
34our $FAST; # fast, low-quality mode, possibly useful for software-rendering 64our $FAST; # fast, low-quality mode, possibly useful for software-rendering
65
66our $WANT_REFRESH;
67our $CAN_REFRESH;
35 68
36our @SDL_MODES; 69our @SDL_MODES;
37our $WIDTH; 70our $WIDTH;
38our $HEIGHT; 71our $HEIGHT;
39our $FULLSCREEN; 72our $FULLSCREEN;
40our $FONTSIZE; 73our $FONTSIZE;
41 74
75our $FONT_PROP;
76our $FONT_FIXED;
77
42our $MAP; 78our $MAP;
79our $MAPMAP;
43our $MAPWIDGET; 80our $MAPWIDGET;
44our $BUTTONBAR; 81our $BUTTONBAR;
45our $LOGVIEW; 82our $LOGVIEW;
46our $CONSOLE; 83our $CONSOLE;
47our $METASERVER; 84our $METASERVER;
85our $LOGIN_BUTTON;
48 86
87our $FLOORBOX;
49our $GAUGES; 88our $GAUGES;
50our $STATWIDS; 89our $STATWIDS;
51 90
52our $SDL_ACTIVE; 91our $SDL_ACTIVE;
53our %SDL_CB; 92our %SDL_CB;
… …
55our $SDL_MIXER; 94our $SDL_MIXER;
56our @SOUNDS; # event => file mapping 95our @SOUNDS; # event => file mapping
57our %AUDIO_CHUNKS; # audio files 96our %AUDIO_CHUNKS; # audio files
58 97
59our $ALT_ENTER_MESSAGE; 98our $ALT_ENTER_MESSAGE;
60our $STATUS_LINE; 99our $STATUSBOX;
61our $DEBUG_STATUS; 100our $DEBUG_STATUS;
62 101
102our $INVWIN;
103our $INV;
104
63sub status { 105sub status {
64 $STATUS_LINE->set_text ($_[0]); 106 $STATUSBOX->add ($_[0], pri => -10, group => "status", timeout => 20, color => [1, 1, 0, 1]);
65 $STATUS_LINE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $STATUS_LINE->{h}); 107 $CFClient::UI::ROOT->on_post_alloc (status_line_positioner => sub {
108 my $widget = $STATUSBOX->{parent};
109 $widget->move (0, $HEIGHT - $widget->{h});#d# to in toplevel
110 });
66} 111}
67 112
68sub debug { 113sub debug {
69 $DEBUG_STATUS->set_text ($_[0]); 114 $DEBUG_STATUS->set_text ($_[0]);
70 $DEBUG_STATUS->move ($WIDTH - $DEBUG_STATUS->{w}, 0, $DEBUG_STATUS->{w}, $DEBUG_STATUS->{h}); 115 my ($w, $h) = $DEBUG_STATUS->size_request;
116 $DEBUG_STATUS->move ($WIDTH - $w, 0);
71} 117}
72 118
73sub start_game { 119sub start_game {
74 status "logging in..."; 120 status "logging in...";
75 121
76 my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32; 122 my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
77 123
78 $MAPCACHE = CFClient::db_table "mapcache_$CFG->{host}"; 124 $MAPCACHE = CFClient::db_table "mapcache_$CFG->{host}";
79
80 $MAP = new CFClient::Map $mapsize, $mapsize; 125 $MAP = new CFClient::Map $mapsize, $mapsize;
81 126
82 my ($host, $port) = split /:/, $CFG->{host}; 127 my ($host, $port) = split /:/, $CFG->{host};
83 128
84 $CONN = new conn 129 $CONN = eval {
130 new conn
85 host => $host, 131 host => $host,
86 port => $port || 13327, 132 port => $port || 13327,
87 user => $CFG->{user}, 133 user => $CFG->{user},
88 pass => $CFG->{password}, 134 pass => $CFG->{password},
89 mapw => $mapsize, 135 mapw => $mapsize,
90 maph => $mapsize, 136 maph => $mapsize,
137 ;
91 ; 138 };
92 139
140 if ($CONN) {
141 $LOGIN_BUTTON->set_text ("Logout");
142
93 status "login successful"; 143 status "login successful";
94 144
95 CFClient::lowdelay fileno $CONN->{fh}; 145 CFClient::lowdelay fileno $CONN->{fh};
146 } else {
147 status "unable to connect";
148 stop_game();
149 }
96} 150}
97 151
98sub stop_game { 152sub stop_game {
153 return unless $CONN;
154
155 status "connection closed";
156 $LOGIN_BUTTON->set_text ("Login");
157 $CONN->destroy;
158 $CONN = 0; # false, does not autovivify
159
160 undef $MAPCACHE;
99 undef $CONN; 161 undef $MAP;
100} 162}
101 163
102sub client_setup { 164sub client_setup {
103 my $dialog = new CFClient::UI::FancyFrame 165 my $dialog = new CFClient::UI::FancyFrame
104 title => "Client Setup", 166 title => "Client Setup",
… …
139 my ($self, $value) = @_; 201 my ($self, $value) = @_;
140 $CFG->{fast} = $value; 202 $CFG->{fast} = $value;
141 } 203 }
142 ); 204 );
143 205
206 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");
207 $table->add (1, $row++, new CFClient::UI::Slider
208 range => [$CFG->{map_scale}, 0.25, 2, 0.05],
209 tooltip => "Enlarge or shrink the displayed map",
210 connect_changed => sub {
211 my ($self, $value) = @_;
212 $CFG->{map_scale} = 0.05 * int $value / 0.05;
213 }
214 );
215
144 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War"); 216 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");
145 $table->add (1, $row++, new CFClient::UI::CheckBox 217 $table->add (1, $row++, new CFClient::UI::CheckBox
146 state => $CFG->{fow_enable}, 218 state => $CFG->{fow_enable},
147 tooltip => "Fog-of-War marks areas that cannot be seen by the player", 219 tooltip => "Fog-of-War marks areas that cannot be seen by the player",
148 connect_changed => sub { 220 connect_changed => sub {
… …
219 range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1], 291 range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1],
220 tooltip => "Adjusts the fontsize of the gauges at the bottom right", 292 tooltip => "Adjusts the fontsize of the gauges at the bottom right",
221 connect_changed => sub { 293 connect_changed => sub {
222 $CFG->{gauge_fontsize} = 0.1 * int $_[1] * 10; 294 $CFG->{gauge_fontsize} = 0.1 * int $_[1] * 10;
223 &set_gauge_window_fontsize; 295 &set_gauge_window_fontsize;
224 #$GAUGES->{win}->check_size;
225 #$GAUGES->{win}->update;
226 } 296 }
227 ); 297 );
228 298
229 $table->add (1, $row++, new CFClient::UI::Button 299 $table->add (1, $row++, new CFClient::UI::Button
230 expand => 1, align => 0, text => "Apply", 300 expand => 1, align => 0, text => "Apply",
231 tooltip => "Apply the video settings (unless they are auto-apply)", 301 tooltip => "Apply the video settings",
232 connect_activate => sub { 302 connect_activate => sub {
233 video_shutdown (); 303 video_shutdown ();
234 video_init (); 304 video_init ();
235 } 305 }
236 ); 306 );
… …
265 } 335 }
266 ); 336 );
267 337
268 $table->add (1, $row++, new CFClient::UI::Button 338 $table->add (1, $row++, new CFClient::UI::Button
269 expand => 1, align => 0, text => "Apply", 339 expand => 1, align => 0, text => "Apply",
270 tooltip => "Apply the audio settings that are not auto-apply", 340 tooltip => "Apply the audio settings",
271 connect_activate => sub { 341 connect_activate => sub {
272 audio_shutdown (); 342 audio_shutdown ();
273 audio_init (); 343 audio_init ();
274 } 344 }
275 ); 345 );
276 346
347 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Communication cmd");
348 $table->add (1, $row++, my $saycmd = new CFClient::UI::Entry
349 text => $CFG->{say_command},
350 tooltip => "This is the command that will be used if you write a line in the message window entry. "
351 ."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
352 ."But you could also set it to 'tell <playername>' to only chat with that user.",
353 connect_changed => sub {
354 my ($self, $value) = @_;
355 $CFG->{say_command} = $value;
356 }
357 );
358
277 $dialog 359 $dialog
278} 360}
279 361
280sub set_stats_window_fontsize { 362sub set_stats_window_fontsize {
281 for (values %{$STATWIDS}) { 363 for (values %{$STATWIDS}) {
… …
285 367
286sub set_gauge_window_fontsize { 368sub set_gauge_window_fontsize {
287 for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) { 369 for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {
288 $_->set_fontsize ($::CFG->{gauge_fontsize}); 370 $_->set_fontsize ($::CFG->{gauge_fontsize});
289 } 371 }
372
373# local $GAUGES->{win}{parent};#d#
374# use PApp::Util; open D, ">:utf8", "d"; print D PApp::Util::dumpval $GAUGES->{win}; close D;
290} 375}
291 376
292sub make_gauge_window { 377sub make_gauge_window {
293 my $gh = int ($HEIGHT * $CFG->{gauge_size}); 378 my $gh = int ($HEIGHT * $CFG->{gauge_size});
294# my $gw = int ($WIDTH * $CFG->{gauge_w_size}); 379# my $gw = int ($WIDTH * $CFG->{gauge_w_size});
295 380
296 my $win = new CFClient::UI::Frame ( 381 my $win = new CFClient::UI::Frame (
297 y => $HEIGHT - $gh, x => 0, req_w => $WIDTH, req_h => $gh 382 y => $HEIGHT - $gh, x => 0, user_w => $WIDTH, user_h => $gh
298 ); 383 );
299 $win->add (my $vb = new CFClient::UI::VBox); 384 $win->add (my $hbox = new CFClient::UI::HBox
300 385 children => [
301 $vb->add (my $hbg = new CFClient::UI::HBox expand => 1); 386 (new CFClient::UI::HBox expand => 1),
387 (new CFClient::UI::VBox children => [
388 (new CFClient::UI::Empty expand => 1),
389 (new CFClient::UI::Frame bg => [0, 0, 0, 0.4], child => ($FLOORBOX = new CFClient::UI::VBox)),
390 ]),
391 (my $vbox = new CFClient::UI::VBox),
392 ],
393 );
302 394
303 395 $vbox->add (new CFClient::UI::HBox
396 expand => 1,
397 children => [
304 $hbg->add (new CFClient::UI::Empty expand => 1); 398 (new CFClient::UI::Empty expand => 1),
305 $hbg->add (my $hb = new CFClient::UI::HBox); 399 (my $hb = new CFClient::UI::HBox),
400 ],
401 );
402
306 $hb->add (my $hg = new CFClient::UI::Gauge type => 'hp', tooltip => "Health points"); 403 $hb->add (my $hg = new CFClient::UI::Gauge type => 'hp',
404 tooltip => "Health points. Measures of how much damage you can take before dying. Hit points are determined from your level and are influenced by the value of your Con. Hp value may range between 1 to beyond 500 and higher values indicate a greater ability to withstand punishment.");
307 $hb->add (my $mg = new CFClient::UI::Gauge type => 'mana', tooltip => "Spellpoints"); 405 $hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',
406 tooltip => "Spell points. Measures of how much \"fuel\" you have for casting spells and incantations. Mana is calculated from your level and your Pow. Mana values can range between 1 to beyond 500 (glowing crystals can increase the current spell points beyond your normal maximum). Higher values indicate greater amounts of mana.");
308 $hb->add (my $gg = new CFClient::UI::Gauge type => 'grace', tooltip => "Grace"); 407 $hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',
408 tooltip => "Grace points - how favored you are by your god. In game terms, how much divine magic you can cast. Your level, Wis and Pow effect what the value of grace is. Prayong on an altar of your god can increase this value beyond your normal maximum. Grace can take on large positive and negative values. Positive values indicate favor by the gods.");
309 $hb->add (my $fg = new CFClient::UI::Gauge type => 'food', tooltip => "Food"); 409 $hb->add (my $fg = new CFClient::UI::Gauge type => 'food',
410 tooltip => "Food. Ranges between 0 (starving) and 999 (satiated). At a value of 0 the character begins to die. Some magic can speed up or slow down the character digestion. Healing wounds will speed up digestion too.");
310 411
311 $vb->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, text => "XP: 0 LVL: 0"); 412 $vbox->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
413 tooltip => "Experience points and overall level - experience is increased as a reward for appropriate action (such as killing monsters) and may decrease as a result of a magical attack or dying. Level is directly derived from the experience value. As the level of the character increases, the character becomes able to succeed at more difficult tasks. A character's level starts at a value of 0 and may range up beyond 100.");
312 $vb->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, text => "Rng:"); 414 $vbox->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
415 tooltip => "Ranged attack - how you attack when you press shift-cursor (spell, skill, weapon etc.)");
313 416
314 $GAUGES = { 417 $GAUGES = {
315 exp => $exp, win => $win, range => $rng, 418 exp => $exp, win => $win, range => $rng,
316 food => $fg, mana => $mg, hp => $hg, grace => $gg 419 food => $fg, mana => $mg, hp => $hg, grace => $gg
317 }; 420 };
421
422 &set_gauge_window_fontsize;
423
318 $win 424 $win
319} 425}
320 426
321sub make_stats_window { 427sub make_stats_window {
322 my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH * 2/5, y => 0, title => "Stats"); 428 my $tgw = new CFClient::UI::FancyFrame x => $WIDTH * 2/5, y => 0, title => "Stats";
323 429
324 $tgw->add (my $vb = new CFClient::UI::VBox); 430 $tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);
325 $vb->add (my $uhb = new CFClient::UI::HBox);
326 $uhb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1); 431 $vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1);
327 $uhb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1); 432 $vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1);
328 433
329 $vb->add (my $hb = new CFClient::UI::HBox expand => 1); 434 $vb->add (my $hb = new CFClient::UI::HBox expand => 1);
330 435
331 $hb->add (my $tbl = new CFClient::UI::Table expand => 1); 436 $hb->add (my $tbl = new CFClient::UI::Table expand => 1);
332 437
333 $tbl->add (0, 0, $STATWIDS->{st_str_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Str"); 438 my $black = [0, 0, 0];
334 $tbl->add (0, 1, $STATWIDS->{st_dex_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Dex");
335 $tbl->add (0, 2, $STATWIDS->{st_con_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Con");
336 $tbl->add (0, 3, $STATWIDS->{st_int_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Int");
337 $tbl->add (0, 4, $STATWIDS->{st_wis_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Wis");
338 $tbl->add (0, 5, $STATWIDS->{st_pow_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Pow");
339 $tbl->add (0, 6, $STATWIDS->{st_cha_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Cha");
340 439
341 $tbl->add (1, 0, $STATWIDS->{st_str} = new CFClient::UI::Label valign => 0, align => +1, text => ""); 440 for (
342 $tbl->add (1, 1, $STATWIDS->{st_dex} = new CFClient::UI::Label valign => 0, align => +1, text => ""); 441 [0, 0, st_str => "Str", 30, "Physical Strength, determines damage dealt with weapons, how much you can carry, and how often you can attack"],
343 $tbl->add (1, 2, $STATWIDS->{st_con} = new CFClient::UI::Label valign => 0, align => +1, text => ""); 442 [0, 1, st_dex => "Dex", 30, "Dexterity, your physical agility. Determines chance of being hit and affects armor class and speed"],
344 $tbl->add (1, 3, $STATWIDS->{st_int} = new CFClient::UI::Label valign => 0, align => +1, text => ""); 443 [0, 2, st_con => "Con", 30, "Constitution, physical health and toughness. Determines how many healthpoints you can have"],
345 $tbl->add (1, 4, $STATWIDS->{st_wis} = new CFClient::UI::Label valign => 0, align => +1, text => ""); 444 [0, 3, st_int => "Int", 30, "Intelligence, your ability to learn and use skills and incantations (both prayers and magic) and determines how much spell points you can have"],
346 $tbl->add (1, 5, $STATWIDS->{st_pow} = new CFClient::UI::Label valign => 0, align => +1, text => ""); 445 [0, 4, st_wis => "Wis", 30, "Wisdom, the ability to learn and use divine magic (prayers). Determines how many grace points you can have"],
347 $tbl->add (1, 6, $STATWIDS->{st_cha} = new CFClient::UI::Label valign => 0, align => +1, text => ""); 446 [0, 5, st_pow => "Pow", 30, "Power, your magical potential. Influences the strength of spell effects, and also how much your spell and grace points increase when leveling up"],
447 [0, 6, st_cha => "Cha", 30, "Charisma, how well you are received by NPCs. Affects buying and selling prices in shops."],
348 448
349 $tbl->add (2, 0, $STATWIDS->{st_wc_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Wc"); 449 [2, 0, st_wc => "Wc", -120, "Weapon Class, effectiveness of melee/missile attacks. Lower is more potent. Current weapon, level and Str are some things which effect the value of Wc. The value of Wc may range between 25 and -72."],
350 $tbl->add (2, 1, $STATWIDS->{st_ac_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Ac"); 450 [2, 1, st_ac => "Ac", -120, "Armour Class, how protected you are from being hit by any attack. Lower values are better. Ac is based on your race and is modified by the Dex and current armour worn. For characters that cannot wear armour, Ac improves as their level increases."],
351 $tbl->add (2, 2, $STATWIDS->{st_dam_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Dam"); 451 [2, 2, st_dam => "Dam", 120, "Damage, how much damage your melee/missile attack inflicts. Higher values indicate a greater amount of damage will be inflicted with each attack."],
352 $tbl->add (2, 3, $STATWIDS->{st_arm_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Arm"); 452 [2, 3, st_arm => "Arm", 120, "Armour, how much damage (from physical attacks) will be subtracted from successful hits made upon you. This value ranges between 0 to 99%. Current armour worn primarily determines Arm value."],
353 $tbl->add (2, 4, $STATWIDS->{st_spd_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Sp"); 453 [2, 4, st_spd => "Spd", 10.54, "Speed, how fast you can move. The value of speed may range between nearly 0 (\"very slow\") to higher than 5 (\"lightning fast\"). Base speed is determined from the Dex and modified downward proportionally by the amount of weight carried which exceeds the Max Carry limit. The armour worn also sets the upper limit on speed."],
354 $tbl->add (2, 5, $STATWIDS->{st_wspd_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "WSp"); 454 [2, 5, st_wspd => "WSp", 10.54, "Weapon Speed, how many attacks you may make per unit of time (0.120s). Higher values indicate faster attack speed. Current weapon and Dex effect the value of weapon speed."],
455 ) {
456 my ($col, $row, $id, $label, $template, $tooltip) = @$_;
355 457
356 $tbl->add (3, 0, $STATWIDS->{st_wc} = new CFClient::UI::Label valign => 0, align => +1, text => ""); 458 $tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label
357 $tbl->add (3, 1, $STATWIDS->{st_ac} = new CFClient::UI::Label valign => 0, align => +1, text => ""); 459 font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip);
358 $tbl->add (3, 2, $STATWIDS->{st_dam} = new CFClient::UI::Label valign => 0, align => +1, text => ""); 460 $tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label
359 $tbl->add (3, 3, $STATWIDS->{st_arm} = new CFClient::UI::Label valign => 0, align => +1, text => ""); 461 font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $black, valign => 0, align => -1, text => $label, tooltip => $tooltip);
360 $tbl->add (3, 4, $STATWIDS->{st_spd} = new CFClient::UI::Label valign => 0, align => +1, text => ""); 462 }
361 $tbl->add (3, 5, $STATWIDS->{st_wspd} = new CFClient::UI::Label valign => 0, align => +1, text => "");
362 463
363 $hb->add (my $tbl2 = new CFClient::UI::Table expand => 1); 464 $hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);
364 465
365 my $row = 0; 466 my $row = 0;
366 my $col = 0; 467 my $col = 0;
367 468
368 my %resist_names = ( 469 my %resist_names = (
369 slow => "Slow", 470 slow => "Slow (slows you down when you are hit by the spell. Monsters will have an opportunity to come near you faster and hit you more often.)",
370 holyw => "Holy Word", 471 holyw => "Holy Word (resistance you against getting the fear when someone whose god doesn't like you spells the holy word on you.)",
371 conf => "Confusion", 472 conf => "Confusion (If you are hit by confusion you will move into random directions, and likely into monsters.)",
372 fire => "Fire", 473 fire => "Fire (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)",
373 depl => "Depletion", 474 depl => "Depletion (some monsters and other effects can cause stats depletion)",
374 magic => "Magic", 475 magic => "Magic (resistance to magic spells like magic missile or similar)",
375 drain => "Draining", 476 drain => "Draining (some monsters (e.g. vampires) and other effects can steal experience)",
376 acid => "Acid", 477 acid => "Acid (resistance to acid, acid hurts pretty much and also corrodes your weapons)",
377 pois => "Poison", 478 pois => "Poison (resistance to getting poisoned)",
378 para => "Paralysation", 479 para => "Paralysation (this resistance affects the chance you get paralysed)",
379 deat => "Death", 480 deat => "Death (resistance against death spells)",
380 phys => "Physical", 481 phys => "Physical (this is the resistance against physical attacks, like when a monster hit you in melee combat)",
381 blind => "Blind", 482 blind => "Blind (blind resistance affects the chance of a successful blinding attack)",
382 fear => "Fear", 483 fear => "Fear (this attack will drive you away from monsters who cast this and hit you successfully, being resistant to this helps a lot when fighting those monsters)",
383 tund => "Turn undead", 484 tund => "Turn undead",
384 elec => "Electricity", 485 elec => "Electricity (resistance againt electricity, spells like large lightning, small lightning, ...)",
385 cold => "Cold", 486 cold => "Cold (this is your resistance against cold spells like icestorm, snowstorm, ...)",
386 ghit => "Ghost hit", 487 ghit => "Ghost hit (special attack used by ghosts and ghost-like beings)",
387 ); 488 );
388 for (qw/slow holyw conf fire depl magic 489 for (qw/slow holyw conf fire depl magic
389 drain acid pois para deat phys 490 drain acid pois para deat phys
390 blind fear tund elec cold ghit/) 491 blind fear tund elec cold ghit/)
391 { 492 {
392 $tbl2->add ($col, $row, 493 $tbl2->add ($col, $row,
393 $STATWIDS->{"res_$_"} = 494 $STATWIDS->{"res_$_"} =
394 new CFClient::UI::Label text => "0", align => +1, valign => 0 495 new CFClient::UI::Label
496 font => $FONT_FIXED,
497 template => "-100%",
498 align => +1,
499 valign => 0,
500 can_events => 1,
501 can_hover => 1,
502 tooltip => $resist_names{$_},
395 ); 503 );
396 $tbl2->add ($col + 1, $row, new CFClient::UI::Image can_hover => 1, can_events => 1, image => "ui/resist/resist_$_.png", tooltip => $resist_names{$_}); 504 $tbl2->add ($col + 1, $row, new CFClient::UI::Image
505 font => $FONT_FIXED,
506 can_hover => 1,
507 can_events => 1,
508 image => "ui/resist/resist_$_.png",
509 tooltip => $resist_names{$_},
510 );
397 511
398 $row++; 512 $row++;
399 if ($row % 6 == 0) { 513 if ($row % 6 == 0) {
400 $col += 2; 514 $col += 2;
401 $row = 0; 515 $row = 0;
… …
406 update_stats_window ({}); 520 update_stats_window ({});
407 521
408 $tgw 522 $tgw
409} 523}
410 524
525sub formsep {
526 reverse join ",", grep length, split /(...)/, reverse $_[0] * 1
527}
528
411sub update_stats_window { 529sub update_stats_window {
412 my ($stats) = @_; 530 my ($stats) = @_;
413 531
414 # i love text protocols!!! 532 # i love text protocols!!!
415 my $hp = $stats->{1} * 1; 533 my $hp = $stats->{Crossfire::Protocol::CS_STAT_HP} * 1;
416 my $hp_m = $stats->{2} * 1; 534 my $hp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXHP} * 1;
417 my $sp = $stats->{3} * 1; 535 my $sp = $stats->{Crossfire::Protocol::CS_STAT_SP} * 1;
418 my $sp_m = $stats->{4} * 1; 536 my $sp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXSP} * 1;
419 my $fo = $stats->{18} * 1; 537 my $fo = $stats->{Crossfire::Protocol::CS_STAT_FOOD} * 1;
420 my $fo_m = 999; 538 my $fo_m = 999;
421 my $gr = $stats->{23} * 1; 539 my $gr = $stats->{Crossfire::Protocol::CS_STAT_GRACE} * 1;
422 my $gr_m = $stats->{24} * 1; 540 my $gr_m = $stats->{Crossfire::Protocol::CS_STAT_MAXGRACE} * 1;
423 541
424 $GAUGES->{hp} ->set_value ($hp, $hp_m); 542 $GAUGES->{hp} ->set_value ($hp, $hp_m);
425 $GAUGES->{mana} ->set_value ($sp, $sp_m); 543 $GAUGES->{mana} ->set_value ($sp, $sp_m);
426 $GAUGES->{food} ->set_value ($fo, $fo_m); 544 $GAUGES->{food} ->set_value ($fo, $fo_m);
427 $GAUGES->{grace} ->set_value ($gr, $gr_m); 545 $GAUGES->{grace} ->set_value ($gr, $gr_m);
428 $GAUGES->{exp} ->set_text ("XP: " . ($stats->{11} || $stats->{28}) * 1 546 $GAUGES->{exp} ->set_text ("Exp: " . (formsep $stats->{Crossfire::Protocol::CS_STAT_EXP64})
429 ." LVL: " . $stats->{12} * 1); 547 . " (lvl " . ($stats->{Crossfire::Protocol::CS_STAT_LEVEL} * 1) . ")");
430 my $rng = $stats->{20}; 548 my $rng = $stats->{Crossfire::Protocol::CS_STAT_RANGE};
431 $rng =~ s/^Range: //; # thank you so much dear server 549 $rng =~ s/^Range: //; # thank you so much dear server
432 $GAUGES->{range} ->set_text ("Rng: " . $rng); 550 $GAUGES->{range} ->set_text ("Rng: " . $rng);
433 my $title = $stats->{21}; 551 my $title = $stats->{Crossfire::Protocol::CS_STAT_TITLE};
434 $title =~ s/^Player: //; 552 $title =~ s/^Player: //;
435 $STATWIDS->{title} ->set_text ("Title: " . $title); 553 $STATWIDS->{title} ->set_text ("Title: " . $title);
436 554
437 $STATWIDS->{st_str} ->set_text (sprintf "%d", $stats->{5}); 555 $STATWIDS->{st_str} ->set_text (sprintf "%d", $stats->{5});
438 $STATWIDS->{st_dex} ->set_text (sprintf "%d", $stats->{8}); 556 $STATWIDS->{st_dex} ->set_text (sprintf "%d", $stats->{8});
439 $STATWIDS->{st_con} ->set_text (sprintf "%d", $stats->{9}); 557 $STATWIDS->{st_con} ->set_text (sprintf "%d", $stats->{9});
440 $STATWIDS->{st_int} ->set_text (sprintf "%d", $stats->{6}); 558 $STATWIDS->{st_int} ->set_text (sprintf "%d", $stats->{6});
441 $STATWIDS->{st_wis} ->set_text (sprintf "%d", $stats->{7}); 559 $STATWIDS->{st_wis} ->set_text (sprintf "%d", $stats->{7});
442 $STATWIDS->{st_pow} ->set_text (sprintf "%d", $stats->{22}); 560 $STATWIDS->{st_pow} ->set_text (sprintf "%d", $stats->{22});
443 $STATWIDS->{st_cha} ->set_text (sprintf "%d", $stats->{10}); 561 $STATWIDS->{st_cha} ->set_text (sprintf "%d", $stats->{10});
444 $STATWIDS->{st_wc} ->set_text (sprintf "%d", $stats->{13}); 562 $STATWIDS->{st_wc} ->set_text (sprintf "%d", $stats->{13});
445 $STATWIDS->{st_ac} ->set_text (sprintf "%d", $stats->{14}); 563 $STATWIDS->{st_ac} ->set_text (sprintf "%d", $stats->{14});
446 $STATWIDS->{st_dam} ->set_text (sprintf "%d", $stats->{15}); 564 $STATWIDS->{st_dam} ->set_text (sprintf "%d", $stats->{15});
447 $STATWIDS->{st_arm} ->set_text (sprintf "%d", $stats->{16}); 565 $STATWIDS->{st_arm} ->set_text (sprintf "%d", $stats->{16});
448 $STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{17}); 566 $STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_SPEED});
449 $STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{19}); 567 $STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_WEAP_SP});
450 568
451 my %tbl = ( 569 my %tbl = (
452 phys => 100, 570 phys => 100,
453 magic => 101, 571 magic => 101,
454 fire => 102, 572 fire => 102,
… …
475 593
476} 594}
477 595
478sub metaserver_dialog { 596sub metaserver_dialog {
479 my $dialog = new CFClient::UI::FancyFrame 597 my $dialog = new CFClient::UI::FancyFrame
480 title => "Metaserver", 598 title => "Server List",
481 child => (my $vbox = new CFClient::UI::VBox); 599 child => (my $vbox = new CFClient::UI::VBox);
482 600
483 $vbox->add ($dialog->{table} = new CFClient::UI::Table); 601 $vbox->add ($dialog->{table} = new CFClient::UI::Table);
484 602
485 $dialog 603 $dialog
486} 604}
605
606my $METASERVER_ATIME;
487 607
488sub update_metaserver { 608sub update_metaserver {
489 my ($HOST) = @_; 609 my ($HOST) = @_;
490 610
491 status "fetching metaserver list..."; 611 return if $METASERVER_ATIME > time;
612 $METASERVER_ATIME = time + 60;
613
614 my $table = $METASERVER->{table};
615 $table->clear;
616 $table->add (0, 0, my $label = new CFClient::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
492 617
493 my $buf; 618 my $buf;
494 619
495 my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0; 620 my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;
621
622 unless ($fh) {
623 $label->set_text ("unable to contact metaserver: $!");
624 return;
625 }
496 626
497 Event->io (fd => $fh, poll => 'r', cb => sub { 627 Event->io (fd => $fh, poll => 'r', cb => sub {
498 my $res = sysread $fh, $buf, 8192, length $buf; 628 my $res = sysread $fh, $buf, 8192, length $buf;
499 629
500 if (!defined $res) { 630 if (!defined $res) {
501 $_[0]->w->cancel; 631 $_[0]->w->cancel;
502 status "metaserver: $!"; 632 $label->set_text ("error while retrieving server list: $!");
503 } elsif ($res == 0) { 633 } elsif ($res == 0) {
504 $_[0]->w->cancel; 634 $_[0]->w->cancel;
505 status "server list retrieved"; 635 status "server list retrieved";
506 636
507 my $table = $METASERVER->{table}; 637 utf8::decode $buf if utf8::valid $buf;
508 638
509 $table->clear; 639 $table->clear;
510 640
511 my @col = qw(Use #Users Host Uptime Version Description); 641 my @col = qw(Use #Users Host Uptime Version Description);
512 $table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_]) 642 $table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])
… …
536 $m = [$users, $host, $uptime, $version, $desc]; 666 $m = [$users, $host, $uptime, $version, $desc];
537 667
538 $y++; 668 $y++;
539 669
540 $table->add (0, $y, new CFClient::UI::VBox children => [ 670 $table->add (0, $y, new CFClient::UI::VBox children => [
541 (new CFClient::UI::Button text => " ", connect_activate => sub { 671 (new CFClient::UI::Button text => "Use", connect_activate => sub {
542 $HOST->set_text ($CFG->{host} = $host); 672 $HOST->set_text ($CFG->{host} = $host);
543 }), 673 }),
544 (new CFClient::UI::Empty expand => 1), 674 (new CFClient::UI::Empty expand => 1),
545 ]); 675 ]);
546 676
… …
575 705
576 $METASERVER = metaserver_dialog; 706 $METASERVER = metaserver_dialog;
577 707
578 $vbox->add (new CFClient::UI::Flopper 708 $vbox->add (new CFClient::UI::Flopper
579 expand => 1, 709 expand => 1,
580 text => "Metaserver", 710 text => "Server List",
581 other => $METASERVER, 711 other => $METASERVER,
582 tooltip => "Show a list of avaible crossfire servers", 712 tooltip => "Show a list of available crossfire servers",
583 connect_open => sub { 713 connect_open => sub {
584 update_metaserver $HOST; 714 update_metaserver $HOST;
585 } 715 }
586 ); 716 );
587 } 717 }
… …
602 hidden => 1, 732 hidden => 1,
603 tooltip => "The password for your character", 733 tooltip => "The password for your character",
604 connect_changed => sub { 734 connect_changed => sub {
605 my ($self, $value) = @_; 735 my ($self, $value) = @_;
606 $CFG->{password} = $value; 736 $CFG->{password} = $value;
607 }
608 );
609
610 $table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "Def. say cmd");
611 $table->add (1, 6, my $saycmd = new CFClient::UI::Entry
612 text => $CFG->{say_command},
613 tooltip => "This is the command that will be used if you write a line in the message window entry. "
614 ."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
615 ."But you could also set it to 'tell <playername>' to only chat with that user.",
616 connect_changed => sub {
617 my ($self, $value) = @_;
618 $CFG->{say_command} = $value;
619 } 737 }
620 ); 738 );
621 739
622 $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size"); 740 $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");
623 $table->add (1, 7, new CFClient::UI::Slider 741 $table->add (1, 7, new CFClient::UI::Slider
… …
630 748
631 $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 749 $CFG->{mapsize} = $self->{range}[0] = $value = int $value;
632 }, 750 },
633 ); 751 );
634 752
635 $table->add (1, 8, new CFClient::UI::Button expand => 1, align => 0, text => "Login", connect_activate => sub { 753 $table->add (1, 8, $LOGIN_BUTTON = new CFClient::UI::Button
754 expand => 1,
755 align => 0,
756 text => "Login",
757 connect_activate => sub {
758 $CONN ? stop_game
636 start_game; 759 : start_game;
760 },
637 }); 761 );
638 762
639 $dialog 763 $dialog
640} 764}
641 765
642sub message_window { 766sub message_window {
643 my $window = new CFClient::UI::FancyFrame 767 my $window = new CFClient::UI::FancyFrame
644 title => "Messages", 768 title => "Messages",
645 border_bg => [1, 1, 1, 0.5], 769 border_bg => [1, 1, 1, 1],
646 bg => [0.3, 0.3, 0.3, 0.8], 770 bg => [0, 0, 0, 0.5],
647 user_w => int $::WIDTH / 3, 771 user_w => int $::WIDTH / 3,
648 user_h => int $::HEIGHT / 5, 772 user_h => int $::HEIGHT / 5,
649 child => (my $vbox = new CFClient::UI::VBox); 773 child => (my $vbox = new CFClient::UI::VBox);
650 774
651 $vbox->add ($LOGVIEW = new CFClient::UI::TextView 775 $vbox->add ($LOGVIEW = new CFClient::UI::TextView
652 expand => 1, 776 expand => 1,
777 font => $FONT_FIXED,
653 fontsize => $::CFG->{log_fontsize}, 778 fontsize => $::CFG->{log_fontsize},
654 ); 779 );
655 780
656 $vbox->add (my $input = new CFClient::UI::Entry 781 $vbox->add (my $input = new CFClient::UI::Entry
657 connect_focus_in => sub { 782 connect_focus_in => sub {
… …
690 }; 815 };
691 816
692 $window 817 $window
693} 818}
694 819
820sub make_inventory_window {
821 my $invwin = new CFClient::UI::FancyFrame user_w => 300, user_h => 300, title => "Inventory";
822 $invwin->add ($INV = new CFClient::UI::Inventory expand => 1);
823 $invwin
824}
825
695sub sdl_init { 826sub sdl_init {
696 CFClient::SDL_Init 827 CFClient::SDL_Init
697 and die "SDL::Init failed!\n"; 828 and die "SDL::Init failed!\n";
698} 829}
699 830
700sub video_init { 831sub video_init {
701 sdl_init; 832 sdl_init;
702 833
834 $CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
835
703 ($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] }; 836 ($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
704 $FULLSCREEN = $CFG->{fullscreen}; 837 $FULLSCREEN = $CFG->{fullscreen};
705 $FAST = $CFG->{fast}; 838 $FAST = $CFG->{fast};
706 839
707 CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN 840 CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN
708 or die "SDL_SetVideoMode failed!\n"; 841 or die "SDL_SetVideoMode failed!\n";
709 842
710 $SDL_ACTIVE = 1; 843 $SDL_ACTIVE = 1;
711
712 $LAST_REFRESH = time - 0.01; 844 $LAST_REFRESH = time - 0.01;
713 845
714 CFClient::gl_init; 846 CFClient::gl_init;
715 847
716 $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize}; 848 $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
717 849
850 $CFClient::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#
851
718 ############################################################################# 852 #############################################################################
719 853
854 unless ($DEBUG_STATUS) {
855 # create the widgets
856
720 $DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100; 857 $DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100;
721 $DEBUG_STATUS->show; 858 $DEBUG_STATUS->show;
722 859
723 $STATUS_LINE = new CFClient::UI::Label 860 $STATUSBOX = new CFClient::UI::Statusbox;
724 padding => 0, 861 $STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", pri => -100, size => 0.8, color => [1, 1, 1, 0.8]);
725 y => $HEIGHT - $FONTSIZE * 1.8;
726 $STATUS_LINE->show;
727 862
728 $ALT_ENTER_MESSAGE = new CFClient::UI::Label 863 (new CFClient::UI::Frame
729 padding => 0, 864 bg => [0, 0, 0, 0.4],
730 fontsize => 0.8, 865 child => $STATUSBOX,
731 markup => "Use <b>Alt-Enter</b> to toggle fullscreen mode"; 866 )->show;
732 $ALT_ENTER_MESSAGE->show;
733 $ALT_ENTER_MESSAGE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h});
734 867
735 $CFClient::UI::ROOT->add ($MAPWIDGET = new CFClient::MapWidget); 868 CFClient::UI::FancyFrame->new (
736 $MAPWIDGET->focus_in; 869 border_bg => [1, 1, 1, 192/255],
870 bg => [1, 1, 1, 0],
871 child => ($MAPMAP = new CFClient::MapWidget::MapMap),
872 )->show;
873
874 $MAPWIDGET = new CFClient::MapWidget;
737 $MAPWIDGET->connect (activate_console => sub { 875 $MAPWIDGET->connect (activate_console => sub {
738 my ($mapwidget, $preset) = @_; 876 my ($mapwidget, $preset) = @_;
739 877
740 if ($CONSOLE) { 878 if ($CONSOLE) {
741 $CONSOLE->{input}->{auto_activated} = 1; 879 $CONSOLE->{input}->{auto_activated} = 1;
742 $CONSOLE->{input}->focus_in; 880 $CONSOLE->{input}->focus_in;
743 881
744 if ($preset && $CONSOLE->{input}->get_text eq '') { 882 if ($preset && $CONSOLE->{input}->get_text eq '') {
745 $CONSOLE->{input}->set_text ($preset); 883 $CONSOLE->{input}->set_text ($preset);
884 }
746 } 885 }
747 } 886 });
748 }); 887 $MAPWIDGET->show;
888 $MAPWIDGET->focus_in;
749 889
750 $CFClient::UI::ROOT->add ($BUTTONBAR = new CFClient::UI::HBox); 890 $BUTTONBAR = new CFClient::UI::HBox;
751 891
752 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup); 892 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);
753 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup); 893 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);
754 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window); 894 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);
755 895
756 $CFClient::UI::ROOT->add (make_gauge_window); # XXX: this has to be set before make_stats_window as make_stats_window calls update_stats_window which updated the gauges also X-D 896 make_gauge_window->show; # XXX: this has to be set before make_stats_window as make_stats_window calls update_stats_window which updated the gauges also X-D
897
757 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window); 898 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window);
899 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window);
758 900
759 $BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub { 901 $BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {
760 CFClient::write_cfg "$Crossfire::VARDIR/pclientrc"; 902 CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";
761 status "Configuration Saved"; 903 status "Configuration Saved";
762 }); 904 });
763 905
906 $BUTTONBAR->show;
907
908 # delay till geometry is constant
909 $CFClient::UI::ROOT->on_post_alloc (startup => sub {
764 $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup 910 $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
911 });
912 force_refresh ();
913 }
765} 914}
766 915
767sub video_shutdown { 916sub video_shutdown {
768 $CFClient::UI::ROOT->{children} = [];
769 undef $SDL_ACTIVE; 917 undef $SDL_ACTIVE;
770} 918}
771 919
772my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d# 920my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
773my $bgmusic;#TODO#hack#d# 921my $bgmusic;#TODO#hack#d#
922
923sub audio_channel_finished {
924 my ($channel) = @_;
925
926 warn "channel $channel finished\n";#d#
927}
774 928
775sub audio_music_finished { 929sub audio_music_finished {
776 return unless $CFG->{bgm_enable}; 930 return unless $CFG->{bgm_enable};
777 931
778 # TODO: hack, do play loop and mood music 932 # TODO: hack, do play loop and mood music
… …
782 push @bgmusic, shift @bgmusic; 936 push @bgmusic, shift @bgmusic;
783} 937}
784 938
785sub audio_init { 939sub audio_init {
786 if ($CFG->{audio_enable}) { 940 if ($CFG->{audio_enable}) {
787 if (open my $fh, "<:utf8", CFClient::find_rcfile "sounds/config") { 941 if (open my $fh, "<", CFClient::find_rcfile "sounds/config") {
788 $SDL_MIXER = !CFClient::Mix_OpenAudio; 942 $SDL_MIXER = !CFClient::Mix_OpenAudio;
789 CFClient::Mix_AllocateChannels 8; 943 CFClient::Mix_AllocateChannels 8;
790 CFClient::MixMusic::volume $CFG->{bgm_volume} * 128; 944 CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;
791 945
792 audio_music_finished; 946 audio_music_finished;
… …
819} 973}
820 974
821my %animate_object; 975my %animate_object;
822my $animate_timer; 976my $animate_timer;
823 977
824my $want_refresh;
825my $can_refresh;
826
827my $fps = 9; 978my $fps = 9;
828 979
829sub force_refresh { 980sub force_refresh {
830 $fps = $fps * 0.95 + 1 / ($NOW - $LAST_REFRESH) * 0.05; 981 $fps = $fps * 0.95 + 1 / ($NOW - $LAST_REFRESH) * 0.05;
831 debug sprintf "%3.2f", $fps; 982 debug sprintf "%3.2f", $fps;
832 983
833 $want_refresh = 0;
834 $can_refresh = 0;
835
836 $CFClient::UI::ROOT->draw; 984 $CFClient::UI::ROOT->draw;
837
838 CFClient::SDL_GL_SwapBuffers; 985 CFClient::SDL_GL_SwapBuffers;
839 986
987 $WANT_REFRESH = 0;
988 $CAN_REFRESH = 0;
840 $LAST_REFRESH = $NOW; 989 $LAST_REFRESH = $NOW;
841} 990}
842 991
843my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub { 992my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {
844 $NOW = time; 993 $NOW = time;
… …
846 ($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_) 995 ($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
847 for CFClient::SDL_PollEvent; 996 for CFClient::SDL_PollEvent;
848 997
849 if (%animate_object) { 998 if (%animate_object) {
850 $_->animate ($LAST_REFRESH - $NOW) for values %animate_object; 999 $_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
851 $want_refresh++; 1000 $WANT_REFRESH++;
852 } 1001 }
853 1002
854 if ($want_refresh) { 1003 if ($WANT_REFRESH) {
855 force_refresh; 1004 force_refresh;
856 } else { 1005 } else {
857 $can_refresh = 1; 1006 $CAN_REFRESH = 1;
858 } 1007 }
859}); 1008});
860
861sub refresh {
862 $want_refresh++;
863}
864 1009
865sub animation_start { 1010sub animation_start {
866 my ($widget) = @_; 1011 my ($widget) = @_;
867 $animate_object{$widget} = $widget; 1012 $animate_object{$widget} = $widget;
868} 1013}
… …
947# at worst. 1092# at worst.
948sub conn::flood_fill { 1093sub conn::flood_fill {
949 my ($self, $gx, $gy, $path, $hash, $flags) = @_; 1094 my ($self, $gx, $gy, $path, $hash, $flags) = @_;
950 1095
951 # the server does not allow map paths > 6 1096 # the server does not allow map paths > 6
952 return if 6 <= length $path; 1097 return if 7 <= length $path;
953 1098
954 my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}}; 1099 my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}};
955 1100
956 for ( 1101 for (
957 [1, 0, -1], 1102 [1, 0, -1],
… …
1000 1145
1001 $self->flush_map; 1146 $self->flush_map;
1002 1147
1003 my ($ox, $oy) = ($::MAP->ox, $::MAP->oy); 1148 my ($ox, $oy) = ($::MAP->ox, $::MAP->oy);
1004 1149
1005 my $mapmapw = 250; 1150 my $mapmapw = $MAPMAP->{w};
1006 my $mapmaph = 250; 1151 my $mapmaph = $MAPMAP->{h};
1007 1152
1008 $self->{neigh_rect} = [ 1153 $self->{neigh_rect} = [
1009 $ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5, 1154 $ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,
1010 $ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h, 1155 $ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h,
1011 ]; 1156 ];
… …
1054 } 1199 }
1055 1200
1056gotid: 1201gotid:
1057 $face->{id} = $id; 1202 $face->{id} = $id;
1058 $MAP->set_face ($facenum => $id); 1203 $MAP->set_face ($facenum => $id);
1204 $self->{faceid}[$facenum] = $id;#d#
1059 $TILECACHE->get ($id) 1205 $TILECACHE->get ($id)
1060} 1206}
1061 1207
1062sub conn::face_update { 1208sub conn::face_update {
1063 my ($self, $facenum, $face) = @_; 1209 my ($self, $facenum, $face) = @_;
… …
1071 my ($self, $id, $data) = @_; 1217 my ($self, $id, $data) = @_;
1072 1218
1073 $self->{texture}[$id] ||= do { 1219 $self->{texture}[$id] ||= do {
1074 my $tex = 1220 my $tex =
1075 new_from_image CFClient::Texture 1221 new_from_image CFClient::Texture
1076 $data, minify => 1; 1222 $data, minify => 1, mipmap => 1;
1077 1223
1078 $MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}}); 1224 $MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
1079 $MAPWIDGET->update; 1225 $MAPWIDGET->update;
1080 1226
1081 $tex 1227 $tex
… …
1093 1239
1094 $chunk->play; 1240 $chunk->play;
1095# warn "sound $x,$y,$soundnum,$type\n";#d# 1241# warn "sound $x,$y,$soundnum,$type\n";#d#
1096} 1242}
1097 1243
1244my $LAST_QUERY; # server is stupid, stupid, stupid
1245
1098sub conn::query { 1246sub conn::query {
1099 my ($self, $flags, $prompt) = @_; 1247 my ($self, $flags, $prompt) = @_;
1100 1248
1101 #TODO, display dialog with relevant information 1249 $prompt = $LAST_QUERY unless length $prompt;
1102 warn "<<<<QUERY:$flags:$prompt>>>\n";#d# 1250 $LAST_QUERY = $prompt;
1251
1252 my $dialog = new CFClient::UI::FancyFrame
1253 title => "Query",
1254 child => my $vbox = new CFClient::UI::VBox;
1255
1256 $vbox->add (new CFClient::UI::Label
1257 max_w => $::WIDTH * 0.4,
1258 text => $prompt);
1259
1260 if ($flags & Crossfire::Protocol::CS_QUERY_YESNO) {
1261 $vbox->add (my $hbox = new CFClient::HBox);
1262 $hbox->add (new CFClient::Button
1263 text => "No",
1264 connect_activate => sub {
1265 $self->send ("reply n");
1266 $dialog->destroy;
1267 $MAPWIDGET->focus_in;
1268 }
1269 );
1270 $hbox->add (new CFClient::Button
1271 text => "Yes",
1272 connect_activate => sub {
1273 $self->send ("reply y");
1274 $dialog->destroy;
1275 $MAPWIDGET->focus_in;
1276 },
1277 );
1278
1279 $dialog->focus_in;
1280
1281 } elsif ($flags & Crossfire::Protocol::CS_QUERY_SINGLECHAR) {
1282 $dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
1283 $vbox->add (my $entry = new CFClient::UI::Entry
1284 connect_changed => sub {
1285 $self->send ("reply $_[1]");
1286 $dialog->destroy;
1287 $MAPWIDGET->focus_in;
1288 },
1289 );
1290
1291 $entry->focus_in;
1292
1293 } else {
1294 $dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
1295
1296 $vbox->add (my $entry = new CFClient::UI::Entry
1297 $flags & Crossfire::Protocol::CS_QUERY_HIDEINPUT ? (hiddenchar => "*") : (),
1298 connect_activate => sub {
1299 $self->send ("reply $_[1]");
1300 $dialog->destroy;
1301 $MAPWIDGET->focus_in;
1302 },
1303 );
1304
1305 $entry->focus_in;
1306 }
1307
1308 $dialog->show;
1103} 1309}
1104 1310
1105sub conn::drawinfo { 1311sub conn::drawinfo {
1106 my ($self, $color, $text) = @_; 1312 my ($self, $color, $text) = @_;
1107 1313
… …
1119 [0.55, 0.41, 0.13], 1325 [0.55, 0.41, 0.13],
1120 [0.99, 0.77, 0.26], 1326 [0.99, 0.77, 0.26],
1121 [0.74, 0.65, 0.41], 1327 [0.74, 0.65, 0.41],
1122 ); 1328 );
1123 1329
1330 my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0];
1331
1332 $text =~ s/&/&amp;/g; $text =~ s/</&lt;/g;
1333 $text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g;
1334 $text =~ s/\[color=(.*?)\](.*?)\[\/color\]/<span foreground='\1'>\2<\/span>/g;
1335
1124 $LOGVIEW->add_paragraph ($color[$color], $text); 1336 $LOGVIEW->add_paragraph ($color[$color],
1337 join "\n", map "$time $_", split /\n/, $text);
1338
1339 $STATUSBOX->add ($text,
1340 group => $text,
1341 color => $color[$color],
1342 timeout => 60,
1343 tooltip_font => $::FONT_FIXED,
1344 );
1345}
1346
1347sub conn::drawextinfo {
1348 my ($self, $color, $type, $subtype, $message) = @_;
1349
1350 $self->drawinfo ($color, $message);
1125} 1351}
1126 1352
1127sub conn::spell_add { 1353sub conn::spell_add {
1128 my ($self, $spell) = @_; 1354 my ($self, $spell) = @_;
1129 1355
1356 # TODO
1357 # create a widget dynamically, using spell face (CF::Protocol downloads them)
1130 $MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message}, sub { 1358 $MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message});
1131 });
1132 $MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message}, sub { 1359 $MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message});
1133 });
1134} 1360}
1135 1361
1136sub conn::spell_delete { 1362sub conn::spell_delete {
1137 my ($self, $spell) = @_; 1363 my ($self, $spell) = @_;
1138} 1364}
1139 1365
1140sub conn::addme_success { 1366sub conn::addme_success {
1141 my ($self) = @_; 1367 my ($self) = @_;
1142 1368
1143 for my $skill (values %{$self->{skill_info}}) { 1369 for my $skill (values %{$self->{skill_info}}) {
1144 $MAPWIDGET->add_command ("ready_skill $skill", "", sub { 1370 $MAPWIDGET->add_command ("ready_skill $skill", "Ready the skill '$skill'");
1371 $MAPWIDGET->add_command ("use_skill $skill", "Immediately use the skill '$skill'");
1372 }
1373
1374 $MAPWIDGET->add_command ("pet\\_mode defend", "Tell pets to stay close to you and defend you");
1375 $MAPWIDGET->add_command ("pet\\_mode arena", "Same as petmode attack, but also attack other players");
1376 $MAPWIDGET->add_command ("pet\\_mode sad", "Search &amp; Destroy - tell pets to roam about and attack enemies");
1377 $MAPWIDGET->add_command ("kill\\_pets", "kill your pets");
1378}
1379
1380sub conn::eof {
1381 stop_game;
1382}
1383
1384sub update_floorbox {
1385 $CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub {
1386 return unless $CONN;
1387
1388 $FLOORBOX->clear;
1389 $FLOORBOX->add (new CFClient::UI::Empty expand => 1);
1390
1391 my $count = 4;
1392 for (@{ $CONN->{container}{0} }) {
1393 if (--$count) {
1394 $FLOORBOX->add (new CFClient::UI::InventoryItem item => $_);
1395 } else {
1396 $FLOORBOX->add (new CFClient::UI::Label text => "More...");
1397 last;
1398 }
1145 }); 1399 }
1146 $MAPWIDGET->add_command ("use_skill $skill", "", sub {
1147 }); 1400 });
1148 } 1401
1402 $WANT_REFRESH++;
1403}
1404
1405sub conn::container_add {
1406 my ($self, $tag, $items) = @_;
1407
1408 update_floorbox if $tag == 0;
1409
1410 $INV->set_items ($self->{container}{$self->{player}{tag}})
1411 if $tag == $self->{player}{tag};
1412
1413 # $self-<{player}{tag} => player inv
1414 #use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};
1415}
1416
1417sub conn::container_clear {
1418 my ($self, $tag) = @_;
1419
1420 update_floorbox if $tag == 0;
1421
1422 $INV->set_items ($self->{container}{$tag})
1423 if $tag == $self->{player}{tag};
1424
1425# use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};
1426}
1427
1428sub conn::item_delete {
1429 my ($self, @items) = @_;
1430
1431 for (@items) {
1432 update_floorbox if $_->{container} == 0;
1433
1434 $INV->set_items ($self->{container}{$_->{container}})
1435 if $_->{container} == $self->{player}{tag};
1436 }
1437}
1438
1439sub conn::item_update {
1440 my ($self, $item) = @_;
1441
1442 update_floorbox if $item->{container} == 0;
1443
1444 $INV->set_items ($self->{container}{$item->{container}})
1445 if $item->{container} == $self->{player}{tag};
1149} 1446}
1150 1447
1151%SDL_CB = ( 1448%SDL_CB = (
1152 CFClient::SDL_QUIT => sub { 1449 CFClient::SDL_QUIT => sub {
1153 Event::unloop -1; 1450 Event::unloop -1;
1154 }, 1451 },
1155 CFClient::SDL_VIDEORESIZE => sub { 1452 CFClient::SDL_VIDEORESIZE => sub {
1156 }, 1453 },
1157 CFClient::SDL_VIDEOEXPOSE => \&refresh, 1454 CFClient::SDL_VIDEOEXPOSE => sub {
1455 $WANT_REFRESH++;
1456 },
1158 CFClient::SDL_ACTIVEEVENT => sub { 1457 CFClient::SDL_ACTIVEEVENT => sub {
1159# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d# 1458# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#
1160 }, 1459 },
1161 CFClient::SDL_KEYDOWN => sub { 1460 CFClient::SDL_KEYDOWN => sub {
1162 if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) { 1461 if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) {
… …
1166 video_init; 1465 video_init;
1167 } else { 1466 } else {
1168 CFClient::UI::feed_sdl_key_down_event ($_[0]); 1467 CFClient::UI::feed_sdl_key_down_event ($_[0]);
1169 } 1468 }
1170 }, 1469 },
1171 CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event, 1470 CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,
1172 CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event, 1471 CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,
1173 CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event, 1472 CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,
1174 CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event, 1473 CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,
1175 CFClient::SDL_USEREVENT => \&audio_music_finished, 1474 CFClient::SDL_USEREVENT => sub {
1475 if ($_[0]{code} == 1) {
1476 audio_channel_finished $_[0]{data1};
1477 } elsif ($_[0]{code} == 0) {
1478 audio_music_finished;
1479 }
1480 },
1176); 1481);
1177 1482
1178############################################################################# 1483#############################################################################
1179 1484
1180$SIG{INT} = $SIG{TERM} = sub { exit }; 1485$SIG{INT} = $SIG{TERM} = sub { exit };
1181 1486
1182$TILECACHE = CFClient::db_table "tilecache";
1183$FACEMAP = CFClient::db_table "facemap";
1184
1185CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";
1186
1187my %DEF_CFG = (
1188 sdl_mode => 0,
1189 width => 640,
1190 height => 480,
1191 fullscreen => 0,
1192 fast => 0,
1193 fow_enable => 1,
1194 fow_intensity => 0.45,
1195 fow_smooth => 0,
1196 gui_fontsize => 1,
1197 log_fontsize => 1,
1198 gauge_fontsize => 1,
1199 gauge_size => 0.35,
1200 stat_fontsize => 1,
1201 mapsize => 100,
1202 host => "crossfire.schmorp.de",
1203 say_command => 'say',
1204 audio_enable => 1,
1205 bgm_enable => 1,
1206 bgm_volume => 0.25,
1207);
1208
1209while (my ($k, $v) = each %DEF_CFG) {
1210 $CFG->{$k} = $v unless exists $CFG->{$k};
1211}
1212
1213sdl_init;
1214
1215@SDL_MODES = reverse
1216 grep $_->[0] >= 640 && $_->[1] >= 480,
1217 CFClient::SDL_ListModes;
1218
1219@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
1220
1221$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
1222
1223{ 1487{
1224 my @fonts = map CFClient::find_rcfile $_, qw(uifont.ttf uifontb.ttf uifonti.ttf uifontbi.ttf); 1488 local $SIG{__DIE__} = sub { CFClient::fatal $_[0] };
1225 1489
1490 CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";
1491
1492 $TILECACHE = CFClient::db_table "tilecache";
1493 $FACEMAP = CFClient::db_table "facemap";
1494
1495 my %DEF_CFG = (
1496 sdl_mode => 0,
1497 width => 640,
1498 height => 480,
1499 fullscreen => 0,
1500 fast => 0,
1501 map_scale => 0.5,
1502 fow_enable => 1,
1503 fow_intensity => 0.45,
1504 fow_smooth => 0,
1505 gui_fontsize => 1,
1506 log_fontsize => 1,
1507 gauge_fontsize=> 1,
1508 gauge_size => 0.35,
1509 stat_fontsize => 1,
1510 mapsize => 100,
1511 host => "crossfire.schmorp.de",
1512 say_command => 'say',
1513 audio_enable => 1,
1514 bgm_enable => 1,
1515 bgm_volume => 0.25,
1516 );
1517
1518 while (my ($k, $v) = each %DEF_CFG) {
1519 $CFG->{$k} = $v unless exists $CFG->{$k};
1520 }
1521
1522 sdl_init;
1523
1524 @SDL_MODES = reverse
1525 grep $_->[0] >= 640 && $_->[1] >= 480,
1526 CFClient::SDL_ListModes;
1527
1528 @SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
1529
1530 $CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
1531
1532 {
1533 my @fonts = map CFClient::find_rcfile "fonts/$_", qw(
1534 DejaVuSans.ttf
1535 DejaVuSansMono.ttf
1536 DejaVuSans-Bold.ttf
1537 DejaVuSansMono-Bold.ttf
1538 DejaVuSans-Oblique.ttf
1539 DejaVuSansMono-Oblique.ttf
1540 DejaVuSans-BoldOblique.ttf
1541 DejaVuSansMono-BoldOblique.ttf
1542 );
1543
1226 CFClient::add_font $_ for @fonts; 1544 CFClient::add_font $_ for @fonts;
1227 CFClient::set_font $fonts[0]; 1545
1228} 1546 $FONT_PROP = new_from_file CFClient::Font $fonts[0];
1547 $FONT_FIXED = new_from_file CFClient::Font $fonts[1];
1229 1548
1549 $FONT_PROP->make_default;
1550 }
1551
1230video_init; 1552 video_init;
1231audio_init; 1553 audio_init;
1554}
1232 1555
1233Event::loop; 1556Event::loop;
1234 1557
1235END { CFClient::SDL_Quit } 1558END { CFClient::SDL_Quit }
1236 1559
1560=head1 pclient - Crossfire+ and Crossfire game client
1237 1561
1562Pclient is a Crossfire+ and Crossfire game client.
1563
1564=head2 Features
1565
1566=over 4
1567
1568=item Fullscreen Map
1569
1570PClient can uses a fullscreen map, which greatly enhances how much of the
1571game world you can see.
1572
1573=item Persistent Map Cache (Crossfire+ only)
1574
1575PClient can persistently cache all map data it received from the
1576server. This not only allows it to display an overview map, but also
1577ensures that once-explored areas will be available the next time you want
1578to explore more.
1579
1580=item Hardware acceleration
1581
1582Unlike most Crossfire clients, PClient take advantage of OpenGL hardware
1583acceleration. Most modern graphics cards have difficulties with 2D
1584acceleration, while 3D graphics is accelerated well.
1585
1586=item No arbitrary limits
1587
1588Unlike other Crossfire clients, pclient does not suffer from arbitrary
1589limits (like a fixed amount of face numbers). There are still limits, but
1590they are not arbitrarily low :)
1591
1592=back
1593
1594=head1 USAGE
1595
1596=head2 The Map
1597
1598The map is always displayed in the background, behind all other windows and UI elements.
1599
1600#TODO# middle-click scrolls
1601#
1602# keys:
1603#
1604# a apply
1605# keypad moves, kp_5 applies ranged attack to self
1606
1607Starting to type enters the I<completion mode>. In that mode, you can type
1608abbreviations or commands and have them executed as soon as they match a
1609valid command. This is best explained by a few examples:
1610
1611Typing B<climb> will display a list of commands with I<climb> in their
1612name, such as I<ready_skill climbing> and I<use_skill climbing>.
1613
1614You can abbreviate commands by typing only the first character of every
1615word. For example, typing I<iwor> will likely select I<invoke word of
1616recall>, while I<ccfo> will select I<cast create food>. Likewise, I<rscli>
1617will likely select I<ready_skill climbing> and I<usl> will give you
1618I<use_skill levitation>.
1619
1620=head2 The map overview
1621
1622#TODO#
1623
1624=head2 The Status area in the lower right corner
1625
1626#TODO#
1627
1628=head2 The I<Statistics>/I>Stats> window
1629
1630#TODO#
1631
1632=head1 FAQ
1633
1634=over 4
1635
1636=item The client is very sluggish and slow, what can I do about this?
1637
1638Most likely, you don't have accelerated OpenGL support. Try to find a
1639newer driver, or a driver from your hardware vendor, that features OpenGL
1640support.
1641
1642If this is not an option, the following Setup options reduce the load and
1643will likely make the client playable with sofwtare rendering (it will
1644still be slow, though):
1645
1646=over 4
1647
1648=item B<Video Mode> should be set as low as possible (e.g. 640x480)
1649
1650=item Enable B<Fast & Ugly> mode
1651
1652=item Disable B<Fog of War>
1653
1654=item Increase B<Map Scale>
1655
1656=back
1657
1658=back
1659
1660=head1 AUTHOR
1661
1662Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
1663
1664
1665

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines