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.141 by elmex, Sat Dec 16 17:33:26 2006 UTC vs.
Revision 1.143 by root, Fri Mar 16 02:33:50 2007 UTC

… …
905 for 0 .. $#col; 905 for 0 .. $#col;
906 906
907 my @align = qw(1 0 1 1 -1); 907 my @align = qw(1 0 1 1 -1);
908 908
909 my $y = 0; 909 my $y = 0;
910 for my $m (
911 sort {
912 $b->{version} <=> $a->{version}
913 or $b->{users} <=> $a->{users}
914 }
915 @{ $msg->{servers} } 910 for my $m (@{ $msg->{servers} }) {
916 ) {
917 my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime) = 911 my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime, $highlight) =
918 @$m{qw(ip age hostname users version description ibytes obytes uptime)}; 912 @$m{qw(ip age hostname users version description ibytes obytes uptime highlight)};
919 913
920 for ($desc) { 914 for ($desc) {
921 s/<br>/\n/gi; 915 s/<br>/\n/gi;
922 s/<li>/\n· /gi; 916 s/<li>/\n· /gi;
923 s/<.*?>//sgi; 917 s/<.*?>//sgi;
… …
953 max_w => $::WIDTH * 0.4, 947 max_w => $::WIDTH * 0.4,
954 ellipsise => 0, 948 ellipsise => 0,
955 align => $align[$_], 949 align => $align[$_],
956 text => $m->[$_], 950 text => $m->[$_],
957 tooltip => $tip[$_], 951 tooltip => $tip[$_],
958 fg => ($m->[3] =~ /\+$/ ? [1, 1, 1] : [.7, .7, .7]), 952 fg => ($highlight ? [1, 1, 1] : [.7, .7, .7]),
959 can_hover => 1, 953 can_hover => 1,
960 can_events => 1, 954 can_events => 1,
961 fontsize => 0.8) 955 fontsize => 0.8)
962 for 0 .. $#$m; 956 for 0 .. $#$m;
963 } 957 }
… …
1064 . "so only set it if you really need to prefetch images. " 1058 . "so only set it if you really need to prefetch images. "
1065 . "This option can be set and unset any time.", 1059 . "This option can be set and unset any time.",
1066 on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 }, 1060 on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },
1067 ); 1061 );
1068 1062
1069 $table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count"); 1063 $table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Rate");
1070 $table->add (1, 9, new CFPlus::UI::Entry 1064 $table->add (1, 9, new CFPlus::UI::Entry
1065 text => $CFG->{output_rate},
1066 tooltip => "The approximate bandwidth in bytes per second that the server should not exceed "
1067 . "when sending images, to ensure interactiveness. When 0 or unset, the server "
1068 . "default will be used, which is usually around 100kb/s.",
1069 on_changed => sub { $CFG->{output_rate} = $_[1]; 0 },
1070 );
1071
1072 $table->add (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");
1073 $table->add (1, 10, new CFPlus::UI::Entry
1071 text => $CFG->{output_count}, 1074 text => $CFG->{output_count},
1072 tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.", 1075 tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1073 on_changed => sub { $CFG->{output_count} = $_[1]; 0 }, 1076 on_changed => sub { $CFG->{output_count} = $_[1]; 0 },
1074 ); 1077 );
1075 1078
1076 $table->add (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync"); 1079 $table->add (0, 11, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");
1077 $table->add (1, 10, new CFPlus::UI::Entry 1080 $table->add (1, 11, new CFPlus::UI::Entry
1078 text => $CFG->{output_sync}, 1081 text => $CFG->{output_sync},
1079 tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.", 1082 tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1080 on_changed => sub { $CFG->{output_sync} = $_[1]; 0 }, 1083 on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },
1081 ); 1084 );
1082 1085
1083 $table->add (1, 11, $LOGIN_BUTTON = new CFPlus::UI::Button 1086 $table->add (1, 12, $LOGIN_BUTTON = new CFPlus::UI::Button
1084 expand => 1, 1087 expand => 1,
1085 align => 0, 1088 align => 0,
1086 text => "Login", 1089 text => "Login",
1087 on_activate => sub { 1090 on_activate => sub {
1088 $CONN ? stop_game 1091 $CONN ? stop_game
1089 : start_game; 1092 : start_game;
1090 0 1093 0
1091 }, 1094 },
1092 ); 1095 );
1093 1096
1094 $table->add (0, 12, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command"); 1097 $table->add (0, 13, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command");
1095 $table->add (1, 12, my $saycmd = new CFPlus::UI::Entry 1098 $table->add (1, 13, my $saycmd = new CFPlus::UI::Entry
1096 text => $CFG->{say_command}, 1099 text => $CFG->{say_command},
1097 tooltip => "This is the command that will be used if you write a line in the message window entry or press <b>\"</b> in the map window. " 1100 tooltip => "This is the command that will be used if you write a line in the message window entry or press <b>\"</b> in the map window. "
1098 . "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. " 1101 . "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
1099 . "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.", 1102 . "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
1100 on_changed => sub { 1103 on_changed => sub {
… …
1102 $CFG->{say_command} = $value; 1105 $CFG->{say_command} = $value;
1103 0 1106 0
1104 } 1107 }
1105 ); 1108 );
1106 1109
1107 $table->add (0, 13, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day"); 1110 $table->add (0, 14, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");
1108 $table->add (1, 13, my $saycmd = new CFPlus::UI::CheckBox 1111 $table->add (1, 14, my $saycmd = new CFPlus::UI::CheckBox
1109 state => $CFG->{show_tips}, 1112 state => $CFG->{show_tips},
1110 tooltip => "Show the <b>Tip of the day</b> window at startup?", 1113 tooltip => "Show the <b>Tip of the day</b> window at startup?",
1111 on_changed => sub { 1114 on_changed => sub {
1112 my ($self, $value) = @_; 1115 my ($self, $value) = @_;
1113 $CFG->{show_tips} = $value; 1116 $CFG->{show_tips} = $value;
… …
2099 bgm_enable => 1, 2102 bgm_enable => 1,
2100 bgm_volume => 0.25, 2103 bgm_volume => 0.25,
2101 face_prefetch => 0, 2104 face_prefetch => 0,
2102 output_sync => 1, 2105 output_sync => 1,
2103 output_count => 1, 2106 output_count => 1,
2107 output_rate => "",
2104 pickup => 0, 2108 pickup => 0,
2105 inv_sort => "mtime", 2109 inv_sort => "mtime",
2106 default => "profile", # default profile 2110 default => "profile", # default profile
2107 show_tips => 1, 2111 show_tips => 1,
2108 ); 2112 );

Diff Legend

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