sorear-config

# vim:ft=perl:fdm=marker:

# main config {{{
nick "sorear";
# }}}
# plugins {{{

$chromatic_nemeses = 1;
$write_interhack_ttyrec = 1;
# price IDing {{{
$short_names{scroll}{60} = ['EW'];
$short_names{scroll}{80} = ['EA', 'RC'];
$short_names{potion}{300} = ['GA', 'GL', 'paral'];
# }}}

exclude "apply-oil", "colors-monsters", "dual_slow_digestion";
exclude "eval", "gem-name", "fortune", "hiveminder", "marker-menu", "mastermind", "monster-rename", "mysterious-force", "unnamed-scrolls", "wish-menu";
include "*";


# }}}
# key remappings {{{
our $elbereths = 0;
remap "\ce" => sub { $elbereths++; "\e\eE-  Elbereth\n" };
#remap "\cw" => "aany\e";
#remap "\cv" => sub { $elbereths += 3; ("\e\eE-  Elbereth\n"x3).">      " };
# }}}
# autoadjusts {{{
sub autoadjust;
autoadjust $aa_key         => "k";
autoadjust $aa_unihorn     => "h";
autoadjust $aa_athame      => "E";
autoadjust $aa_stethoscope => "s";
autoadjust $aa_pickaxe     => "x";
autoadjust $aa_bag         => "b";
autoadjust $aa_Amulet      => "d";
autoadjust $aa_blindfold   => "P";
autoadjust $aa_lizard      => "L";
autoadjust $aa_conflict    => "c";
autoadjust $aa_whistle     => "w";
autoadjust $aa_levitation  => "l";
autoadjust $aa_instrument  => "a";

autoadjust $aa_trice => "^ye";
autoadjust qr/\bpotions?\b[^.]*?/ => "^q";
autoadjust qr/\bwand\b[^.]*?/ => "^z";

# }}}
# botl {{{
$statusline = sub
{
    my $time_length = length($botl{time});
    my $cur_length;
    sprintf "%s E:%d K:%d\e[23;%dH$colormap{darkgray}%s\e[0m",
            $botl{score},
            $elbereths,
            $keystrokes,
            80 - $time_length,
            $botl{time},
};
# }}}