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.53 by root, Mon Jun 5 00:56:44 2006 UTC vs.
Revision 1.56 by root, Mon Jun 5 05:23:21 2006 UTC

… …
25# need to do it again because that pile of garbage called PAR nukes it before main 25# need to do it again because that pile of garbage called PAR nukes it before main
26unshift @INC, $ENV{PAR_TEMP} 26unshift @INC, $ENV{PAR_TEMP}
27 if %PAR::LibCache; 27 if %PAR::LibCache;
28 28
29use Time::HiRes 'time'; 29use Time::HiRes 'time';
30use Pod::POM;
31use Event; 30use Event;
32 31
33use Crossfire; 32use Crossfire;
34use Crossfire::Protocol::Constants; 33use Crossfire::Protocol::Constants;
35 34
… …
903sub open_quit_dialog { 902sub open_quit_dialog {
904 unless ($QUIT_DIALOG) { 903 unless ($QUIT_DIALOG) {
905 $QUIT_DIALOG = new CFClient::UI::FancyFrame 904 $QUIT_DIALOG = new CFClient::UI::FancyFrame
906 x => "center", 905 x => "center",
907 y => "center", 906 y => "center",
907 z => 50,
908 title => "Really Quit?", 908 title => "Really Quit?",
909 ; 909 ;
910 910
911 $QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1); 911 $QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1);
912 912
… …
1125 1125
1126sub make_help_window { 1126sub make_help_window {
1127 my $win = new CFClient::UI::FancyFrame 1127 my $win = new CFClient::UI::FancyFrame
1128 x => 'center', 1128 x => 'center',
1129 y => 'center', 1129 y => 'center',
1130 z => 2,
1130 name => 'doc_browser', 1131 name => 'doc_browser',
1131 force_w => int $WIDTH * 7/8, 1132 force_w => int $WIDTH * 7/8,
1132 force_h => int $HEIGHT * 7/8, 1133 force_h => int $HEIGHT * 7/8,
1133 title => "Documentation"; 1134 title => "Documentation";
1134 1135
… …
1146 my ($pod, $label) = @$_; 1147 my ($pod, $label) = @$_;
1147 1148
1148 $buttons->add (new CFClient::UI::Button 1149 $buttons->add (new CFClient::UI::Button
1149 text => $label, 1150 text => $label,
1150 on_activate => sub { 1151 on_activate => sub {
1151 my $parser = new Pod::POM;
1152 my $pom = $parser->parse_file (CFClient::find_rcfile "pod/$pod.pod"); 1152 my $pom = CFClient::load_pod CFClient::find_rcfile "pod/$pod.pod";
1153 1153
1154 $viewer->clear; 1154 $viewer->clear;
1155 1155
1156 $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0]) 1156 $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0])
1157 for @{ CFClient::pod_to_pango_list $pom }; 1157 for @{ CFClient::pod_to_pango_list $pom };
… …
1209 $DEBUG_STATUS->show; 1209 $DEBUG_STATUS->show;
1210 1210
1211 $BIND_EDITOR = new CFClient::UI::BindEditor (x => "max", y => 0); 1211 $BIND_EDITOR = new CFClient::UI::BindEditor (x => "max", y => 0);
1212 1212
1213 $STATUSBOX = new CFClient::UI::Statusbox; 1213 $STATUSBOX = new CFClient::UI::Statusbox;
1214 $STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", pri => -100, color => [1, 1, 1, 0.8]); 1214 $STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]);
1215 1215
1216 (new CFClient::UI::Frame 1216 (new CFClient::UI::Frame
1217 bg => [0, 0, 0, 0.4], 1217 bg => [0, 0, 0, 0.4],
1218 force_x => 0, 1218 force_x => 0,
1219 force_y => "max", 1219 force_y => "max",
… …
1278 "Configure the video mode, performance, fonts and other graphical aspects of the game."); 1278 "Configure the video mode, performance, fonts and other graphical aspects of the game.");
1279 $SETUP_NOTEBOOK->add (Audio => audio_setup, 1279 $SETUP_NOTEBOOK->add (Audio => audio_setup,
1280 "Configure the use of audio, sound effects and background music."); 1280 "Configure the use of audio, sound effects and background music.");
1281 $SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup, 1281 $SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
1282 "Lets you define, edit and delete bindings." 1282 "Lets you define, edit and delete bindings."
1283 . "There is a shortcut for making bindings: Left Control + Insert opens the binding editor " 1283 . "There is a shortcut for making bindings: <b>Left Control + Insert</b> opens the binding editor "
1284 . "with nothing set and the recording started. After doing the actions you " 1284 . "with nothing set and the recording started. After doing the actions you "
1285 . "want to record press Insert and you will be asked to press a key-combo. " 1285 . "want to record press <b>Insert</b> and you will be asked to press a key-combo. "
1286 . "After pressing the combo the binding will be saved automatically and the " 1286 . "After pressing the combo the binding will be saved automatically and the "
1287 . "binding editor closes"); 1287 . "binding editor closes");
1288 $SETUP_NOTEBOOK->add (Spells => $SETUP_SPELLS = spell_setup, 1288 $SETUP_NOTEBOOK->add (Spells => $SETUP_SPELLS = spell_setup,
1289 "Displays all spells you have and lets you edit keyboard shortcuts for them."); 1289 "Displays all spells you have and lets you edit keyboard shortcuts for them.");
1290 1290

Diff Legend

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