gistfile1.pl

#!/usr/bin/perl -w

use strict;
use Irssi;
use vars qw($VERSION %IRSSI);

$VERSION = "0.01";

%IRSSI = (
    name        => 'qwertz.pl',
    description => 'This script will set the proper keybindings on /qwertz',
    license     => 'Public Domain',
    changed     => 'Sun Jun 27 15:34:20 CET 2010',
);

Irssi::theme_register([
    'loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.',
    'bound',  '%R>>%n %_Keybindings:%_ Loaded the $0 keybindings.'
]);

sub qwertz {

    Irssi::command("^BIND meta-z change_window 16");
    Irssi::command("^BIND meta-p change_window 20");
    Irssi::command("^BIND meta-a change_window 21");
    Irssi::command("^BIND meta-s change_window 22");
#    Irssi::command("^BIND meta-d change_window 23");
#    Irssi::command("^BIND meta-f change_window 24");
#    Irssi::command("^BIND meta-g change_window 25");
#    Irssi::command("^BIND meta-h change_window 26");
#    Irssi::command("^BIND meta-j change_window 27");
#    Irssi::command("^BIND meta-k change_window 28");
#    Irssi::command("^BIND meta-l change_window 29");
    Irssi::command("^BIND meta-x command window last");
    Irssi::command("^BIND meta-y command window goto active");
    Irssi::command("^BIND meta-N command /mark");

    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'bound', 'qwertz');
}

Irssi::command_bind('qwertz', 'qwertz');

Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});