##############################################################################
#
#
# Version FIVE
#
# This program takes no arguments.  It doesn't take shit from _anyone_.
#
#
##############################################################################

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

use Irssi;
use Irssi::Irc;
my ($cnt,$col1,$col2);
$VERSION = '1.00';
%IRSSI = (
    authors     => 'Eris',
    contact     => 'eris@servergirl.net',
    name        => 'stripey',
    description => 'Prints discordian date',
    license     => 'Public Domain',
);

sub stripey_own_pub_msg {
 my ($server,$targetchan,$msg,$type)=@_;
 if(($cnt++) & 1) {
  $msg =~ s/(.)(.)|(.)/$col1$1$3$col2$2/g;
 } else {
  $msg =~ s/(.)(.)|(.)/$col2$1$3$col1$2/g;
 }
 $server->command("/QUOTE PRIVMSG " . $targetchan . " :$msg");
 Irssi::signal_stop();
}

sub stripey_change_settings {
    $col1=Irssi::settings_get_str('stripey_color1');
    $col2=Irssi::settings_get_str('stripey_color2');
}

#Irssi::signal_add_last('message public', 'pub_msg');
# "server sendmsg", SERVER_REC, char *target, char *msg, int target_type
Irssi::signal_add('server sendmsg','stripey_own_pub_msg');
#Irssi::command_bind("stripey", "cmd_stripey");
Irssi::signal_add('setup changed', 'stripey_change_settings');
Irssi::signal_add('setup reread', 'stripey_change_settings');
#Irssi::settings_add_str('stripey', 'stripey_trigger', 'stripey');
Irssi::settings_add_str('stripey', 'stripey_color1', 'a');
Irssi::settings_add_str('stripey', 'stripey_color2', 'b');
stripey_change_settings();