fig

#!/usr/bin/perl -w
IRC::register(”SteveCs figlet script”, “0.1″, “”, “”);
IRC::print “Loading SteveCs figlet script 0.1\n”;
IRC::add_command_handler(”fig”, “stevec_figlet”);
sub stevec_figlet
{
@a=`figlet @_`;
for $b (@a){
chop $b;
IRC::command(” $b”); #don’t just print $b if it starts
} #with a / or \ then the server
return 1; #might get angry and screw us up
}

#guardar este script como .pl en .xchat2 )

y luego /fig palabra )

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: