#dicklords

# Name:        nextgen dix for xchat/hexchat
# Version:     001-dix
# Author:      demo
# Description: dicklords

use Xchat qw(:all);
use strict;
use warnings;

my $PLUGIN_NAME = 'dix';
my $PLUGIN_VERS = '0.1';
my $PLUGIN_DESC = 'dix for the #dicklords';

Xchat::print('Loading dix');
register($PLUGIN_NAME, $PLUGIN_VERS, $PLUGIN_DESC);
hook_command('dix', \&cmd_dix);

sub delaycommand {
    my $command = $_[0];
    my $delay = ($_[1] ? $_[1]*1000 : 0);
    hook_timer( $delay,
        sub {
            command($command);
            return REMOVE;
        }
    );
    return EAT_NONE;
}

sub cmd_dix {
    my @dix = (
        "8,8dixdixdixdixdi1,1xdixdixdix8,8dixdixdixdixdixdixdixdixdixdixdixdixdixdi",
        "8,8dixdixdixdix1,1dix6,6dix1,1d6,6ixdi1,1xdi8,8xdixdixdixdixdixdixdixdixdixdixdixdixdi",
        "8,8dixdixdixdi1,1xd6,6ixdixdixdixdi1,1xd8,8ixdixdixdixdixdixdixdixdixdixdixdixdi",
        "8,8dixdixdixd1,1ix6,6dixdixdixdixdixd1,1i8,8xdixdixdixdixdixdixdixdixdixdixdixdi",
        "8,8dixdixdix1,1di6,6xdixdixdixdixdixd1,1ix8,8dixdixdixdixdixdixdixdixdixdixdixdi",
        "8,8dixdixdix1,1d6,6ixdixdixd1,1i6,6xdixdixdi1,1xd8,8ixdixdixdixdixdixdixdixdixdixdixdi",
        "9,9dixdixdix1,1d6,6ixdixdixd1,1i6,6xdixdixdix1,1di9,9xdixdixdixdixdixdixdixdixdixdixdi",
        "9,9dixdixdix1,1di6,6xdixdixd1,1i6,6xdixdixdixd1,1i9,9xdixdixdixdixdixdixdixdixdixdixdi",
        "9,9dixdixdixd1,1ix6,6dixd1,1ixd5,5i1,1xdixdixdixdi9,9xdixdixdixdixdixdixdixdixdixdixdi",
        "9,9dixdixdixdi1,1xdixdi5,5xdixdixdixdixd1,1i9,9xdixdixdixdixdixdixdixdixdixdixdi",
        "9,9dixdixdixdix1,1di5,5xdixdixdixdixdixd1,1ix9,9dixdixdixdixdixdixdixdixdixdixdi",
        "9,9dixdixdixdixd1,1i5,5xdixdixdixdixdixdi1,1x9,9dixdixdixdixdixdixdixdixdixdixdi",
        "11,11dixdixdixdixd1,1ix5,5dixdixdixdixdix1,1d5,5i1,1xd11,11ixdixdixdixdixdixdixdixdixdixdi",
        "11,11dixdixdixdixdi1,1x5,5dixd1,1ix5,5dixdixdi1,1x5,5dix1,1di11,11xdixdixdixdixdixdixdixdixdixdi",
        "11,11dixdixdixdixdi1,1xd5,5ixdi1,1xd5,5ixdixdi1,1x5,5di1,1x5,5d1,1i11,11xdixdixdixdixdixdixdixdixdixdi",
        "11,11dixdixdixdixdix1,1di5,5x1,1di5,5x1,1dixd5,5ixd1,1ix5,5d1,1ix5,5d1,1ix11,11dixdixdixdixdixdixdixdixdixdi",
        "11,11dixdixdixdixdixd1,1i5,5xdi1,1xd5,5ix1,1dixdi5,5x1,1di5,5xdi1,1x11,11dixdixdixdixdixdixdixdixdixdi",
        "11,11dixdixdixdixdixd1,1i5,5xdix1,1di5,5xdi1,1xd5,5i1,1xd5,5ixdi1,1xd11,11ixdixdixdixdixdixdixdixdixdi",
        "12,12dixdixdixdixdixd1,1i5,5xdixd1,1ixd5,5ixdi1,1x5,5dixdix1,1d12,12ixdixdixdixdixdixdixdixdixdi",
        "12,12dixdixdixdixdixd1,1i5,5xdixdix1,1di5,5xd1,1i5,5xdixdix1,1di12,12xdixdixdixdixdixdixdixdixdi",
        "12,12dixdixdixdixdixd1,1i5,5xdixdixd1,1ix5,5d1,1ix5,5dixdixd1,1ix12,12dixdixdixdixdixdixdixdixdi",
        "12,12dixdixdixdixdixd1,1i5,5xdixdixdi1,1x5,5di1,1x5,5dixdixdi1,1x12,12dixdixdixdixdixdixdixdixdi",
        "12,12dixdixdixdixdixd1,1i5,5xdixdixdix1,1d5,5i1,1xd5,5ixdixdi1,1xd12,12ixdixdixdixdixdixdixdixdi",
        "12,12dixdixdixdixdixd1,1ix5,5dixdixdix1,1di5,5x1,1di5,5xdixdix1,1d12,12ixdixdixdixdixdixdixdixdi",
        "6,6dixdixdixdixdixdi1,1x5,5dixdixdixd1,1ix5,5d1,1ix5,5dixdix1,1d6,6ixdixdixdixdixdixdixdixdi",
        "6,6dixdixdixdixdixdi1,1xd5,5ixdixdixdi1,1x5,5di1,1x5,5dixdix1,1di6,6xdixdixdixdixdixdixdixdi",
        "6,6dixdixdixdixdixdix1,1d5,5ixdixdixdi1,1x5,5di1,1x5,5dixdixd1,1ix6,6dixdixdixdixdixdixdixdi",
        "6,6dixdixdixdixdixdix1,1d5,5ixdixdixdi1,1x5,5di1,1x5,5dixdixdi1,1x6,6dixdixdixdixdixdixdixdi",
        "6,6dixdixdixdixdixdix1,1di5,5xdixdixdi1,1x5,5di1,1x5,5dixdixdi1,1xdi6,6xdixdixdixdixdixdixdi",
        "6,6dixdixdixdixd1,1ix6,6dixd1,1ix5,5dixdixdixdixdixdixdix1,1dixd6,6ixdixd1,1i6,6xdixdixdixdi",
        "13,13dixdixdi1,1x13,13dixdi1,1xdixdixd5,5ixdixdixdixdixdixdix1,1di5,5x1,1dixdixdi13,13xdixdixdixdi",
        "13,13dixdixdix1,1di13,13x1,1dixdixdixdixdixd5,5ixdixdixdi1,1xd5,5ixdixd1,1ixdi13,13xdixdixdixdixdi",
        "13,13dixdixdixd1,1ixdi5,5xdixd1,1ix5,5dixdix1,1di5,5xdix1,1dix5,5dix1,1di5,5xdixd1,1i5,5xd1,1ix13,13dixdixdixdixdi",
        "13,13dixdixdix1,1di5,5xdi1,1xdix5,5di1,1xd5,5ixdixdixdixdi1,1xd5,5ixd1,1i5,5xdixdi1,1xdixd13,13ixdixdixdixdi",
        "13,13dixdixdix1,1dix5,5dixdixdi1,1x5,5dixdixdixdixdixdixdixdix1,1dix5,5dix1,1di13,13xdixdixdixdi",
        "13,13dix1,1dix13,13d1,1ixd5,5i1,1xdix5,5di1,1xdixdix5,5dixdix1,1dix5,5di1,1xd5,5ixdixdi1,1xd5,5ixdixd1,1i13,13xdixdixdixdi",
        "4,4dix1,1d4,4i1,1xdi4,4x1,1d5,5ixdixdix1,1d5,5ixdix1,1di5,5xdixdi1,1xdixdix5,5dixdixdixdixd1,1i4,4xdixdixdixdi",
        "4,4dixdixdix1,1d5,5ixdixdixdixdixdixdixdixdixdixdixdixd1,1ixdixdi4,4xdixdixdixdi",
        "4,4dixdixdix1,1dixdix5,5dixdixdix1,1d5,5ixdi1,1xd5,5ixdi1,1xd5,5ixdixdixdixdix1,1dixd4,4ixdixdixdi",
        "4,4dixdix1,1dixdi5,5xdixdix1,1d5,5ixdixd1,1ixdixdix5,5d1,1ix5,5dixdixdi1,1xdi5,5xd1,1ixd4,4ix1,1dix4,4dixdixdi",
        "4,4dixd1,1ixd4,4ixd1,1ix5,5dixdi1,1xd5,5ixdix1,1dixd4,4ixdi1,1xdi5,5xdixdi1,1x5,5dixdi1,1xdi4,4xdixdixdixdixdi",
        "4,4dixd1,1i4,4xdixdi1,1xdix5,5d1,1ix5,5dixd1,1ixdi4,4x1,1dix4,4dix1,1dixdix5,5dix1,1dixdixdix4,4dixdixdixdixdi",
        "7,7dixdixdixdixdi1,1xdixdixdi7,7xd1,1i7,7xd1,1ix7,7di1,1xd7,7ixdix1,1dixdix7,7dixdi1,1x7,7dixdixdixdixdi",
        "7,7dixdixdixdixdixd1,1ix7,7dixdixdixd1,1i7,7xdi1,1x7,7dixdixdixdi1,1x7,7dixdix1,1d7,7ixdixdixdixdi",
        "7,7dixdixdixdixdix1,1di7,7xdixdixdixd1,1i7,7xdi1,1xd7,7ixdixdixdi1,1xd7,7ixdixdixdixdixdixdi",
        "7,7dixdixdixdixdi1,1xd7,7ixdixdixdixdixdix1,1di7,7xdixdixdix1,1di7,7xdixdixdixdixdixdi",
        "7,7dixdixdixdixdi1,1x7,7dixdixdixdixdixdix1,1di7,7xdixdixdixd1,1i7,7xdixdixdixdixdixdi"
    );

    for (my $i=0; $i < @dix; $i++) {
        delaycommand( "say ".$dix[$i] , $i);
    }

    return EAT_XCHAT;
}