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.62 by root, Mon Apr 10 19:34:04 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
6use Glib; 6BEGIN {
7use Gtk2 -init; 7 if (%PAR::LibCache) {
8 @INC = grep ref, @INC; # weed out all paths except pars loader refs
8 9
9use SDL; 10 while (my ($filename, $zip) = each %PAR::LibCache) {
10use SDL::App; 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
29use Time::HiRes 'time';
11use SDL::Event; 30use Event;
12use SDL::Surface;
13use SDL::OpenGL;
14use SDL::OpenGL::Constants;
15 31
16use Crossfire; 32use Crossfire;
17use Crossfire::Protocol; 33use Crossfire::Protocol;
18 34
19use Crossfire::Client; 35use Compress::LZF;
20use Crossfire::Client::Widget;
21 36
22our $FACECACHE; 37use CFClient;
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#
23 46
24our $VERSION = '0.1'; 47our $VERSION = '0.1';
48
49my $MAX_FPS = 60;
50my $MIN_FPS = 5; # unused as of yet
51
52our $META_SERVER = "crossfire.real-time.com:13326";
53
54our $FACEMAP;
55our $TILECACHE;
56our $MAPCACHE;
57
58our $LAST_REFRESH;
59our $NOW;
25 60
26our $CFG; 61our $CFG;
27our $CONN; 62our $CONN;
63our $FAST; # fast, low-quality mode, possibly useful for software-rendering
28 64
65our @SDL_MODES;
29our $WIDTH; 66our $WIDTH;
30our $HEIGHT; 67our $HEIGHT;
31our $FULLSCREEN; 68our $FULLSCREEN;
32
33our $FONTSIZE; 69our $FONTSIZE;
34 70
71our $FONT_PROP;
72our $FONT_FIXED;
73
74our $MAP;
75our $MAPMAP;
76our $MAPWIDGET;
77our $BUTTONBAR;
78our $LOGVIEW;
79our $CONSOLE;
80our $METASERVER;
81our $LOGIN_BUTTON;
82
83our $FLOORBOX;
84our $GAUGES;
85our $STATWIDS;
86
35our $SDL_TIMER; 87our $SDL_ACTIVE;
36our $SDL_APP;
37our $SDL_EV;
38our %SDL_CB; 88our %SDL_CB;
89
90our $SDL_MIXER;
91our @SOUNDS; # event => file mapping
92our %AUDIO_CHUNKS; # audio files
39 93
40our $ALT_ENTER_MESSAGE; 94our $ALT_ENTER_MESSAGE;
41our $STATUS_LINE; 95our $STATUS_LINE;
96our $DEBUG_STATUS;
42 97
43my $last_refresh; 98our $INVWIN;
44my %ANIMATE; 99our $INV;
45my $refresh_handler;
46 100
47our ($tw, $te); # Test widget #d# 101sub status {
102 $STATUS_LINE->set_text ($_[0]);
103 $STATUS_LINE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $STATUS_LINE->{h});
104}
48 105
49sub init_screen { 106sub debug {
50 $SDL_APP = new SDL::App 107 $DEBUG_STATUS->set_text ($_[0]);
51 -flags => SDL_ANYFORMAT | SDL_HWSURFACE, 108 $DEBUG_STATUS->move ($WIDTH - $DEBUG_STATUS->{w}, 0, $DEBUG_STATUS->{w}, $DEBUG_STATUS->{h});
52 -title => "Crossfire+ Client", 109}
53 -width => $WIDTH,
54 -height => $HEIGHT,
55 -opengl => 1,
56 -red_size => 5,
57 -green_size => 5,
58 -blue_size => 5,
59 -alpha_size => 0,
60 -double_buffer => 1,
61 -fullscreen => $FULLSCREEN,
62 -resizeable => 0;
63 110
64 $SDL_EV = new SDL::Event; 111sub start_game {
65 $SDL_EV->set_unicode (1); 112 $LOGIN_BUTTON->set_text ("Logout");
66 113
67 $SDL_TIMER = add Glib::Timeout 1000/50, sub { 114 status "logging in...";
68 ($SDL_CB{$SDL_EV->type} || sub { warn "unhandled event ", $SDL_EV->type })->()
69 while $SDL_EV->poll;
70 115
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}";
119
120 $MAP = new CFClient::Map $mapsize, $mapsize;
121
122 my ($host, $port) = split /:/, $CFG->{host};
123
124 $CONN = eval {
125 new conn
126 host => $host,
127 port => $port || 13327,
128 user => $CFG->{user},
129 pass => $CFG->{password},
130 mapw => $mapsize,
131 maph => $mapsize,
71 1 132 ;
72 }; 133 };
73 134
74 $last_refresh = SDL::GetTicks; 135 if ($CONN) {
136 status "login successful";
75 137
138 CFClient::lowdelay fileno $CONN->{fh};
139 } else {
140 status "unable to connect";
141 stop_game();
142 }
143}
144
145sub stop_game {
146 status "connection closed";
147 $LOGIN_BUTTON->set_text ("Login");
148 undef $CONN;
149}
150
151sub client_setup {
152 my $dialog = new CFClient::UI::FancyFrame
153 title => "Client Setup",
154 child => (my $vbox = new CFClient::UI::VBox);
155 $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
156
157 $table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");
158 $table->add (1, 0, my $hbox = new CFClient::UI::HBox);
159
160 $hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, scalar @SDL_MODES, 1]);
161 $hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");
162
163 $mode_slider->connect (changed => sub {
164 my ($self, $value) = @_;
165
166 $CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
167 $mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});
168 });
169 $mode_slider->emit (changed => $mode_slider->{range}[0]);
170
171 my $row = 1;
172
173 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen");
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 {
178 my ($self, $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 }
665 });
666}
667
668sub server_setup {
669 my $dialog = new CFClient::UI::FancyFrame
670 title => "Server Setup",
671 child => (my $vbox = new CFClient::UI::VBox);
672
673 $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
674 $table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");
675
676 {
677 $table->add (1, 2, my $vbox = new CFClient::UI::VBox);
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
703 $table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");
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 );
712
713 $table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password");
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 );
723
724 $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");
725 $table->add (1, 7, new CFClient::UI::Slider
726 req_w => 100,
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.",
730 connect_changed => sub {
731 my ($self, $value) = @_;
732
733 $CFG->{mapsize} = $self->{range}[0] = $value = int $value;
734 },
735 );
736
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
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
76 Crossfire::Client::gl_init; 831 CFClient::gl_init;
77 832
78 $FONTSIZE = int $HEIGHT / 50; 833 $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
79 834
80 ############################################################################# 835 #############################################################################
81 836
82 glClearColor 0.45, 0.45, 0.45, 1; 837 $DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100;
83 838 $DEBUG_STATUS->show;
84 glEnable GL_TEXTURE_2D;
85 glEnable GL_COLOR_MATERIAL;
86 glShadeModel GL_FLAT;
87 glDisable GL_DEPTH_TEST;
88 glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
89
90 #############################################################################
91 839
92 $STATUS_LINE = new Crossfire::Client::Widget::Label 840 $STATUS_LINE = new CFClient::UI::Label
93 0, $HEIGHT * 59 / 60 - $FONTSIZE, 1, $FONTSIZE, 841 padding => 0,
94 ""; 842 y => $HEIGHT - $FONTSIZE * 1.8;
95 $Crossfire::Client::Widget::TOPLEVEL->add ($STATUS_LINE); 843 $STATUS_LINE->show;
96 844
97 $ALT_ENTER_MESSAGE = new Crossfire::Client::Widget::Label 845 $ALT_ENTER_MESSAGE = new CFClient::UI::Label
98 0, $HEIGHT * 59 / 60, 1, $HEIGHT / 60, 846 padding => 0,
847 fontsize => 0.8,
99 "Use <b>Alt-Enter</b> to toggle fullscreen mode"; 848 markup => "Use <b>Alt-Enter</b> to toggle fullscreen mode";
100 $Crossfire::Client::Widget::TOPLEVEL->add ($ALT_ENTER_MESSAGE); 849 $ALT_ENTER_MESSAGE->show;
850 $ALT_ENTER_MESSAGE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h});
101 851
102 # Test code #d# 852 CFClient::UI::FancyFrame->new (
103 unless ($tw) { # haha... 853 border_bg => [1, 1, 1, 192/255],
104 $te = new Crossfire::Client::Widget::FancyFrame; 854 bg => [1, 1, 1, 0],
105 $te->add (new Crossfire::Client::Widget::Entry); 855 child => ($MAPMAP = new CFClient::MapWidget::MapMap),
106 $te->move (300, 0, 2); 856 )->show;
107 $Crossfire::Client::Widget::TOPLEVEL->add ($te); 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 }
108 869 }
109 $tw = new Crossfire::Client::Widget::Animator;
110 my $lbl1 = new Crossfire::Client::Widget::Label
111 0, 0, 10, $FONTSIZE, "<i>This</i> is a\n<u>TEST</u>!\nOf a themed\nFrame!";
112 my $lbl2 = new Crossfire::Client::Widget::Label
113 0, 0, 10, $FONTSIZE, "LBL2";
114
115 my $vb = new Crossfire::Client::Widget::VBox;
116 my $f = new Crossfire::Client::Widget::FancyFrame;
117 my $f2 = new Crossfire::Client::Widget::FancyFrame;
118 $f->add ($lbl1);
119 $f2->add ($lbl2);
120 $vb->add ($f);
121 $vb->add ($f2, 1);
122
123 $tw->add ($vb);
124 $tw->w (400);
125 $tw->h (300);
126 $tw->move ($WIDTH - 200, 0);
127 $tw->moveto (0, 0);
128 $Crossfire::Client::Widget::TOPLEVEL->add ($tw);
129
130# $f->move ($WIDTH - 200, 0);
131# $Crossfire::Client::Widget::TOPLEVEL->add ($f);
132 } 870 });
133} 871 $MAPWIDGET->show;
872 $MAPWIDGET->focus_in;
134 873
135sub destroy_screen { 874 $BUTTONBAR = new CFClient::UI::HBox;
136 remove Glib::Source $SDL_TIMER; 875
137 undef $SDL_APP; 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
885 $BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {
886 CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";
887 status "Configuration Saved";
888 });
889
890 $BUTTONBAR->show;
891
892 $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
893}
894
895sub video_shutdown {
896 $CFClient::UI::ROOT->{children} = [];
897 undef $CFClient::UI::GRAB;
898 undef $CFClient::UI::HOVER;
138 undef $SDL_EV; 899 undef $SDL_ACTIVE;
139 SDL::Quit;
140} 900}
141 901
142sub start_game { 902my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
143 $WIDTH = $CFG->{width}; 903my $bgmusic;#TODO#hack#d#
144 $HEIGHT = $CFG->{height};
145 $FULLSCREEN = 0;
146 904
147 init_screen; 905sub audio_channel_finished {
906 my ($channel) = @_;
148 907
149 my $mapsize = List::Util::min 64, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32; 908 warn "channel $channel finished\n";#d#
150
151 $CONN = new conn
152 host => $CFG->{host},
153 port => $CFG->{port},
154 user => $CFG->{user},
155 pass => $CFG->{password},
156 mapw => $mapsize,
157 maph => $mapsize,
158 ;
159
160 Crossfire::Client::lowdelay fileno $CONN->{fh};
161} 909}
162 910
163sub stop_game { 911sub audio_music_finished {
164 remove Glib::Source $refresh_handler if $refresh_handler; 912 return unless $CFG->{bgm_enable};
165 undef $refresh_handler;
166 913
167 undef $CONN; 914 # TODO: hack, do play loop and mood music
168 destroy_screen; 915 $bgmusic = new_from_file CFClient::MixMusic CFClient::find_rcfile "music/$bgmusic[0]";
169} 916 $bgmusic->play (0);
170 917
171sub force_refresh { 918 push @bgmusic, shift @bgmusic;
172 glViewport 0, 0, $WIDTH, $HEIGHT;
173
174 glMatrixMode GL_PROJECTION;
175 glLoadIdentity;
176 glOrtho 0, $WIDTH, $HEIGHT, 0, -10000 , 10000;
177 glMatrixMode GL_MODELVIEW;
178
179 glClear GL_COLOR_BUFFER_BIT;
180
181 $Crossfire::Client::Widget::TOPLEVEL->draw;
182
183 SDL::GLSwapBuffers;
184} 919}
185 920
186sub refresh { 921sub audio_init {
187 $refresh_handler ||= add Glib::Idle sub { 922 if ($CFG->{audio_enable}) {
188 if ($SDL_APP) { 923 if (open my $fh, "<", CFClient::find_rcfile "sounds/config") {
189 my $next_refresh = SDL::GetTicks; 924 $SDL_MIXER = !CFClient::Mix_OpenAudio;
190 my $interval = ($next_refresh - $last_refresh) * 0.001; 925 CFClient::Mix_AllocateChannels 8;
191 $last_refresh = $next_refresh; 926 CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;
192 927
193 force_refresh; 928 audio_music_finished;
194 $_->animate ($interval) for grep $_, values %ANIMATE;
195 929
196 if (%ANIMATE) { 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
197 1 942 };
198 } else {
199 undef $refresh_handler;
200 0
201 } 943 }
202 } else { 944 } else {
203 undef $refresh_handler; 945 status "unable to open sound config: $!";
204 0
205 } 946 }
206 }; 947 }
948}
949
950sub audio_shutdown {
951 CFClient::Mix_CloseAudio if $SDL_MIXER;
952 undef $SDL_MIXER;
953 @SOUNDS = ();
954 %AUDIO_CHUNKS = ();
955}
956
957my %animate_object;
958my $animate_timer;
959
960my $want_refresh;
961my $can_refresh;
962
963my $fps = 9;
964
965sub force_refresh {
966 $fps = $fps * 0.95 + 1 / ($NOW - $LAST_REFRESH) * 0.05;
967 debug sprintf "%3.2f", $fps;
968
969 $want_refresh = 0;
970 $can_refresh = 0;
971
972 $CFClient::UI::ROOT->draw;
973
974 CFClient::SDL_GL_SwapBuffers;
975
976 $LAST_REFRESH = $NOW;
977}
978
979my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {
980 $NOW = time;
981
982 ($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
983 for CFClient::SDL_PollEvent;
984
985 if (%animate_object) {
986 $_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
987 $want_refresh++;
988 }
989
990 if ($want_refresh) {
991 force_refresh;
992 } else {
993 $can_refresh = 1;
994 }
995});
996
997sub refresh {
998 $want_refresh++;
207} 999}
208 1000
209sub animation_start { 1001sub animation_start {
210 my ($widget) = @_; 1002 my ($widget) = @_;
211 $ANIMATE{$widget} = $widget; 1003 $animate_object{$widget} = $widget;
212 Scalar::Util::weaken $ANIMATE{$widget};
213
214 refresh;
215} 1004}
216 1005
217sub animation_stop { 1006sub animation_stop {
218 my ($widget) = @_; 1007 my ($widget) = @_;
219 delete $ANIMATE{$widget}; 1008 delete $animate_object{$widget};
1009}
1010
1011@conn::ISA = Crossfire::Protocol::;
1012
1013sub conn::stats_update {
1014 my ($self, $stats) = @_;
1015
1016 update_stats_window ($stats);
1017}
1018
1019sub conn::user_send {
1020 my ($self, $command) = @_;
1021
1022 $self->send_command ($command);
1023 status $command;
1024}
1025
1026sub conn::map_scroll {
1027 my ($self, $dx, $dy) = @_;
1028
1029 $MAP->scroll ($dx, $dy);
1030}
1031
1032sub conn::feed_map1a {
1033 my ($self, $data) = @_;
1034
1035# $self->Crossfire::Protocol::feed_map1a ($data);
1036
1037 $MAP->map1a_update ($data);
1038 $MAPWIDGET->update;
1039}
1040
1041sub conn::flush_map {
1042 my ($self) = @_;
1043
1044 my $map_info = delete $self->{map_info}
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}
1053
1054sub conn::map_clear {
1055 my ($self) = @_;
1056
1057 $self->flush_map;
1058 delete $self->{neigh_map};
1059
1060 $MAP->clear;
1061}
1062
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);
1162}
1163
1164sub conn::face_find {
1165 my ($self, $facenum, $face) = @_;
1166
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)
1197}
1198
1199sub conn::face_update {
1200 my ($self, $facenum, $face) = @_;
1201
1202 $TILECACHE->put ($face->{id} => $face->{image}); #TODO: try to avoid duplicate writes
1203
1204 $self->set_texture ($face->{id} => delete $face->{image});
1205}
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
1215 $MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
1216 $MAPWIDGET->update;
1217
1218 $tex
1219 };
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
1236
1237sub conn::query {
1238 my ($self, $flags, $prompt) = @_;
1239
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 }
220} 1399}
221 1400
222%SDL_CB = ( 1401%SDL_CB = (
223 SDL_QUIT() => sub { 1402 CFClient::SDL_QUIT => sub {
224 main_quit Gtk2; 1403 Event::unloop -1;
225 }, 1404 },
226 SDL_VIDEORESIZE() => sub { 1405 CFClient::SDL_VIDEORESIZE => sub {
227 }, 1406 },
228 SDL_VIDEOEXPOSE() => sub { 1407 CFClient::SDL_VIDEOEXPOSE => \&refresh,
229 refresh; 1408 CFClient::SDL_ACTIVEEVENT => sub {
1409# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#
230 }, 1410 },
231 SDL_KEYDOWN() => sub { 1411 CFClient::SDL_KEYDOWN => sub {
232 if ($SDL_EV->key_mod & KMOD_ALT && $SDL_EV->key_sym == SDLK_RETURN) { 1412 if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) {
233 # alt-enter 1413 # alt-enter
234 $FULLSCREEN = !$FULLSCREEN; 1414 video_shutdown;
235 init_screen; 1415 $CFG->{fullscreen} = !$CFG->{fullscreen};
1416 video_init;
236 } else { 1417 } else {
237 Crossfire::Client::Widget::feed_sdl_key_down_event ($SDL_EV); 1418 CFClient::UI::feed_sdl_key_down_event ($_[0]);
238 } 1419 }
239 }, 1420 },
240 SDL_KEYUP() => sub { 1421 CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,
241 Crossfire::Client::Widget::feed_sdl_key_up_event ($SDL_EV); 1422 CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,
242 }, 1423 CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,
243 SDL_MOUSEMOTION() => sub { 1424 CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,
244 Crossfire::Client::Widget::feed_sdl_motion_event ($SDL_EV); 1425 CFClient::SDL_USEREVENT => sub {
245 }, 1426 if ($_[0]{code} == 1) {
246 SDL_MOUSEBUTTONDOWN() => sub { 1427 audio_channel_finished $_[0]{data1};
247 Crossfire::Client::Widget::feed_sdl_button_down_event ($SDL_EV); 1428 } elsif ($_[0]{code} == 0) {
248 }, 1429 audio_music_finished;
249 SDL_MOUSEBUTTONUP() => sub { 1430 }
250 Crossfire::Client::Widget::feed_sdl_button_up_event ($SDL_EV);
251 },
252 SDL_ACTIVEEVENT() => sub {
253 printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#
254 }, 1431 },
255); 1432);
256 1433
257@conn::ISA = Crossfire::Protocol::;
258
259sub conn::map_update {
260 my ($self, $dirty) = @_;
261
262 refresh;
263}
264
265sub conn::map_scroll {
266 my ($self, $dx, $dy) = @_;
267
268# refresh;
269}
270
271sub conn::map_clear {
272 my ($self) = @_;
273
274# refresh;
275}
276
277sub conn::face_find {
278 my ($self, $face) = @_;
279
280 $FACECACHE->{"$face->{chksum},$face->{name}"}
281}
282
283sub conn::face_update {
284 my ($self, $face) = @_;
285
286 $FACECACHE->{"$face->{chksum},$face->{name}"} = $face->{image};
287
288 $face->{texture} = new_from_image Crossfire::Client::Texture delete $face->{image};
289}
290
291sub conn::query {
292 my ($self, $flags, $prompt) = @_;
293
294 warn "<<<<QUERY:$flags:$prompt>>>\n";#d#
295}
296
297sub gtk_add_cfg_field {
298 my ($tbl, $cfg, $klbl, $key, $value) = @_;
299 my $i = $cfg->{_i}++;
300 $tbl->attach_defaults (my $lbl = Gtk2::Label->new ($klbl), 0, 1, $i, $i + 1);
301 $tbl->attach_defaults (my $ent = Gtk2::Entry->new, 1, 2, $i, $i + 1);
302 if ($key eq 'password') {
303 $ent->set_invisible_char ("*");
304 $ent->set (visibility => 0)
305 }
306 $ent->set_text ($value);
307 $ent->signal_connect (changed => sub {
308 my ($ent) = @_;
309 $cfg->{$key} = $ent->get_text;
310 # TODO: Mapsize should be a slider in the game gui
311 if ($key eq 'mapsize' and $cfg->{$key} > 100) {
312 $cfg->{$key} = 100;
313 } elsif ($key eq 'mapsize' and $cfg->{$key} < 50) {
314 $cfg->{$key} = 50;
315 }
316 });
317}
318
319sub run_config_dialog {
320 my (%events) = @_;
321
322 my $w = Gtk2::Window->new;
323
324 my @cfg = (
325 [qw/Host host/],
326 [qw/Port port/],
327 [qw/Mapsize% mapsize/],
328 [qw/Username user/],
329 [qw/Password password/],
330 );
331
332 my $cfg = {};
333
334 my $a = SDL::ListModes (0, SDL_FULLSCREEN|SDL_HWSURFACE);
335 my @modes = map { [SDL::RectW ($_), SDL::RectH ($_)] } @$a;
336
337 $w->add (my $vb = Gtk2::VBox->new);
338 $vb->pack_start (my $t = Gtk2::Table->new (2, scalar @cfg), 0, 0, 0);
339 my $selmode = $::CFG->{width} . 'x' . $::CFG->{height};
340 $t->attach_defaults (Gtk2::Label->new ("Modes"), 0, 1, 0, 1);
341 $t->attach_defaults (my $cb = Gtk2::ComboBox->new_text, 1, 2, 0, 1);
342 my $i = 0;
343 my $act = 0;
344 for (map { "$_->[0]x$_->[1]" } reverse @modes) {
345 if ($_ eq $selmode) { $act = $i }
346 $cb->append_text ($_);
347 $i++;
348 }
349 $cb->set_active ($act);
350 $cb->signal_connect (changed => sub {
351 my ($cb) = @_;
352 my $txt = $cb->get_active_text;
353 if ($txt =~ m/(\d+)x(\d+)/) {
354 $::CFG->{width} = $1;
355 $::CFG->{height} = $2;
356 }
357 });
358
359 $cfg->{_i} = 1;
360 for (@cfg) {
361 gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]});
362 }
363
364 $vb->pack_start (my $hb = Gtk2::HBox->new, 0, 0, 0);
365 $hb->pack_start (my $cb = Gtk2::Button->new ("save"), 1, 1, 5);
366 $cb->signal_connect (clicked => sub {
367 for (keys %$cfg) {
368 $::CFG->{$_} = $cfg->{$_}
369 if $_ ne '_i';
370 }
371 Crossfire::Client::write_cfg "$Crossfire::VARDIR/pclientrc";
372 });
373 $hb->pack_start (my $cb = Gtk2::Button->new ("login"), 1, 1, 5);
374 $cb->signal_connect (clicked => sub {
375 for (keys %$cfg) {
376 $::CFG->{$_} = $cfg->{$_}
377 if $_ ne '_i';
378 }
379 my $cb = $events{login} || sub {};
380 $cb->($::CFG->{user}, $::CFG->{password});
381 });
382 $hb->pack_start (my $cb = Gtk2::Button->new ("logout"), 1, 1, 5);
383 $cb->signal_connect (clicked => sub {
384 my $cb = $events{logout} || sub {};
385 $cb->();
386 });
387 $hb->pack_start (my $cb = Gtk2::Button->new ("quit"), 1, 1, 5);
388 $cb->signal_connect (clicked => sub { $w->destroy });
389
390 $w->show_all;
391
392 $w->signal_connect (destroy => sub { Gtk2->main_quit });
393}
394
395
396############################################################################# 1434#############################################################################
397 1435
398SDL::Init SDL_INIT_EVERYTHING; 1436$SIG{INT} = $SIG{TERM} = sub { exit };
399 1437
400my $mapwidget = Crossfire::Client::Widget::MapWidget->new;
401
402$Crossfire::Client::Widget::TOPLEVEL->add ($mapwidget);
403$mapwidget->focus_in;
404
405Crossfire::Client::read_cfg "$Crossfire::VARDIR/pclientrc"; 1438CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";
406 1439
407$CFG ||= { 1440$TILECACHE = CFClient::db_table "tilecache";
1441$FACEMAP = CFClient::db_table "facemap";
1442
1443my %DEF_CFG = (
1444 sdl_mode => 0,
408 width => 640, 1445 width => 640,
409 height => 480, 1446 height => 480,
1447 fullscreen => 0,
1448 fast => 0,
1449 map_scale => 0.5,
1450 fow_enable => 1,
1451 fow_intensity => 0.45,
1452 fow_smooth => 0,
1453 gui_fontsize => 1,
1454 log_fontsize => 1,
1455 gauge_fontsize => 1,
1456 gauge_size => 0.35,
1457 stat_fontsize => 1,
410 mapsize => 100, 1458 mapsize => 100,
411 fullscreen => 0,
412 host => "crossfire.schmorp.de", 1459 host => "crossfire.schmorp.de",
413 port => 13327, 1460 say_command => 'say',
414}; 1461 audio_enable => 1,
1462 bgm_enable => 1,
1463 bgm_volume => 0.25,
1464);
415 1465
416Crossfire::Client::set_font Crossfire::Client::find_rcfile "uifont.ttf"; 1466while (my ($k, $v) = each %DEF_CFG) {
1467 $CFG->{$k} = $v unless exists $CFG->{$k};
1468}
417 1469
418$FACECACHE = eval { Crossfire::load_ref "$Crossfire::VARDIR/pclient.faces" } || {}; 1470sdl_init;
419 1471
420run_config_dialog 1472@SDL_MODES = reverse
421 login => sub { start_game }, 1473 grep $_->[0] >= 640 && $_->[1] >= 480,
422 logout => sub { stop_game }; 1474 CFClient::SDL_ListModes;
423 1475
424main Gtk2; 1476@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
425 1477
426Crossfire::save_ref $FACECACHE, "$Crossfire::VARDIR/pclient.faces"; 1478$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
1479
1480{
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 );
1491
1492 CFClient::add_font $_ for @fonts;
1493
1494 $FONT_PROP = new_from_file CFClient::Font $fonts[0];
1495 $FONT_FIXED = new_from_file CFClient::Font $fonts[1];
1496
1497 $FONT_PROP->make_default;
1498}
1499
1500video_init;
1501audio_init;
1502
1503Event::loop;
1504
1505END { CFClient::SDL_Quit }
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