Something

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

use Irssi;
use Irssi::Irc;

$VERSION = "1.488";
%IRSSI = (
        authors     => "Rucas and Falso",
        contact     => "falso\@rdk.homeip.net",
        name        => "Death 2 Terms",
        description => "Rucas'd Zalgo-ing script based on tchouky\'s javascript Zalgo text generator - http://www.eeemo.net/",
        license     => "BDSM"
);
my @zalgo_up = (
        "\x{030d}",      "\x{030e}",     "\x{0304}",     "\x{0305}",
        "\x{033f}",      "\x{0311}",     "\x{0306}",     "\x{0310}",
        "\x{0352}",      "\x{0357}",     "\x{0351}",     "\x{0307}",
        "\x{0308}",      "\x{030a}",     "\x{0342}",     "\x{0343}",
        "\x{0344}",      "\x{034a}",     "\x{034b}",     "\x{034c}",
        "\x{0303}",      "\x{0302}",     "\x{030c}",     "\x{0350}",
        "\x{0300}",      "\x{0301}",     "\x{030b}",     "\x{030f}",
        "\x{0312}",      "\x{0313}",     "\x{0314}",     "\x{033d}",
        "\x{0309}",      "\x{0363}",     "\x{0364}",     "\x{0365}",
        "\x{0366}",      "\x{0367}",     "\x{0368}",     "\x{0369}",
        "\x{036a}",      "\x{036b}",     "\x{036c}",     "\x{036d}",
        "\x{036e}",      "\x{036f}",     "\x{033e}",     "\x{035b}",
        "\x{0346}",      "\x{031a}",
        "\x{0316}",      "\x{0317}",     "\x{0318}",     "\x{0319}",
        "\x{031c}",      "\x{031d}",     "\x{031e}",     "\x{031f}",
        "\x{0320}",      "\x{0324}",     "\x{0325}",     "\x{0326}",
        "\x{0329}",      "\x{032a}",     "\x{032b}",     "\x{032c}",
        "\x{032d}",      "\x{032e}",     "\x{032f}",     "\x{0330}",
        "\x{0331}",      "\x{0332}",     "\x{0333}",     "\x{0339}",
        "\x{033a}",      "\x{033b}",     "\x{033c}",     "\x{0345}",
        "\x{0347}",      "\x{0348}",     "\x{0349}",     "\x{034d}",
        "\x{034e}",      "\x{0353}",     "\x{0354}",     "\x{0355}",
        "\x{0356}",      "\x{0359}",     "\x{035a}",     "\x{0323}",
        "\x{0315}",      "\x{031b}",     "\x{0340}",     "\x{0341}",
        "\x{0358}",      "\x{0321}",     "\x{0322}",     "\x{0327}",
        "\x{0328}",      "\x{0334}",     "\x{0335}",     "\x{0336}",
        "\x{034f}",      "\x{035c}",     "\x{035d}",     "\x{035e}",
        "\x{035f}",      "\x{0360}",     "\x{0362}",     "\x{0338}",
        "\x{0337}",      "\x{0361}",     "\x{0489}"
);

sub irand {
        return int(rand($_[0]));
}

sub rand_zalgo
{
        return $_[irand(scalar(@_))];
}

sub he_comes
{
        my $newtxt = '';

        for(my $i=0; $i<=1000; $i++)
        {

                $newtxt .= "\002\003".irand(15).",".irand(15);
                $newtxt .= rand_zalgo(@zalgo_up);
                $newtxt .= rand_zalgo(@zalgo_up);
                $newtxt .= rand_zalgo(@zalgo_up);
                $newtxt .= rand_zalgo(@zalgo_up);
                $newtxt .= rand_zalgo(@zalgo_up);

        }

        return $newtxt;
}


sub irssi_zalgoamento
{
                my ($s, $server, $witem) = @_;
                $witem->command("msg " . $witem->{name} . " ". he_comes());
}

Irssi::command_bind('zalgo', 'irssi_zalgoamento');