All pastes #772945 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-11-14 04:28 UTC
rendered paste body
#!/usr/bin/perl
package Xchat::CH::Nazicube;
my $NAME    = 'NAZICUBE';
my $VERSION = 'v.1';
my $COMMAND = "NAZI";
Xchat::register($NAME, $VERSION, "NAZICUBE");
Xchat::print("\02$NAME $VERSION\02 by CH (use /$COMMAND)");
my $pkg = __PACKAGE__;
Xchat::hook_command( $COMMAND, "${pkg}::command", {help_text=>$USAGE} );
sub command {
Xchat::command("say 1,1...................4,4.........................................");
Xchat::command("say 1,1..................4,4..1,1......4,4.0,0.......4,4.1,1.........................4,4.");
Xchat::command("say 1,1.................4,4.1,1..4,4.1,1......4,4.0,0.......4,4.1,1.........................4,4.");
Xchat::command("say 1,1................4,4.1,1....4,4.1,1......4,4.0,0.......4,4.1,1.........................4,4.");
Xchat::command("say 1,1...............4,4.1,1.....4,4..1,1......4,4.0,0.......4,4.1,1........4,4.................4,4.");
Xchat::command("say 1,1..............4,4.1,1.....4,4.0,0..4,4.1,1......4,4.0,0.......4,4.1,1........4,4.0,0................4,4.");
Xchat::command("say 1,1.............4,4.1,1.....4,4.0,0....4,4.1,1......4,4.0,0.......4,4.1,1........4,4.0,0................4,4.");
Xchat::command("say 1,1............4,4.1,1.....4,4.0,0......4,4.1,1......4,4.4,4.......4,4.1,1........4,4.4,4................4,4.");
Xchat::command("say 1,1...........4,4.1,1.....4,4.0,0.......4,4..1,1........................................4,4.");
Xchat::command("say 1,1..........4,4.1,1.....4,4.0,0.......4,4.1,1..4,4.1,1........................................4,4.");
Xchat::command("say 1,1.........4,4.1,1......4,4.0,0......4,4.1,1....4,4.4,4..............1,1..........4,4........1,1........4,4.");
Xchat::command("say 1,1........4,4.4,4.1,1.......4,4.0,0....4,4.1,1......4,4.0,0.............4,4.1,1.........4,4.0,0.......4,4.1,1........4,4.");
Xchat::command("say 1,1.......4,4.0,0..4,4.1,1.......4,4.0,0..4,4.1,1........4,4.0,0.............4,4.1,1.........4,4.0,0.......4,4.1,1........4,4.");
Xchat::command("say 1,1......4,4.0,0....4,4.1,1.......4,4..1,1..........4,4.0,0.............4,4.1,1.........4,4.0,0.......4,4.1,1........4,4.");
Xchat::command("say 1,1.....4,4..0,0.....4,4.1,1............4,4..1,1.....4,4.4,4.............4,4.1,1.........4,4.0,0.......4,4.1,1........4,4.");
Xchat::command("say 1,1....4,4.1,1..4,4.0,0.....4,4.1,1..........4,4.0,0..4,4.1,1.....4,4.1,1.......................4,4.0,0.......4,4.1,1........4,4.");
Xchat::command("say 1,1...4,4.1,1....4,4.0,0.....4,4.1,1........4,4.0,0....4,4.1,1.....4,4.1,1.......................4,4.0,0.......4,4.1,1........4,4.");
Xchat::command("say 1,1...4,4.1,1.....4,4.0,0.....4,4.1,1.......4,4.0,0.....4,4.1,1.....4,4.4,4.......................4,4.4,4.......4,4.4,4........4,4.");
Xchat::command("say 1,1....4,4.1,1.....4,4.0,0....4,4.1,1........4,4.0,0.....4,4.1,1....4,4.1,1......4,4.4,4.......4,4.1,1.........................4,4.");
Xchat::command("say 1,1.....4,4.1,1.....4,4.0,0..4,4.1,1..........4,4.0,0.....4,4.1,1..4,4.1,1......4,4.0,0.......4,4.1,1.........................4,4.");
Xchat::command("say 1,1......4,4.1,1.....4,4..1,1............4,4.0,0.....4,4..1,1......4,4.0,0.......4,4.1,1........4,4..................");
Xchat::command("say 1,1.......4,4.1,1..........4,4..1,1.......4,4.0,0....4,4.1,1......4,4.0,0.......4,4.1,1........4,4.0,0................4,4.");
Xchat::command("say 1,1........4,4.1,1........4,4.0,0..4,4.1,1.......4,4.0,0..4,4.1,1......4,4.0,0.......4,4.1,1........4,4.0,0................4,4.");
Xchat::command("say 1,1.........4,4.1,1......4,4.0,0....4,4.1,1.......4,4..1,1......4,4.0,0.......4,4.1,1........4,4.0,0................4,4.");
Xchat::command("say 1,1..........4,4.1,1....4,4.0,0......4,4.1,1......4,4.1,1......4,4.4,4.......4,4.1,1........4,4.4,4................4,4.");
Xchat::command("say 1,1...........4,4.1,1..4,4.0,0.......4,4.1,1.....4,4.1,1........................................4,4.");
Xchat::command("say 1,1............4,4..0,0.......4,4.1,1.....4,4.1,1........................................4,4.");
Xchat::command("say 1,1.............4,4.0,0......4,4.1,1.....4,4.4,4..............1,1.........4,4.......1,1..........4,4.");
Xchat::command("say 1,1..............4,4.0,0....4,4.1,1.....4,4.0,0..............4,4.1,1........4,4.0,0.......4,4.1,1........4,4.");
Xchat::command("say 1,1...............4,4.0,0..4,4.1,1.....4,4.0,0..............4,4.1,1........4,4.0,0.......4,4.1,1........4,4.");
Xchat::command("say 1,1................4,4..1,1.....4,4.4,4..............4,4.1,1........4,4.0,0.......4,4.1,1........4,4.");
Xchat::command("say 1,1.................4,4.1,1....4,4.1,1.......................4,4.0,0.......4,4.1,1........4,4.");
Xchat::command("say 1,1..................4,4.1,1..4,4.1,1.......................4,4.0,0.......4,4.1,1........4,4.");
Xchat::command("say 1,1...................4,4..4,4.......................4,4.4,4.......4,4.4,4.........");
return Xchat::EAT_ALL;
}
1;
__END__