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.96 by root, Thu Apr 13 23:11:11 2006 UTC vs.
Revision 1.199 by root, Mon May 8 15:12:39 2006 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2 2
3use strict; 3use strict;
4use utf8; 4use utf8;
5 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};
28
6use Time::HiRes 'time'; 29use Time::HiRes 'time';
7use Event; 30use Event;
8 31
9use SDL;
10use SDL::App;
11use SDL::Event;
12use SDL::Surface;
13use SDL::OpenGL;
14
15use Crossfire; 32use Crossfire;
16use Crossfire::Protocol; 33use Crossfire::Protocol;
17 34
35use Compress::LZF;
36
18use CFClient; 37use CFClient;
19use CFClient::UI; 38use CFClient::UI;
39use CFClient::MapWidget;
40
41$Event::DIED = sub {
42 CFClient::error $_[1];
43};
44
45#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#
20 46
21our $VERSION = '0.1'; 47our $VERSION = '0.1';
22 48
23my $MAX_FPS = 60; 49my $MAX_FPS = 60;
24my $MIN_FPS = 5; # unused as of yet 50my $MIN_FPS = 5; # unused as of yet
25 51
52our $META_SERVER = "crossfire.real-time.com:13326";
53
54our $FACEMAP;
55our $TILECACHE;
26our $FACECACHE; 56our $MAPCACHE;
27 57
28our $LAST_REFRESH; 58our $LAST_REFRESH;
29our $NOW; 59our $NOW;
30 60
31our $CFG; 61our $CFG;
… …
34 64
35our @SDL_MODES; 65our @SDL_MODES;
36our $WIDTH; 66our $WIDTH;
37our $HEIGHT; 67our $HEIGHT;
38our $FULLSCREEN; 68our $FULLSCREEN;
69our $FONTSIZE;
70
71our $FONT_PROP;
72our $FONT_FIXED;
39 73
40our $MAP; 74our $MAP;
75our $MAPMAP;
41our $MAPWIDGET; 76our $MAPWIDGET;
42our $FONTSIZE; 77our $BUTTONBAR;
78our $LOGVIEW;
79our $CONSOLE;
80our $METASERVER;
81our $LOGIN_BUTTON;
82
83our $FLOORBOX;
84our $GAUGES;
85our $STATWIDS;
43 86
44our $SDL_ACTIVE; 87our $SDL_ACTIVE;
45our $SDL_EV;
46our %SDL_CB; 88our %SDL_CB;
89
90our $SDL_MIXER;
91our @SOUNDS; # event => file mapping
92our %AUDIO_CHUNKS; # audio files
47 93
48our $ALT_ENTER_MESSAGE; 94our $ALT_ENTER_MESSAGE;
49our $STATUS_LINE; 95our $STATUS_LINE;
50our $DEBUG_STATUS; 96our $DEBUG_STATUS;
51 97
98our $INVWIN;
99our $INV;
100
52sub status { 101sub status {
53 $STATUS_LINE->set_text ($_[0]); 102 $STATUS_LINE->set_text ($_[0]);
54 my ($w, $h) = $STATUS_LINE->size_request;
55 $STATUS_LINE->size_allocate (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $h, $w, $h); 103 $STATUS_LINE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $STATUS_LINE->{h});
56} 104}
57 105
58sub debug { 106sub debug {
59 $DEBUG_STATUS->set_text ($_[0]); 107 $DEBUG_STATUS->set_text ($_[0]);
60 my ($w, $h) = $DEBUG_STATUS->size_request; 108 $DEBUG_STATUS->move ($WIDTH - $DEBUG_STATUS->{w}, 0, $DEBUG_STATUS->{w}, $DEBUG_STATUS->{h});
61 $DEBUG_STATUS->size_allocate ($WIDTH - $w, 0, $w, $h);
62} 109}
63 110
64sub start_game { 111sub start_game {
112 $LOGIN_BUTTON->set_text ("Logout");
113
65 status "logging in..."; 114 status "logging in...";
66 115
67 my $mapsize = List::Util::min 64, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32; 116 my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
117
118 $MAPCACHE = CFClient::db_table "mapcache_$CFG->{host}";
68 119
69 $MAP = new CFClient::Map $mapsize, $mapsize; 120 $MAP = new CFClient::Map $mapsize, $mapsize;
121
122 my ($host, $port) = split /:/, $CFG->{host};
70 123
71 $CONN = new conn 124 $CONN = eval {
125 new conn
72 host => $CFG->{host}, 126 host => $host,
73 port => $CFG->{port}, 127 port => $port || 13327,
74 user => $CFG->{user}, 128 user => $CFG->{user},
75 pass => $CFG->{password}, 129 pass => $CFG->{password},
76 mapw => $mapsize, 130 mapw => $mapsize,
77 maph => $mapsize, 131 maph => $mapsize,
132 ;
78 ; 133 };
79 134
135 if ($CONN) {
80 status "login successful"; 136 status "login successful";
81 137
82 CFClient::lowdelay fileno $CONN->{fh}; 138 CFClient::lowdelay fileno $CONN->{fh};
139 } else {
140 status "unable to connect";
141 stop_game();
142 }
83} 143}
84 144
85sub stop_game { 145sub stop_game {
146 status "connection closed";
147 $LOGIN_BUTTON->set_text ("Login");
86 undef $CONN; 148 undef $CONN;
87} 149}
88 150
89sub config_dialog { 151sub client_setup {
90 my $dialog = new CFClient::UI::FancyFrame x => 300, y => 100, 152 my $dialog = new CFClient::UI::FancyFrame
153 title => "Client Setup",
91 child => (my $vbox = new CFClient::UI::VBox); 154 child => (my $vbox = new CFClient::UI::VBox);
92 $vbox->add (new CFClient::UI::Label align => 0, text => "Client Setup");
93 $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]); 155 $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
94 156
95 $table->add (0, 0, new CFClient::UI::Label align => 1, text => "Video Mode"); 157 $table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");
96 $table->add (1, 0, my $hbox = new CFClient::UI::HBox); 158 $table->add (1, 0, my $hbox = new CFClient::UI::HBox);
97 159
98 $hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, scalar @SDL_MODES, 1]); 160 $hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, scalar @SDL_MODES, 1]);
99 $hbox->add (my $mode_label = new CFClient::UI::Label height => $FONTSIZE * 0.8); 161 $hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");
100 162
101 $mode_slider->connect (changed => sub { 163 $mode_slider->connect (changed => sub {
102 my ($self, $value) = @_; 164 my ($self, $value) = @_;
103 165
104 $CFG->{sdl_mode} = $self->{range}[0] = $value = int $value; 166 $CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
105 $mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]}); 167 $mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});
106 }); 168 });
107 $mode_slider->emit (changed => $mode_slider->{range}[0]); 169 $mode_slider->emit (changed => $mode_slider->{range}[0]);
108 170
171 my $row = 1;
172
109 $table->add (0, 1, new CFClient::UI::Label align => 1, text => "Fullscreen"); 173 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen");
110 $table->add (1, 1, new CFClient::UI::CheckBox state => $CFG->{fullscreen}, connect_changed => sub { 174 $table->add (1, $row++, new CFClient::UI::CheckBox
175 state => $CFG->{fullscreen},
176 tooltip => "Bring the client into fullscreen mode",
177 connect_changed => sub {
111 my ($self, $value) = @_; 178 my ($self, $value) = @_;
112 $CFG->{fullscreen} = $value; 179 $CFG->{fullscreen} = $value;
180 }
181 );
182
183 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
184 $table->add (1, $row++, new CFClient::UI::CheckBox
185 state => $CFG->{fast},
186 tooltip => "Lower the visual quality considerably to speed up rendering.",
187 connect_changed => sub {
188 my ($self, $value) = @_;
189 $CFG->{fast} = $value;
190 }
191 );
192
193 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");
194 $table->add (1, $row++, new CFClient::UI::Slider
195 range => [$CFG->{map_scale}, 0.25, 2, 0.05],
196 tooltip => "Enlarge or shrink the displayed map",
197 connect_changed => sub {
198 my ($self, $value) = @_;
199 $CFG->{map_scale} = 0.05 * int $value / 0.05;
200 }
201 );
202
203 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");
204 $table->add (1, $row++, new CFClient::UI::CheckBox
205 state => $CFG->{fow_enable},
206 tooltip => "Fog-of-War marks areas that cannot be seen by the player",
207 connect_changed => sub {
208 my ($self, $value) = @_;
209 $CFG->{fow_enable} = $value;
210 }
211 );
212
213 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");
214 $table->add (1, $row++, new CFClient::UI::Slider
215 range => [$CFG->{fow_intensity}, 0, 1 + 0.001, 0.001],
216 tooltip => "The higher the intensity, the lighter the Fog-of-War color",
217 connect_changed => sub {
218 my ($self, $value) = @_;
219 $CFG->{fow_intensity} = $value;
220 }
221 );
222
223 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth");
224 $table->add (1, $row++, new CFClient::UI::CheckBox
225 state => $CFG->{fow_smooth},
226 tooltip => "Smooth the Fog-of-War a bit to make it more realistic",
227 connect_changed => sub {
228 my ($self, $value) = @_;
229 $CFG->{fow_smooth} = $value;
230 status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::GL_VERSION < 1.2;
231 }
232 );
233
234 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
235 $table->add (1, $row++, new CFClient::UI::Slider
236 range => [$CFG->{gui_fontsize}, 0.5, 2, 0.1],
237 tooltip => "The font size used by most GUI elements",
238 connect_changed => sub {
239 $CFG->{gui_fontsize} = 0.1 * int $_[1] * 10;
240# $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
241 }
242 );
243
244 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Server Log Fontsize");
245 $table->add (1, $row++, new CFClient::UI::Slider
246 range => [$CFG->{log_fontsize}, 0.5, 2, 0.1],
247 tooltip => "The font size used by the server log window only",
248 connect_changed => sub {
249 $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = 0.1 * int $_[1] * 10);
250 }
251 );
252
253 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");
254
255 $table->add (1, $row++, new CFClient::UI::Slider
256 range => [$CFG->{stat_fontsize}, 0.5, 2, 0.1],
257 tooltip => "The font size used by the statistics window only",
258 connect_changed => sub {
259 $CFG->{stat_fontsize} = 0.1 * int $_[1] * 10;
260 &set_stats_window_fontsize;
261 }
262 );
263
264 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");
265 $table->add (1, $row++, new CFClient::UI::Slider
266 range => [$CFG->{gauge_size}, 0.2, 0.8, 0.02],
267 tooltip => "Adjust the size of the stats gauges at the bottom right",
268 connect_changed => sub {
269 $CFG->{gauge_size} = $_[1];
270 my $h = int $HEIGHT * $CFG->{gauge_size};
271 $GAUGES->{win}->set_size ($WIDTH, $h);
272 $GAUGES->{win}->move (0, $HEIGHT - $h);
273 }
274 );
275
276 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
277 $table->add (1, $row++, new CFClient::UI::Slider
278 range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1],
279 tooltip => "Adjusts the fontsize of the gauges at the bottom right",
280 connect_changed => sub {
281 $CFG->{gauge_fontsize} = 0.1 * int $_[1] * 10;
282 &set_gauge_window_fontsize;
283 }
284 );
285
286 $table->add (1, $row++, new CFClient::UI::Button
287 expand => 1, align => 0, text => "Apply",
288 tooltip => "Apply the video settings",
289 connect_activate => sub {
290 video_shutdown ();
291 video_init ();
292 }
293 );
294
295 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");
296 $table->add (1, $row++, new CFClient::UI::CheckBox
297 state => $CFG->{audio_enable},
298 tooltip => "If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.",
299 connect_changed => sub {
300 $CFG->{audio_enable} = $_[1];
301 }
302 );
303# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume");
304# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], connect_changed => sub {
305# $CFG->{effects_volume} = $_[1];
306# });
307 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music");
308 $table->add (1, $row++, my $hbox = new CFClient::UI::HBox);
309 $hbox->add (new CFClient::UI::CheckBox
310 expand => 1, state => $CFG->{bgm_enable},
311 tooltip => "Enable background music playing",
312 connect_changed => sub {
313 $CFG->{bgm_enable} = $_[1];
314 }
315 );
316 $hbox->add (new CFClient::UI::Slider
317 expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0.1],
318 tooltip => "The volume of the background music",
319 connect_changed => sub {
320 $CFG->{bgm_volume} = $_[1];
321 CFClient::MixMusic::volume $_[1] * 128;
322 }
323 );
324
325 $table->add (1, $row++, new CFClient::UI::Button
326 expand => 1, align => 0, text => "Apply",
327 tooltip => "Apply the audio settings",
328 connect_activate => sub {
329 audio_shutdown ();
330 audio_init ();
331 }
332 );
333
334 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Communication cmd");
335 $table->add (1, $row++, my $saycmd = new CFClient::UI::Entry
336 text => $CFG->{say_command},
337 tooltip => "This is the command that will be used if you write a line in the message window entry. "
338 ."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
339 ."But you could also set it to 'tell &lt;playername&gt;' to only chat with that user.",
340 connect_changed => sub {
341 my ($self, $value) = @_;
342 $CFG->{say_command} = $value;
343 }
344 );
345
346 $dialog
347}
348
349sub set_stats_window_fontsize {
350 for (values %{$STATWIDS}) {
351 $_->set_fontsize ($::CFG->{stat_fontsize});
352 }
353}
354
355sub set_gauge_window_fontsize {
356 for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {
357 $_->set_fontsize ($::CFG->{gauge_fontsize});
358 }
359
360# local $GAUGES->{win}{parent};#d#
361# use PApp::Util; open D, ">:utf8", "d"; print D PApp::Util::dumpval $GAUGES->{win}; close D;
362}
363
364sub make_gauge_window {
365 my $gh = int ($HEIGHT * $CFG->{gauge_size});
366# my $gw = int ($WIDTH * $CFG->{gauge_w_size});
367
368 my $win = new CFClient::UI::Frame (
369 y => $HEIGHT - $gh, x => 0, user_w => $WIDTH, user_h => $gh
370 );
371 $win->add (my $hbox = new CFClient::UI::HBox
372 children => [
373 (new CFClient::UI::HBox expand => 1),
374 ($FLOORBOX = new CFClient::UI::VBox),
375 (my $vbox = new CFClient::UI::VBox),
376 ],
377 );
378
379 $vbox->add (new CFClient::UI::HBox
380 expand => 1,
381 children => [
382 (new CFClient::UI::Empty expand => 1),
383 (my $hb = new CFClient::UI::HBox),
384 ],
385 );
386
387 $hb->add (my $hg = new CFClient::UI::Gauge type => 'hp',
388 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.");
389 $hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',
390 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.");
391 $hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',
392 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.");
393 $hb->add (my $fg = new CFClient::UI::Gauge type => 'food',
394 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.");
395
396 $vbox->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
397 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.");
398 $vbox->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
399 tooltip => "Ranged attack - how you attack when you press shift-cursor (spell, skill, weapon etc.)");
400
401 $GAUGES = {
402 exp => $exp, win => $win, range => $rng,
403 food => $fg, mana => $mg, hp => $hg, grace => $gg
404 };
405
406 &set_gauge_window_fontsize;
407
408 $win
409}
410
411sub make_stats_window {
412 my $tgw = new CFClient::UI::FancyFrame x => $WIDTH * 2/5, y => 0, title => "Stats";
413
414 $tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);
415 $vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1);
416 $vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1);
417
418 $vb->add (my $hb = new CFClient::UI::HBox expand => 1);
419
420 $hb->add (my $tbl = new CFClient::UI::Table expand => 1);
421
422 my $black = [0, 0, 0];
423
424 for (
425 [0, 0, st_str => "Str", 30, "Physical Strength, determines damage dealt with weapons, how much you can carry, and how often you can attack"],
426 [0, 1, st_dex => "Dex", 30, "Dexterity, your physical agility. Determines chance of being hit and affects armor class and speed"],
427 [0, 2, st_con => "Con", 30, "Constitution, physical health and toughness. Determines how many healthpoints you can have"],
428 [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"],
429 [0, 4, st_wis => "Wis", 30, "Wisdom, the ability to learn and use divine magic (prayers). Determines how many grace points you can have"],
430 [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"],
431 [0, 6, st_cha => "Cha", 30, "Charisma, how well you are received by NPCs. Affects buying and selling prices in shops."],
432
433 [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."],
434 [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."],
435 [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."],
436 [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."],
437 [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."],
438 [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."],
439 ) {
440 my ($col, $row, $id, $label, $template, $tooltip) = @$_;
441
442 $tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label
443 font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip);
444 $tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label
445 font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $black, valign => 0, align => -1, text => $label, tooltip => $tooltip);
446 }
447
448 $hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);
449
450 my $row = 0;
451 my $col = 0;
452
453 my %resist_names = (
454 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.)",
455 holyw => "Holy Word (resistance you against getting the fear when someone whose god doesn't like you spells the holy word on you.)",
456 conf => "Confusion (If you are hit by confusion you will move into random directions, and likely into monsters.)",
457 fire => "Fire (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)",
458 depl => "Depletion (some monsters and other effects can cause stats depletion)",
459 magic => "Magic (resistance to magic spells like magic missile or similar)",
460 drain => "Draining (some monsters (e.g. vampires) and other effects can steal experience)",
461 acid => "Acid (resistance to acid, acid hurts pretty much and also corrodes your weapons)",
462 pois => "Poison (resistance to getting poisoned)",
463 para => "Paralysation (this resistance affects the chance you get paralysed)",
464 deat => "Death (resistance against death spells)",
465 phys => "Physical (this is the resistance against physical attacks, like when a monster hit you in melee combat)",
466 blind => "Blind (blind resistance affects the chance of a successful blinding attack)",
467 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)",
468 tund => "Turn undead",
469 elec => "Electricity (resistance againt electricity, spells like large lightning, small lightning, ...)",
470 cold => "Cold (this is your resistance against cold spells like icestorm, snowstorm, ...)",
471 ghit => "Ghost hit (special attack used by ghosts and ghost-like beings)",
472 );
473 for (qw/slow holyw conf fire depl magic
474 drain acid pois para deat phys
475 blind fear tund elec cold ghit/)
476 {
477 $tbl2->add ($col, $row,
478 $STATWIDS->{"res_$_"} =
479 new CFClient::UI::Label
480 font => $FONT_FIXED,
481 template => "-100%",
482 align => +1,
483 valign => 0,
484 can_events => 1,
485 can_hover => 1,
486 tooltip => $resist_names{$_},
487 );
488 $tbl2->add ($col + 1, $row, new CFClient::UI::Image
489 font => $FONT_FIXED,
490 can_hover => 1,
491 can_events => 1,
492 image => "ui/resist/resist_$_.png",
493 tooltip => $resist_names{$_},
494 );
495
496 $row++;
497 if ($row % 6 == 0) {
498 $col += 2;
499 $row = 0;
500 }
501 }
502
503 &set_stats_window_fontsize;
504 update_stats_window ({});
505
506 $tgw
507}
508
509sub formsep {
510 reverse join ",", grep length, split /(...)/, reverse $_[0] * 1
511}
512
513sub update_stats_window {
514 my ($stats) = @_;
515
516 # i love text protocols!!!
517 my $hp = $stats->{Crossfire::Protocol::CS_STAT_HP} * 1;
518 my $hp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXHP} * 1;
519 my $sp = $stats->{Crossfire::Protocol::CS_STAT_SP} * 1;
520 my $sp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXSP} * 1;
521 my $fo = $stats->{Crossfire::Protocol::CS_STAT_FOOD} * 1;
522 my $fo_m = 999;
523 my $gr = $stats->{Crossfire::Protocol::CS_STAT_GRACE} * 1;
524 my $gr_m = $stats->{Crossfire::Protocol::CS_STAT_MAXGRACE} * 1;
525
526 $GAUGES->{hp} ->set_value ($hp, $hp_m);
527 $GAUGES->{mana} ->set_value ($sp, $sp_m);
528 $GAUGES->{food} ->set_value ($fo, $fo_m);
529 $GAUGES->{grace} ->set_value ($gr, $gr_m);
530 $GAUGES->{exp} ->set_text ("Exp: " . (formsep $stats->{Crossfire::Protocol::CS_STAT_EXP64})
531 . " (lvl " . ($stats->{Crossfire::Protocol::CS_STAT_LEVEL} * 1) . ")");
532 my $rng = $stats->{Crossfire::Protocol::CS_STAT_RANGE};
533 $rng =~ s/^Range: //; # thank you so much dear server
534 $GAUGES->{range} ->set_text ("Rng: " . $rng);
535 my $title = $stats->{Crossfire::Protocol::CS_STAT_TITLE};
536 $title =~ s/^Player: //;
537 $STATWIDS->{title} ->set_text ("Title: " . $title);
538
539 $STATWIDS->{st_str} ->set_text (sprintf "%d", $stats->{5});
540 $STATWIDS->{st_dex} ->set_text (sprintf "%d", $stats->{8});
541 $STATWIDS->{st_con} ->set_text (sprintf "%d", $stats->{9});
542 $STATWIDS->{st_int} ->set_text (sprintf "%d", $stats->{6});
543 $STATWIDS->{st_wis} ->set_text (sprintf "%d", $stats->{7});
544 $STATWIDS->{st_pow} ->set_text (sprintf "%d", $stats->{22});
545 $STATWIDS->{st_cha} ->set_text (sprintf "%d", $stats->{10});
546 $STATWIDS->{st_wc} ->set_text (sprintf "%d", $stats->{13});
547 $STATWIDS->{st_ac} ->set_text (sprintf "%d", $stats->{14});
548 $STATWIDS->{st_dam} ->set_text (sprintf "%d", $stats->{15});
549 $STATWIDS->{st_arm} ->set_text (sprintf "%d", $stats->{16});
550 $STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_SPEED});
551 $STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_WEAP_SP});
552
553 my %tbl = (
554 phys => 100,
555 magic => 101,
556 fire => 102,
557 elec => 103,
558 cold => 104,
559 conf => 105,
560 acid => 106,
561 drain => 107,
562 ghit => 108,
563 pois => 109,
564 slow => 110,
565 para => 111,
566 tund => 112,
567 fear => 113,
568 depl => 113,
569 deat => 115,
570 holyw => 116,
571 blind => 117
572 );
573
574 for (keys %tbl) {
575 $STATWIDS->{"res_$_"}->set_text (sprintf "%d%", $stats->{$tbl{$_}});
576 }
577
578}
579
580sub metaserver_dialog {
581 my $dialog = new CFClient::UI::FancyFrame
582 title => "Server List",
583 child => (my $vbox = new CFClient::UI::VBox);
584
585 $vbox->add ($dialog->{table} = new CFClient::UI::Table);
586
587 $dialog
588}
589
590my $METASERVER_ATIME;
591
592sub update_metaserver {
593 my ($HOST) = @_;
594
595 return if $METASERVER_ATIME > time;
596 $METASERVER_ATIME = time + 60;
597
598 my $table = $METASERVER->{table};
599 $table->clear;
600 $table->add (0, 0, my $label = new CFClient::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
601
602 my $buf;
603
604 my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;
605
606 unless ($fh) {
607 $label->set_text ("unable to contact metaserver: $!");
608 return;
609 }
610
611 Event->io (fd => $fh, poll => 'r', cb => sub {
612 my $res = sysread $fh, $buf, 8192, length $buf;
613
614 if (!defined $res) {
615 $_[0]->w->cancel;
616 $label->set_text ("error while retrieving server list: $!");
617 } elsif ($res == 0) {
618 $_[0]->w->cancel;
619 status "server list retrieved";
620
621 utf8::decode $buf if utf8::valid $buf;
622
623 $table->clear;
624
625 my @col = qw(Use #Users Host Uptime Version Description);
626 $table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])
627 for 0 .. $#col;
628
629 my @align = qw(1 0 1 1 -1);
630
631 my $y = 0;
632 for my $m (sort { $b->[3] <=> $a->[3] } map [split /\|/], split /\015?\012/, $buf) {
633 my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime) = @$m;
634
635 for ($desc) {
636 s/<br>/\n/gi;
637 s/<li>/\n· /gi;
638 s/<.*?>//sgi;
639 s/&/&amp;/g;
640 s/</&lt;/g;
641 s/>/&gt;/g;
642 }
643
644 $uptime = sprintf "%dd %02d:%02d:%02d",
645 (int $m->[8] / 86400),
646 (int $m->[8] / 3600) % 24,
647 (int $m->[8] / 60) % 60,
648 $m->[8] % 60;
649
650 $m = [$users, $host, $uptime, $version, $desc];
651
652 $y++;
653
654 $table->add (0, $y, new CFClient::UI::VBox children => [
655 (new CFClient::UI::Button text => "Use", connect_activate => sub {
656 $HOST->set_text ($CFG->{host} = $host);
657 }),
658 (new CFClient::UI::Empty expand => 1),
659 ]);
660
661 $table->add ($_ + 1, $y, new CFClient::UI::Label align => $align[$_], text => $m->[$_], fontsize => 0.8)
662 for 0 .. $#$m;
663 }
664 }
113 }); 665 });
666}
114 667
115 $table->add (0, 2, new CFClient::UI::Label align => 1, text => "Fast &amp; Ugly"); 668sub server_setup {
116 $table->add (1, 2, new CFClient::UI::CheckBox state => $CFG->{fast}, connect_changed => sub { 669 my $dialog = new CFClient::UI::FancyFrame
117 my ($self, $value) = @_; 670 title => "Server Setup",
118 $CFG->{fast} = $value; 671 child => (my $vbox = new CFClient::UI::VBox);
119 });
120
121 $table->add (0, 3, new CFClient::UI::Label align => 1, text => "Fog of War");
122 $table->add (1, 3, new CFClient::UI::Slider range => [$CFG->{fow_intensity}, 0, 1 + 0.001, 0.001], connect_changed => sub {
123 my ($self, $value) = @_;
124 $CFG->{fow_intensity} = $value;
125 });
126
127 $table->add (0, 4, new CFClient::UI::Label align => 1, text => "Smooth FoW");
128 $table->add (1, 4, new CFClient::UI::CheckBox state => $CFG->{fow_smooth}, connect_changed => sub {
129 my ($self, $value) = @_;
130 $CFG->{fow_smooth} = $value;
131 });
132
133 $table->add (1, 5, new CFClient::UI::Button expand => 1, align => 0, text => "Apply", connect_activate => sub {
134 destroy_screen ();
135 init_screen ();
136 });
137 672
138 $vbox->add (new CFClient::UI::Label align => 0, text => "Server Setup");
139 $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]); 673 $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
140 $table->add (0, 2, new CFClient::UI::Label align => 1, text => "Host"); 674 $table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");
141 $table->add (1, 2, my $host = new CFClient::UI::Entry text => $CFG->{host}); 675
142 676 {
143 $table->add (0, 3, new CFClient::UI::Label align => 1, text => "Port"); 677 $table->add (1, 2, my $vbox = new CFClient::UI::VBox);
144 $table->add (1, 3, my $port = new CFClient::UI::Entry text => $CFG->{port});
145 678
679 $vbox->add (
680 my $HOST = new CFClient::UI::Entry
681 expand => 1,
682 text => $CFG->{host},
683 tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",
684 connect_changed => sub {
685 my ($self, $value) = @_;
686 $CFG->{host} = $value;
687 }
688 );
689
690 $METASERVER = metaserver_dialog;
691
692 $vbox->add (new CFClient::UI::Flopper
693 expand => 1,
694 text => "Metaserver",
695 other => $METASERVER,
696 tooltip => "Show a list of avaible crossfire servers",
697 connect_open => sub {
698 update_metaserver $HOST;
699 }
700 );
701 }
702
146 $table->add (0, 4, new CFClient::UI::Label align => 1, text => "Username"); 703 $table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");
147 $table->add (1, 4, my $user = new CFClient::UI::Entry text => $CFG->{user}); 704 $table->add (1, 4, new CFClient::UI::Entry
705 text => $CFG->{user},
706 tooltip => "The name of your character on the server",
707 connect_changed => sub {
708 my ($self, $value) = @_;
709 $CFG->{user} = $value;
710 }
711 );
148 712
149 $table->add (0, 5, new CFClient::UI::Label align => 1, text => "Password"); 713 $table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password");
150 $table->add (1, 5, my $pass = new CFClient::UI::Entry text => $CFG->{password}, hidden => 1); 714 $table->add (1, 5, new CFClient::UI::Entry
715 text => $CFG->{password},
716 hidden => 1,
717 tooltip => "The password for your character",
718 connect_changed => sub {
719 my ($self, $value) = @_;
720 $CFG->{password} = $value;
721 }
722 );
151 723
152 $table->add (0, 6, new CFClient::UI::Label align => 1, text => "Map Size"); 724 $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");
153 $table->add (1, 6, new CFClient::UI::Slider 725 $table->add (1, 7, new CFClient::UI::Slider
154 req_w => 100, 726 req_w => 100,
155 range => [$CFG->{mapsize}, 10, 100 + 1, 1], 727 range => [$CFG->{mapsize}, 10, 100 + 1, 1],
728 tooltip => "This is the size of the portion of the map update the server sends you. "
729 ."If you set this to a high value you will be able to see further for example.",
156 connect_changed => sub { 730 connect_changed => sub {
157 my ($self, $value) = @_; 731 my ($self, $value) = @_;
158 732
159 $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 733 $CFG->{mapsize} = $self->{range}[0] = $value = int $value;
160 }, 734 },
161 ); 735 );
162 736
163 $table->add (1, 7, new CFClient::UI::Button expand => 1, align => 0, text => "Login", connect_activate => sub { 737 $table->add (1, 8, $LOGIN_BUTTON = new CFClient::UI::Button
738 expand => 1,
739 align => 0,
740 text => "Login",
741 connect_activate => sub {
742 $CONN ? stop_game
164 start_game; 743 : start_game;
744 },
745 );
746
747 $dialog
748}
749
750sub message_window {
751 my $window = new CFClient::UI::FancyFrame
752 title => "Messages",
753 border_bg => [1, 1, 1, 1],
754 bg => [0, 0, 0, 0.5],
755 user_w => int $::WIDTH / 3,
756 user_h => int $::HEIGHT / 5,
757 child => (my $vbox = new CFClient::UI::VBox);
758
759 $vbox->add ($LOGVIEW = new CFClient::UI::TextView
760 expand => 1,
761 font => $FONT_FIXED,
762 fontsize => $::CFG->{log_fontsize},
763 );
764
765 $vbox->add (my $input = new CFClient::UI::Entry
766 connect_focus_in => sub {
767 my ($input, $prev_focus) = @_;
768
769 delete $input->{refocus_map};
770
771 if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {
772 $input->{refocus_map} = 1;
773 }
774 delete $input->{auto_activated};
775 },
776 connect_activate => sub {
777 my ($input, $text) = @_;
778 $input->set_text ('');
779
780 if ($text =~ /^\/(.*)/) {
781 $::CONN->user_send ($1);
782 } else {
783 my $say_cmd = $::CFG->{say_command} || 'say';
784 $::CONN->user_send ("$say_cmd $text");
785 }
786 if ($input->{refocus_map}) {
787 delete $input->{refocus_map};
788 $MAPWIDGET->focus_in
789 }
790 },
791 connect_escape => sub {
792 $MAPWIDGET->focus_in
793 },
794 );
795
796 $CONSOLE = {
797 window => $window,
798 input => $input
799 };
800
801 $window
802}
803
804sub make_inventory_window {
805 my $invwin = new CFClient::UI::FancyFrame user_w => 300, user_h => 300, title => "Inventory";
806 $invwin->add ($INV = new CFClient::UI::Inventory expand => 1);
807 $invwin
808}
809
810sub sdl_init {
811 CFClient::SDL_Init
812 and die "SDL::Init failed!\n";
813}
814
815sub video_init {
816 sdl_init;
817
818 $CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
819
820 ($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
821 $FULLSCREEN = $CFG->{fullscreen};
822 $FAST = $CFG->{fast};
823
824 CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN
825 or die "SDL_SetVideoMode failed!\n";
826
827 $SDL_ACTIVE = 1;
828
829 $LAST_REFRESH = time - 0.01;
830
831 CFClient::gl_init;
832
833 $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
834
835 #############################################################################
836
837 $DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100;
838 $DEBUG_STATUS->show;
839
840 $STATUS_LINE = new CFClient::UI::Label
841 padding => 0,
842 y => $HEIGHT - $FONTSIZE * 1.8;
843 $STATUS_LINE->show;
844
845 $ALT_ENTER_MESSAGE = new CFClient::UI::Label
846 padding => 0,
847 fontsize => 0.8,
848 markup => "Use <b>Alt-Enter</b> to toggle fullscreen mode";
849 $ALT_ENTER_MESSAGE->show;
850 $ALT_ENTER_MESSAGE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h});
851
852 CFClient::UI::FancyFrame->new (
853 border_bg => [1, 1, 1, 192/255],
854 bg => [1, 1, 1, 0],
855 child => ($MAPMAP = new CFClient::MapWidget::MapMap),
856 )->show;
857
858 $MAPWIDGET = new CFClient::MapWidget;
859 $MAPWIDGET->connect (activate_console => sub {
860 my ($mapwidget, $preset) = @_;
861
862 if ($CONSOLE) {
863 $CONSOLE->{input}->{auto_activated} = 1;
864 $CONSOLE->{input}->focus_in;
865
866 if ($preset && $CONSOLE->{input}->get_text eq '') {
867 $CONSOLE->{input}->set_text ($preset);
868 }
869 }
165 }); 870 });
871 $MAPWIDGET->show;
872 $MAPWIDGET->focus_in;
166 873
167 $vbox->add (my $hbox = new CFClient::UI::HBox); 874 $BUTTONBAR = new CFClient::UI::HBox;
168 875
876 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);
877 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);
878 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);
879
880 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
881
882 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window);
883 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window);
884
169 $hbox->add (new CFClient::UI::Button expand => 1, align => 0, text => "Save", connect_activate => sub { 885 $BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {
170 CFClient::write_cfg "$Crossfire::VARDIR/pclientrc"; 886 CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";
171 status "Configuration Saved"; 887 status "Configuration Saved";
172 }); 888 });
173 $CFClient::UI::TOPLEVEL->add ($dialog);
174}
175 889
176sub sdl_init { 890 $BUTTONBAR->show;
177 SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO | SDL_INIT_NOPARACHUTE
178 and die "SDL::Init failed!\n";
179}
180 891
181sub init_screen { 892 $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
182 sdl_init;
183
184 ($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
185 $FULLSCREEN = $CFG->{fullscreen};
186 $FAST = $CFG->{fast};
187
188 SDL::GLSetAttribute SDL_GL_RED_SIZE, 5;
189 SDL::GLSetAttribute SDL_GL_GREEN_SIZE, 5;
190 SDL::GLSetAttribute SDL_GL_BLUE_SIZE, 5;
191 SDL::GLSetAttribute SDL_GL_ALPHA_SIZE, 0;
192
193 SDL::GLSetAttribute SDL_GL_ACCUM_RED_SIZE, 0;
194 SDL::GLSetAttribute SDL_GL_ACCUM_GREEN_SIZE, 0;
195 SDL::GLSetAttribute SDL_GL_ACCUM_BLUE_SIZE, 0;
196 SDL::GLSetAttribute SDL_GL_ACCUM_ALPHA_SIZE, 0;
197
198 SDL::GLSetAttribute SDL_GL_DOUBLEBUFFER, 1;
199 SDL::GLSetAttribute SDL_GL_BUFFER_SIZE, 15;
200 SDL::GLSetAttribute SDL_GL_DEPTH_SIZE, 0;
201
202 SDL::SetVideoMode $WIDTH, $HEIGHT, 0,
203 SDL_HWSURFACE | SDL_ANYFORMAT | SDL_OPENGL | SDL_DOUBLEBUF
204 | ($FULLSCREEN ? SDL_FULLSCREEN : 0)
205 or die "SDL::SetVideoMode failed!\n";
206
207 SDL::WMSetCaption "Crossfire+ Client", "Crossfire+";
208
209 $SDL_EV = new SDL::Event;
210 $SDL_EV->set_unicode (1);
211
212 $SDL_ACTIVE = 1;
213
214 $LAST_REFRESH = time - 0.01;
215
216 CFClient::gl_init;
217
218 $FONTSIZE = int $HEIGHT / 40;
219
220 #############################################################################
221
222 $DEBUG_STATUS = new CFClient::UI::Label padding => 0;
223 $CFClient::UI::TOPLEVEL->add ($DEBUG_STATUS);
224
225 $STATUS_LINE = new CFClient::UI::Label
226 padding => 0,
227 y => $HEIGHT * 49 / 50 - $FONTSIZE;
228 $CFClient::UI::TOPLEVEL->add ($STATUS_LINE);
229
230 $ALT_ENTER_MESSAGE = new CFClient::UI::Label
231 padding => 0,
232 y => $HEIGHT * 49 / 50,
233 height => $HEIGHT / 50,
234 text => "Use <b>Alt-Enter</b> to toggle fullscreen mode";
235 $CFClient::UI::TOPLEVEL->add ($ALT_ENTER_MESSAGE);
236
237 $MAPWIDGET = new CFClient::UI::MapWidget;
238 $CFClient::UI::TOPLEVEL->add ($MAPWIDGET);
239 $MAPWIDGET->focus_in;
240
241 config_dialog;
242} 893}
243 894
244sub destroy_screen { 895sub video_shutdown {
245 $CFClient::UI::TOPLEVEL->{children} = []; 896 $CFClient::UI::ROOT->{children} = [];
897 undef $CFClient::UI::GRAB;
898 undef $CFClient::UI::HOVER;
246 undef $SDL_ACTIVE; 899 undef $SDL_ACTIVE;
900}
901
902my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
903my $bgmusic;#TODO#hack#d#
904
905sub audio_channel_finished {
906 my ($channel) = @_;
907
908 warn "channel $channel finished\n";#d#
909}
910
911sub audio_music_finished {
912 return unless $CFG->{bgm_enable};
913
914 # TODO: hack, do play loop and mood music
915 $bgmusic = new_from_file CFClient::MixMusic CFClient::find_rcfile "music/$bgmusic[0]";
916 $bgmusic->play (0);
917
918 push @bgmusic, shift @bgmusic;
919}
920
921sub audio_init {
922 if ($CFG->{audio_enable}) {
923 if (open my $fh, "<", CFClient::find_rcfile "sounds/config") {
924 $SDL_MIXER = !CFClient::Mix_OpenAudio;
925 CFClient::Mix_AllocateChannels 8;
926 CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;
927
928 audio_music_finished;
929
930 while (<$fh>) {
931 next if /^\s*#/;
932 next if /^\s*$/;
933
934 my ($file, $volume, $event) = split /\s+/, $_, 3;
935
936 push @SOUNDS, "$volume,$file";
937
938 $AUDIO_CHUNKS{"$volume,$file"} ||= do {
939 my $chunk = new_from_file CFClient::MixChunk CFClient::find_rcfile "sounds/$file";
940 $chunk->volume ($volume * 128 / 100);
941 $chunk
942 };
943 }
944 } else {
945 status "unable to open sound config: $!";
946 }
947 }
948}
949
950sub audio_shutdown {
951 CFClient::Mix_CloseAudio if $SDL_MIXER;
247 undef $SDL_EV; 952 undef $SDL_MIXER;
248 SDL::Quit; 953 @SOUNDS = ();
954 %AUDIO_CHUNKS = ();
249} 955}
250 956
251my %animate_object; 957my %animate_object;
252my $animate_timer; 958my $animate_timer;
253 959
… …
261 debug sprintf "%3.2f", $fps; 967 debug sprintf "%3.2f", $fps;
262 968
263 $want_refresh = 0; 969 $want_refresh = 0;
264 $can_refresh = 0; 970 $can_refresh = 0;
265 971
266 glViewport 0, 0, $WIDTH, $HEIGHT;
267
268 glMatrixMode GL_PROJECTION;
269 glLoadIdentity;
270 glOrtho 0, $WIDTH, $HEIGHT, 0, -10000 , 10000;
271 glMatrixMode GL_MODELVIEW;
272 glLoadIdentity;
273
274 glClearColor +($CFG->{fow_intensity}) x 3, 1;
275 glClear GL_COLOR_BUFFER_BIT;
276
277 $CFClient::UI::TOPLEVEL->draw; 972 $CFClient::UI::ROOT->draw;
278 973
279 SDL::GLSwapBuffers; 974 CFClient::SDL_GL_SwapBuffers;
280 975
281 $LAST_REFRESH = $NOW; 976 $LAST_REFRESH = $NOW;
282} 977}
283 978
284my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub { 979my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {
285 $NOW = time; 980 $NOW = time;
286 981
287 ($SDL_CB{$SDL_EV->type} || sub { warn "unhandled event ", $SDL_EV->type })->() 982 ($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
288 while $SDL_EV->poll; 983 for CFClient::SDL_PollEvent;
289 984
290 if (%animate_object) { 985 if (%animate_object) {
291 $_->animate ($LAST_REFRESH - $NOW) for values %animate_object; 986 $_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
292 $want_refresh++; 987 $want_refresh++;
293 } 988 }
… …
313 delete $animate_object{$widget}; 1008 delete $animate_object{$widget};
314} 1009}
315 1010
316@conn::ISA = Crossfire::Protocol::; 1011@conn::ISA = Crossfire::Protocol::;
317 1012
1013sub conn::stats_update {
1014 my ($self, $stats) = @_;
1015
1016 update_stats_window ($stats);
1017}
1018
318sub conn::user_send { 1019sub conn::user_send {
319 my ($self, $command) = @_; 1020 my ($self, $command) = @_;
320 1021
321 $self->send ($command); 1022 $self->send_command ($command);
322 status $command; 1023 status $command;
1024}
1025
1026sub conn::map_scroll {
1027 my ($self, $dx, $dy) = @_;
1028
1029 $MAP->scroll ($dx, $dy);
323} 1030}
324 1031
325sub conn::feed_map1a { 1032sub conn::feed_map1a {
326 my ($self, $data) = @_; 1033 my ($self, $data) = @_;
327 1034
328# $self->Crossfire::Protocol::feed_map1a ($data); 1035# $self->Crossfire::Protocol::feed_map1a ($data);
329 1036
330 $MAP->scroll (delete $self->{delayed_scroll_x}, delete $self->{delayed_scroll_y});
331 $MAP->map1a_update ($data); 1037 $MAP->map1a_update ($data);
332 $MAPWIDGET->update; 1038 $MAPWIDGET->update;
333} 1039}
334 1040
335#sub conn::map_update { 1041sub conn::flush_map {
336# my ($self, $dirty) = @_; 1042 my ($self) = @_;
337# 1043
338# $MAPWIDGET->update; 1044 my $map_info = delete $self->{map_info}
339#} 1045 or return;
1046
1047 my ($hash, $x, $y, $w, $h) = @$map_info;
1048
1049 my $data = $MAP->get_rect ($x, $y, $w, $h);
1050 $MAPCACHE->put ($hash => Compress::LZF::compress $data);
1051 #warn sprintf "SAVEmap[%s] length %d\n", $hash, length $data;#d#
1052}
340 1053
341sub conn::map_clear { 1054sub conn::map_clear {
342 my ($self) = @_; 1055 my ($self) = @_;
343 1056
1057 $self->flush_map;
1058 delete $self->{neigh_map};
1059
344 $MAP->clear; 1060 $MAP->clear;
1061}
345 1062
346# refresh; 1063
1064sub conn::load_map($$$) {
1065 my ($self, $hash, $x, $y) = @_;
1066
1067 if (defined (my $data = $MAPCACHE->get ($hash))) {
1068 $data = Compress::LZF::decompress $data;
1069 #warn sprintf "LOADmap[%s,%d,%d] length %d\n", $hash, $x, $y, length $data;#d#
1070 for my $id ($MAP->set_rect ($x, $y, $data)) {
1071 my $data = $TILECACHE->get ($id)
1072 or next;
1073
1074 $self->set_texture ($id => $data);
1075 }
1076 }
1077}
1078
1079# this method does a "flood fill" into every tile direction
1080# it assumes that tiles are arranged in a rectangular grid,
1081# i.e. a map is the same as the left of the right map etc.
1082# failure to comply are harmless and result in display errors
1083# at worst.
1084sub conn::flood_fill {
1085 my ($self, $gx, $gy, $path, $hash, $flags) = @_;
1086
1087 # the server does not allow map paths > 6
1088 return if 7 <= length $path;
1089
1090 my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}};
1091
1092 for (
1093 [1, 0, -1],
1094 [2, 1, 0],
1095 [3, 0, 1],
1096 [4, -1, 0],
1097 ) {
1098 my ($tile, $dx, $dy) = @$_;
1099
1100 my $gx = $gx + $dx;
1101 my $gy = $gy + $dy;
1102
1103 next unless $flags & (1 << ($tile - 1));
1104 next if $self->{neigh_grid}{$gx, $gy}++;
1105
1106 my $neigh = $self->{neigh_map}{$hash} ||= [];
1107 if (my $info = $neigh->[$tile]) {
1108 my ($flags, $x, $y, $w, $h, $hash) = @$info;
1109
1110 $self->flood_fill ($gx, $gy, "$path$tile", $hash, $flags)
1111 if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;
1112
1113 } else {
1114 $self->send_mapinfo ("spatial $path$tile", sub {
1115 my ($mode, $flags, $x, $y, $w, $h, $hash) = @_;
1116
1117 return if $mode ne "spatial";
1118
1119 $x += $MAP->ox;
1120 $y += $MAP->oy;
1121
1122 $self->load_map ($hash, $x, $y)
1123 unless $self->{neigh_map}{$hash}[5]++;#d#
1124
1125 $neigh->[$tile] = [$flags, $x, $y, $w, $h, $hash];
1126
1127 $self->flood_fill ($gx, $gy, "$path$tile", $hash, $flags)
1128 if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;
1129 });
1130 }
1131 }
1132}
1133
1134sub conn::map_change {
1135 my ($self, $mode, $flags, $x, $y, $w, $h, $hash) = @_;
1136
1137 $self->flush_map;
1138
1139 my ($ox, $oy) = ($::MAP->ox, $::MAP->oy);
1140
1141 my $mapmapw = $MAPMAP->{w};
1142 my $mapmaph = $MAPMAP->{h};
1143
1144 $self->{neigh_rect} = [
1145 $ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,
1146 $ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h,
1147 ];
1148
1149 delete $self->{neigh_grid};
1150 $self->flood_fill (0, 0, "", $hash, $flags);
1151
1152 $x += $ox;
1153 $y += $oy;
1154
1155 $self->{map_info} = [$hash, $x, $y, $w, $h];
1156
1157 my $map = $self->{map_info}[0];
1158 $map =~ s/^.*?\/([^\/]+)$/\1/;
1159 $STATWIDS->{map}->set_text ("Map: " . $map);
1160
1161 $self->load_map ($hash, $x, $y);
347} 1162}
348 1163
349sub conn::face_find { 1164sub conn::face_find {
350 my ($self, $face) = @_; 1165 my ($self, $facenum, $face) = @_;
351 1166
352 $FACECACHE->{"$face->{chksum},$face->{name}"} 1167 my $hash = "$face->{chksum},$face->{name}";
1168
1169 my $id = $FACEMAP->get ($hash);
1170
1171 unless ($id) {
1172 # create new id for face
1173 # i love transactions
1174 for (1..100) {
1175 my $txn = $CFClient::DB_ENV->txn_begin;
1176 my $status = $FACEMAP->db_get (id => $id, BerkeleyDB::DB_RMW);
1177 if ($status == 0 || $status == BerkeleyDB::DB_NOTFOUND) {
1178 $id++;
1179 if ($FACEMAP->put (id => $id) == 0
1180 && $FACEMAP->put ($hash => $id) == 0) {
1181 $txn->txn_commit;
1182
1183 goto gotid;
1184 }
1185 }
1186 $txn->abort;
1187 }
1188
1189 CFClient::fatal "maximum number of transaction retries reached - database problems?";
1190 }
1191
1192gotid:
1193 $face->{id} = $id;
1194 $MAP->set_face ($facenum => $id);
1195 $self->{faceid}[$facenum] = $id;#d#
1196 $TILECACHE->get ($id)
353} 1197}
354 1198
355sub conn::face_update { 1199sub conn::face_update {
356 my ($self, $facenum, $face) = @_; 1200 my ($self, $facenum, $face) = @_;
357 1201
358 $FACECACHE->{"$face->{chksum},$face->{name}"} = $face->{image}; 1202 $TILECACHE->put ($face->{id} => $face->{image}); #TODO: try to avoid duplicate writes
359 1203
360 my $tex = $face->{texture} = new_from_image CFClient::Texture delete $face->{image}; 1204 $self->set_texture ($face->{id} => delete $face->{image});
1205}
361 1206
1207sub conn::set_texture {
1208 my ($self, $id, $data) = @_;
1209
1210 $self->{texture}[$id] ||= do {
1211 my $tex =
1212 new_from_image CFClient::Texture
1213 $data, minify => 1, mipmap => 1;
1214
362 $MAP->set_texture ($facenum, @$tex{qw(name w h s t)}); 1215 $MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
363 $MAPWIDGET->update; 1216 $MAPWIDGET->update;
1217
1218 $tex
1219 };
364} 1220}
1221
1222sub conn::sound_play {
1223 my ($self, $x, $y, $soundnum, $type) = @_;
1224
1225 $SDL_MIXER
1226 or return;
1227
1228 my $chunk = $AUDIO_CHUNKS{$SOUNDS[$soundnum]}
1229 or return;
1230
1231 $chunk->play;
1232# warn "sound $x,$y,$soundnum,$type\n";#d#
1233}
1234
1235my $LAST_QUERY; # server is stupid, stupid, stupid
365 1236
366sub conn::query { 1237sub conn::query {
367 my ($self, $flags, $prompt) = @_; 1238 my ($self, $flags, $prompt) = @_;
368 1239
369 warn "<<<<QUERY:$flags:$prompt>>>\n";#d# 1240 $prompt = $LAST_QUERY unless length $prompt;
1241 $LAST_QUERY = $prompt;
1242
1243 my $dialog = new CFClient::UI::FancyFrame
1244 title => "Query",
1245 child => my $vbox = new CFClient::UI::VBox;
1246
1247 $vbox->add (new CFClient::UI::Label
1248 max_w => $::WIDTH * 0.4,
1249 text => $prompt);
1250
1251 if ($flags & Crossfire::Protocol::CS_QUERY_YESNO) {
1252 $vbox->add (my $hbox = new CFClient::HBox);
1253 $hbox->add (new CFClient::Button
1254 text => "No",
1255 connect_activate => sub {
1256 $self->send ("reply n");
1257 $dialog->destroy;
1258 $MAPWIDGET->focus_in;
1259 }
1260 );
1261 $hbox->add (new CFClient::Button
1262 text => "Yes",
1263 connect_activate => sub {
1264 $self->send ("reply y");
1265 $dialog->destroy;
1266 $MAPWIDGET->focus_in;
1267 },
1268 );
1269
1270 $dialog->focus_in;
1271
1272 } elsif ($flags & Crossfire::Protocol::CS_QUERY_SINGLECHAR) {
1273 $dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
1274 $vbox->add (my $entry = new CFClient::UI::Entry
1275 connect_changed => sub {
1276 $self->send ("reply $_[1]");
1277 $dialog->destroy;
1278 $MAPWIDGET->focus_in;
1279 },
1280 );
1281
1282 $entry->focus_in;
1283
1284 } else {
1285 $dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
1286
1287 $vbox->add (my $entry = new CFClient::UI::Entry
1288 $flags & Crossfire::Protocol::CS_QUERY_HIDEINPUT ? (hiddenchar => "*") : (),
1289 connect_activate => sub {
1290 $self->send ("reply $_[1]");
1291 $dialog->destroy;
1292 $MAPWIDGET->focus_in;
1293 },
1294 );
1295
1296 $entry->focus_in;
1297 }
1298
1299 $dialog->show;
1300}
1301
1302sub conn::drawinfo {
1303 my ($self, $color, $text) = @_;
1304
1305 my @color = (
1306 [1.00, 1.00, 1.00], #[0.00, 0.00, 0.00],
1307 [1.00, 1.00, 1.00],
1308 [0.50, 0.50, 1.00], #[0.00, 0.00, 0.55]
1309 [1.00, 0.00, 0.00],
1310 [1.00, 0.54, 0.00],
1311 [0.11, 0.56, 1.00],
1312 [0.93, 0.46, 0.00],
1313 [0.18, 0.54, 0.34],
1314 [0.56, 0.73, 0.56],
1315 [0.80, 0.80, 0.80],
1316 [0.55, 0.41, 0.13],
1317 [0.99, 0.77, 0.26],
1318 [0.74, 0.65, 0.41],
1319 );
1320
1321 $LOGVIEW->add_paragraph ($color[$color], $text);
1322}
1323
1324sub conn::spell_add {
1325 my ($self, $spell) = @_;
1326
1327 # TODO
1328 # create a widget dynamically, using spell face (CF::Protocol downloads them)
1329 $MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message});
1330 $MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message});
1331}
1332
1333sub conn::spell_delete {
1334 my ($self, $spell) = @_;
1335}
1336
1337sub conn::addme_success {
1338 my ($self) = @_;
1339
1340 for my $skill (values %{$self->{skill_info}}) {
1341 $MAPWIDGET->add_command ("ready_skill $skill", "Ready the skill '$skill'");
1342 $MAPWIDGET->add_command ("use_skill $skill", "Immediately use the skill '$skill'");
1343 }
1344}
1345
1346sub update_floorbox {
1347 $CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub {
1348 $FLOORBOX->clear;
1349 $FLOORBOX->add (new CFClient::UI::Empty expand => 1);
1350
1351 # we basically have to use the same sorting as everybody else
1352 for my $item (@{ $CONN->{container}{0} }) {
1353 $FLOORBOX->add (new CFClient::UI::InventoryItem item => $item);
1354 }
1355 });
1356 refresh;
1357}
1358
1359sub conn::container_add {
1360 my ($self, $id, $items) = @_;
1361
1362 update_floorbox if $id == 0;
1363 if ($self->{player}{tag} == $id) {
1364 $INV->set_items ($self->{container}{$self->{player}{tag}});
1365 }
1366 # $self-<{player}{tag} => player inv
1367 #use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};
1368}
1369
1370sub conn::container_clear {
1371 my ($self, $id) = @_;
1372
1373 update_floorbox if $id == 0;
1374 if ($self->{player}{tag} == $id) {
1375 $INV->set_items ($self->{container}{$id});
1376 }
1377
1378# use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};
1379}
1380
1381sub conn::item_delete {
1382 my ($self, @items) = @_;
1383
1384 for (@items) {
1385 update_floorbox if $_->{container} == 0;
1386 if ($self->{player}{tag} == $_->{container}) {
1387 $INV->set_items ($self->{container}{$_->{container}});
1388 }
1389 }
1390}
1391
1392sub conn::item_update {
1393 my ($self, $item) = @_;
1394
1395 update_floorbox if $item->{container} == 0;
1396 if ($self->{player}{tag} == $item->{container}) {
1397 $INV->set_items ($self->{container}{$item->{container}});
1398 }
370} 1399}
371 1400
372%SDL_CB = ( 1401%SDL_CB = (
373 SDL_QUIT() => sub { 1402 CFClient::SDL_QUIT => sub {
374 Event::unloop -1; 1403 Event::unloop -1;
375 }, 1404 },
376 SDL_VIDEORESIZE() => sub { 1405 CFClient::SDL_VIDEORESIZE => sub {
377 }, 1406 },
378 SDL_VIDEOEXPOSE() => sub { 1407 CFClient::SDL_VIDEOEXPOSE => \&refresh,
379 refresh;
380 },
381 SDL_KEYDOWN() => sub {
382 if ($SDL_EV->key_mod & KMOD_ALT && $SDL_EV->key_sym == SDLK_RETURN) {
383 # alt-enter
384 $FULLSCREEN = !$FULLSCREEN;
385 destroy_screen;
386 init_screen;
387 } else {
388 CFClient::UI::feed_sdl_key_down_event ($SDL_EV);
389 }
390 },
391 SDL_KEYUP() => sub {
392 CFClient::UI::feed_sdl_key_up_event ($SDL_EV);
393 },
394 SDL_MOUSEMOTION() => sub {
395 CFClient::UI::feed_sdl_motion_event ($SDL_EV);
396 },
397 SDL_MOUSEBUTTONDOWN() => sub {
398 CFClient::UI::feed_sdl_button_down_event ($SDL_EV);
399 },
400 SDL_MOUSEBUTTONUP() => sub {
401 CFClient::UI::feed_sdl_button_up_event ($SDL_EV);
402 },
403 SDL_ACTIVEEVENT() => sub { 1408 CFClient::SDL_ACTIVEEVENT => sub {
404# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d# 1409# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#
405 }, 1410 },
1411 CFClient::SDL_KEYDOWN => sub {
1412 if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) {
1413 # alt-enter
1414 video_shutdown;
1415 $CFG->{fullscreen} = !$CFG->{fullscreen};
1416 video_init;
1417 } else {
1418 CFClient::UI::feed_sdl_key_down_event ($_[0]);
1419 }
1420 },
1421 CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,
1422 CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,
1423 CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,
1424 CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,
1425 CFClient::SDL_USEREVENT => sub {
1426 if ($_[0]{code} == 1) {
1427 audio_channel_finished $_[0]{data1};
1428 } elsif ($_[0]{code} == 0) {
1429 audio_music_finished;
1430 }
1431 },
406); 1432);
407 1433
408############################################################################# 1434#############################################################################
409 1435
1436$SIG{INT} = $SIG{TERM} = sub { exit };
1437
410CFClient::read_cfg "$Crossfire::VARDIR/pclientrc"; 1438CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";
411 1439
1440$TILECACHE = CFClient::db_table "tilecache";
1441$FACEMAP = CFClient::db_table "facemap";
1442
412my %DEF_CFG = ( 1443my %DEF_CFG = (
1444 sdl_mode => 0,
413 width => 640, 1445 width => 640,
414 height => 480, 1446 height => 480,
1447 fullscreen => 0,
415 fast => 0, 1448 fast => 0,
1449 map_scale => 0.5,
1450 fow_enable => 1,
416 fow_intensity => 0.45, 1451 fow_intensity => 0.45,
417 fow_smooth => 0, 1452 fow_smooth => 0,
418 fullscreen => 0, 1453 gui_fontsize => 1,
419 sdl_mode => 0, 1454 log_fontsize => 1,
1455 gauge_fontsize => 1,
1456 gauge_size => 0.35,
1457 stat_fontsize => 1,
420 mapsize => 100, 1458 mapsize => 100,
421 host => "crossfire.schmorp.de", 1459 host => "crossfire.schmorp.de",
422 port => 13327, 1460 say_command => 'say',
1461 audio_enable => 1,
1462 bgm_enable => 1,
1463 bgm_volume => 0.25,
423); 1464);
424 1465
425while (my ($k, $v) = each %DEF_CFG) { 1466while (my ($k, $v) = each %DEF_CFG) {
426 $CFG->{$k} = $v unless exists $CFG->{$k}; 1467 $CFG->{$k} = $v unless exists $CFG->{$k};
427} 1468}
428 1469
429sdl_init; 1470sdl_init;
430 1471
431@SDL_MODES = reverse 1472@SDL_MODES = reverse
432 grep $_->[0] >= 640 && $_->[1] >= 480, 1473 grep $_->[0] >= 640 && $_->[1] >= 480,
433 map [SDL::RectW ($_), SDL::RectH ($_)], 1474 CFClient::SDL_ListModes;
434 @{ SDL::ListModes 0, SDL_FULLSCREEN | SDL_HWSURFACE | SDL_OPENGL };
435 1475
436@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)"; 1476@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
437 1477
438$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES; 1478$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
439 1479
440init_screen;
441
442{ 1480{
443 my @fonts = map CFClient::find_rcfile $_, qw(uifont.ttf uifontb.ttf uifonti.ttf uifontbi.ttf); 1481 my @fonts = map CFClient::find_rcfile "fonts/$_", qw(
1482 DejaVuSans.ttf
1483 DejaVuSansMono.ttf
1484 DejaVuSans-Bold.ttf
1485 DejaVuSansMono-Bold.ttf
1486 DejaVuSans-Oblique.ttf
1487 DejaVuSansMono-Oblique.ttf
1488 DejaVuSans-BoldOblique.ttf
1489 DejaVuSansMono-BoldOblique.ttf
1490 );
444 1491
445 CFClient::add_font $_ for @fonts; 1492 CFClient::add_font $_ for @fonts;
446 CFClient::set_font $fonts[0]; 1493
447} 1494 $FONT_PROP = new_from_file CFClient::Font $fonts[0];
1495 $FONT_FIXED = new_from_file CFClient::Font $fonts[1];
448 1496
449$FACECACHE = eval { Crossfire::load_ref "$Crossfire::VARDIR/pclient.faces" } || {}; 1497 $FONT_PROP->make_default;
1498}
1499
1500video_init;
1501audio_init;
450 1502
451Event::loop; 1503Event::loop;
452 1504
453Crossfire::save_ref $FACECACHE, "$Crossfire::VARDIR/pclient.faces"; 1505END { CFClient::SDL_Quit }
454 1506
1507=head1 pclient - Crossfire+ and Crossfire game client
1508
1509Pclient is a Crossfire+ and Crossfire game client.
1510
1511=head2 Features
1512
1513=over 4
1514
1515=item Fullscreen Map
1516
1517PClient can uses a fullscreen map, which greatly enhances how much of the
1518game world you can see.
1519
1520=item Persistent Map Cache (Crossfire+ only)
1521
1522PClient can persistently cache all map data it received from the
1523server. This not only allows it to display an overview map, but also
1524ensures that once-explored areas will be available the next time you want
1525to explore more.
1526
1527=item Hardware acceleration
1528
1529Unlike most Crossfire clients, PClient take advantage of OpenGL hardware
1530acceleration. Most modern graphics cards have difficulties with 2D
1531acceleration, while 3D graphics is accelerated well.
1532
1533=item No arbitrary limits
1534
1535Unlike other Crossfire clients, pclient does not suffer from arbitrary
1536limits (like a fixed amount of face numbers). There are still limits, but
1537they are not arbitrarily low :)
1538
1539=back
1540
1541=head1 USAGE
1542
1543=head2 The Map
1544
1545The map is always displayed in the background, behind all other windows and UI elements.
1546
1547#TODO# middle-click scrolls
1548#
1549# keys:
1550#
1551# a apply
1552# keypad moves, kp_5 applies ranged attack to self
1553
1554Starting to type enters the I<completion mode>. In that mode, you can type
1555abbreviations or commands and have them executed as soon as they match a
1556valid command. This is best explained by a few examples:
1557
1558Typing B<climb> will display a list of commands with I<climb> in their
1559name, such as I<ready_skill climbing> and I<use_skill climbing>.
1560
1561You can abbreviate commands by typing only the first character of every
1562word. For example, typing I<iwor> will likely select I<invoke word of
1563recall>, while I<ccfo> will select I<cast create food>. Likewise, I<rscli>
1564will likely select I<ready_skill climbing> and I<usl> will give you
1565I<use_skill levitation>.
1566
1567=head2 The map overview
1568
1569#TODO#
1570
1571=head2 The Status area in the lower right corner
1572
1573#TODO#
1574
1575=head2 The I<Statistics>/I>Stats> window
1576
1577#TODO#
1578
1579=head1 FAQ
1580
1581=over 4
1582
1583=item The client is very sluggish and slow, what can I do about this?
1584
1585Most likely, you don't have accelerated OpenGL support. Try to find a
1586newer driver, or a driver from your hardware vendor, that features OpenGL
1587support.
1588
1589If this is not an option, the following Setup options reduce the load and
1590will likely make the client playable with sofwtare rendering (it will
1591still be slow, though):
1592
1593=over 4
1594
1595=item B<Video Mode> should be set as low as possible (e.g. 640x480)
1596
1597=item Enable B<Fast & Ugly> mode
1598
1599=item Disable B<Fog of War>
1600
1601=item Increase B<Map Scale>
1602
1603=back
1604
1605=back
1606
1607=head1 AUTHOR
1608
1609Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
1610
1611
1612

Diff Legend

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