| … | |
… | |
| 818 | |
818 | |
| 819 | on_connect => sub { |
819 | on_connect => sub { |
| 820 | if ($_[0]) { |
820 | if ($_[0]) { |
| 821 | DC::lowdelay fileno $CONN->{fh}; |
821 | DC::lowdelay fileno $CONN->{fh}; |
| 822 | |
822 | |
| 823 | status "login successful"; |
823 | status "successfully connected to the server"; |
| 824 | } else { |
824 | } else { |
| 825 | undef $CONN; |
825 | undef $CONN; |
| 826 | status "unable to connect: $!"; |
826 | status "unable to connect: $!"; |
| 827 | stop_game(); |
827 | stop_game(); |
| 828 | } |
828 | } |
| … | |
… | |
| 2731 | default => "profile", # default profile |
2731 | default => "profile", # default profile |
| 2732 | show_tips => 1, |
2732 | show_tips => 1, |
| 2733 | logview_max_par => 1000, |
2733 | logview_max_par => 1000, |
| 2734 | shift_fire_stop => 0, |
2734 | shift_fire_stop => 0, |
| 2735 | uitheme => "wood", |
2735 | uitheme => "wood", |
|
|
2736 | map_shift_x => -24, # arbitrary |
|
|
2737 | map_shift_y => +24, # arbitrary |
| 2736 | ); |
2738 | ); |
| 2737 | |
2739 | |
| 2738 | while (my ($k, $v) = each %DEF_CFG) { |
2740 | while (my ($k, $v) = each %DEF_CFG) { |
| 2739 | $CFG->{$k} = $v unless exists $CFG->{$k}; |
2741 | $CFG->{$k} = $v unless exists $CFG->{$k}; |
| 2740 | } |
2742 | } |
