| … | |
… | |
| 2776 | shift_fire_stop => 0, |
2776 | shift_fire_stop => 0, |
| 2777 | uitheme => "wood", |
2777 | uitheme => "wood", |
| 2778 | map_shift_x => -24, # arbitrary |
2778 | map_shift_x => -24, # arbitrary |
| 2779 | map_shift_y => +24, # arbitrary |
2779 | map_shift_y => +24, # arbitrary |
| 2780 | ); |
2780 | ); |
| 2781 | |
2781 | |
| 2782 | while (my ($k, $v) = each %DEF_CFG) { |
2782 | while (my ($k, $v) = each %DEF_CFG) { |
| 2783 | $CFG->{$k} = $v unless exists $CFG->{$k}; |
2783 | $CFG->{$k} = $v unless exists $CFG->{$k}; |
| 2784 | } |
2784 | } |
| 2785 | |
2785 | |
| 2786 | $CFG->{profile}{default}{host} ||= "gameserver.deliantra.net"; |
2786 | $CFG->{profile}{default}{host} ||= "gameserver.deliantra.net"; |
| 2787 | $PROFILE = $CFG->{profile}{default}; |
2787 | $PROFILE = $CFG->{profile}{default}; |
|
|
2788 | |
|
|
2789 | $PROFILE->{host} = $ARGV[0] if @ARGV > 0; |
|
|
2790 | $PROFILE->{user} = $ARGV[1] if @ARGV > 1; |
|
|
2791 | $PROFILE->{password} = $ARGV[2] if @ARGV > 2; |
| 2788 | |
2792 | |
| 2789 | # convert old bindings (only default profile matters) |
2793 | # convert old bindings (only default profile matters) |
| 2790 | if (my $bindings = delete $PROFILE->{bindings}) { |
2794 | if (my $bindings = delete $PROFILE->{bindings}) { |
| 2791 | while (my ($mod, $syms) = each %$bindings) { |
2795 | while (my ($mod, $syms) = each %$bindings) { |
| 2792 | while (my ($sym, $cmds) = each %$syms) { |
2796 | while (my ($sym, $cmds) = each %$syms) { |
| … | |
… | |
| 2815 | DejaVuSansMono-BoldOblique.ttf |
2819 | DejaVuSansMono-BoldOblique.ttf |
| 2816 | mona.ttf |
2820 | mona.ttf |
| 2817 | ); |
2821 | ); |
| 2818 | |
2822 | |
| 2819 | DC::add_font $_ for @fonts; |
2823 | DC::add_font $_ for @fonts; |
| 2820 | |
2824 | |
| 2821 | $FONT_PROP = new_from_file DC::Font $fonts[0]; |
2825 | $FONT_PROP = new_from_file DC::Font $fonts[0]; |
| 2822 | $FONT_FIXED = new_from_file DC::Font $fonts[1]; |
2826 | $FONT_FIXED = new_from_file DC::Font $fonts[1]; |
| 2823 | |
2827 | |
| 2824 | $FONT_PROP->make_default; |
2828 | $FONT_PROP->make_default; |
| 2825 | |
2829 | |
