| … | |
… | |
| 557 | update_stats_window ({}); |
557 | update_stats_window ({}); |
| 558 | |
558 | |
| 559 | $tgw |
559 | $tgw |
| 560 | } |
560 | } |
| 561 | |
561 | |
| 562 | sub formsep { |
562 | sub formsep($) { |
| 563 | reverse join ",", grep length, split /(...)/, reverse $_[0] * 1 |
563 | scalar reverse join ",", unpack "(A3)*", reverse $_[0] * 1 |
| 564 | } |
564 | } |
| 565 | |
565 | |
| 566 | sub update_stats_window { |
566 | sub update_stats_window { |
| 567 | my ($stats) = @_; |
567 | my ($stats) = @_; |
| 568 | |
568 | |
| … | |
… | |
| 871 | }, |
871 | }, |
| 872 | on_activate => sub { |
872 | on_activate => sub { |
| 873 | my ($input, $text) = @_; |
873 | my ($input, $text) = @_; |
| 874 | $input->set_text (''); |
874 | $input->set_text (''); |
| 875 | |
875 | |
| 876 | if ($text =~ /^\/bind\s+(.*)$/) { |
|
|
| 877 | CFClient::Binder::open_binding_dialog (sub { |
|
|
| 878 | my ($mod, $sym) = @_; |
|
|
| 879 | $::CFG->{bindings}->{$mod}->{$sym} = [$1]; |
|
|
| 880 | }); |
|
|
| 881 | } elsif ($text =~ /^\/(.*)/) { |
876 | if ($text =~ /^\/(.*)/) { |
| 882 | $::CONN->user_send ($1); |
877 | $::CONN->user_send ($1); |
| 883 | } else { |
878 | } else { |
| 884 | my $say_cmd = $::CFG->{say_command} || 'say'; |
879 | my $say_cmd = $::CFG->{say_command} || 'say'; |
| 885 | $::CONN->user_send ("$say_cmd $text"); |
880 | $::CONN->user_send ("$say_cmd $text"); |
| 886 | } |
881 | } |
| … | |
… | |
| 1237 | force_y => "max", |
1232 | force_y => "max", |
| 1238 | child => $STATUSBOX, |
1233 | child => $STATUSBOX, |
| 1239 | )->show; |
1234 | )->show; |
| 1240 | |
1235 | |
| 1241 | CFClient::UI::FancyFrame->new ( |
1236 | CFClient::UI::FancyFrame->new ( |
| 1242 | title => "Mini Map", |
1237 | title => "Map", |
| 1243 | name => "mapmap", |
1238 | name => "mapmap", |
| 1244 | x => 0, |
1239 | x => 0, |
| 1245 | y => $FONTSIZE + 8, |
1240 | y => $FONTSIZE + 8, |
| 1246 | border_bg => [1, 1, 1, 192/255], |
1241 | border_bg => [1, 1, 1, 192/255], |
| 1247 | bg => [1, 1, 1, 0], |
1242 | bg => [1, 1, 1, 0], |
