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.152 by root, Thu Apr 20 08:11:57 2006 UTC vs.
Revision 1.222 by elmex, Wed May 17 10:33:03 2006 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2 2
3use strict; 3use strict;
4use utf8; 4use utf8;
5
6BEGIN {
7 if (%PAR::LibCache) {
8 @INC = grep ref, @INC; # weed out all paths except pars loader refs
9
10 while (my ($filename, $zip) = each %PAR::LibCache) {
11 for ($zip->memberNames) {
12 next unless /^\/root\/(.*)/;
13 $zip->extractMember ($_, "$ENV{PAR_TEMP}/$1")
14 unless -e "$ENV{PAR_TEMP}/$1";
15 }
16 }
17
18 unshift @INC, $ENV{PAR_TEMP};
19
20 if ($^O eq "MSWin32") {
21 $ENV{GTK_RC_FILES} = "$ENV{PAR_TEMP}/share/themes/MS-Windows/gtk-2.0/gtkrc";
22 }
23 }
24}
25
26# need to do it again because that pile of garbage called PAR nukes it before main
27unshift @INC, $ENV{PAR_TEMP};
5 28
6use Time::HiRes 'time'; 29use Time::HiRes 'time';
7use Event; 30use Event;
8 31
9use Crossfire; 32use Crossfire;
… …
13 36
14use CFClient; 37use CFClient;
15use CFClient::UI; 38use CFClient::UI;
16use CFClient::MapWidget; 39use CFClient::MapWidget;
17 40
41$Event::DIED = sub {
42 # TODO: display dialog box or so
43 CFClient::error $_[1];
44};
45
46#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#
47
18our $VERSION = '0.1'; 48our $VERSION = '0.1';
19 49
20my $MAX_FPS = 60; 50my $MAX_FPS = 60;
21my $MIN_FPS = 5; # unused as of yet 51my $MIN_FPS = 5; # unused as of yet
22 52
… …
30our $NOW; 60our $NOW;
31 61
32our $CFG; 62our $CFG;
33our $CONN; 63our $CONN;
34our $FAST; # fast, low-quality mode, possibly useful for software-rendering 64our $FAST; # fast, low-quality mode, possibly useful for software-rendering
65
66our $WANT_REFRESH;
67our $CAN_REFRESH;
35 68
36our @SDL_MODES; 69our @SDL_MODES;
37our $WIDTH; 70our $WIDTH;
38our $HEIGHT; 71our $HEIGHT;
39our $FULLSCREEN; 72our $FULLSCREEN;
40our $FONTSIZE; 73our $FONTSIZE;
41 74
75our $FONT_PROP;
76our $FONT_FIXED;
77
42our $MAP; 78our $MAP;
79our $MAPMAP;
43our $MAPWIDGET; 80our $MAPWIDGET;
44our $BUTTONBAR; 81our $BUTTONBAR;
45our $LOGVIEW; 82our $LOGVIEW;
46our $CONSOLE; 83our $CONSOLE;
47our $METASERVER; 84our $METASERVER;
85our $LOGIN_BUTTON;
48 86
87our $FLOORBOX;
49our $GAUGES; 88our $GAUGES;
89our $STATWIDS;
50 90
51our $SDL_ACTIVE; 91our $SDL_ACTIVE;
52our %SDL_CB; 92our %SDL_CB;
53 93
54our $SDL_MIXER; 94our $SDL_MIXER;
55our @SOUNDS; # event => file mapping 95our @SOUNDS; # event => file mapping
56our %AUDIO_CHUNKS; # audio files 96our %AUDIO_CHUNKS; # audio files
57 97
58our $ALT_ENTER_MESSAGE; 98our $ALT_ENTER_MESSAGE;
59our $STATUS_LINE; 99our $STATUSBOX;
60our $DEBUG_STATUS; 100our $DEBUG_STATUS;
61 101
102our $INVWIN;
103our $INV;
104our $INVR;
105our $OPENCONT;
106
62sub status { 107sub status {
63 $STATUS_LINE->set_text ($_[0]); 108 $STATUSBOX->add ($_[0], pri => -10, group => "status", timeout => 20, fg => [1, 1, 0, 1]);
64 $STATUS_LINE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $STATUS_LINE->{h});
65} 109}
66 110
67sub debug { 111sub debug {
68 $DEBUG_STATUS->set_text ($_[0]); 112 $DEBUG_STATUS->set_text ($_[0]);
69 $DEBUG_STATUS->move ($WIDTH - $DEBUG_STATUS->{w}, 0, $DEBUG_STATUS->{w}, $DEBUG_STATUS->{h}); 113 my ($w, $h) = $DEBUG_STATUS->size_request;
114 $DEBUG_STATUS->move ($WIDTH - $w, 0);
70} 115}
71 116
72sub start_game { 117sub start_game {
73 status "logging in..."; 118 status "logging in...";
74 119
75 my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32; 120 my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
76 121
77 $MAPCACHE = CFClient::db_table "mapcache_$CFG->{host}"; 122 $MAPCACHE = CFClient::db_table "mapcache_$CFG->{host}";
78
79 $MAP = new CFClient::Map $mapsize, $mapsize; 123 $MAP = new CFClient::Map $mapsize, $mapsize;
80 124
81 my ($host, $port) = split /:/, $CFG->{host}; 125 my ($host, $port) = split /:/, $CFG->{host};
82 126
83 $CONN = new conn 127 $CONN = eval {
128 new conn
84 host => $host, 129 host => $host,
85 port => $port || 13327, 130 port => $port || 13327,
86 user => $CFG->{user}, 131 user => $CFG->{user},
87 pass => $CFG->{password}, 132 pass => $CFG->{password},
88 mapw => $mapsize, 133 mapw => $mapsize,
89 maph => $mapsize, 134 maph => $mapsize,
135 ;
90 ; 136 };
91 137
138 if ($CONN) {
139 $LOGIN_BUTTON->set_text ("Logout");
140
92 status "login successful"; 141 status "login successful";
93 142
94 CFClient::lowdelay fileno $CONN->{fh}; 143 CFClient::lowdelay fileno $CONN->{fh};
144 } else {
145 status "unable to connect";
146 stop_game();
147 }
95} 148}
96 149
97sub stop_game { 150sub stop_game {
151 return unless $CONN;
152
153 status "connection closed";
154 $LOGIN_BUTTON->set_text ("Login");
155 $CONN->destroy;
156 $CONN = 0; # false, does not autovivify
157
158 undef $MAPCACHE;
98 undef $CONN; 159 undef $MAP;
99} 160}
100 161
101sub client_setup { 162sub client_setup {
102 my $dialog = new CFClient::UI::FancyFrame 163 my $dialog = new CFClient::UI::FancyFrame
103 title => "Client Setup", 164 title => "Client Setup",
… …
105 $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]); 166 $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
106 167
107 $table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode"); 168 $table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");
108 $table->add (1, 0, my $hbox = new CFClient::UI::HBox); 169 $table->add (1, 0, my $hbox = new CFClient::UI::HBox);
109 170
110 $hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, scalar @SDL_MODES, 1]); 171 $hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 1, 1]);
111 $hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999"); 172 $hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");
112 173
113 $mode_slider->connect (changed => sub { 174 $mode_slider->connect (changed => sub {
114 my ($self, $value) = @_; 175 my ($self, $value) = @_;
115 176
116 $CFG->{sdl_mode} = $self->{range}[0] = $value = int $value; 177 $CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
117 $mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]}); 178 $mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});
118 }); 179 });
119 $mode_slider->emit (changed => $mode_slider->{range}[0]); 180 $mode_slider->emit (changed => $mode_slider->{range}[0]);
120 181
182 my $row = 1;
183
121 $table->add (0, 1, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen"); 184 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen");
122 $table->add (1, 1, new CFClient::UI::CheckBox state => $CFG->{fullscreen}, connect_changed => sub { 185 $table->add (1, $row++, new CFClient::UI::CheckBox
186 state => $CFG->{fullscreen},
187 tooltip => "Bring the client into fullscreen mode",
188 connect_changed => sub {
123 my ($self, $value) = @_; 189 my ($self, $value) = @_;
124 $CFG->{fullscreen} = $value; 190 $CFG->{fullscreen} = $value;
191 }
125 }); 192 );
126 193
127 $table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly"); 194 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
128 $table->add (1, 2, new CFClient::UI::CheckBox state => $CFG->{fast}, connect_changed => sub { 195 $table->add (1, $row++, new CFClient::UI::CheckBox
196 state => $CFG->{fast},
197 tooltip => "Lower the visual quality considerably to speed up rendering.",
198 connect_changed => sub {
129 my ($self, $value) = @_; 199 my ($self, $value) = @_;
130 $CFG->{fast} = $value; 200 $CFG->{fast} = $value;
201 }
131 }); 202 );
132 203
204 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");
205 $table->add (1, $row++, new CFClient::UI::Slider
206 range => [$CFG->{map_scale}, 0.25, 2, 0.05, 0.05],
207 tooltip => "Enlarge or shrink the displayed map",
208 connect_changed => sub {
209 my ($self, $value) = @_;
210 $CFG->{map_scale} = $value;
211 }
212 );
213
133 $table->add (0, 3, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War"); 214 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");
134 $table->add (1, 3, new CFClient::UI::CheckBox state => $CFG->{fow_enable}, connect_changed => sub { 215 $table->add (1, $row++, new CFClient::UI::CheckBox
216 state => $CFG->{fow_enable},
217 tooltip => "Fog-of-War marks areas that cannot be seen by the player",
218 connect_changed => sub {
135 my ($self, $value) = @_; 219 my ($self, $value) = @_;
136 $CFG->{fow_enable} = $value; 220 $CFG->{fow_enable} = $value;
221 }
137 }); 222 );
138 223
139 $table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity"); 224 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");
140 $table->add (1, 4, new CFClient::UI::Slider range => [$CFG->{fow_intensity}, 0, 1 + 0.001, 0.001], connect_changed => sub { 225 $table->add (1, $row++, new CFClient::UI::Slider
226 range => [$CFG->{fow_intensity}, 0, 1 + 0.001, 0.001],
227 tooltip => "The higher the intensity, the lighter the Fog-of-War color",
228 connect_changed => sub {
141 my ($self, $value) = @_; 229 my ($self, $value) = @_;
142 $CFG->{fow_intensity} = $value; 230 $CFG->{fow_intensity} = $value;
231 }
143 }); 232 );
144 233
145 $table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth"); 234 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth");
146 $table->add (1, 5, new CFClient::UI::CheckBox state => $CFG->{fow_smooth}, connect_changed => sub { 235 $table->add (1, $row++, new CFClient::UI::CheckBox
236 state => $CFG->{fow_smooth},
237 tooltip => "Smooth the Fog-of-War a bit to make it more realistic",
238 connect_changed => sub {
147 my ($self, $value) = @_; 239 my ($self, $value) = @_;
148 $CFG->{fow_smooth} = $value; 240 $CFG->{fow_smooth} = $value;
149 status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::GL_VERSION < 1.2; 241 status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::GL_VERSION < 1.2;
242 }
150 }); 243 );
151 244
152 $table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize"); 245 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
153 $table->add (1, 6, new CFClient::UI::Slider range => [$CFG->{gui_fontsize}, 0.7, 1.7, 0.1], connect_changed => sub { 246 $table->add (1, $row++, new CFClient::UI::Slider
154 $CFG->{gui_fontsize} = 0.1 * int $_[1] * 10; 247 range => [$CFG->{gui_fontsize}, 0.5, 2, 0.1, 0.1],
155# $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize}; 248 tooltip => "The font size used by most GUI elements",
249 connect_changed => sub { $CFG->{gui_fontsize} = $_[1] },
156 }); 250 );
157 251
158 $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Server Log Fontsize"); 252 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Server Log Fontsize");
159 $table->add (1, 7, new CFClient::UI::Slider range => [$CFG->{log_fontsize}, 0.7, 1.7, 0.1], connect_changed => sub { 253 $table->add (1, $row++, new CFClient::UI::Slider
160 $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = 0.1 * int $_[1] * 10); 254 range => [$CFG->{log_fontsize}, 0.5, 2, 0.1, 0.1],
255 tooltip => "The font size used by the server log window only",
256 connect_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]) },
161 }); 257 );
162 258
163 $table->add (1, 8, new CFClient::UI::Button expand => 1, align => 0, text => "Apply", connect_activate => sub { 259 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");
260
261 $table->add (1, $row++, new CFClient::UI::Slider
262 range => [$CFG->{stat_fontsize}, 0.5, 2, 0.1, 0.1],
263 tooltip => "The font size used by the statistics window only",
264 connect_changed => sub {
265 $CFG->{stat_fontsize} = $_[1];
266 &set_stats_window_fontsize;
267 }
268 );
269
270 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");
271 $table->add (1, $row++, new CFClient::UI::Slider
272 range => [$CFG->{gauge_size}, 0.2, 0.8, 0.02],
273 tooltip => "Adjust the size of the stats gauges at the bottom right",
274 connect_changed => sub {
275 $CFG->{gauge_size} = $_[1];
276 $GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
277 }
278 );
279
280 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
281 $table->add (1, $row++, new CFClient::UI::Slider
282 range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1, 0.1],
283 tooltip => "Adjusts the fontsize of the gauges at the bottom right",
284 connect_changed => sub {
285 $CFG->{gauge_fontsize} = $_[1];
286 &set_gauge_window_fontsize;
287 }
288 );
289
290 $table->add (1, $row++, new CFClient::UI::Button
291 expand => 1, align => 0, text => "Apply",
292 tooltip => "Apply the video settings",
293 connect_activate => sub {
164 video_shutdown (); 294 video_shutdown ();
165 video_init (); 295 video_init ();
296 }
166 }); 297 );
167 298
168 $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable"); 299 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");
169 $table->add (1, 9, new CFClient::UI::CheckBox state => $CFG->{audio_enable}, connect_changed => sub { 300 $table->add (1, $row++, new CFClient::UI::CheckBox
301 state => $CFG->{audio_enable},
302 tooltip => "If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.",
303 connect_changed => sub {
170 $CFG->{audio_enable} = $_[1]; 304 $CFG->{audio_enable} = $_[1];
305 }
171 }); 306 );
172# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume"); 307# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume");
173# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], connect_changed => sub { 308# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], connect_changed => sub {
174# $CFG->{effects_volume} = $_[1]; 309# $CFG->{effects_volume} = $_[1];
175# }); 310# });
176 $table->add (0, 10, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music"); 311 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music");
177 $table->add (1, 10, my $hbox = new CFClient::UI::HBox); 312 $table->add (1, $row++, my $hbox = new CFClient::UI::HBox);
178 $hbox->add (new CFClient::UI::CheckBox expand => 1, state => $CFG->{bgm_enable}, connect_changed => sub { 313 $hbox->add (new CFClient::UI::CheckBox
314 expand => 1, state => $CFG->{bgm_enable},
315 tooltip => "Enable background music playing",
316 connect_changed => sub {
179 $CFG->{bgm_enable} = $_[1]; 317 $CFG->{bgm_enable} = $_[1];
318 }
180 }); 319 );
181 $hbox->add (new CFClient::UI::Slider expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0.1], connect_changed => sub { 320 $hbox->add (new CFClient::UI::Slider
321 expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0.1],
322 tooltip => "The volume of the background music",
323 connect_changed => sub {
182 $CFG->{bgm_volume} = $_[1]; 324 $CFG->{bgm_volume} = $_[1];
183 CFClient::MixMusic::volume $_[1] * 128; 325 CFClient::MixMusic::volume $_[1] * 128;
326 }
184 }); 327 );
185 328
186 $table->add (1, 11, new CFClient::UI::Button expand => 1, align => 0, text => "Apply", connect_activate => sub { 329 $table->add (1, $row++, new CFClient::UI::Button
330 expand => 1, align => 0, text => "Apply",
331 tooltip => "Apply the audio settings",
332 connect_activate => sub {
187 audio_shutdown (); 333 audio_shutdown ();
188 audio_init (); 334 audio_init ();
335 }
189 }); 336 );
337
338 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Communication cmd");
339 $table->add (1, $row++, my $saycmd = new CFClient::UI::Entry
340 text => $CFG->{say_command},
341 tooltip => "This is the command that will be used if you write a line in the message window entry. "
342 ."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
343 ."But you could also set it to 'tell &lt;playername&gt;' to only chat with that user.",
344 connect_changed => sub {
345 my ($self, $value) = @_;
346 $CFG->{say_command} = $value;
347 }
348 );
190 349
191 $dialog 350 $dialog
351}
352
353sub set_stats_window_fontsize {
354 for (values %{$STATWIDS}) {
355 $_->set_fontsize ($::CFG->{stat_fontsize});
356 }
357}
358
359sub set_gauge_window_fontsize {
360 for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {
361 $_->set_fontsize ($::CFG->{gauge_fontsize});
362 }
363
364# local $GAUGES->{win}{parent};#d#
365# use PApp::Util; open D, ">:utf8", "d"; print D PApp::Util::dumpval $GAUGES->{win}; close D;
366}
367
368sub make_gauge_window {
369 my $gh = int $HEIGHT * $CFG->{gauge_size};
370
371 my $win = new CFClient::UI::Frame (
372 req_y => -1,
373 user_w => $WIDTH,
374 user_h => $gh,
375 );
376
377 $win->add (my $hbox = new CFClient::UI::HBox
378 children => [
379 (new CFClient::UI::HBox expand => 1),
380 (new CFClient::UI::VBox children => [
381 (new CFClient::UI::Empty expand => 1),
382 (new CFClient::UI::Frame bg => [0, 0, 0, 0.4], child => ($FLOORBOX = new CFClient::UI::VBox)),
383 ]),
384 (my $vbox = new CFClient::UI::VBox),
385 ],
386 );
387
388 $vbox->add (new CFClient::UI::HBox
389 expand => 1,
390 children => [
391 (new CFClient::UI::Empty expand => 1),
392 (my $hb = new CFClient::UI::HBox),
393 ],
394 );
395
396 $hb->add (my $hg = new CFClient::UI::Gauge type => 'hp',
397 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.");
398 $hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',
399 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.");
400 $hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',
401 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.");
402 $hb->add (my $fg = new CFClient::UI::Gauge type => 'food',
403 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.");
404
405 $vbox->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
406 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.");
407 $vbox->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
408 tooltip => "Ranged attack - how you attack when you press shift-cursor (spell, skill, weapon etc.)");
409
410 $GAUGES = {
411 exp => $exp, win => $win, range => $rng,
412 food => $fg, mana => $mg, hp => $hg, grace => $gg
413 };
414
415 &set_gauge_window_fontsize;
416
417 $win
418}
419
420sub make_stats_window {
421 my $tgw = new CFClient::UI::FancyFrame x => $WIDTH * 2/5, y => 0, title => "Stats";
422
423 $tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);
424 $vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1);
425 $vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1);
426
427 $vb->add (my $hb = new CFClient::UI::HBox expand => 1);
428
429 $hb->add (my $tbl = new CFClient::UI::Table expand => 1);
430
431 my $black = [0, 0, 0];
432
433 for (
434 [0, 0, st_str => "Str", 30, "Physical Strength, determines damage dealt with weapons, how much you can carry, and how often you can attack"],
435 [0, 1, st_dex => "Dex", 30, "Dexterity, your physical agility. Determines chance of being hit and affects armor class and speed"],
436 [0, 2, st_con => "Con", 30, "Constitution, physical health and toughness. Determines how many healthpoints you can have"],
437 [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"],
438 [0, 4, st_wis => "Wis", 30, "Wisdom, the ability to learn and use divine magic (prayers). Determines how many grace points you can have"],
439 [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"],
440 [0, 6, st_cha => "Cha", 30, "Charisma, how well you are received by NPCs. Affects buying and selling prices in shops."],
441
442 [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."],
443 [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."],
444 [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."],
445 [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."],
446 [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."],
447 [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."],
448 ) {
449 my ($col, $row, $id, $label, $template, $tooltip) = @$_;
450
451 $tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label
452 font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip);
453 $tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label
454 font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $black, valign => 0, align => -1, text => $label, tooltip => $tooltip);
455 }
456
457 $hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);
458
459 my $row = 0;
460 my $col = 0;
461
462 my %resist_names = (
463 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.)",
464 holyw => "Holy Word (resistance you against getting the fear when someone whose god doesn't like you spells the holy word on you.)",
465 conf => "Confusion (If you are hit by confusion you will move into random directions, and likely into monsters.)",
466 fire => "Fire (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)",
467 depl => "Depletion (some monsters and other effects can cause stats depletion)",
468 magic => "Magic (resistance to magic spells like magic missile or similar)",
469 drain => "Draining (some monsters (e.g. vampires) and other effects can steal experience)",
470 acid => "Acid (resistance to acid, acid hurts pretty much and also corrodes your weapons)",
471 pois => "Poison (resistance to getting poisoned)",
472 para => "Paralysation (this resistance affects the chance you get paralysed)",
473 deat => "Death (resistance against death spells)",
474 phys => "Physical (this is the resistance against physical attacks, like when a monster hit you in melee combat)",
475 blind => "Blind (blind resistance affects the chance of a successful blinding attack)",
476 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)",
477 tund => "Turn undead",
478 elec => "Electricity (resistance againt electricity, spells like large lightning, small lightning, ...)",
479 cold => "Cold (this is your resistance against cold spells like icestorm, snowstorm, ...)",
480 ghit => "Ghost hit (special attack used by ghosts and ghost-like beings)",
481 );
482 for (qw/slow holyw conf fire depl magic
483 drain acid pois para deat phys
484 blind fear tund elec cold ghit/)
485 {
486 $tbl2->add ($col, $row,
487 $STATWIDS->{"res_$_"} =
488 new CFClient::UI::Label
489 font => $FONT_FIXED,
490 template => "-100%",
491 align => +1,
492 valign => 0,
493 can_events => 1,
494 can_hover => 1,
495 tooltip => $resist_names{$_},
496 );
497 $tbl2->add ($col + 1, $row, new CFClient::UI::Image
498 font => $FONT_FIXED,
499 can_hover => 1,
500 can_events => 1,
501 image => "ui/resist/resist_$_.png",
502 tooltip => $resist_names{$_},
503 );
504
505 $row++;
506 if ($row % 6 == 0) {
507 $col += 2;
508 $row = 0;
509 }
510 }
511
512 &set_stats_window_fontsize;
513 update_stats_window ({});
514
515 $tgw
516}
517
518sub formsep {
519 reverse join ",", grep length, split /(...)/, reverse $_[0] * 1
520}
521
522sub update_stats_window {
523 my ($stats) = @_;
524
525 # i love text protocols!!!
526 my $hp = $stats->{Crossfire::Protocol::CS_STAT_HP} * 1;
527 my $hp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXHP} * 1;
528 my $sp = $stats->{Crossfire::Protocol::CS_STAT_SP} * 1;
529 my $sp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXSP} * 1;
530 my $fo = $stats->{Crossfire::Protocol::CS_STAT_FOOD} * 1;
531 my $fo_m = 999;
532 my $gr = $stats->{Crossfire::Protocol::CS_STAT_GRACE} * 1;
533 my $gr_m = $stats->{Crossfire::Protocol::CS_STAT_MAXGRACE} * 1;
534
535 $GAUGES->{hp} ->set_value ($hp, $hp_m);
536 $GAUGES->{mana} ->set_value ($sp, $sp_m);
537 $GAUGES->{food} ->set_value ($fo, $fo_m);
538 $GAUGES->{grace} ->set_value ($gr, $gr_m);
539 $GAUGES->{exp} ->set_text ("Exp: " . (formsep $stats->{Crossfire::Protocol::CS_STAT_EXP64})
540 . " (lvl " . ($stats->{Crossfire::Protocol::CS_STAT_LEVEL} * 1) . ")");
541 my $rng = $stats->{Crossfire::Protocol::CS_STAT_RANGE};
542 $rng =~ s/^Range: //; # thank you so much dear server
543 $GAUGES->{range} ->set_text ("Rng: " . $rng);
544 my $title = $stats->{Crossfire::Protocol::CS_STAT_TITLE};
545 $title =~ s/^Player: //;
546 $STATWIDS->{title} ->set_text ("Title: " . $title);
547
548 $STATWIDS->{st_str} ->set_text (sprintf "%d", $stats->{5});
549 $STATWIDS->{st_dex} ->set_text (sprintf "%d", $stats->{8});
550 $STATWIDS->{st_con} ->set_text (sprintf "%d", $stats->{9});
551 $STATWIDS->{st_int} ->set_text (sprintf "%d", $stats->{6});
552 $STATWIDS->{st_wis} ->set_text (sprintf "%d", $stats->{7});
553 $STATWIDS->{st_pow} ->set_text (sprintf "%d", $stats->{22});
554 $STATWIDS->{st_cha} ->set_text (sprintf "%d", $stats->{10});
555 $STATWIDS->{st_wc} ->set_text (sprintf "%d", $stats->{13});
556 $STATWIDS->{st_ac} ->set_text (sprintf "%d", $stats->{14});
557 $STATWIDS->{st_dam} ->set_text (sprintf "%d", $stats->{15});
558 $STATWIDS->{st_arm} ->set_text (sprintf "%d", $stats->{16});
559 $STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_SPEED});
560 $STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_WEAP_SP});
561
562 my %tbl = (
563 phys => 100,
564 magic => 101,
565 fire => 102,
566 elec => 103,
567 cold => 104,
568 conf => 105,
569 acid => 106,
570 drain => 107,
571 ghit => 108,
572 pois => 109,
573 slow => 110,
574 para => 111,
575 tund => 112,
576 fear => 113,
577 depl => 113,
578 deat => 115,
579 holyw => 116,
580 blind => 117
581 );
582
583 for (keys %tbl) {
584 $STATWIDS->{"res_$_"}->set_text (sprintf "%d%", $stats->{$tbl{$_}});
585 }
586
192} 587}
193 588
194sub metaserver_dialog { 589sub metaserver_dialog {
195 my $dialog = new CFClient::UI::FancyFrame 590 my $dialog = new CFClient::UI::FancyFrame
196 title => "Metaserver", 591 title => "Server List",
197 child => (my $vbox = new CFClient::UI::VBox); 592 child => (my $vbox = new CFClient::UI::VBox);
198 593
199 $vbox->add ($dialog->{table} = new CFClient::UI::Table); 594 $vbox->add ($dialog->{table} = new CFClient::UI::Table);
200 595
201 $dialog 596 $dialog
202} 597}
598
599my $METASERVER_ATIME;
203 600
204sub update_metaserver { 601sub update_metaserver {
205 my ($HOST) = @_; 602 my ($HOST) = @_;
206 603
207 status "fetching metaserver list..."; 604 return if $METASERVER_ATIME > time;
605 $METASERVER_ATIME = time + 60;
606
607 my $table = $METASERVER->{table};
608 $table->clear;
609 $table->add (0, 0, my $label = new CFClient::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
208 610
209 my $buf; 611 my $buf;
210 612
211 my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0; 613 my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;
614
615 unless ($fh) {
616 $label->set_text ("unable to contact metaserver: $!");
617 return;
618 }
212 619
213 Event->io (fd => $fh, poll => 'r', cb => sub { 620 Event->io (fd => $fh, poll => 'r', cb => sub {
214 my $res = sysread $fh, $buf, 8192, length $buf; 621 my $res = sysread $fh, $buf, 8192, length $buf;
215 622
216 if (!defined $res) { 623 if (!defined $res) {
217 $_[0]->w->cancel; 624 $_[0]->w->cancel;
218 status "metaserver: $!"; 625 $label->set_text ("error while retrieving server list: $!");
219 } elsif ($res == 0) { 626 } elsif ($res == 0) {
220 $_[0]->w->cancel; 627 $_[0]->w->cancel;
221 status "server list retrieved"; 628 status "server list retrieved";
222 629
223 my $table = $METASERVER->{table}; 630 utf8::decode $buf if utf8::valid $buf;
224 631
225 $table->clear; 632 $table->clear;
226 633
227 my @col = qw(Use #Users Host Uptime Version Description); 634 my @col = qw(Use #Users Host Uptime Version Description);
228 $table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_]) 635 $table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])
… …
252 $m = [$users, $host, $uptime, $version, $desc]; 659 $m = [$users, $host, $uptime, $version, $desc];
253 660
254 $y++; 661 $y++;
255 662
256 $table->add (0, $y, new CFClient::UI::VBox children => [ 663 $table->add (0, $y, new CFClient::UI::VBox children => [
257 (new CFClient::UI::Button text => " ", connect_activate => sub { 664 (new CFClient::UI::Button text => "Use", connect_activate => sub {
258 $HOST->set_text ($CFG->{host} = $host); 665 $HOST->set_text ($CFG->{host} = $host);
259 }), 666 }),
260 (new CFClient::UI::Empty expand => 1), 667 (new CFClient::UI::Empty expand => 1),
261 ]); 668 ]);
262 669
… …
276 $table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port"); 683 $table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");
277 684
278 { 685 {
279 $table->add (1, 2, my $vbox = new CFClient::UI::VBox); 686 $table->add (1, 2, my $vbox = new CFClient::UI::VBox);
280 687
281 $vbox->add (my $HOST = new CFClient::UI::Entry expand => 1, text => $CFG->{host}, connect_changed => sub { 688 $vbox->add (
689 my $HOST = new CFClient::UI::Entry
690 expand => 1,
691 text => $CFG->{host},
692 tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",
693 connect_changed => sub {
694 my ($self, $value) = @_;
695 $CFG->{host} = $value;
696 }
697 );
698
699 $METASERVER = metaserver_dialog;
700
701 $vbox->add (new CFClient::UI::Flopper
702 expand => 1,
703 text => "Server List",
704 other => $METASERVER,
705 tooltip => "Show a list of available crossfire servers",
706 connect_open => sub {
707 update_metaserver $HOST;
708 }
709 );
710 }
711
712 $table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");
713 $table->add (1, 4, new CFClient::UI::Entry
714 text => $CFG->{user},
715 tooltip => "The name of your character on the server",
716 connect_changed => sub {
282 my ($self, $value) = @_; 717 my ($self, $value) = @_;
283 $CFG->{host} = $value;
284 });
285
286 $METASERVER = metaserver_dialog;
287
288 $vbox->add (new CFClient::UI::Flopper expand => 1, text => "Metaserver", other => $METASERVER, connect_open => sub {
289 update_metaserver $HOST;
290 });
291 }
292
293 $table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");
294 $table->add (1, 4, new CFClient::UI::Entry text => $CFG->{user}, connect_changed => sub {
295 my ($self, $value) = @_;
296 $CFG->{user} = $value; 718 $CFG->{user} = $value;
719 }
297 }); 720 );
298 721
299 $table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password"); 722 $table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password");
300 $table->add (1, 5, new CFClient::UI::Entry text => $CFG->{password}, hidden => 1, connect_changed => sub { 723 $table->add (1, 5, new CFClient::UI::Entry
724 text => $CFG->{password},
725 hidden => 1,
726 tooltip => "The password for your character",
727 connect_changed => sub {
301 my ($self, $value) = @_; 728 my ($self, $value) = @_;
302 $CFG->{password} = $value; 729 $CFG->{password} = $value;
730 }
303 }); 731 );
304
305 $table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "Def. say cmd");
306 $table->add (1, 6, my $saycmd = new CFClient::UI::Entry text => $CFG->{say_command}, connect_changed => sub {
307 my ($self, $value) = @_;
308 $CFG->{say_command} = $value;
309 });
310 732
311 $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size"); 733 $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");
312 $table->add (1, 7, new CFClient::UI::Slider 734 $table->add (1, 7, new CFClient::UI::Slider
313 req_w => 100, 735 req_w => 100,
314 range => [$CFG->{mapsize}, 10, 100 + 1, 1], 736 range => [$CFG->{mapsize}, 10, 100 + 1, 1, 1],
737 tooltip => "This is the size of the portion of the map update the server sends you. "
738 ."If you set this to a high value you will be able to see further for example.",
315 connect_changed => sub { 739 connect_changed => sub {
316 my ($self, $value) = @_; 740 my ($self, $value) = @_;
317 741
318 $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 742 $CFG->{mapsize} = $self->{range}[0] = $value = int $value;
319 }, 743 },
320 ); 744 );
321 745
322 $table->add (1, 8, new CFClient::UI::Button expand => 1, align => 0, text => "Login", connect_activate => sub { 746 $table->add (1, 8, $LOGIN_BUTTON = new CFClient::UI::Button
747 expand => 1,
748 align => 0,
749 text => "Login",
750 connect_activate => sub {
751 $CONN ? stop_game
323 start_game; 752 : start_game;
753 },
324 }); 754 );
325 755
326 $dialog 756 $dialog
327} 757}
328 758
329sub message_window { 759sub message_window {
330 my $window = new CFClient::UI::FancyFrame 760 my $window = new CFClient::UI::FancyFrame
331 title => "Messages", 761 title => "Messages",
332 border_bg => [1, 1, 1, 0.5], 762 border_bg => [1, 1, 1, 1],
333 bg => [0.3, 0.3, 0.3, 0.8], 763 bg => [0, 0, 0, 0.5],
334 user_w => int $::WIDTH / 3, 764 user_w => int $::WIDTH / 3,
335 user_h => int $::HEIGHT / 5, 765 user_h => int $::HEIGHT / 5,
336 child => (my $vbox = new CFClient::UI::VBox); 766 child => (my $vbox = new CFClient::UI::VBox);
337 767
338 $vbox->add ($LOGVIEW = new CFClient::UI::TextView 768 $vbox->add ($LOGVIEW = new CFClient::UI::TextView
339 expand => 1, 769 expand => 1,
770 font => $FONT_FIXED,
340 fontsize => $::CFG->{log_fontsize}, 771 fontsize => $::CFG->{log_fontsize},
341 ); 772 );
342 773
343 $vbox->add (my $input = new CFClient::UI::Entry 774 $vbox->add (my $input = new CFClient::UI::Entry
344 connect_focus_in => sub { 775 connect_focus_in => sub {
… …
377 }; 808 };
378 809
379 $window 810 $window
380} 811}
381 812
813sub make_inventory_window {
814 my $invwin = new CFClient::UI::FancyFrame
815 user_w => $WIDTH * (4/5), user_h => $HEIGHT * (4/5), title => "Inventory";
816
817 $invwin->add (my $hb = new CFClient::UI::HBox);
818 $hb->add ($INV = new CFClient::UI::Inventory expand => 1);
819 $hb->add ($INVR = new CFClient::UI::Inventory expand => 1);
820
821 $invwin
822}
823
382sub sdl_init { 824sub sdl_init {
383 CFClient::SDL_Init 825 CFClient::SDL_Init
384 and die "SDL::Init failed!\n"; 826 and die "SDL::Init failed!\n";
385} 827}
386 828
387sub video_init { 829sub video_init {
388 sdl_init; 830 sdl_init;
389 831
832 $CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
833
390 ($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] }; 834 ($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
391 $FULLSCREEN = $CFG->{fullscreen}; 835 $FULLSCREEN = $CFG->{fullscreen};
392 $FAST = $CFG->{fast}; 836 $FAST = $CFG->{fast};
393 837
394 CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN 838 CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN
395 or die "SDL_SetVideoMode failed!\n"; 839 or die "SDL_SetVideoMode failed!\n";
396 840
397 $SDL_ACTIVE = 1; 841 $SDL_ACTIVE = 1;
398
399 $LAST_REFRESH = time - 0.01; 842 $LAST_REFRESH = time - 0.01;
400 843
401 CFClient::gl_init; 844 CFClient::gl_init;
402 845
403 $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize}; 846 $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
404 847
848 $CFClient::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#
849
405 ############################################################################# 850 #############################################################################
406 851
852 unless ($DEBUG_STATUS) {
853 # create the widgets
854
407 $DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100; 855 $DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100, req_x => -1;
408 $DEBUG_STATUS->show; 856 $DEBUG_STATUS->show;
409 857
410 $STATUS_LINE = new CFClient::UI::Label 858 $STATUSBOX = new CFClient::UI::Statusbox;
411 padding => 0, 859 $STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", pri => -100, color => [1, 1, 1, 0.8]);
412 y => $HEIGHT - $FONTSIZE * 1.8;
413 $STATUS_LINE->show;
414 860
415 $ALT_ENTER_MESSAGE = new CFClient::UI::Label 861 (new CFClient::UI::Frame
416 padding => 0, 862 bg => [0, 0, 0, 0.4],
417 fontsize => 0.8, 863 req_y => -1,
418 markup => "Use <b>Alt-Enter</b> to toggle fullscreen mode"; 864 child => $STATUSBOX,
419 $ALT_ENTER_MESSAGE->show; 865 )->show;
420 $ALT_ENTER_MESSAGE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h});
421 866
422 $CFClient::UI::ROOT->add ($MAPWIDGET = new CFClient::MapWidget); 867 CFClient::UI::FancyFrame->new (
423 $MAPWIDGET->focus_in; 868 border_bg => [1, 1, 1, 192/255],
869 bg => [1, 1, 1, 0],
870 child => ($MAPMAP = new CFClient::MapWidget::MapMap),
871 )->show;
872
873 $MAPWIDGET = new CFClient::MapWidget;
424 $MAPWIDGET->connect (activate_console => sub { 874 $MAPWIDGET->connect (activate_console => sub {
425 my ($mapwidget, $preset) = @_; 875 my ($mapwidget, $preset) = @_;
426 876
427 if ($CONSOLE) { 877 if ($CONSOLE) {
428 $CONSOLE->{input}->{auto_activated} = 1; 878 $CONSOLE->{input}->{auto_activated} = 1;
429 $CONSOLE->{input}->focus_in; 879 $CONSOLE->{input}->focus_in;
430 880
431 if ($preset && $CONSOLE->{input}->get_text eq '') { 881 if ($preset && $CONSOLE->{input}->get_text eq '') {
432 $CONSOLE->{input}->set_text ($preset); 882 $CONSOLE->{input}->set_text ($preset);
883 }
433 } 884 }
434 } 885 });
435 }); 886 $MAPWIDGET->show;
887 $MAPWIDGET->focus_in;
436 888
437 $CFClient::UI::ROOT->add ($BUTTONBAR = new CFClient::UI::HBox); 889 $BUTTONBAR = new CFClient::UI::HBox;
438 890
439 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup); 891 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);
440 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup); 892 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);
441 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window); 893 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);
442 894
895 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
896
897 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window);
898 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window);
899
443 $BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub { 900 $BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {
444 CFClient::write_cfg "$Crossfire::VARDIR/pclientrc"; 901 CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";
445 status "Configuration Saved"; 902 status "Configuration Saved";
446 }); 903 });
447 904
905 $BUTTONBAR->show;
906
907 $STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
908
909 # delay till geometry is constant
910 $CFClient::UI::ROOT->on_post_alloc (startup => sub {
448 $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup 911 $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
449 912 my $widget = $GAUGES->{win};
450 my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH - 300, y => 0, title => "Stats"); 913 $widget->move (0, $HEIGHT - $widget->{h});#d# to in toplevel
451 $tgw->add (my $hbox = new CFClient::UI::HBox ()); 914 });
452 915 force_refresh ();
453 $hbox->add (my $hg = new CFClient::UI::Gauge (type => 'hp')); 916 }
454 $hbox->add (my $mg = new CFClient::UI::Gauge (type => 'mana'));
455 $hbox->add (my $gg = new CFClient::UI::Gauge (type => 'grace'));
456 $hbox->add (my $fg = new CFClient::UI::Gauge (type => 'food'));
457
458 $GAUGES = { food => $fg, mana => $mg, hp => $hg, grace => $gg };
459 $CFClient::UI::ROOT->add ($tgw);
460} 917}
461 918
462sub video_shutdown { 919sub video_shutdown {
463 $CFClient::UI::ROOT->{children} = [];
464 undef $SDL_ACTIVE; 920 undef $SDL_ACTIVE;
465} 921}
466 922
923my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
467my $bgmusic;#TODO#hack#d# 924my $bgmusic;#TODO#hack#d#
925
926sub audio_channel_finished {
927 my ($channel) = @_;
928
929 warn "channel $channel finished\n";#d#
930}
931
932sub audio_music_finished {
933 return unless $CFG->{bgm_enable};
934
935 # TODO: hack, do play loop and mood music
936 $bgmusic = new_from_file CFClient::MixMusic CFClient::find_rcfile "music/$bgmusic[0]";
937 $bgmusic->play (0);
938
939 push @bgmusic, shift @bgmusic;
940}
468 941
469sub audio_init { 942sub audio_init {
470 if ($CFG->{audio_enable}) { 943 if ($CFG->{audio_enable}) {
471 if (open my $fh, "<:utf8", CFClient::find_rcfile "sounds/config") { 944 if (open my $fh, "<", CFClient::find_rcfile "sounds/config") {
472
473 $SDL_MIXER = !CFClient::Mix_OpenAudio; 945 $SDL_MIXER = !CFClient::Mix_OpenAudio;
474 CFClient::Mix_AllocateChannels 8; 946 CFClient::Mix_AllocateChannels 8;
475 CFClient::MixMusic::volume $CFG->{bgm_volume} * 128; 947 CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;
476 948
477 # TODO: hack, do play loop and mood music 949 audio_music_finished;
478 if ($CFG->{bgm_enable}) {
479 $bgmusic = new_from_file CFClient::MixMusic CFClient::find_rcfile "music/game3.ogg";
480 $bgmusic->play;
481 }
482 950
483 while (<$fh>) { 951 while (<$fh>) {
484 next if /^\s*#/; 952 next if /^\s*#/;
485 next if /^\s*$/; 953 next if /^\s*$/;
486 954
… …
508} 976}
509 977
510my %animate_object; 978my %animate_object;
511my $animate_timer; 979my $animate_timer;
512 980
513my $want_refresh;
514my $can_refresh;
515
516my $fps = 9; 981my $fps = 9;
517 982
518sub force_refresh { 983sub force_refresh {
519 $fps = $fps * 0.95 + 1 / ($NOW - $LAST_REFRESH) * 0.05; 984 $fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05;
520 debug sprintf "%3.2f", $fps; 985 debug sprintf "%3.2f", $fps;
521 986
522 $want_refresh = 0;
523 $can_refresh = 0;
524
525 $CFClient::UI::ROOT->draw; 987 $CFClient::UI::ROOT->draw;
526
527 CFClient::SDL_GL_SwapBuffers; 988 CFClient::SDL_GL_SwapBuffers;
528 989
990 $WANT_REFRESH = 0;
991 $CAN_REFRESH = 0;
529 $LAST_REFRESH = $NOW; 992 $LAST_REFRESH = $NOW;
530} 993}
531 994
532my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub { 995my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {
533 $NOW = time; 996 $NOW = time;
… …
535 ($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_) 998 ($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
536 for CFClient::SDL_PollEvent; 999 for CFClient::SDL_PollEvent;
537 1000
538 if (%animate_object) { 1001 if (%animate_object) {
539 $_->animate ($LAST_REFRESH - $NOW) for values %animate_object; 1002 $_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
540 $want_refresh++; 1003 $WANT_REFRESH++;
541 } 1004 }
542 1005
543 if ($want_refresh) { 1006 if ($WANT_REFRESH) {
544 force_refresh; 1007 force_refresh;
545 } else { 1008 } else {
546 $can_refresh = 1; 1009 $CAN_REFRESH = 1;
547 } 1010 }
548}); 1011});
549
550sub refresh {
551 $want_refresh++;
552}
553 1012
554sub animation_start { 1013sub animation_start {
555 my ($widget) = @_; 1014 my ($widget) = @_;
556 $animate_object{$widget} = $widget; 1015 $animate_object{$widget} = $widget;
557} 1016}
… …
564@conn::ISA = Crossfire::Protocol::; 1023@conn::ISA = Crossfire::Protocol::;
565 1024
566sub conn::stats_update { 1025sub conn::stats_update {
567 my ($self, $stats) = @_; 1026 my ($self, $stats) = @_;
568 1027
569 # i love text protocols!!! 1028 update_stats_window ($stats);
570 # FIXME: the stats are somehow weird
571 my $hp = $stats->{1};
572 my $hp_m = $stats->{2};
573 my $sp = $stats->{3};
574 my $sp_m = $stats->{4};
575 my $fo = $stats->{18};
576 my $fo_m = 999;
577 my $gr = $stats->{23};
578 my $gr_m = $stats->{24};
579
580 #d# warn "DATA $hp $hp_m $sp $sp_m $fo $fo_m $gr $gr_m\n";
581 $GAUGES->{hp} ->set_value ($hp, $hp_m);
582 $GAUGES->{mana} ->set_value ($sp, $sp_m);
583 $GAUGES->{food} ->set_value ($fo, $fo_m);
584 $GAUGES->{grace}->set_value ($gr, $gr_m);
585} 1029}
586 1030
587sub conn::user_send { 1031sub conn::user_send {
588 my ($self, $command) = @_; 1032 my ($self, $command) = @_;
589 1033
… …
651# at worst. 1095# at worst.
652sub conn::flood_fill { 1096sub conn::flood_fill {
653 my ($self, $gx, $gy, $path, $hash, $flags) = @_; 1097 my ($self, $gx, $gy, $path, $hash, $flags) = @_;
654 1098
655 # the server does not allow map paths > 6 1099 # the server does not allow map paths > 6
656 return if 6 <= length $path; 1100 return if 7 <= length $path;
657 1101
658 my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}}; 1102 my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}};
659 1103
660 for ( 1104 for (
661 [1, 0, -1], 1105 [1, 0, -1],
… …
704 1148
705 $self->flush_map; 1149 $self->flush_map;
706 1150
707 my ($ox, $oy) = ($::MAP->ox, $::MAP->oy); 1151 my ($ox, $oy) = ($::MAP->ox, $::MAP->oy);
708 1152
709 my $mapmapw = 250; 1153 my $mapmapw = $MAPMAP->{w};
710 my $mapmaph = 250; 1154 my $mapmaph = $MAPMAP->{h};
711 1155
712 $self->{neigh_rect} = [ 1156 $self->{neigh_rect} = [
713 $ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5, 1157 $ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,
714 $ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h, 1158 $ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h,
715 ]; 1159 ];
… …
719 1163
720 $x += $ox; 1164 $x += $ox;
721 $y += $oy; 1165 $y += $oy;
722 1166
723 $self->{map_info} = [$hash, $x, $y, $w, $h]; 1167 $self->{map_info} = [$hash, $x, $y, $w, $h];
1168
1169 my $map = $self->{map_info}[0];
1170 $map =~ s/^.*?\/([^\/]+)$/\1/;
1171 $STATWIDS->{map}->set_text ("Map: " . $map);
724 1172
725 $self->load_map ($hash, $x, $y); 1173 $self->load_map ($hash, $x, $y);
726} 1174}
727 1175
728sub conn::face_find { 1176sub conn::face_find {
… …
754 } 1202 }
755 1203
756gotid: 1204gotid:
757 $face->{id} = $id; 1205 $face->{id} = $id;
758 $MAP->set_face ($facenum => $id); 1206 $MAP->set_face ($facenum => $id);
1207 $self->{faceid}[$facenum] = $id;#d#
759 $TILECACHE->get ($id) 1208 $TILECACHE->get ($id)
760} 1209}
761 1210
762sub conn::face_update { 1211sub conn::face_update {
763 my ($self, $facenum, $face) = @_; 1212 my ($self, $facenum, $face) = @_;
… …
771 my ($self, $id, $data) = @_; 1220 my ($self, $id, $data) = @_;
772 1221
773 $self->{texture}[$id] ||= do { 1222 $self->{texture}[$id] ||= do {
774 my $tex = 1223 my $tex =
775 new_from_image CFClient::Texture 1224 new_from_image CFClient::Texture
776 $data, minify => 1; 1225 $data, minify => 1, mipmap => 1;
777 1226
778 $MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}}); 1227 $MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
779 $MAPWIDGET->update; 1228 $MAPWIDGET->update;
780 1229
781 $tex 1230 $tex
… …
793 1242
794 $chunk->play; 1243 $chunk->play;
795# warn "sound $x,$y,$soundnum,$type\n";#d# 1244# warn "sound $x,$y,$soundnum,$type\n";#d#
796} 1245}
797 1246
1247my $LAST_QUERY; # server is stupid, stupid, stupid
1248
798sub conn::query { 1249sub conn::query {
799 my ($self, $flags, $prompt) = @_; 1250 my ($self, $flags, $prompt) = @_;
800 1251
801 #TODO, display dialog with relevant information 1252 $prompt = $LAST_QUERY unless length $prompt;
802 warn "<<<<QUERY:$flags:$prompt>>>\n";#d# 1253 $LAST_QUERY = $prompt;
1254
1255 my $dialog = new CFClient::UI::FancyFrame
1256 title => "Query",
1257 child => my $vbox = new CFClient::UI::VBox;
1258
1259 $vbox->add (new CFClient::UI::Label
1260 max_w => $::WIDTH * 0.4,
1261 text => $prompt);
1262
1263 if ($flags & Crossfire::Protocol::CS_QUERY_YESNO) {
1264 $vbox->add (my $hbox = new CFClient::HBox);
1265 $hbox->add (new CFClient::Button
1266 text => "No",
1267 connect_activate => sub {
1268 $self->send ("reply n");
1269 $dialog->destroy;
1270 $MAPWIDGET->focus_in;
1271 }
1272 );
1273 $hbox->add (new CFClient::Button
1274 text => "Yes",
1275 connect_activate => sub {
1276 $self->send ("reply y");
1277 $dialog->destroy;
1278 $MAPWIDGET->focus_in;
1279 },
1280 );
1281
1282 $dialog->focus_in;
1283
1284 } elsif ($flags & Crossfire::Protocol::CS_QUERY_SINGLECHAR) {
1285 $dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
1286 $vbox->add (my $entry = new CFClient::UI::Entry
1287 connect_changed => sub {
1288 $self->send ("reply $_[1]");
1289 $dialog->destroy;
1290 $MAPWIDGET->focus_in;
1291 },
1292 );
1293
1294 $entry->focus_in;
1295
1296 } else {
1297 $dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
1298
1299 $vbox->add (my $entry = new CFClient::UI::Entry
1300 $flags & Crossfire::Protocol::CS_QUERY_HIDEINPUT ? (hiddenchar => "*") : (),
1301 connect_activate => sub {
1302 $self->send ("reply $_[1]");
1303 $dialog->destroy;
1304 $MAPWIDGET->focus_in;
1305 },
1306 );
1307
1308 $entry->focus_in;
1309 }
1310
1311 $dialog->show;
803} 1312}
804 1313
805sub conn::drawinfo { 1314sub conn::drawinfo {
806 my ($self, $color, $text) = @_; 1315 my ($self, $color, $text) = @_;
807 1316
… …
819 [0.55, 0.41, 0.13], 1328 [0.55, 0.41, 0.13],
820 [0.99, 0.77, 0.26], 1329 [0.99, 0.77, 0.26],
821 [0.74, 0.65, 0.41], 1330 [0.74, 0.65, 0.41],
822 ); 1331 );
823 1332
1333 my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0];
1334
1335 $text = CFClient::UI::Label::escape $text;
1336 $text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g;
1337 $text =~ s/\[color=(.*?)\](.*?)\[\/color\]/<span foreground='\1'>\2<\/span>/g;
1338
824 $LOGVIEW->add_paragraph ($color[$color], $text); 1339 $LOGVIEW->add_paragraph ($color[$color],
1340 join "\n", map "$time $_", split /\n/, $text);
1341
1342 $STATUSBOX->add ($text,
1343 group => $text,
1344 fg => $color[$color],
1345 timeout => 60,
1346 tooltip_font => $::FONT_FIXED,
1347 );
1348}
1349
1350sub conn::drawextinfo {
1351 my ($self, $color, $type, $subtype, $message) = @_;
1352
1353 $self->drawinfo ($color, $message);
825} 1354}
826 1355
827sub conn::spell_add { 1356sub conn::spell_add {
828 my ($self, $spell) = @_; 1357 my ($self, $spell) = @_;
829 1358
1359 # TODO
1360 # create a widget dynamically, using spell face (CF::Protocol downloads them)
830 $MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message}, sub { 1361 $MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message});
831 });
832 $MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message}, sub { 1362 $MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message});
833 });
834} 1363}
835 1364
836sub conn::spell_delete { 1365sub conn::spell_delete {
837 my ($self, $spell) = @_; 1366 my ($self, $spell) = @_;
838} 1367}
839 1368
840sub conn::addme_success { 1369sub conn::addme_success {
841 my ($self) = @_; 1370 my ($self) = @_;
842 1371
1372 $MAPWIDGET->clr_commands;
1373
843 for my $skill (values %{$self->{skill_info}}) { 1374 for my $skill (values %{$self->{skill_info}}) {
844 $MAPWIDGET->add_command ("ready_skill $skill", "", sub { 1375 $MAPWIDGET->add_command ("ready_skill $skill", "Ready the skill '$skill'");
1376 $MAPWIDGET->add_command ("use_skill $skill", "Immediately use the skill '$skill'");
1377 }
1378
1379 $MAPWIDGET->add_command ("petmode defend", "Tell pets to stay close to you and defend you");
1380 $MAPWIDGET->add_command ("petmode arena", "Same as petmode sad, but also attack other players");
1381 $MAPWIDGET->add_command ("petmode sad", "Search &amp; Destroy - tell pets to roam about and attack enemies");
1382 $MAPWIDGET->add_command ("killpets", "Kill your pets");
1383 $MAPWIDGET->add_command ("chat", "chat TEXT\nChat with all other players");
1384 $MAPWIDGET->add_command ("shout", "shout TEXT\nShout loudly, used for emergencies");
1385 $MAPWIDGET->add_command ("tell", "tell USERNAME TEXT\nPrivately tell a specific player");
1386
1387 # TODO: add documentation on these
1388 for (qw(
1389 afk
1390 apply
1391 body
1392 bowmode
1393 brace
1394 build
1395 disarm
1396 dm
1397 dmhide
1398 drop
1399 dropall
1400 examine
1401 get
1402 gsay
1403 help
1404 hiscore
1405 inventory
1406 invoke
1407 killpets
1408 listen
1409 logs
1410 mapinfo
1411 maps
1412 mark
1413 motd
1414 output-count
1415 output-sync
1416 party
1417 peaceful
1418 petmode
1419 pickup
1420 players
1421 prepare
1422 quests
1423 rename
1424 resistances
1425 rotateshoottype
1426 save
1427 say
1428 search
1429 search-items
1430 showpets
1431 skills
1432 sound
1433 take
1434 throw
1435 time
1436 title
1437 usekeys
1438 version
1439 weather
1440 whereabouts
1441 whereami
1442 who
1443 wimpy
1444 )) {
1445 $MAPWIDGET->add_command ($_, "$_: no help available (yet)");
1446 }
1447
1448 #TODO: add " and ' "aliases" etc.
1449}
1450
1451sub conn::eof {
1452 $MAPWIDGET->clr_commands;
1453
1454 stop_game;
1455}
1456
1457sub update_floorbox {
1458 $CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub {
1459 return unless $CONN;
1460
1461 $FLOORBOX->clear;
1462 $FLOORBOX->add (new CFClient::UI::Empty expand => 1);
1463
1464 my $count = 4;
1465 for (@{ $CONN->{container}{0} }) {
1466 if (--$count) {
1467 $FLOORBOX->add (new CFClient::UI::InventoryItem item => $_);
1468 } else {
1469 $FLOORBOX->add (new CFClient::UI::Label text => "More...");
1470 last;
1471 }
845 }); 1472 }
846 $MAPWIDGET->add_command ("use_skill $skill", "", sub { 1473 });
1474
1475 $WANT_REFRESH++;
1476}
1477
1478sub conn::container_add {
1479 my ($self, $tag, $items) = @_;
1480
1481 #d# print "container_add: container $tag ($self->{player}{tag})\n";
1482
1483 if ($tag == 0) {
1484 update_floorbox;
1485 $OPENCONT = 0;
1486 $INVR->set_items ($self->{container}{0});
1487 } elsif ($tag == $self->{player}{tag}) {
1488 $INV->set_items ($self->{container}{$self->{player}{tag}})
1489 } else {
1490 $OPENCONT = $tag;
1491 $INVR->set_items ($self->{container}{$tag});
1492 }
1493
1494 # $self-<{player}{tag} => player inv
1495 #use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};
1496}
1497
1498sub conn::container_clear {
1499 my ($self, $tag) = @_;
1500
1501 #d# print "container_clear: container $tag ($self->{player}{tag})\n";
1502
1503 if ($tag == 0) {
1504 update_floorbox;
1505 $OPENCONT = 0;
1506 $INVR->set_items ($self->{container}{0});
1507 } elsif ($tag == $self->{player}{tag}) {
1508 $INV->set_items ($self->{container}{$tag})
1509 } else {
1510 $OPENCONT = $tag;
1511 $INVR->set_items ($self->{container}{$tag});
1512 }
1513
1514# use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};
1515}
1516
1517sub conn::item_delete {
1518 my ($self, @items) = @_;
1519
1520 for (@items) {
1521 #d# print "item_delete: $_->{tag} from $_->{container} ($self->{player}{tag})\n";
1522
1523 if ($_->{container} == 0) {
1524 update_floorbox;
1525 $OPENCONT = 0;
1526 $INVR->set_items ($self->{container}{0});
1527 } elsif ($_->{container} == $self->{player}{tag}) {
1528 $INV->set_items ($self->{container}{$self->{player}{tag}})
1529 } else {
1530 $OPENCONT = $_->{container};
1531 $INVR->set_items ($self->{container}{$_->{container}});
847 }); 1532 }
1533 }
1534}
1535
1536sub conn::item_update {
1537 my ($self, $item) = @_;
1538
1539 #d# print "item_update: $item->{tag} in $item->{container} ($self->{player}{tag}) ($OPENCONT)\n";
1540
1541 if ($item->{tag} == $OPENCONT && not ($item->{flags} & Crossfire::Protocol::F_OPEN)) {
1542 $OPENCONT = 0;
1543 $INVR->set_items ($self->{container}{0});
1544 } else {
1545 if ($item->{container} == 0) {
1546 update_floorbox;
1547 $OPENCONT = 0;
1548 $INVR->set_items ($self->{container}{0});
1549 } elsif ($item->{container} == $self->{player}{tag}) {
1550 $INV->set_items ($self->{container}{$item->{container}})
1551 }
848 } 1552 }
849} 1553}
850 1554
851%SDL_CB = ( 1555%SDL_CB = (
852 CFClient::SDL_QUIT => sub { 1556 CFClient::SDL_QUIT => sub {
853 Event::unloop -1; 1557 Event::unloop -1;
854 }, 1558 },
855 CFClient::SDL_VIDEORESIZE => sub { 1559 CFClient::SDL_VIDEORESIZE => sub {
856 }, 1560 },
857 CFClient::SDL_VIDEOEXPOSE => sub { 1561 CFClient::SDL_VIDEOEXPOSE => sub {
858 refresh; 1562 $WANT_REFRESH++;
1563 },
1564 CFClient::SDL_ACTIVEEVENT => sub {
1565# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#
859 }, 1566 },
860 CFClient::SDL_KEYDOWN => sub { 1567 CFClient::SDL_KEYDOWN => sub {
861 if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) { 1568 if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) {
862 # alt-enter 1569 # alt-enter
863 video_shutdown; 1570 video_shutdown;
… …
865 video_init; 1572 video_init;
866 } else { 1573 } else {
867 CFClient::UI::feed_sdl_key_down_event ($_[0]); 1574 CFClient::UI::feed_sdl_key_down_event ($_[0]);
868 } 1575 }
869 }, 1576 },
870 CFClient::SDL_KEYUP => sub { 1577 CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,
871 CFClient::UI::feed_sdl_key_up_event ($_[0]); 1578 CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,
872 }, 1579 CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,
873 CFClient::SDL_MOUSEMOTION => sub { 1580 CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,
874 CFClient::UI::feed_sdl_motion_event ($_[0]);
875 },
876 CFClient::SDL_MOUSEBUTTONDOWN => sub {
877 CFClient::UI::feed_sdl_button_down_event ($_[0]);
878 },
879 CFClient::SDL_MOUSEBUTTONUP => sub {
880 CFClient::UI::feed_sdl_button_up_event ($_[0]);
881 },
882 CFClient::SDL_ACTIVEEVENT => sub { 1581 CFClient::SDL_USEREVENT => sub {
883# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d# 1582 if ($_[0]{code} == 1) {
1583 audio_channel_finished $_[0]{data1};
1584 } elsif ($_[0]{code} == 0) {
1585 audio_music_finished;
1586 }
884 }, 1587 },
885); 1588);
886 1589
887############################################################################# 1590#############################################################################
888 1591
889$SIG{INT} = $SIG{TERM} = sub { exit }; 1592$SIG{INT} = $SIG{TERM} = sub { exit };
890 1593
891$TILECACHE = CFClient::db_table "tilecache";
892$FACEMAP = CFClient::db_table "facemap";
893
894CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";
895
896my %DEF_CFG = (
897 sdl_mode => 0,
898 width => 640,
899 height => 480,
900 fullscreen => 0,
901 fast => 0,
902 fow_enable => 1,
903 fow_intensity => 0.45,
904 fow_smooth => 0,
905 gui_fontsize => 1,
906 log_fontsize => 14,
907 mapsize => 100,
908 host => "crossfire.schmorp.de",
909 say_command => 'say',
910 audio_enable => 1,
911 bgm_enable => 1,
912 bgm_volume => 0.25,
913);
914
915while (my ($k, $v) = each %DEF_CFG) {
916 $CFG->{$k} = $v unless exists $CFG->{$k};
917}
918
919sdl_init;
920
921@SDL_MODES = reverse
922 grep $_->[0] >= 640 && $_->[1] >= 480,
923 CFClient::SDL_ListModes;
924
925@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
926
927$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
928
929{ 1594{
930 my @fonts = map CFClient::find_rcfile $_, qw(uifont.ttf uifontb.ttf uifonti.ttf uifontbi.ttf); 1595 local $SIG{__DIE__} = sub { CFClient::fatal $_[0] };
931 1596
1597 CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";
1598
1599 $TILECACHE = CFClient::db_table "tilecache";
1600 $FACEMAP = CFClient::db_table "facemap";
1601
1602 my %DEF_CFG = (
1603 sdl_mode => 0,
1604 width => 640,
1605 height => 480,
1606 fullscreen => 0,
1607 fast => 0,
1608 map_scale => 0.5,
1609 fow_enable => 1,
1610 fow_intensity => 0.45,
1611 fow_smooth => 0,
1612 gui_fontsize => 1,
1613 log_fontsize => 1,
1614 gauge_fontsize=> 1,
1615 gauge_size => 0.35,
1616 stat_fontsize => 1,
1617 mapsize => 100,
1618 host => "crossfire.schmorp.de",
1619 say_command => 'say',
1620 audio_enable => 1,
1621 bgm_enable => 1,
1622 bgm_volume => 0.25,
1623 );
1624
1625 while (my ($k, $v) = each %DEF_CFG) {
1626 $CFG->{$k} = $v unless exists $CFG->{$k};
1627 }
1628
1629 sdl_init;
1630
1631 @SDL_MODES = reverse
1632 grep $_->[0] >= 640 && $_->[1] >= 480,
1633 CFClient::SDL_ListModes;
1634
1635 @SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
1636
1637 $CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
1638
1639 {
1640 my @fonts = map CFClient::find_rcfile "fonts/$_", qw(
1641 DejaVuSans.ttf
1642 DejaVuSansMono.ttf
1643 DejaVuSans-Bold.ttf
1644 DejaVuSansMono-Bold.ttf
1645 DejaVuSans-Oblique.ttf
1646 DejaVuSansMono-Oblique.ttf
1647 DejaVuSans-BoldOblique.ttf
1648 DejaVuSansMono-BoldOblique.ttf
1649 );
1650
932 CFClient::add_font $_ for @fonts; 1651 CFClient::add_font $_ for @fonts;
933 CFClient::set_font $fonts[0]; 1652
934} 1653 CFClient::pango_init;
935 1654
1655 $FONT_PROP = new_from_file CFClient::Font $fonts[0];
1656 $FONT_FIXED = new_from_file CFClient::Font $fonts[1];
1657
1658 $FONT_PROP->make_default;
1659 }
1660
1661# compare mono (ft) vs. rgba (cairo)
1662# ft - 1.8s, cairo 3s, even in alpha-only mode
1663# for my $rgba (0..1) {
1664# my $t1 = Time::HiRes::time;
1665# for (1..1000) {
1666# my $layout = CFClient::Layout->new ($rgba);
1667# $layout->set_text ("hallo" x 100);
1668# $layout->render;
1669# }
1670# my $t2 = Time::HiRes::time;
1671# warn $t2-$t1;
1672# }
1673
936video_init; 1674 video_init;
937audio_init; 1675 audio_init;
1676}
938 1677
939Event::loop; 1678Event::loop;
940 1679
941END { CFClient::SDL_Quit } 1680END { CFClient::SDL_Quit }
942 1681
1682=head1 pclient - Crossfire+ and Crossfire game client
943 1683
1684Pclient is a Crossfire+ and Crossfire game client.
1685
1686=head2 Features
1687
1688=over 4
1689
1690=item Fullscreen Map
1691
1692PClient can uses a fullscreen map, which greatly enhances how much of the
1693game world you can see.
1694
1695=item Persistent Map Cache (Crossfire+ only)
1696
1697PClient can persistently cache all map data it received from the
1698server. This not only allows it to display an overview map, but also
1699ensures that once-explored areas will be available the next time you want
1700to explore more.
1701
1702=item Hardware acceleration
1703
1704Unlike most Crossfire clients, PClient take advantage of OpenGL hardware
1705acceleration. Most modern graphics cards have difficulties with 2D
1706acceleration, while 3D graphics is accelerated well.
1707
1708=item No arbitrary limits
1709
1710Unlike other Crossfire clients, pclient does not suffer from arbitrary
1711limits (like a fixed amount of face numbers). There are still limits, but
1712they are not arbitrarily low :)
1713
1714=back
1715
1716=head1 USAGE
1717
1718=head2 The Map
1719
1720The map is always displayed in the background, behind all other windows and UI elements.
1721
1722#TODO# middle-click scrolls
1723#
1724# keys:
1725#
1726# a apply
1727# keypad moves, kp_5 applies ranged attack to self
1728
1729Starting to type enters the I<completion mode>. In that mode, you can type
1730abbreviations or commands and have them executed as soon as they match a
1731valid command. This is best explained by a few examples:
1732
1733Typing B<climb> will display a list of commands with I<climb> in their
1734name, such as I<ready_skill climbing> and I<use_skill climbing>.
1735
1736You can abbreviate commands by typing only the first character of every
1737word. For example, typing I<iwor> will likely select I<invoke word of
1738recall>, while I<ccfo> will select I<cast create food>. Likewise, I<rscli>
1739will likely select I<ready_skill climbing> and I<usl> will give you
1740I<use_skill levitation>.
1741
1742=head2 The map overview
1743
1744#TODO#
1745
1746=head2 The Status area in the lower right corner
1747
1748#TODO#
1749
1750=head2 The I<Statistics>/I>Stats> window
1751
1752#TODO#
1753
1754=head1 FAQ
1755
1756=over 4
1757
1758=item The client is very sluggish and slow, what can I do about this?
1759
1760Most likely, you don't have accelerated OpenGL support. Try to find a
1761newer driver, or a driver from your hardware vendor, that features OpenGL
1762support.
1763
1764If this is not an option, the following Setup options reduce the load and
1765will likely make the client playable with sofwtare rendering (it will
1766still be slow, though):
1767
1768=over 4
1769
1770=item B<Video Mode> should be set as low as possible (e.g. 640x480)
1771
1772=item Enable B<Fast & Ugly> mode
1773
1774=item Disable B<Fog of War>
1775
1776=item Increase B<Map Scale>
1777
1778=back
1779
1780=back
1781
1782=head1 AUTHOR
1783
1784Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
1785
1786
1787

Diff Legend

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