145
edits
How to Make IRC Scripts: Difference between revisions
→The Code
| Line 19: | Line 19: | ||
Here is the code for a fortune file IRC reader thing. You will need to edit the things in bold. | Here is the code for a fortune file IRC reader thing. You will need to edit the things in bold. | ||
use Irssi; | use Irssi; | ||
use Irssi::Irc; | use Irssi::Irc; | ||
use vars qw($VERSION %IRSSI); | use vars qw($VERSION %IRSSI); | ||
$mytimeout; | $mytimeout; | ||
$d_tmout = 0; | $d_tmout = 0; | ||
'''$msecs = 300000;''' | '''$msecs = 300000;''' | ||
'''$limit = 1;''' | '''$limit = 1;''' | ||
sub cmd_hl { | sub cmd_hl { | ||
my ($server, $data, $nick, $mask, $target) =@_; | my ($server, $data, $nick, $mask, $target) =@_; | ||