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

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.63 by root, Wed Jun 7 05:54:09 2006 UTC vs.
Revision 1.85 by elmex, Sun Jul 2 19:32:56 2006 UTC

… …
36 36
37use CFClient; 37use CFClient;
38use CFClient::OpenGL (); 38use CFClient::OpenGL ();
39use CFClient::Protocol; 39use CFClient::Protocol;
40use CFClient::UI; 40use CFClient::UI;
41use CFClient::BindingEditor;
41use CFClient::MapWidget; 42use CFClient::MapWidget;
42 43
43$SIG{QUIT} = sub { Carp::cluck "QUIT" }; 44$SIG{QUIT} = sub { Carp::cluck "QUIT" };
44 45
45$Event::DIED = sub { 46$Event::DIED = sub {
… …
84our $CONSOLE; 85our $CONSOLE;
85our $METASERVER; 86our $METASERVER;
86our $LOGIN_BUTTON; 87our $LOGIN_BUTTON;
87our $QUIT_DIALOG; 88our $QUIT_DIALOG;
88our $HOST_ENTRY; 89our $HOST_ENTRY;
90our $SERVER_INFO;
89 91
90our $SETUP_DIALOG; 92our $SETUP_DIALOG;
91our $SETUP_NOTEBOOK; 93our $SETUP_NOTEBOOK;
92our $SETUP_SERVER; 94our $SETUP_SERVER;
93our $SETUP_KEYBOARD; 95our $SETUP_KEYBOARD;
… …
108 110
109our $ALT_ENTER_MESSAGE; 111our $ALT_ENTER_MESSAGE;
110our $STATUSBOX; 112our $STATUSBOX;
111our $DEBUG_STATUS; 113our $DEBUG_STATUS;
112 114
113our $INV_WINDOW;
114our $INV; 115our $INV;
115our $INVR; 116our $INVR;
116our $INV_RIGHT_HB; 117our $INV_RIGHT_HB;
117 118
119our $PL_NOTEBOOK;
120our $PL_WINDOW;
121
118our $BIND_EDITOR; 122our $BIND_EDITOR;
123our $BIND_UPD_CB;
119 124
120our $PICKUP_CFG; 125our $PICKUP_CFG;
121 126
122sub status { 127sub status {
123 $STATUSBOX->add (CFClient::UI::Label::escape $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]); 128 $STATUSBOX->add (CFClient::UI::Label::escape $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
… …
154 $hbox->add (new CFClient::UI::Button 159 $hbox->add (new CFClient::UI::Button
155 text => "No", 160 text => "No",
156 on_activate => sub { 161 on_activate => sub {
157 $conn->send ("reply n"); 162 $conn->send ("reply n");
158 $dialog->destroy; 163 $dialog->destroy;
164 0
159 } 165 }
160 ); 166 );
161 $hbox->add (new CFClient::UI::Button 167 $hbox->add (new CFClient::UI::Button
162 text => "Yes", 168 text => "Yes",
163 on_activate => sub { 169 on_activate => sub {
164 $conn->send ("reply y"); 170 $conn->send ("reply y");
165 destroy_query_dialog $conn; 171 destroy_query_dialog $conn;
172 0
166 }, 173 },
167 ); 174 );
168 175
169 $dialog->focus_in; 176 $dialog->grab_focus;
170 177
171 } elsif ($flags & CS_QUERY_SINGLECHAR) { 178 } elsif ($flags & CS_QUERY_SINGLECHAR) {
172 $dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)"; 179 $dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
173 180
174 if ($prompt =~ /Now choose a character|Press any key for the next race/i) { 181 if ($prompt =~ /Now choose a character|Press any key for the next race/i) {
… …
184 $table->add (0, 0, new CFClient::UI::Button 191 $table->add (0, 0, new CFClient::UI::Button
185 text => "Next Race", 192 text => "Next Race",
186 on_activate => sub { 193 on_activate => sub {
187 $conn->send ("reply n"); 194 $conn->send ("reply n");
188 destroy_query_dialog $conn; 195 destroy_query_dialog $conn;
196 0
189 }, 197 },
190 ); 198 );
191 $table->add (2, 0, new CFClient::UI::Button 199 $table->add (2, 0, new CFClient::UI::Button
192 text => "Accept", 200 text => "Accept",
193 on_activate => sub { 201 on_activate => sub {
194 $conn->send ("reply d"); 202 $conn->send ("reply d");
195 destroy_query_dialog $conn; 203 destroy_query_dialog $conn;
204 0
196 }, 205 },
197 ); 206 );
198 207
199 unshift @dialog, new CFClient::UI::Label 208 unshift @dialog, new CFClient::UI::Label
200 max_w => $::WIDTH * 0.4, 209 max_w => $::WIDTH * 0.4,
… …
230 $table->add (0, 0, new CFClient::UI::Button 239 $table->add (0, 0, new CFClient::UI::Button
231 text => "Roll Again", 240 text => "Roll Again",
232 on_activate => sub { 241 on_activate => sub {
233 $conn->send ("reply y"); 242 $conn->send ("reply y");
234 destroy_query_dialog $conn; 243 destroy_query_dialog $conn;
244 0
235 }, 245 },
236 ); 246 );
237 247
238 # center: swap stats 248 # center: swap stats
239 my ($sw1, $sw2) = map +(new CFClient::UI::Combobox 249 my ($sw1, $sw2) = map +(new CFClient::UI::Combobox
240 value => $_, 250 value => $_,
241 options => [ 251 options => [
242 [Str => 1, "Strength ($conn->{stat}{+CS_STAT_STR})"], 252 [1 => "Str", "Strength ($conn->{stat}{+CS_STAT_STR})"],
243 [Dex => 2, "Dexterity ($conn->{stat}{+CS_STAT_DEX})"], 253 [2 => "Dex", "Dexterity ($conn->{stat}{+CS_STAT_DEX})"],
244 [Con => 3, "Constitution ($conn->{stat}{+CS_STAT_CON})"], 254 [3 => "Con", "Constitution ($conn->{stat}{+CS_STAT_CON})"],
245 [Int => 4, "Intelligence ($conn->{stat}{+CS_STAT_INT})"], 255 [4 => "Int", "Intelligence ($conn->{stat}{+CS_STAT_INT})"],
246 [Wis => 5, "Wisdom ($conn->{stat}{+CS_STAT_WIS})"], 256 [5 => "Wis", "Wisdom ($conn->{stat}{+CS_STAT_WIS})"],
247 [Pow => 6, "Power ($conn->{stat}{+CS_STAT_POW})"], 257 [6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],
248 [Cha => 7, "Charisma ($conn->{stat}{+CS_STAT_CHA})"], 258 [7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],
249 ], 259 ],
250 ), 1 .. 2; 260 ), 1 .. 2;
251 261
252 $table->add (2, 0, new CFClient::UI::Button 262 $table->add (2, 0, new CFClient::UI::Button
253 text => "Swap Stats", 263 text => "Swap Stats",
254 on_activate => sub { 264 on_activate => sub {
255 $conn->{stat_change_with} = $sw2->{value}; 265 $conn->{stat_change_with} = $sw2->{value};
256 $conn->send ("reply $sw1->{value}"); 266 $conn->send ("reply $sw1->{value}");
257 destroy_query_dialog $conn; 267 destroy_query_dialog $conn;
268 0
258 }, 269 },
259 ); 270 );
260 $table->add (2, 1, new CFClient::UI::HBox children => [$sw1, $sw2]); 271 $table->add (2, 1, new CFClient::UI::HBox children => [$sw1, $sw2]);
261 272
262 # right: accept 273 # right: accept
… …
264 text => "Accept", 275 text => "Accept",
265 on_activate => sub { 276 on_activate => sub {
266 $conn->send ("reply n"); 277 $conn->send ("reply n");
267 $STATS_WINDOW->hide; 278 $STATS_WINDOW->hide;
268 destroy_query_dialog $conn; 279 destroy_query_dialog $conn;
280 0
269 }, 281 },
270 ); 282 );
271 283
272 unshift @dialog, new CFClient::UI::Label 284 unshift @dialog, new CFClient::UI::Label
273 max_w => $::WIDTH * 0.4, 285 max_w => $::WIDTH * 0.4,
… …
283 295
284 push @dialog, my $entry = new CFClient::UI::Entry 296 push @dialog, my $entry = new CFClient::UI::Entry
285 on_changed => sub { 297 on_changed => sub {
286 $conn->send ("reply $_[1]"); 298 $conn->send ("reply $_[1]");
287 destroy_query_dialog $conn; 299 destroy_query_dialog $conn;
300 0
288 }, 301 },
289 ; 302 ;
290 303
291 $entry->focus_in; 304 $entry->grab_focus;
292 305
293 } else { 306 } else {
294 $dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)"; 307 $dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
295 308
296 push @dialog, my $entry = new CFClient::UI::Entry 309 push @dialog, my $entry = new CFClient::UI::Entry
297 $flags & CS_QUERY_HIDEINPUT ? (hidden => "*") : (), 310 $flags & CS_QUERY_HIDEINPUT ? (hidden => "*") : (),
298 on_activate => sub { 311 on_activate => sub {
299 $conn->send ("reply $_[1]"); 312 $conn->send ("reply $_[1]");
300 destroy_query_dialog $conn; 313 destroy_query_dialog $conn;
314 0
301 }, 315 },
302 ; 316 ;
303 317
304 $entry->focus_in; 318 $entry->grab_focus;
305 } 319 }
306 320
307 $vbox->add (@dialog); 321 $vbox->add (@dialog);
308 $dialog->show; 322 $dialog->show;
309} 323}
… …
314 $LOGIN_BUTTON->set_text ("Logout"); 328 $LOGIN_BUTTON->set_text ("Logout");
315 $SETUP_DIALOG->hide; 329 $SETUP_DIALOG->hide;
316 330
317 my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32; 331 my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
318 332
319 my ($host, $port) = split /:/, $CFG->{host}; 333 my ($host, $port) = split /:/, $CFG->{profile}{default}{host};
320 334
321 $MAP = new CFClient::Map $mapsize, $mapsize; 335 $MAP = new CFClient::Map $mapsize, $mapsize;
322 336
323 $CONN = eval { 337 $CONN = eval {
324 new CFClient::Protocol 338 new CFClient::Protocol
325 host => $host, 339 host => $host,
326 port => $port || 13327, 340 port => $port || 13327,
327 user => $CFG->{user}, 341 user => $CFG->{profile}{default}{user},
328 pass => $CFG->{password}, 342 pass => $CFG->{profile}{default}{password},
329 mapw => $mapsize, 343 mapw => $mapsize,
330 maph => $mapsize, 344 maph => $mapsize,
331 345
332 map_widget => $MAPWIDGET, 346 map_widget => $MAPWIDGET,
333 logview => $LOGVIEW, 347 logview => $LOGVIEW,
… …
361 375
362sub stop_game { 376sub stop_game {
363 $LOGIN_BUTTON->set_text ("Login"); 377 $LOGIN_BUTTON->set_text ("Login");
364 $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER); 378 $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
365 $SETUP_DIALOG->show; 379 $SETUP_DIALOG->show;
366 $INV_WINDOW->hide; 380 $PL_WINDOW->hide;
381 $SETUP_SPELLS->clear_spells;
367 382
368 return unless $CONN; 383 return unless $CONN;
369 384
370 status "connection closed"; 385 status "connection closed";
371 386
372 destroy_query_dialog $CONN; 387 destroy_query_dialog $CONN;
373 $CONN->destroy; 388 $CONN->destroy;
374 $CONN = 0; # false, does not autovivify 389 $CONN = 0; # false, does not autovivify
390
391 undef $MAP;
375} 392}
376 393
377sub graphics_setup { 394sub graphics_setup {
378 my $vbox = new CFClient::UI::VBox; 395 my $vbox = new CFClient::UI::VBox;
379 396
… …
397 414
398 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen"); 415 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen");
399 $table->add (1, $row++, new CFClient::UI::CheckBox 416 $table->add (1, $row++, new CFClient::UI::CheckBox
400 state => $CFG->{fullscreen}, 417 state => $CFG->{fullscreen},
401 tooltip => "Bring the client into fullscreen mode.", 418 tooltip => "Bring the client into fullscreen mode.",
402 on_changed => sub { 419 on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
403 my ($self, $value) = @_;
404 $CFG->{fullscreen} = $value;
405 }
406 ); 420 );
407 421
408 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly"); 422 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
409 $table->add (1, $row++, new CFClient::UI::CheckBox 423 $table->add (1, $row++, new CFClient::UI::CheckBox
410 state => $CFG->{fast}, 424 state => $CFG->{fast},
411 tooltip => "Lower the visual quality considerably to speed up rendering.", 425 tooltip => "Lower the visual quality considerably to speed up rendering.",
412 on_changed => sub { 426 on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }
413 my ($self, $value) = @_;
414 $CFG->{fast} = $value;
415 }
416 ); 427 );
417 428
418 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale"); 429 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");
419 $table->add (1, $row++, new CFClient::UI::Slider 430 $table->add (1, $row++, new CFClient::UI::Slider
420 range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1], 431 range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
421 tooltip => "Enlarge or shrink the displayed map. Changes are instant.", 432 tooltip => "Enlarge or shrink the displayed map. Changes are instant.",
422 on_changed => sub { 433 on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }
423 my ($self, $value) = @_;
424 $CFG->{map_scale} = 2 ** $value;
425 }
426 ); 434 );
427 435
428 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War"); 436 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");
429 $table->add (1, $row++, new CFClient::UI::CheckBox 437 $table->add (1, $row++, new CFClient::UI::CheckBox
430 state => $CFG->{fow_enable}, 438 state => $CFG->{fow_enable},
431 tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.", 439 tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",
432 on_changed => sub { 440 on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }
433 my ($self, $value) = @_;
434 $CFG->{fow_enable} = $value;
435 }
436 ); 441 );
437 442
438 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity"); 443 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");
439 $table->add (1, $row++, new CFClient::UI::Slider 444 $table->add (1, $row++, new CFClient::UI::Slider
440 range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256], 445 range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],
441 tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.", 446 tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",
442 on_changed => sub { 447 on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }
443 my ($self, $value) = @_;
444 $CFG->{fow_intensity} = $value;
445 }
446 ); 448 );
447 449
448 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth"); 450 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth");
449 $table->add (1, $row++, new CFClient::UI::CheckBox 451 $table->add (1, $row++, new CFClient::UI::CheckBox
450 state => $CFG->{fow_smooth}, 452 state => $CFG->{fow_smooth},
451 tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.", 453 tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.",
452 on_changed => sub { 454 on_changed => sub {
453 my ($self, $value) = @_; 455 my ($self, $value) = @_;
454 $CFG->{fow_smooth} = $value; 456 $CFG->{fow_smooth} = $value;
455 status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::OpenGL::GL_VERSION < 1.2; 457 status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::OpenGL::GL_VERSION < 1.2;
458 0
456 } 459 }
457 ); 460 );
458 461
459 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize"); 462 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
460 $table->add (1, $row++, new CFClient::UI::Slider 463 $table->add (1, $row++, new CFClient::UI::Slider
461 range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1], 464 range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
462 tooltip => "The base font size used by most GUI elements that do not have their own setting.", 465 tooltip => "The base font size used by most GUI elements that do not have their own setting.",
463 on_changed => sub { $CFG->{gui_fontsize} = $_[1] }, 466 on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
464 ); 467 );
465 468
466 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Message Fontsize"); 469 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Message Fontsize");
467 $table->add (1, $row++, new CFClient::UI::Slider 470 $table->add (1, $row++, new CFClient::UI::Slider
468 range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1], 471 range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
469 tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.", 472 tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",
470 on_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]) }, 473 on_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
471 ); 474 );
472 475
473 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize"); 476 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");
474 477
475 $table->add (1, $row++, new CFClient::UI::Slider 478 $table->add (1, $row++, new CFClient::UI::Slider
476 range => [$CFG->{stat_fontsize}, 0.5, 2, 0, 0.1], 479 range => [$CFG->{stat_fontsize}, 0.5, 2, 0, 0.1],
477 tooltip => "The font size used by the <b>statistics window</b> only. Changes are instant.", 480 tooltip => "The font size used by the <b>statistics window</b> only. Changes are instant.",
478 on_changed => sub { 481 on_changed => sub {
479 $CFG->{stat_fontsize} = $_[1]; 482 $CFG->{stat_fontsize} = $_[1];
480 &set_stats_window_fontsize; 483 &set_stats_window_fontsize;
484 0
481 } 485 }
482 ); 486 );
483 487
484 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize"); 488 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
485 $table->add (1, $row++, new CFClient::UI::Slider 489 $table->add (1, $row++, new CFClient::UI::Slider
486 range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1], 490 range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],
487 tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.", 491 tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",
488 on_changed => sub { 492 on_changed => sub {
489 $CFG->{gauge_fontsize} = $_[1]; 493 $CFG->{gauge_fontsize} = $_[1];
490 &set_gauge_window_fontsize; 494 &set_gauge_window_fontsize;
495 0
491 } 496 }
492 ); 497 );
493 498
494 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size"); 499 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");
495 $table->add (1, $row++, new CFClient::UI::Slider 500 $table->add (1, $row++, new CFClient::UI::Slider
496 range => [$CFG->{gauge_size}, 0.2, 0.8], 501 range => [$CFG->{gauge_size}, 0.2, 0.8],
497 tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.", 502 tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",
498 on_changed => sub { 503 on_changed => sub {
499 $CFG->{gauge_size} = $_[1]; 504 $CFG->{gauge_size} = $_[1];
500 $GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size}); 505 $GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
506 0
501 } 507 }
502 ); 508 );
503 509
504 $table->add (1, $row++, new CFClient::UI::Button 510 $table->add (1, $row++, new CFClient::UI::Button
505 expand => 1, align => 0, text => "Apply", 511 expand => 1, align => 0, text => "Apply",
506 tooltip => "Apply the video settings", 512 tooltip => "Apply the video settings",
507 on_activate => sub { 513 on_activate => sub {
508 video_shutdown (); 514 video_shutdown ();
509 video_init (); 515 video_init ();
516 0
510 } 517 }
511 ); 518 );
512 519
513 $vbox 520 $vbox
514} 521}
… …
522 529
523 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable"); 530 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");
524 $table->add (1, $row++, new CFClient::UI::CheckBox 531 $table->add (1, $row++, new CFClient::UI::CheckBox
525 state => $CFG->{audio_enable}, 532 state => $CFG->{audio_enable},
526 tooltip => "<b>Master Audio Enable.</b> If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.", 533 tooltip => "<b>Master Audio Enable.</b> If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.",
527 on_changed => sub { 534 on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }
528 $CFG->{audio_enable} = $_[1];
529 }
530 ); 535 );
531# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume"); 536# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume");
532# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub { 537# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {
533# $CFG->{effects_volume} = $_[1]; 538# $CFG->{effects_volume} = $_[1];
534# }); 539# });
535 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music"); 540 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music");
536 $table->add (1, $row++, my $hbox = new CFClient::UI::HBox); 541 $table->add (1, $row++, my $hbox = new CFClient::UI::HBox);
537 $hbox->add (new CFClient::UI::CheckBox 542 $hbox->add (new CFClient::UI::CheckBox
538 expand => 1, state => $CFG->{bgm_enable}, 543 expand => 1, state => $CFG->{bgm_enable},
539 tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.", 544 tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",
540 on_changed => sub { 545 on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }
541 $CFG->{bgm_enable} = $_[1];
542 }
543 ); 546 );
544 $hbox->add (new CFClient::UI::Slider 547 $hbox->add (new CFClient::UI::Slider
545 expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128], 548 expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
546 tooltip => "The volume of the background music. Changes are instant.", 549 tooltip => "The volume of the background music. Changes are instant.",
547 on_changed => sub { 550 on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFClient::MixMusic::volume $_[1] * 128; 0 }
548 $CFG->{bgm_volume} = $_[1];
549 CFClient::MixMusic::volume $_[1] * 128;
550 }
551 ); 551 );
552 552
553 $table->add (1, $row++, new CFClient::UI::Button 553 $table->add (1, $row++, new CFClient::UI::Button
554 expand => 1, align => 0, text => "Apply", 554 expand => 1, align => 0, text => "Apply",
555 tooltip => "Apply the audio settings", 555 tooltip => "Apply the audio settings",
556 on_activate => sub { 556 on_activate => sub {
557 audio_shutdown (); 557 audio_shutdown ();
558 audio_init (); 558 audio_init ();
559 0
559 } 560 }
560 ); 561 );
561 562
562 $vbox 563 $vbox
563} 564}
… …
625 &set_gauge_window_fontsize; 626 &set_gauge_window_fontsize;
626 627
627 $win 628 $win
628} 629}
629 630
631sub debug_setup {
632 my $table = new CFClient::UI::Table;
633
634 $table->add (0, 0, new CFClient::UI::Label text => "Widget Borders");
635 $table->add (1, 0, new CFClient::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1; 0 });
636 $table->add (0, 1, new CFClient::UI::Label text => "Tooltip Widget Info");
637 $table->add (1, 1, new CFClient::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });
638 $table->add (0, 2, new CFClient::UI::Label text => "Show FPS");
639 $table->add (1, 2, new CFClient::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });
640 $table->add (0, 3, new CFClient::UI::Label text => "Suppress Tooltips");
641 $table->add (1, 3, new CFClient::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });
642
643 my @default_smooth = (0.05, 0.13, 0.05, 0.13, 0.30, 0.13, 0.05, 0.13, 0.05);
644
645 for my $x (0..2) {
646 for my $y (0 .. 2) {
647 $table->add ($x + 3, $y,
648 new CFClient::UI::Entry
649 text => $default_smooth[$x * 3 + $y],
650 on_changed => sub { $MAP->{smooth_matrix}[$x * 3 + $y] = $_[1] if $MAP; 0 },
651 );
652 }
653 }
654
655
656 $table
657}
630 658
631sub stats_window { 659sub stats_window {
632 my $tgw = new CFClient::UI::FancyFrame 660 my $tgw =
633 y => $HEIGHT * (2/8), 661 new CFClient::UI::Window
634 x => "max", 662 child => my $vb = new CFClient::UI::VBox;
635 title => "Stats",
636 name => "stats_window";
637 663
638 $tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);
639 $vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1, 664 $vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1,
640 can_hover => 1, can_events => 1, 665 can_hover => 1, can_events => 1,
641 tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server."); 666 tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server.");
642 $vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1, 667 $vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1,
643 can_hover => 1, can_events => 1, 668 can_hover => 1, can_events => 1,
… …
667 [0, 6, st_cha => "Cha", 30, "<b>Charisma</b>, how well you are received by NPCs. Affects buying and selling prices in shops."], 692 [0, 6, st_cha => "Cha", 30, "<b>Charisma</b>, how well you are received by NPCs. Affects buying and selling prices in shops."],
668 693
669 [2, 0, st_wc => "Wc", -120, "<b>Weapon Class</b>, 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."], 694 [2, 0, st_wc => "Wc", -120, "<b>Weapon Class</b>, 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."],
670 [2, 1, st_ac => "Ac", -120, "<b>Armour Class</b>, 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."], 695 [2, 1, st_ac => "Ac", -120, "<b>Armour Class</b>, 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."],
671 [2, 2, st_dam => "Dam", 120, "<b>Damage</b>, how much damage your melee/missile attack inflicts. Higher values indicate a greater amount of damage will be inflicted with each attack."], 696 [2, 2, st_dam => "Dam", 120, "<b>Damage</b>, how much damage your melee/missile attack inflicts. Higher values indicate a greater amount of damage will be inflicted with each attack."],
672 [2, 3, st_arm => "Arm", 120, "<b>Armour</b>, 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."], 697 [2, 3, st_arm => "Arm", 120, "<b>Armour</b>, 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. This is the same as the physical resistance."],
673 [2, 4, st_spd => "Spd", 10.54, "<b>Speed</b>, 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."], 698 [2, 4, st_spd => "Spd", 10.54, "<b>Speed</b>, 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."],
674 [2, 5, st_wspd => "WSp", 10.54, "<b>Weapon Speed</b>, 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."], 699 [2, 5, st_wspd => "WSp", 10.54, "<b>Weapon Speed</b>, 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."],
675 ) { 700 ) {
676 my ($col, $row, $id, $label, $template, $tooltip) = @$_; 701 my ($col, $row, $id, $label, $template, $tooltip) = @$_;
677 702
… …
696 drain => "<b>Draining</b> (some monsters (e.g. vampires) and other effects can steal experience)", 721 drain => "<b>Draining</b> (some monsters (e.g. vampires) and other effects can steal experience)",
697 acid => "<b>Acid</b> (resistance to acid, acid hurts pretty much and also corrodes your weapons)", 722 acid => "<b>Acid</b> (resistance to acid, acid hurts pretty much and also corrodes your weapons)",
698 pois => "<b>Poison</b> (resistance to getting poisoned)", 723 pois => "<b>Poison</b> (resistance to getting poisoned)",
699 para => "<b>Paralysation</b> (this resistance affects the chance you get paralysed)", 724 para => "<b>Paralysation</b> (this resistance affects the chance you get paralysed)",
700 deat => "<b>Death</b> (resistance against death spells)", 725 deat => "<b>Death</b> (resistance against death spells)",
701 phys => "<b>Physical</b> (this is the resistance against physical attacks, like when a monster hit you in melee combat)", 726 phys => "<b>Physical</b> (this is the resistance against physical attacks, like when a monster hit you in melee combat. The value displayed here is also displayed in the 'Arm' field on the left.)",
702 blind => "<b>Blind</b> (blind resistance affects the chance of a successful blinding attack)", 727 blind => "<b>Blind</b> (blind resistance affects the chance of a successful blinding attack)",
703 fear => "<b>Fear</b> (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)", 728 fear => "<b>Fear</b> (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)",
704 tund => "<b>Turn undead</b> (affects your resistancy to various forms of 'turn undead' spells. Only relevant when you are, in fact, undead...", 729 tund => "<b>Turn undead</b> (affects your resistancy to various forms of 'turn undead' spells. Only relevant when you are, in fact, undead...",
705 elec => "<b>Electricity</b> (resistance against electricity, spells like large lightning, small lightning, ...)", 730 elec => "<b>Electricity</b> (resistance against electricity, spells like large lightning, small lightning, ...)",
706 cold => "<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)", 731 cold => "<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)",
… …
723 ); 748 );
724 $tbl2->add ($col + 1, $row, new CFClient::UI::Image 749 $tbl2->add ($col + 1, $row, new CFClient::UI::Image
725 font => $FONT_FIXED, 750 font => $FONT_FIXED,
726 can_hover => 1, 751 can_hover => 1,
727 can_events => 1, 752 can_events => 1,
728 image => "ui/resist/resist_$_.png", 753 path => "ui/resist/resist_$_.png",
729 tooltip => $resist_names{$_}, 754 tooltip => $resist_names{$_},
730 ); 755 );
731 756
732 $row++; 757 $row++;
733 if ($row % 6 == 0) { 758 if ($row % 6 == 0) {
… …
781 $STATWIDS->{st_pow} ->set_text (sprintf "%d" , $stats->{+CS_STAT_POW}); 806 $STATWIDS->{st_pow} ->set_text (sprintf "%d" , $stats->{+CS_STAT_POW});
782 $STATWIDS->{st_cha} ->set_text (sprintf "%d" , $stats->{+CS_STAT_CHA}); 807 $STATWIDS->{st_cha} ->set_text (sprintf "%d" , $stats->{+CS_STAT_CHA});
783 $STATWIDS->{st_wc} ->set_text (sprintf "%d" , $stats->{+CS_STAT_WC}); 808 $STATWIDS->{st_wc} ->set_text (sprintf "%d" , $stats->{+CS_STAT_WC});
784 $STATWIDS->{st_ac} ->set_text (sprintf "%d" , $stats->{+CS_STAT_AC}); 809 $STATWIDS->{st_ac} ->set_text (sprintf "%d" , $stats->{+CS_STAT_AC});
785 $STATWIDS->{st_dam} ->set_text (sprintf "%d" , $stats->{+CS_STAT_DAM}); 810 $STATWIDS->{st_dam} ->set_text (sprintf "%d" , $stats->{+CS_STAT_DAM});
786 $STATWIDS->{st_arm} ->set_text (sprintf "%d" , $stats->{+CS_STAT_ARMOUR}); 811 $STATWIDS->{st_arm} ->set_text (sprintf "%d" , $stats->{+CS_STAT_RES_PHYS});
787 $STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{+CS_STAT_SPEED}); 812 $STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{+CS_STAT_SPEED});
788 $STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{+CS_STAT_WEAP_SP}); 813 $STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{+CS_STAT_WEAP_SP});
789 814
790 $STATWIDS->{m_weight}->set_text (sprintf "Max weight: %.1fkg", $stats->{+CS_STAT_WEIGHT_LIM} / 1000); 815 $STATWIDS->{m_weight}->set_text (sprintf "Max weight: %.1fkg", $stats->{+CS_STAT_WEIGHT_LIM} / 1000);
791 816
792 # TODO: replace by CS_STAT_RES_xxx constants
793 my %tbl = ( 817 my %tbl = (
794 phys => 100, 818 phys => CS_STAT_RES_PHYS,
795 magic => 101, 819 magic => CS_STAT_RES_MAG,
796 fire => 102, 820 fire => CS_STAT_RES_FIRE,
797 elec => 103, 821 elec => CS_STAT_RES_ELEC,
798 cold => 104, 822 cold => CS_STAT_RES_COLD,
799 conf => 105, 823 conf => CS_STAT_RES_CONF,
800 acid => 106, 824 acid => CS_STAT_RES_ACID,
801 drain => 107, 825 drain => CS_STAT_RES_DRAIN,
802 ghit => 108, 826 ghit => CS_STAT_RES_GHOSTHIT,
803 pois => 109, 827 pois => CS_STAT_RES_POISON,
804 slow => 110, 828 slow => CS_STAT_RES_SLOW,
805 para => 111, 829 para => CS_STAT_RES_PARA,
806 tund => 112, 830 tund => CS_STAT_TURN_UNDEAD,
807 fear => 113, 831 fear => CS_STAT_RES_FEAR,
808 depl => 113, 832 depl => CS_STAT_RES_DEPLETE,
809 deat => 115, 833 deat => CS_STAT_RES_DEATH,
810 holyw => 116, 834 holyw => CS_STAT_RES_HOLYWORD,
811 blind => 117, 835 blind => CS_STAT_RES_BLIND,
812 ); 836 );
813 837
814 $STATWIDS->{"res_$_"}->set_text (sprintf "%d%", $stats->{$tbl{$_}}) 838 $STATWIDS->{"res_$_"}->set_text (sprintf "%d%", $stats->{$tbl{$_}})
815 for keys %tbl; 839 for keys %tbl;
816} 840}
817 841
818my $METASERVER_ATIME; 842my $METASERVER_ATIME;
819 843
820sub update_metaserver { 844sub update_metaserver {
845 my ($metaserver_dialog) = @_;
846
847 $METASERVER = $metaserver_dialog
848 if defined $metaserver_dialog;
849
821 return if $METASERVER_ATIME > time; 850 return if $METASERVER_ATIME > time;
822 $METASERVER_ATIME = time + 60; 851 $METASERVER_ATIME = time + 60;
823 852
824 my $table = $METASERVER->{table}; 853 my $table = $METASERVER->{table};
825 $table->clear; 854 $table->clear;
… …
890 $table->add (scalar @$m, $y, new CFClient::UI::VBox children => [ 919 $table->add (scalar @$m, $y, new CFClient::UI::VBox children => [
891 (new CFClient::UI::Button 920 (new CFClient::UI::Button
892 text => "Use", 921 text => "Use",
893 tooltip => "Put this server into the <b>Host:Port</b> field", 922 tooltip => "Put this server into the <b>Host:Port</b> field",
894 on_activate => sub { 923 on_activate => sub {
895 $HOST_ENTRY->set_text ($CFG->{host} = $host); 924 $HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);
896 $METASERVER->hide; 925 $METASERVER->hide;
926 0
897 }, 927 },
898 ), 928 ),
899 (new CFClient::UI::Empty expand => 1), 929 (new CFClient::UI::Empty expand => 1),
900 ]); 930 ]);
901 931
… …
912 } 942 }
913 }); 943 });
914} 944}
915 945
916sub metaserver_dialog { 946sub metaserver_dialog {
947 my $vbox = new CFClient::UI::VBox;
948 my $table = new CFClient::UI::Table;
949 $vbox->add (new CFClient::UI::ScrolledWindow expand => 1, child => $table);
950
917 my $dialog = new CFClient::UI::FancyFrame 951 my $dialog = new CFClient::UI::FancyFrame
918 title => "Server List", 952 title => "Server List",
919 name => 'metaserver_dialog', 953 name => 'metaserver_dialog',
920 x => 'center', 954 x => 'center',
921 y => 'center', 955 y => 'center',
922 z => 3, 956 z => 3,
923 force_h => $::HEIGHT * 0.4, 957 force_h => $::HEIGHT * 0.4,
924 child => (my $vbox = new CFClient::UI::VBox), 958 child => $vbox,
959 has_close_button => 1,
960 table => $table,
925 on_visibility_change => sub { 961 on_visibility_change => sub {
926 update_metaserver if $_[1]; 962 update_metaserver ($_[0]) if $_[1];
963 0
927 }, 964 },
928 ; 965 ;
929
930 $dialog->{table} = new CFClient::UI::Table;
931
932 $vbox->add (new CFClient::UI::ScrolledWindow expand => 1, child => $dialog->{table});
933 966
934 $dialog 967 $dialog
935} 968}
936 969
937sub server_setup { 970sub server_setup {
… …
944 $table->add (1, 2, my $vbox = new CFClient::UI::VBox); 977 $table->add (1, 2, my $vbox = new CFClient::UI::VBox);
945 978
946 $vbox->add ( 979 $vbox->add (
947 $HOST_ENTRY = new CFClient::UI::Entry 980 $HOST_ENTRY = new CFClient::UI::Entry
948 expand => 1, 981 expand => 1,
949 text => $CFG->{host}, 982 text => $CFG->{profile}{default}{host},
950 tooltip => "The hostname or ip address of the Crossfire(+) server to connect to", 983 tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",
951 on_changed => sub { 984 on_changed => sub {
952 my ($self, $value) = @_; 985 my ($self, $value) = @_;
953 $CFG->{host} = $value; 986 $CFG->{profile}{default}{host} = $value;
987 0
954 } 988 }
955 ); 989 );
956
957 $METASERVER = metaserver_dialog;
958 990
959 $vbox->add (new CFClient::UI::Button 991 $vbox->add (new CFClient::UI::Button
960 expand => 1, 992 expand => 1,
961 text => "Server List", 993 text => "Server List",
962 other => $METASERVER, 994 other => $METASERVER,
963 tooltip => "Show a list of available crossfire servers", 995 tooltip => "Show a list of available crossfire servers",
964 on_activate => sub { $METASERVER->toggle_visibility }, 996 on_activate => sub { $METASERVER->toggle_visibility; 0 },
965 on_visibility_change => sub { $METASERVER->hide unless $_[1] }, 997 on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },
966 ); 998 );
967 } 999 }
968 1000
969 $table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username"); 1001 $table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");
970 $table->add (1, 4, new CFClient::UI::Entry 1002 $table->add (1, 4, new CFClient::UI::Entry
971 text => $CFG->{user}, 1003 text => $CFG->{profile}{default}{user},
972 tooltip => "The name of your character on the server", 1004 tooltip => "The name of your character on the server",
973 on_changed => sub { 1005 on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }
974 my ($self, $value) = @_;
975 $CFG->{user} = $value;
976 }
977 ); 1006 );
978 1007
979 $table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password"); 1008 $table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password");
980 $table->add (1, 5, new CFClient::UI::Entry 1009 $table->add (1, 5, new CFClient::UI::Entry
981 text => $CFG->{password}, 1010 text => $CFG->{profile}{default}{password},
982 hidden => 1, 1011 hidden => 1,
983 tooltip => "The password for your character", 1012 tooltip => "The password for your character",
984 on_changed => sub { 1013 on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }
985 my ($self, $value) = @_;
986 $CFG->{password} = $value;
987 }
988 ); 1014 );
989 1015
990 $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size"); 1016 $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");
991 $table->add (1, 7, new CFClient::UI::Slider 1017 $table->add (1, 7, new CFClient::UI::Slider
992 force_w => 100, 1018 force_w => 100,
993 range => [$CFG->{mapsize}, 10, 100, 0, 1], 1019 range => [$CFG->{mapsize}, 10, 100, 0, 1],
994 tooltip => "This is the size of the portion of the map update the server sends you. " 1020 tooltip => "This is the size of the portion of the map update the server sends you. "
995 . "If you set this to a high value you will be able to see further, " 1021 . "If you set this to a high value you will be able to see further, "
996 . "but you also increase bandwidth requirements and latency. " 1022 . "but you also increase bandwidth requirements and latency. "
997 . "This option is only used once at log-in.", 1023 . "This option is only used once at log-in.",
998 on_changed => sub { 1024 on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 0 },
999 my ($self, $value) = @_;
1000
1001 $CFG->{mapsize} = $self->{range}[0] = $value = int $value;
1002 },
1003 ); 1025 );
1004 1026
1005 $table->add (0, 8, new CFClient::UI::Label valign => 0, align => 1, text => "Face Prefetch"); 1027 $table->add (0, 8, new CFClient::UI::Label valign => 0, align => 1, text => "Face Prefetch");
1006 $table->add (1, 8, new CFClient::UI::CheckBox 1028 $table->add (1, 8, new CFClient::UI::CheckBox
1007 state => $CFG->{face_prefetch}, 1029 state => $CFG->{face_prefetch},
… …
1010 . "This might increase or create lag, but increases the chances " 1032 . "This might increase or create lag, but increases the chances "
1011 . "of faces being ready for display when you encounter them. " 1033 . "of faces being ready for display when you encounter them. "
1012 . "It also uses up server bandwidth on every connect, " 1034 . "It also uses up server bandwidth on every connect, "
1013 . "so only set it if you really need to prefetch images. " 1035 . "so only set it if you really need to prefetch images. "
1014 . "This option can be set and unset any time.", 1036 . "This option can be set and unset any time.",
1015 on_changed => sub { $CFG->{face_prefetch} = $_[1] }, 1037 on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },
1016 ); 1038 );
1017 1039
1018 $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Count"); 1040 $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Count");
1019 $table->add (1, 9, new CFClient::UI::Entry 1041 $table->add (1, 9, new CFClient::UI::Entry
1020 text => $CFG->{output_count}, 1042 text => $CFG->{output_count},
1021 tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.", 1043 tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1022 on_changed => sub { $CFG->{output_count} = $_[1] }, 1044 on_changed => sub { $CFG->{output_count} = $_[1]; 0 },
1023 ); 1045 );
1024 1046
1025 $table->add (0, 10, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Sync"); 1047 $table->add (0, 10, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Sync");
1026 $table->add (1, 10, new CFClient::UI::Entry 1048 $table->add (1, 10, new CFClient::UI::Entry
1027 text => $CFG->{output_sync}, 1049 text => $CFG->{output_sync},
1028 tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.", 1050 tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1029 on_changed => sub { $CFG->{output_sync} = $_[1] }, 1051 on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },
1030 ); 1052 );
1031 1053
1032 $table->add (1, 11, $LOGIN_BUTTON = new CFClient::UI::Button 1054 $table->add (1, 11, $LOGIN_BUTTON = new CFClient::UI::Button
1033 expand => 1, 1055 expand => 1,
1034 align => 0, 1056 align => 0,
1035 text => "Login", 1057 text => "Login",
1036 on_activate => sub { 1058 on_activate => sub {
1037 $CONN ? stop_game 1059 $CONN ? stop_game
1038 : start_game; 1060 : start_game;
1061 0
1039 }, 1062 },
1040 ); 1063 );
1041 1064
1042 $table->add (0, 12, new CFClient::UI::Label valign => 0, align => 1, text => "Chat Command"); 1065 $table->add (0, 12, new CFClient::UI::Label valign => 0, align => 1, text => "Chat Command");
1043 $table->add (1, 12, my $saycmd = new CFClient::UI::Entry 1066 $table->add (1, 12, my $saycmd = new CFClient::UI::Entry
… …
1046 . "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. " 1069 . "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
1047 . "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.", 1070 . "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
1048 on_changed => sub { 1071 on_changed => sub {
1049 my ($self, $value) = @_; 1072 my ($self, $value) = @_;
1050 $CFG->{say_command} = $value; 1073 $CFG->{say_command} = $value;
1074 0
1051 } 1075 }
1052 ); 1076 );
1077
1078 $vbox->add (new CFClient::UI::Label
1079 text => "Server Info",
1080 fontsize => 1.2,
1081 padding_y => 8,
1082 fg => [1, 1, 0, 1],
1083 );
1084
1085 $vbox->add ($SERVER_INFO = new CFClient::UI::Label ellipsise => 0);
1053 1086
1054 $vbox 1087 $vbox
1055} 1088}
1056 1089
1057sub message_window { 1090sub message_window {
… …
1062 bg => [0, 0, 0, 0.75], 1095 bg => [0, 0, 0, 0.75],
1063 x => "max", 1096 x => "max",
1064 y => 0, 1097 y => 0,
1065 force_w => $::WIDTH * 0.4, 1098 force_w => $::WIDTH * 0.4,
1066 force_h => $::HEIGHT * 0.5, 1099 force_h => $::HEIGHT * 0.5,
1067 child => (my $vbox = new CFClient::UI::VBox); 1100 child => (my $vbox = new CFClient::UI::VBox),
1101 has_close_button => 1;
1068 1102
1069 $vbox->add ($LOGVIEW); 1103 $vbox->add ($LOGVIEW);
1070 1104
1071 $vbox->add (my $input = new CFClient::UI::Entry 1105 $vbox->add (my $input = new CFClient::UI::Entry
1072 tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> " 1106 tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "
… …
1080 1114
1081 if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) { 1115 if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {
1082 $input->{refocus_map} = 1; 1116 $input->{refocus_map} = 1;
1083 } 1117 }
1084 delete $input->{auto_activated}; 1118 delete $input->{auto_activated};
1119
1120 0
1085 }, 1121 },
1086 on_activate => sub { 1122 on_activate => sub {
1087 my ($input, $text) = @_; 1123 my ($input, $text) = @_;
1088 $input->set_text (''); 1124 $input->set_text ('');
1089 1125
… …
1095 } 1131 }
1096 if ($input->{refocus_map}) { 1132 if ($input->{refocus_map}) {
1097 delete $input->{refocus_map}; 1133 delete $input->{refocus_map};
1098 $MAPWIDGET->focus_in 1134 $MAPWIDGET->focus_in
1099 } 1135 }
1136
1137 0
1100 }, 1138 },
1101 on_escape => sub { 1139 on_escape => sub {
1102 $MAPWIDGET->focus_in 1140 $MAPWIDGET->grab_focus;
1141
1142 0
1103 }, 1143 },
1104 ); 1144 );
1105 1145
1106 $CONSOLE = { 1146 $CONSOLE = {
1107 window => $window, 1147 window => $window,
… …
1129 ); 1169 );
1130 $vb->add (my $hb = new CFClient::UI::HBox expand => 1); 1170 $vb->add (my $hb = new CFClient::UI::HBox expand => 1);
1131 $hb->add (new CFClient::UI::Button 1171 $hb->add (new CFClient::UI::Button
1132 text => "Ok", 1172 text => "Ok",
1133 expand => 1, 1173 expand => 1,
1134 on_activate => sub { $QUIT_DIALOG->hide }, 1174 on_activate => sub { $QUIT_DIALOG->hide; 0 },
1135 ); 1175 );
1136 $hb->add (new CFClient::UI::Button 1176 $hb->add (new CFClient::UI::Button
1137 text => "Quit anyway", 1177 text => "Quit anyway",
1138 expand => 1, 1178 expand => 1,
1139 on_activate => sub { exit }, 1179 on_activate => sub { exit },
… …
1182 ["Potions" => PICKUP_POTION], 1222 ["Potions" => PICKUP_POTION],
1183 ["Magic Devices" => PICKUP_MAGIC_DEVICE], 1223 ["Magic Devices" => PICKUP_MAGIC_DEVICE],
1184 ["Ignore cursed" => PICKUP_NOT_CURSED], 1224 ["Ignore cursed" => PICKUP_NOT_CURSED],
1185 ["Jewelery" => PICKUP_JEWELS], 1225 ["Jewelery" => PICKUP_JEWELS],
1186 ], 1226 ],
1227 ["Weight/Value ratio", 2, 17]
1187 ) 1228 )
1188 { 1229 {
1189 my ($title, $x, $y, @bits) = @$_; 1230 my ($title, $x, $y, @bits) = @$_;
1190 $table->add ($x, $y, new CFClient::UI::Label text => $title, align => 1, fg => [1, 1, 0]); 1231 $table->add ($x, $y, new CFClient::UI::Label text => $title, align => 1, fg => [1, 1, 0]);
1191 1232
… …
1193 ++$y; 1234 ++$y;
1194 1235
1195 my $mask = $_->[1]; 1236 my $mask = $_->[1];
1196 $table->add ($x , $y, new CFClient::UI::Label text => $_->[0], align => 1, expand => 1); 1237 $table->add ($x , $y, new CFClient::UI::Label text => $_->[0], align => 1, expand => 1);
1197 $table->add ($x+1, $y, new CFClient::UI::CheckBox 1238 $table->add ($x+1, $y, new CFClient::UI::CheckBox
1198 state => $CFG->{pickup} & $mask, 1239 state => $::CFG->{pickup} & $mask,
1199 on_changed => sub { 1240 on_changed => sub {
1200 my ($box, $value) = @_; 1241 my ($box, $value) = @_;
1201 1242
1202 if ($value) { 1243 if ($value) {
1203 $::CFG->{pickup} |= $mask; 1244 $::CFG->{pickup} |= $mask;
… …
1205 $::CFG->{pickup} &= ~$mask; 1246 $::CFG->{pickup} &= ~$mask;
1206 } 1247 }
1207 1248
1208 $::CONN->send_command ("pickup $::CFG->{pickup}") 1249 $::CONN->send_command ("pickup $::CFG->{pickup}")
1209 if defined $::CONN; 1250 if defined $::CONN;
1251
1252 0
1210 }); 1253 });
1211 } 1254 }
1212 } 1255 }
1213 1256
1257 $table->add (2, 18, new CFClient::UI::ValSlider
1258 range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],
1259 template => ">= 99",
1260 to_value => sub { ">= " . 5 * $_[0] },
1261 on_changed => sub {
1262 my ($slider, $value) = @_;
1263
1264 $::CFG->{pickup} &= ~0xF;
1265 $::CFG->{pickup} |= int $value
1266 if $value;
1267 1;
1268 });
1269
1270 $table->add (3, 18, new CFClient::UI::Button
1271 text => "set",
1272 on_activate => sub {
1273 $::CONN->send_command ("pickup $::CFG->{pickup}")
1274 if defined $::CONN;
1275 0
1276 });
1277
1214 $table 1278 $table
1215} 1279}
1216 1280
1217sub inventory_window { 1281sub inventory_widget {
1282 my $hb = new CFClient::UI::HBox homogeneous => 1;
1283
1284 $hb->add (my $vb1 = new CFClient::UI::VBox);
1285 $vb1->add (new CFClient::UI::Label align => 0, text => "Player");
1286 $vb1->add ($INV = new CFClient::UI::Inventory);
1287
1288 $hb->add (my $vb2 = new CFClient::UI::VBox);
1289
1290 $vb2->add ($INV_RIGHT_HB = new CFClient::UI::HBox);
1291
1292 $vb2->add ($INVR = new CFClient::UI::Inventory);
1293
1294 # XXX: Call after $INVR = ... because set_opencont sets the items
1295 CFClient::Protocol::set_opencont ($::CONN, 0, "Floor");
1296
1297 $hb
1298}
1299
1300sub player_window {
1218 my $invwin = $INV_WINDOW = new CFClient::UI::FancyFrame 1301 my $plwin = $PL_WINDOW = new CFClient::UI::FancyFrame
1219 x => "center", 1302 x => "center",
1220 y => "center", 1303 y => "center",
1221 force_w => $WIDTH * 9/10, 1304 force_w => $WIDTH * 9/10,
1222 force_h => $HEIGHT * 9/10, 1305 force_h => $HEIGHT * 9/10,
1223 title => "Inventory", 1306 title => "Player",
1307 has_close_button => 1
1224 ; 1308 ;
1225 1309
1226 $invwin->add (my $hb = new CFClient::UI::HBox homogeneous => 1); 1310 my $ntb =
1311 $PL_NOTEBOOK =
1312 new CFClient::UI::Notebook
1313 expand => 1,
1314 debug => 1,
1315 filter => (new CFClient::UI::ScrolledWindow expand => 1, scroll_y => 1),
1316 ;
1317 $ntb->add (
1318 Inventory => inventory_widget,
1319 "Toggles the inventory window, where you can manage your loot (or treasures :). "
1320 . "You can also hit the <b>Tab</b>-key to show/hide the Inventory."
1321 );
1227 1322
1228 $hb->add (my $vb1 = new CFClient::UI::VBox); 1323 $ntb->add (
1229 $vb1->add (new CFClient::UI::Label align => 0, text => "Player"); 1324 Stats => $STATS_WINDOW = stats_window,
1230 $vb1->add ($INV = new CFClient::UI::Inventory expand => 1); 1325 "Toggles the statistics window, where all your Stats and Resistances are being displayed at all times."
1326 );
1327 $ntb->add (
1328 Spells => $SETUP_SPELLS = new CFClient::UI::SpellList,
1329 "Displays all spells you have and lets you edit keyboard shortcuts for them."
1330 );
1231 1331
1232 $hb->add (my $vb2 = new CFClient::UI::VBox); 1332 $plwin->add ($ntb);
1233 1333 $plwin
1234 $vb2->add ($INV_RIGHT_HB = new CFClient::UI::HBox);
1235
1236 $vb2->add ($INVR = new CFClient::UI::Inventory expand => 1);
1237
1238 # XXX: Call after $INVR = ... because set_opencont sets the items
1239 CFClient::Protocol::set_opencont ($::CONN, 0, "Floor");
1240
1241 $invwin
1242} 1334}
1243 1335
1244sub spell_setup { 1336sub update_bindings {
1245 new CFClient::UI::SpellList 1337 $BIND_UPD_CB->() if $BIND_UPD_CB;
1246} 1338}
1247 1339
1248sub keyboard_setup { 1340sub keyboard_setup {
1249 my $binding_list = new CFClient::UI::VBox; 1341 my $binding_list = new CFClient::UI::VBox;
1250 1342
1251 my $refresh; 1343 my $refresh;
1252 $refresh = sub { 1344 $refresh = $BIND_UPD_CB = sub {
1253 $binding_list->clear (); 1345 $binding_list->clear ();
1254 1346
1255 for my $mod (keys %{$::CFG->{bindings}}) { 1347 for my $mod (keys %{$::CFG->{profile}{default}{bindings}}) {
1256 for my $sym (keys %{$::CFG->{bindings}->{$mod}}) { 1348 for my $sym (keys %{$::CFG->{profile}{default}{bindings}{$mod}}) {
1257 my $cmds = $::CFG->{bindings}->{$mod}->{$sym}; 1349 my $cmds = $::CFG->{profile}{default}{bindings}{$mod}{$sym};
1258 next unless ref $cmds eq 'ARRAY' and @$cmds > 0; 1350 next unless ref $cmds eq 'ARRAY' and @$cmds > 0;
1259 1351
1260 my $lbl = join "; ", @$cmds; 1352 my $lbl = join "; ", @$cmds;
1261 my $nam = CFClient::Binder::keycombo_to_name ($mod, $sym); 1353 my $nam = CFClient::BindingEditor::keycombo_to_name ($mod, $sym);
1262 $binding_list->add (my $hb = new CFClient::UI::HBox); 1354 $binding_list->add (my $hb = new CFClient::UI::HBox);
1263 $hb->add (new CFClient::UI::Button 1355 $hb->add (new CFClient::UI::Button
1264 text => "delete", 1356 text => "delete",
1265 tooltip => "Deletes the binding", 1357 tooltip => "Deletes the binding",
1266 on_activate => sub { 1358 on_activate => sub {
1267 $binding_list->remove ($hb); 1359 $binding_list->remove ($hb);
1268 delete $::CFG->{bindings}->{$mod}->{$sym}; 1360 delete $::CFG->{profile}{default}{bindings}{$mod}{$sym};
1361 0
1269 }); 1362 });
1270 1363
1271 $hb->add (new CFClient::UI::Button 1364 $hb->add (new CFClient::UI::Button
1272 text => "edit", 1365 text => "edit",
1273 tooltip => "Edits the binding", 1366 tooltip => "Edits the binding",
1274 on_activate => sub { 1367 on_activate => sub {
1275 $::BIND_EDITOR->set_binding ( 1368 $::BIND_EDITOR->set_binding (
1276 $mod, $sym, $::CFG->{bindings}->{$mod}->{$sym}, 1369 $mod, $sym, $::CFG->{profile}{default}{bindings}{$mod}{$sym},
1277 sub { 1370 sub {
1278 my ($nmod, $nsym, $ncmds) = @_; 1371 my ($nmod, $nsym, $ncmds) = @_;
1279 delete $::CFG->{bindings}->{$mod}->{$sym}; 1372 $::BIND_EDITOR->cfg_unbind ($mod, $sym);
1280 $::CFG->{bindings}->{$nmod}->{$nsym} = $ncmds; 1373 $::BIND_EDITOR->cfg_bind ($nmod, $nsym, $ncmds);
1281 $refresh->(); 1374 $refresh->();
1282 $SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD); 1375 $SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
1283 $SETUP_DIALOG->show; 1376 $SETUP_DIALOG->show;
1284 }, 1377 },
1285 sub { 1378 sub {
1286 $SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD); 1379 $SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
1287 $SETUP_DIALOG->show; 1380 $SETUP_DIALOG->show;
1288 }); 1381 });
1289 $::BIND_EDITOR->show; 1382 $::BIND_EDITOR->show;
1290 $SETUP_DIALOG->hide; 1383 $SETUP_DIALOG->hide;
1384 0
1291 }); 1385 });
1292 1386
1293 $hb->add (new CFClient::UI::Label text => "(Key: $nam)"); 1387 $hb->add (new CFClient::UI::Label text => "(Key: $nam)");
1294 $hb->add (new CFClient::UI::Label text => $lbl, expand => 1); 1388 $hb->add (new CFClient::UI::Label text => $lbl, expand => 1);
1295 } 1389 }
1296 } 1390 }
1297 }; 1391 };
1298 1392
1299 my $vb = new CFClient::UI::VBox; 1393 my $vb = new CFClient::UI::VBox;
1394 $vb->add (my $hb = new CFClient::UI::HBox);
1395 $hb->add (new CFClient::UI::Label text => "only shift-up stops fire");
1396 $hb->add (new CFClient::UI::CheckBox
1397 expand => 1,
1398 state => $CFG->{shift_fire_stop},
1399 tooltip => "If this checkbox is enabled you will stop fire only if you stop pressing shift",
1400 on_changed => sub {
1401 my ($cbox, $value) = @_;
1402 $CFG->{shift_fire_stop} = $value;
1403 0
1404 });
1405
1300 $vb->add ($binding_list); 1406 $vb->add ($binding_list);
1301 $vb->add (my $hb = new CFClient::UI::HBox); 1407 $vb->add (my $hb = new CFClient::UI::HBox);
1302 1408
1303 $hb->add (new CFClient::UI::Button 1409 $hb->add (new CFClient::UI::Button
1304 text => "record new", 1410 text => "record new",
… …
1306 tooltip => "This button opens the binding editor with an empty binding.", 1412 tooltip => "This button opens the binding editor with an empty binding.",
1307 on_activate => sub { 1413 on_activate => sub {
1308 $::BIND_EDITOR->set_binding (undef, undef, [], 1414 $::BIND_EDITOR->set_binding (undef, undef, [],
1309 sub { 1415 sub {
1310 my ($mod, $sym, $cmds) = @_; 1416 my ($mod, $sym, $cmds) = @_;
1311 $::CFG->{bindings}->{$mod}->{$sym} = $cmds; 1417 $::BIND_EDITOR->cfg_bind ($mod, $sym, $cmds);
1312 $refresh->(); 1418 $refresh->();
1313 $SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD); 1419 $SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
1314 $SETUP_DIALOG->show; 1420 $SETUP_DIALOG->show;
1315 }, 1421 },
1316 sub { 1422 sub {
… …
1318 $SETUP_DIALOG->show; 1424 $SETUP_DIALOG->show;
1319 }, 1425 },
1320 ); 1426 );
1321 $SETUP_DIALOG->hide; 1427 $SETUP_DIALOG->hide;
1322 $::BIND_EDITOR->show; 1428 $::BIND_EDITOR->show;
1429 0
1323 }, 1430 },
1324 ); 1431 );
1325 1432
1326 $hb->add (new CFClient::UI::Button 1433 $hb->add (new CFClient::UI::Button
1327 text => "close", 1434 text => "close",
1328 tooltip => "Closes the binding window", 1435 tooltip => "Closes the binding window",
1329 expand => 1, 1436 expand => 1,
1330 on_activate => sub { 1437 on_activate => sub {
1331 $SETUP_DIALOG->hide; 1438 $SETUP_DIALOG->hide;
1439 0
1332 } 1440 }
1333 ); 1441 );
1334 1442
1335 $refresh->(); 1443 $refresh->();
1336 1444
1337 $vb 1445 $vb
1338} 1446}
1339 1447
1340sub make_help_window { 1448sub help_window {
1341 my $win = new CFClient::UI::FancyFrame 1449 my $win = new CFClient::UI::FancyFrame
1342 x => 'center', 1450 x => 'center',
1343 y => 'center', 1451 y => 'center',
1344 z => 2, 1452 z => 2,
1345 name => 'doc_browser', 1453 name => 'doc_browser',
… …
1348 title => "Documentation"; 1456 title => "Documentation";
1349 1457
1350 $win->add (my $vbox = new CFClient::UI::VBox); 1458 $win->add (my $vbox = new CFClient::UI::VBox);
1351 1459
1352 $vbox->add (my $buttons = new CFClient::UI::HBox); 1460 $vbox->add (my $buttons = new CFClient::UI::HBox);
1353 $vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8); 1461 $vbox->add (my $viewer = new CFClient::UI::TextScroller
1462 expand => 1, fontsize => 0.8, padding_x => 4);
1354 1463
1355 for ( 1464 $buttons->add (new CFClient::UI::Label text => "Choose a document to display: ");
1465 $buttons->add (my $combo = new CFClient::UI::Combobox
1466 value => undef,
1467 options => [
1356 [intro => "Introduction"], 1468 [intro => "Introduction"],
1357 [manual => "Manual"], 1469 [manual => "Main Manual"],
1470 [skill_help => "Skill Reference"],
1471 [command_help => "Command Reference"],
1358 [command_help => "Commands"], 1472 [dmcommand_help => "DM Commands"],
1359 [skill_help => "Skills"], 1473 [COPYING => "License Terms"],
1360 ) { 1474 ],
1361 my ($pod, $label) = @$_; 1475 on_changed => sub {
1476 my ($self, $pod) = @_;
1362 1477
1363 $buttons->add (new CFClient::UI::Button
1364 text => $label,
1365 on_activate => sub {
1366 my $pom = CFClient::load_pod CFClient::find_rcfile "pod/$pod.pod", 1478 my $pom = CFClient::load_pod CFClient::find_rcfile "pod/$pod.pod",
1367 doc_viewer => 1, sub { CFClient::pod_to_pango_list $_[0] }; 1479 doc_viewer => 1, sub { CFClient::pod_to_pango_list $_[0] };
1368 1480
1369 $viewer->clear; 1481 $viewer->clear;
1482
1483# $viewer->add_paragraph ([1, 1, 1, 1], ["<big>Test</big>\n\n \x{fffc} \x{fffc}\n",
1484# (new CFClient::UI::Image path => "x.png", can_hover => 1, can_events => 1),
1485# (new CFClient::UI::Label text => "üüüü", can_hover => 1, can_events => 1, tooltip => "??"),
1486# ]);#d#
1370 1487
1371 $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0]) 1488 $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0])
1372 for @$pom; 1489 for @$pom;
1373 1490
1374 $viewer->set_offset (0); 1491 $viewer->set_offset (0);
1492
1375 }, 1493 0
1494 },
1495 on_visibility_change => sub {
1496 my ($self, $visible) = @_;
1497 return unless $visible;
1498 return if $self->{value};
1499 $self->set_value ("intro");
1500 0
1501 },
1376 ); 1502 );
1377 }
1378
1379 $viewer->add_paragraph ([1, 1, 0, 1], "<big>Use one of the buttons above to display a document.</big>");
1380 1503
1381 $win 1504 $win
1382} 1505}
1383 1506
1384sub sdl_init { 1507sub sdl_init {
… …
1421 z => 100, 1544 z => 100,
1422 force_x => "max", 1545 force_x => "max",
1423 force_y => 0; 1546 force_y => 0;
1424 $DEBUG_STATUS->show; 1547 $DEBUG_STATUS->show;
1425 1548
1426 $BIND_EDITOR = new CFClient::UI::BindEditor (x => "max", y => 0); 1549 $BIND_EDITOR = new CFClient::BindingEditor (x => "max", y => 0);
1427 1550
1428 $STATUSBOX = new CFClient::UI::Statusbox; 1551 $STATUSBOX = new CFClient::UI::Statusbox;
1429 $STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]); 1552 $STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]);
1430 1553
1431 (new CFClient::UI::Frame 1554 (new CFClient::UI::Frame
… …
1451 $MAPWIDGET->connect (activate_console => sub { 1574 $MAPWIDGET->connect (activate_console => sub {
1452 my ($mapwidget, $preset) = @_; 1575 my ($mapwidget, $preset) = @_;
1453 1576
1454 if ($CONSOLE) { 1577 if ($CONSOLE) {
1455 $CONSOLE->{input}->{auto_activated} = 1; 1578 $CONSOLE->{input}->{auto_activated} = 1;
1456 $CONSOLE->{input}->focus_in; 1579 $CONSOLE->{input}->grab_focus;
1457 1580
1458 if ($preset && $CONSOLE->{input}->get_text eq '') { 1581 if ($preset && $CONSOLE->{input}->get_text eq '') {
1459 $CONSOLE->{input}->set_text ($preset); 1582 $CONSOLE->{input}->set_text ($preset);
1460 } 1583 }
1461 } 1584 }
1462 }); 1585 });
1463 $MAPWIDGET->show; 1586 $MAPWIDGET->show;
1464 $MAPWIDGET->focus_in; 1587 $MAPWIDGET->grab_focus;
1465 1588
1466 $LOGVIEW = new CFClient::UI::TextView 1589 $LOGVIEW = new CFClient::UI::TextScroller
1467 expand => 1, 1590 expand => 1,
1468 font => $FONT_FIXED, 1591 font => $FONT_FIXED,
1469 fontsize => $::CFG->{log_fontsize}, 1592 fontsize => $::CFG->{log_fontsize},
1470 indent => -4, 1593 indent => -4,
1471 can_hover => 1, 1594 can_hover => 1,
… …
1479 x => 'center', 1602 x => 'center',
1480 y => 'center', 1603 y => 'center',
1481 z => 2, 1604 z => 2,
1482 force_w => $::WIDTH * 0.6, 1605 force_w => $::WIDTH * 0.6,
1483 force_h => $::HEIGHT * 0.6, 1606 force_h => $::HEIGHT * 0.6,
1607 has_close_button => 1,
1484 ; 1608 ;
1609
1610 $METASERVER = metaserver_dialog;
1485 1611
1486 $SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFClient::UI::Notebook expand => 1, debug => 1, 1612 $SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFClient::UI::Notebook expand => 1, debug => 1,
1487 filter => new CFClient::UI::ScrolledWindow expand => 1, scroll_y => 1); 1613 filter => new CFClient::UI::ScrolledWindow expand => 1, scroll_y => 1);
1488 1614
1489 $SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup, 1615 $SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup,
… …
1493 $SETUP_NOTEBOOK->add (Graphics => graphics_setup, 1619 $SETUP_NOTEBOOK->add (Graphics => graphics_setup,
1494 "Configure the video mode, performance, fonts and other graphical aspects of the game."); 1620 "Configure the video mode, performance, fonts and other graphical aspects of the game.");
1495 $SETUP_NOTEBOOK->add (Audio => audio_setup, 1621 $SETUP_NOTEBOOK->add (Audio => audio_setup,
1496 "Configure the use of audio, sound effects and background music."); 1622 "Configure the use of audio, sound effects and background music.");
1497 $SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup, 1623 $SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
1498 "Lets you define, edit and delete bindings." 1624 "Lets you define, edit and delete key bindings."
1499 . "There is a shortcut for making bindings: <b>Left Control + Insert</b> opens the binding editor " 1625 . "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "
1500 . "with nothing set and the recording started. After doing the actions you " 1626 . "with nothing set and the recording started. After doing the actions you "
1501 . "want to record press <b>Insert</b> and you will be asked to press a key-combo. " 1627 . "want to record press <b>Insert</b> and you will be asked to press a key-combo. "
1502 . "After pressing the combo the binding will be saved automatically and the " 1628 . "After pressing the combo the binding will be saved automatically and the "
1503 . "binding editor closes"); 1629 . "binding editor closes");
1504 $SETUP_NOTEBOOK->add (Spells => $SETUP_SPELLS = spell_setup, 1630 $SETUP_NOTEBOOK->add (Debug => debug_setup,
1505 "Displays all spells you have and lets you edit keyboard shortcuts for them."); 1631 "Some debuggin' options. Do not ask.");
1506 1632
1507 $BUTTONBAR = new CFClient::UI::Buttonbar x => 0, y => 0, z => 200; # put on top 1633 $BUTTONBAR = new CFClient::UI::Buttonbar x => 0, y => 0, z => 200; # put on top
1508 1634
1509 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Setup", other => $SETUP_DIALOG, 1635 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Setup", other => $SETUP_DIALOG,
1510 tooltip => "Toggles a dialog where you can configure all aspects of this client."); 1636 tooltip => "Toggles a dialog where you can configure all aspects of this client.");
… …
1512 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW = message_window, 1638 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW = message_window,
1513 tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server."); 1639 tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");
1514 1640
1515 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 1641 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
1516 1642
1517 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => $STATS_WINDOW = stats_window,
1518 tooltip => "Toggles the statistics window, where all your Stats and Resistances are being displayed at all times.");
1519 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => inventory_window, 1643 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Player", other => player_window,
1520 tooltip => "Toggles the inventory window, where you can manage your loot (or treasures :). " 1644 tooltip => "Toggles the player view, where you can manage Inventory, Spells, Skills and see your Stats.");
1521 . "You can also hit the <b>Tab</b>-key to show/hide the Inventory.");
1522 1645
1523 $BUTTONBAR->add (new CFClient::UI::Button 1646 $BUTTONBAR->add (new CFClient::UI::Button
1524 text => "Save Config", 1647 text => "Save Config",
1525 tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.", 1648 tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.",
1526 on_activate => sub { 1649 on_activate => sub {
1527 $::CFG->{layout} = CFClient::UI::get_layout; 1650 $::CFG->{layout} = CFClient::UI::get_layout;
1528 CFClient::write_cfg "$Crossfire::VARDIR/cfplusrc"; 1651 CFClient::write_cfg "$Crossfire::VARDIR/cfplusrc";
1529 status "Configuration Saved"; 1652 status "Configuration Saved";
1653 0
1530 }, 1654 },
1531 ); 1655 );
1532 1656
1533 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Help!", other => make_help_window, 1657 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Help!", other => help_window,
1534 tooltip => "View Documentation"); 1658 tooltip => "View Documentation");
1535 1659
1536 $BUTTONBAR->add (new CFClient::UI::Button 1660 $BUTTONBAR->add (new CFClient::UI::Button
1537 text => "Quit", 1661 text => "Quit",
1538 tooltip => "Terminates the program", 1662 tooltip => "Terminates the program",
… …
1540 if ($CONN) { 1664 if ($CONN) {
1541 open_quit_dialog; 1665 open_quit_dialog;
1542 } else { 1666 } else {
1543 exit; 1667 exit;
1544 } 1668 }
1669 0
1545 }, 1670 },
1546 ); 1671 );
1547 1672
1548 $BUTTONBAR->show; 1673 $BUTTONBAR->show;
1549 $SETUP_DIALOG->show; 1674 $SETUP_DIALOG->show;
… …
1551 1676
1552 $STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]); 1677 $STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1553} 1678}
1554 1679
1555sub video_shutdown { 1680sub video_shutdown {
1681 CFClient::OpenGL::shutdown;
1682
1556 undef $SDL_ACTIVE; 1683 undef $SDL_ACTIVE;
1557} 1684}
1558 1685
1559my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d# 1686my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
1560my $bgmusic;#TODO#hack#d# 1687my $bgmusic;#TODO#hack#d#
… …
1776 1903
1777 CFClient::read_cfg "$Crossfire::VARDIR/cfplusrc"; 1904 CFClient::read_cfg "$Crossfire::VARDIR/cfplusrc";
1778 CFClient::UI::set_layout ($::CFG->{layout}); 1905 CFClient::UI::set_layout ($::CFG->{layout});
1779 1906
1780 my %DEF_CFG = ( 1907 my %DEF_CFG = (
1781 sdl_mode => 0, 1908 sdl_mode => 0,
1782 width => 640, 1909 width => 640,
1783 height => 480, 1910 height => 480,
1784 fullscreen => 0, 1911 fullscreen => 0,
1785 fast => 0, 1912 fast => 0,
1786 map_scale => 1, 1913 map_scale => 1,
1787 fow_enable => 1, 1914 fow_enable => 1,
1788 fow_intensity => 0.45, 1915 fow_intensity => 0.45,
1789 fow_smooth => 0, 1916 fow_smooth => 0,
1790 gui_fontsize => 1, 1917 gui_fontsize => 1,
1791 log_fontsize => 0.7, 1918 log_fontsize => 0.7,
1792 gauge_fontsize=> 1, 1919 gauge_fontsize => 1,
1793 gauge_size => 0.35, 1920 gauge_size => 0.35,
1794 stat_fontsize => 0.7, 1921 stat_fontsize => 0.7,
1795 mapsize => 100, 1922 mapsize => 100,
1796 host => "crossfire.schmorp.de",
1797 say_command => 'say', 1923 say_command => 'say',
1798 audio_enable => 1, 1924 audio_enable => 1,
1799 bgm_enable => 1, 1925 bgm_enable => 1,
1800 bgm_volume => 0.25, 1926 bgm_volume => 0.25,
1801 face_prefetch => 0, 1927 face_prefetch => 0,
1802 output_sync => 1, 1928 output_sync => 1,
1803 output_count => 1, 1929 output_count => 1,
1804 pickup => 0, 1930 pickup => 0,
1931 default => "profile", # default profile
1932 );
1805 ); 1933
1806
1807 while (my ($k, $v) = each %DEF_CFG) { 1934 while (my ($k, $v) = each %DEF_CFG) {
1808 $CFG->{$k} = $v unless exists $CFG->{$k}; 1935 $CFG->{$k} = $v unless exists $CFG->{$k};
1809 } 1936 }
1937
1938 $CFG->{profile}{default}{host} ||= "crossfire.schmorp.de";
1810 1939
1811 sdl_init; 1940 sdl_init;
1812 1941
1813 @SDL_MODES = reverse 1942 @SDL_MODES = reverse
1814 grep $_->[0] >= 640 && $_->[1] >= 480, 1943 grep $_->[0] >= 640 && $_->[1] >= 480,
… …
1856 video_init; 1985 video_init;
1857 audio_init; 1986 audio_init;
1858} 1987}
1859 1988
1860Event::loop; 1989Event::loop;
1990#CFClient::SDL_Quit;
1991#CFClient::_exit 0;
1861 1992
1862END { CFClient::SDL_Quit } 1993END { CFClient::SDL_Quit }
1863 1994
1864=head1 NAME 1995=head1 NAME
1865 1996

Diff Legend

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