Bone::Easy on IRC

[Beatnik]

Hey,
This isnt all THAT cool but worth mentioning :)
This is an XChat script that will send a Bone::Easy pickup line to the current channel. Simple but effective...

#!/usr/bin/perl

use Bone::Easy;

IRC::print "\0035:: Loading Bone::Easy ::\003 \n";
IRC::register ("Bone::Easy");
IRC::add_command_handler("bone", "bone");

sub bone { IRC::command pickup; 1; }

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.

[AgentM]

Nice job. Up until now, I've been doing it by hand. The #perlmonks thank you! ++


AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.