--- deliantra/Deliantra-Client/bin/cfplus 2006/11/19 20:31:29 1.131
+++ deliantra/Deliantra-Client/bin/cfplus 2007/04/09 04:39:11 1.148
@@ -24,6 +24,8 @@
use strict;
use utf8;
+use Carp 'verbose';
+
# do things only needed for single-binary version (par)
BEGIN {
if (%PAR::LibCache) {
@@ -58,20 +60,20 @@
use CFPlus;
use CFPlus::OpenGL ();
use CFPlus::Protocol;
+use CFPlus::DB;
use CFPlus::UI;
+use CFPlus::UI::Inventory;
+use CFPlus::UI::SpellList;
use CFPlus::Pod;
-use CFPlus::BindingEditor;
use CFPlus::MapWidget;
+use CFPlus::Macro;
$SIG{QUIT} = sub { Carp::cluck "QUIT" };
$SIG{PIPE} = 'IGNORE';
-$Event::Eval = 0;
+$Event::Eval = 1;
$Event::DIED = sub {
- # TODO: display dialog box or so
- Carp::cluck $_[1];#d#TODO: remove when stable
- return;#d#
- CFPlus::fatal ($_[1]);
+ CFPlus::fatal Carp::longmess $_[1]
};
my $MAX_FPS = 60;
@@ -148,11 +150,11 @@
our $INVR;
our $INV_RIGHT_HB;
-our $BIND_EDITOR;
-our $BIND_UPD_CB;
-
our $PICKUP_CFG;
+our $IN_BUILD_MODE;
+our $BUILD_BUTTON;
+
sub status {
$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
}
@@ -177,10 +179,28 @@
if $_[0]{query_dialog};
}
+# FIXME: a very ugly hack to wait for stat update look below! #d#
+our $QUERY_TIMER; #d#
+
# server query dialog
sub server_query {
my ($conn, $flags, $prompt) = @_;
+ # FIXME: a very ugly hack to wait for stat update #d#
+ if ($prompt =~ /roll new stats/ and not $conn->{stat_change_with}) {
+ unless ($QUERY_TIMER) {
+ $QUERY_TIMER =
+ Event->timer (
+ after => 1,
+ cb => sub {
+ server_query ($conn, $flags, $prompt, 1);
+ $QUERY_TIMER = undef
+ }
+ );
+ return;
+ }
+ }
+
$conn->{query_dialog} = my $dialog = new CFPlus::UI::Toplevel
x => "center",
y => "center",
@@ -378,8 +398,6 @@
$LOGIN_BUTTON->set_text ("Logout");
$SETUP_DIALOG->hide;
- $PROFILE = $CFG->{profile}{default};
-
my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
my ($host, $port) = split /:/, $PROFILE->{host};
@@ -432,7 +450,7 @@
$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
$SETUP_DIALOG->show;
$PL_WINDOW->hide;
- $SPELL_PAGE->clear_spells;
+ $SPELL_LIST->clear_spells;
return unless $CONN;
@@ -450,8 +468,15 @@
$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
- $table->add (0, 0, new CFPlus::UI::Label valign => 0, align => 1, text => "Video Mode");
- $table->add (1, 0, my $hbox = new CFPlus::UI::HBox);
+ my $row = 0;
+
+ $table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "OpenGL Info");
+ $table->add (1, $row++, new CFPlus::UI::Label valign => 0, fontsize => 0.8, text => CFPlus::OpenGL::gl_vendor . ", " . CFPlus::OpenGL::gl_version,
+ can_events => 1,
+ tooltip => "" . (CFPlus::OpenGL::gl_extensions) . "");
+
+ $table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Video Mode");
+ $table->add (1, $row++, my $hbox = new CFPlus::UI::HBox);
$hbox->add (my $mode_slider = new CFPlus::UI::Slider force_w => $WIDTH * 0.1, expand => 1, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1]);
$hbox->add (my $mode_label = new CFPlus::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");
@@ -464,8 +489,6 @@
});
$mode_slider->emit (changed => $mode_slider->{range}[0]);
- my $row = 1;
-
$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");
$table->add (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox
state => $CFG->{fullscreen},
@@ -669,6 +692,7 @@
$table->add (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });
$table->add (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");
$table->add (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });
+ $table->add (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { die "violator" } );
my @default_smooth = (0.05, 0.13, 0.05, 0.13, 0.30, 0.13, 0.05, 0.13, 0.05);
@@ -682,6 +706,7 @@
}
}
+ $table->add (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#
$table
}
@@ -888,15 +913,9 @@
my @align = qw(1 0 1 1 -1);
my $y = 0;
- for my $m (
- sort {
- $b->{version} <=> $a->{version}
- or $b->{users} <=> $a->{users}
- }
- @{ $msg->{servers} }
- ) {
- my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime) =
- @$m{qw(ip age hostname users version description ibytes obytes uptime)};
+ for my $m (@{ $msg->{servers} }) {
+ my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime, $highlight) =
+ @$m{qw(ip age hostname users version description ibytes obytes uptime highlight)};
for ($desc) {
s/
/\n/gi;
@@ -936,7 +955,7 @@
align => $align[$_],
text => $m->[$_],
tooltip => $tip[$_],
- fg => ($m->[3] =~ /\+$/ ? [1, 1, 1] : [.7, .7, .7]),
+ fg => ($highlight ? [1, 1, 1] : [.7, .7, .7]),
can_hover => 1,
can_events => 1,
fontsize => 0.8)
@@ -1047,21 +1066,30 @@
on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },
);
- $table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");
+ $table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Rate");
$table->add (1, 9, new CFPlus::UI::Entry
+ text => $CFG->{output_rate},
+ tooltip => "The approximate bandwidth in bytes per second that the server should not exceed "
+ . "when sending images, to ensure interactiveness. When 0 or unset, the server "
+ . "default will be used, which is usually around 100kb/s.",
+ on_changed => sub { $CFG->{output_rate} = $_[1]; 0 },
+ );
+
+ $table->add (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");
+ $table->add (1, 10, new CFPlus::UI::Entry
text => $CFG->{output_count},
tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
on_changed => sub { $CFG->{output_count} = $_[1]; 0 },
);
- $table->add (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");
- $table->add (1, 10, new CFPlus::UI::Entry
+ $table->add (0, 11, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");
+ $table->add (1, 11, new CFPlus::UI::Entry
text => $CFG->{output_sync},
tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },
);
- $table->add (1, 11, $LOGIN_BUTTON = new CFPlus::UI::Button
+ $table->add (1, 12, $LOGIN_BUTTON = new CFPlus::UI::Button
expand => 1,
align => 0,
text => "Login",
@@ -1072,8 +1100,8 @@
},
);
- $table->add (0, 12, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command");
- $table->add (1, 12, my $saycmd = new CFPlus::UI::Entry
+ $table->add (0, 13, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command");
+ $table->add (1, 13, my $saycmd = new CFPlus::UI::Entry
text => $CFG->{say_command},
tooltip => "This is the command that will be used if you write a line in the message window entry or press \" in the map window. "
. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
@@ -1085,8 +1113,8 @@
}
);
- $table->add (0, 13, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");
- $table->add (1, 13, my $saycmd = new CFPlus::UI::CheckBox
+ $table->add (0, 14, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");
+ $table->add (1, 14, my $saycmd = new CFPlus::UI::CheckBox
state => $CFG->{show_tips},
tooltip => "Show the Tip of the day window at startup?",
on_changed => sub {
@@ -1192,12 +1220,12 @@
["Cloaks" => PICKUP_CLOAK],
],
- ["Readables", 2, 2,
+ ["Readables", 2, 0,
["Spellbooks" => PICKUP_SPELLBOOK],
["Skillscrolls" => PICKUP_SKILLSCROLL],
["Normal Books/Scrolls" => PICKUP_READABLES],
],
- ["Misc", 2, 7,
+ ["Misc", 2, 5,
["Food" => PICKUP_FOOD],
["Drinks" => PICKUP_DRINK],
["Valuables (Money, Gems)" => PICKUP_VALUABLES],
@@ -1207,6 +1235,7 @@
["Magic Devices" => PICKUP_MAGIC_DEVICE],
["Ignore cursed" => PICKUP_NOT_CURSED],
["Jewelery" => PICKUP_JEWELS],
+ ["Flesh" => PICKUP_FLESH],
],
["Weight/Value ratio", 2, 17]
)
@@ -1379,123 +1408,8 @@
$plwin
}
-sub update_bindings {
- $BIND_UPD_CB->() if $BIND_UPD_CB;
-}
-
sub keyboard_setup {
- my $binding_list = new CFPlus::UI::VBox;
-
- my $refresh;
- $refresh = $BIND_UPD_CB = sub {
- $binding_list->clear ();
-
- return unless $PROFILE;
-
- for my $mod (keys %{$PROFILE->{bindings}}) {
- for my $sym (keys %{$PROFILE->{bindings}{$mod}}) {
- my $cmds = $PROFILE->{bindings}{$mod}{$sym};
- next unless ref $cmds eq 'ARRAY' and @$cmds > 0;
-
- my $lbl = join "; ", @$cmds;
- my $nam = CFPlus::BindingEditor::keycombo_to_name ($mod, $sym);
- $binding_list->add (my $hb = new CFPlus::UI::HBox);
- $hb->add (new CFPlus::UI::Button
- text => "delete",
- tooltip => "Deletes the binding",
- on_activate => sub {
- $binding_list->remove ($hb);
- delete $PROFILE->{bindings}{$mod}{$sym};
- 0
- });
-
- $hb->add (new CFPlus::UI::Button
- text => "edit",
- tooltip => "Edits the binding",
- on_activate => sub {
- $::BIND_EDITOR->set_binding (
- $mod, $sym, $PROFILE->{bindings}{$mod}{$sym},
- sub {
- my ($nmod, $nsym, $ncmds) = @_;
- $::BIND_EDITOR->cfg_unbind ($mod, $sym);
- $::BIND_EDITOR->cfg_bind ($nmod, $nsym, $ncmds);
- $refresh->();
- $SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
- $SETUP_DIALOG->show;
- },
- sub {
- $SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
- $SETUP_DIALOG->show;
- });
- $::BIND_EDITOR->show;
- $SETUP_DIALOG->hide;
- 0
- });
-
- $hb->add (new CFPlus::UI::Label text => "(Key: $nam)");
- $hb->add (new CFPlus::UI::Label text => $lbl, expand => 1);
- }
- }
- };
-
- my $vb = new CFPlus::UI::VBox;
- $vb->add (new CFPlus::UI::FancyFrame
- label => "Options",
- child => (my $hb = new CFPlus::UI::HBox),
- );
- $hb->add (new CFPlus::UI::Label text => "only shift-up stops fire");
- $hb->add (new CFPlus::UI::CheckBox
- expand => 1,
- state => $CFG->{shift_fire_stop},
- tooltip => "If this checkbox is enabled you will stop fire only if you stop pressing shift",
- on_changed => sub {
- my ($cbox, $value) = @_;
- $CFG->{shift_fire_stop} = $value;
- 0
- });
-
- $vb->add (new CFPlus::UI::FancyFrame
- label => "Bindings",
- child => $binding_list);
- $vb->add (my $hb = new CFPlus::UI::HBox);
-
- $hb->add (new CFPlus::UI::Button
- text => "record new",
- expand => 1,
- tooltip => "This button opens the binding editor with an empty binding.",
- on_activate => sub {
- $::BIND_EDITOR->set_binding (undef, undef, [],
- sub {
- my ($mod, $sym, $cmds) = @_;
- $::BIND_EDITOR->cfg_bind ($mod, $sym, $cmds);
- $refresh->();
- $SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
- $SETUP_DIALOG->show;
- },
- sub {
- $SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
- $SETUP_DIALOG->show;
- },
- );
- $SETUP_DIALOG->hide;
- $::BIND_EDITOR->show;
- 0
- },
- );
-
- $hb->add (new CFPlus::UI::Button
- text => "close",
- tooltip => "Closes the binding window",
- expand => 1,
- on_activate => sub {
- $SETUP_DIALOG->hide;
- 0
- }
- );
-
- $refresh->();
-
- $vb
+ CFPlus::Macro::keyboard_setup
}
sub help_window {
@@ -1662,52 +1576,54 @@
# find all tips
my @tod = CFPlus::Pod::find tip_of_the_day => "*";
- my $todindex = $CFPlus::DB_STATE->get ("tip_of_the_day");
- $todindex = 0 if $todindex >= @tod;
- $CFPlus::DB_STATE->put (tip_of_the_day => $todindex + 1);
-
- # create dialog
- my $dialog;
-
- my $close = sub {
- $dialog->destroy;
- };
-
- $dialog = new CFPlus::UI::Toplevel
- x => "center",
- y => "center",
- z => 3,
- name => 'tip_of_the_day',
- force_w => int $WIDTH * 4/9,
- force_h => int $WIDTH * 2/9,
- title => "Tip of the day #" . (1 + $todindex),
- child => my $vbox = new CFPlus::UI::VBox,
- has_close_button => 1,
- on_delete => $close,
- ;
-
- $vbox->add (my $viewer = new CFPlus::UI::TextScroller
- expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
- $viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);
-
- $vbox->add (my $table = new CFPlus::UI::Table);
+ CFPlus::DB::get state => "tip_of_the_day", sub {
+ my ($todindex) = @_;
+ $todindex = 0 if $todindex >= @tod;
+ CFPlus::DB::put state => tip_of_the_day => $todindex + 1, sub { };
+
+ # create dialog
+ my $dialog;
+
+ my $close = sub {
+ $dialog->destroy;
+ };
+
+ $dialog = new CFPlus::UI::Toplevel
+ x => "center",
+ y => "center",
+ z => 3,
+ name => 'tip_of_the_day',
+ force_w => int $WIDTH * 4/9,
+ force_h => int $WIDTH * 2/9,
+ title => "Tip of the day #" . (1 + $todindex),
+ child => my $vbox = new CFPlus::UI::VBox,
+ has_close_button => 1,
+ on_delete => $close,
+ ;
- $table->add (0, 0, new CFPlus::UI::Button
- text => "Close",
- tooltip => "Close the tip of the day window. To never see it again, disable the tip of the day in the Server Setup.",
- on_activate => $close,
- );
+ $vbox->add (my $viewer = new CFPlus::UI::TextScroller
+ expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
+ $viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);
+
+ $vbox->add (my $table = new CFPlus::UI::Table col_expand => [0, 1]);
+
+ $table->add (0, 0, new CFPlus::UI::Button
+ text => "Close",
+ tooltip => "Close the tip of the day window. To never see it again, disable the tip of the day in the Server Setup.",
+ on_activate => $close,
+ );
- $table->add (2, 0, new CFPlus::UI::Button
- text => "Next",
- tooltip => "Show the next Tip of the day.",
- on_activate => sub {
- $close->();
- &show_tip_of_the_day;
- },
- );
+ $table->add (2, 0, new CFPlus::UI::Button
+ text => "Next",
+ tooltip => "Show the next Tip of the day.",
+ on_activate => sub {
+ $close->();
+ &show_tip_of_the_day;
+ },
+ );
- $dialog->show;
+ $dialog->show;
+ };
}
sub sdl_init {
@@ -1752,8 +1668,6 @@
force_y => 0;
$DEBUG_STATUS->show;
- $BIND_EDITOR = new CFPlus::BindingEditor (x => "max", y => 0);
-
$STATUSBOX = new CFPlus::UI::Statusbox;
$STATUSBOX->add ("Use Alt-Enter to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]);
@@ -1863,6 +1777,7 @@
$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Help!", other => $HELP_WINDOW = help_window,
tooltip => "View Documentation");
+
$BUTTONBAR->add (new CFPlus::UI::Button
text => "Quit",
tooltip => "Terminates the program",
@@ -1883,6 +1798,125 @@
$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
}
+sub setup_build_button {
+ my ($enabled) = @_;
+ if ($enabled) {
+ $BUILD_BUTTON->hide if $BUILD_BUTTON;
+ $BUILD_BUTTON ||= new CFPlus::UI::Button
+ text => "Build",
+ tooltip => "Opens the ingame builder",
+ on_activate => sub {
+ if ($CONN) {
+ $CONN->send_ext_req (builder_player_items => sub {
+ open_ingame_editor ($_[0]) if exists $_[0]->{items};
+ });
+ }
+ 0
+ };
+ $BUTTONBAR->add ($BUILD_BUTTON);
+ } else {
+ $BUILD_BUTTON->hide if $BUILD_BUTTON;
+ }
+}
+
+sub open_ingame_editor {
+ my ($msg) = @_;
+
+ my $win = new CFPlus::UI::Toplevel
+ x => 0,
+ y => 'center',
+ z => 4,
+ name => 'builder_window',
+ force_w => int $WIDTH * 1/4,
+ force_h => int $HEIGHT * 3/4,
+ title => "In game builder",
+ has_close_button => 1;
+
+ my $r = new CFPlus::UI::ScrolledWindow (
+ expand => 1,
+ scroll_y => 1
+ );
+ $r->add (my $vb = new CFPlus::UI::VBox);
+ $win->add ($r);
+
+
+ $vb->add (
+ new CFPlus::UI::Button
+ text => "Disable build mode",
+ on_activate => sub { $::IN_BUILD_MODE = undef }
+ );
+ $vb->add (
+ new CFPlus::UI::Button
+ text => "ERASE",
+ on_activate => sub { $::IN_BUILD_MODE = { do_erase => 1 } }
+ );
+
+ for my $itemarchname (
+ sort {
+ $msg->{items}->{$a}->{build_arch_name}
+ cmp $msg->{items}->{$b}->{build_arch_name}
+ } keys %{$msg->{items}}
+ ) {
+ my $info = $msg->{items}->{$itemarchname};
+ $vb->add (
+ new CFPlus::UI::Button text => $info->{build_arch_name},
+ on_activate => sub {
+ $::IN_BUILD_MODE = { item => $itemarchname, info => $info };
+
+ if (grep { $msg->{items}->{$itemarchname}->{$_} } qw/has_connection has_name has_text/) {
+ build_mode_query_arch_info ();
+ }
+ }
+ );
+ }
+
+ $win->show;
+}
+
+sub build_mode_query_arch_info {
+ my ($iteminfo) = $::IN_BUILD_MODE;
+ my $itemarchname = $iteminfo->{item};
+ my $info = $iteminfo->{info};
+
+ my $dialog = new CFPlus::UI::Toplevel
+ x => "center",
+ y => "center",
+ z => 50,
+ force_w => int $WIDTH * 1/2,
+ title => "Enter information for placement of '$itemarchname'",
+ has_close_button => 1;
+
+ $dialog->add (my $vb = new CFPlus::UI::VBox expand => 1);
+
+ $vb->add (my $table = new CFPlus::UI::Table expand => 1);
+ my $row = 0;
+ if ($info->{has_name}) {
+ $table->add (0, $row, new CFPlus::UI::Label text => "Name:");
+ $table->add (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{name} = $_[1]; 0 });
+ }
+ if ($info->{has_text}) {
+ $table->add (0, $row, new CFPlus::UI::Label text => "Text:");
+ $table->add (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{text} = $_[1]; 0 });
+ }
+ if ($info->{has_connection}) {
+ $table->add (0, $row, new CFPlus::UI::Label text => "Connection ID:");
+ $table->add (1, $row++,
+ new CFPlus::UI::Entry
+ expand => 1,
+ on_changed => sub { $::IN_BUILD_MODE->{connection} = $_[1]; 0 },
+ tooltip => "Enter the connection ID here. The connection ID connects actors like a lever to a gate or a magic ear to a gate"
+ );
+ }
+
+ $vb->add (my $hb = new CFPlus::UI::HBox expand => 1);
+ $hb->add (new CFPlus::UI::Button
+ text => "Close",
+ expand => 1,
+ on_activate => sub { $dialog->hide; 0 },
+ );
+ $dialog->show;
+}
+
sub video_shutdown {
CFPlus::OpenGL::shutdown;
@@ -2018,7 +2052,11 @@
CFPlus::UI::full_refresh;
},
CFPlus::SDL_ACTIVEEVENT => sub {
-# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#
+# not useful, as APPACTIVE include sonly iconified state, not unmapped
+# printf "active %x %x\n", $_[0]{gain}, $_[0]{state};#d#
+# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;
+# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;
+# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;
},
CFPlus::SDL_KEYDOWN => sub {
if ($_[0]{mod} & CFPlus::KMOD_ALT && $_[0]{sym} == 13) {
@@ -2049,6 +2087,8 @@
{
CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";
+ CFPlus::DB::Server::run;
+
CFPlus::UI::set_layout ($::CFG->{layout});
my %DEF_CFG = (
@@ -2074,6 +2114,7 @@
face_prefetch => 0,
output_sync => 1,
output_count => 1,
+ output_rate => "",
pickup => 0,
inv_sort => "mtime",
default => "profile", # default profile
@@ -2085,6 +2126,19 @@
}
$CFG->{profile}{default}{host} ||= "crossfire.schmorp.de";
+ $PROFILE = $CFG->{profile}{default};
+
+ # convert old bindings (only default profile matters)
+ if (my $bindings = delete $PROFILE->{bindings}) {
+ while (my ($mod, $syms) = each %$bindings) {
+ while (my ($sym, $cmds) = each %$syms) {
+ push @{ $PROFILE->{macro} }, {
+ accelkey => [$mod*1, $sym*1],
+ action => $cmds,
+ };
+ }
+ }
+ }
sdl_init;