#!/usr/local/bin/perl -w

use strict;
use Data::Dumper;
my $mlw = 410;

Xchat::hook_command("chr", "pota_coderssumsum");

sub pota_coders2ret($$) {
    my ($txt, $nr) = @_;
    my @tA = split(/\s/, $txt);
    for(my $i = 0;$i < scalar(@tA);$i++) {
        $tA[$i] = "\003" . $i . "," . ($i+$nr) . $tA[$i];
    }
    my $ret = join(' ', @tA);
    $ret = "\00310,20" . $txt;
    return $ret;
}

sub pota_coderssumrand {
    #my $txt = shift;
    my $txt = $_[1][0];
#    my $et = "";
#    my $b = 0;
#    my $i = 0;
#    while(length($et) + $b < $mlw) {
#       $i = length($et);
#        $et .= pota_coders2ret($txt, int(rand(16)));
#        if($b < (length($et) - $i)) {
#           $b = (length($et) - $i);
#       }
#       
#    }
#    IRC::command("$et", Xchat::get_info('channel'), Xchat::get_info('server'));
    IRC::command("belso : $txt", Xchat::get_info('channel'), Xchat::get_info('server'));
    return 1;
}

sub pota_coderssumsum {
    #my $txt = shift;
    my $txt = $_[1][1];
#    my $v = int(rand(3)) + 3;
#    $v = 1;
#    for(my $i=0;$i<$v;$i++) {
        pota_coderssumrand($txt);
#    }
    IRC::command("kulso : $txt", Xchat::get_info('channel'), Xchat::get_info('server'));
    return 1;
}
coders.pl (END)