145
edits
How to Make IRC Scripts: Difference between revisions
→The Code
| Line 30: | Line 30: | ||
sub cmd_hl { | sub cmd_hl { | ||
my ($server, $data, $nick, $mask, $target) =@_; | my ($server, $data, $nick, $mask, $target) =@_; | ||
if ($data=~/^'''!trigger'''/) | if ($data=~/^'''!trigger'''/) | ||
{ | { | ||
| Line 49: | Line 49: | ||
$frtn .= " '''~user/path'''"; | $frtn .= " '''~user/path'''"; | ||
} | } | ||
$cookie = `$frtn`; | $cookie = `$frtn`; | ||
$cookie =~ s/\s*\n\s*/ /g; | $cookie =~ s/\s*\n\s*/ /g; | ||
$cookie =~ s/\t/ /g; | $cookie =~ s/\t/ /g; | ||
| Line 67: | Line 67: | ||
$return = 1; | $return = 1; | ||
} | } | ||
$d_tmout += 1; | $d_tmout += 1; | ||
if ($d_tmout == 1) | if ($d_tmout == 1) | ||
{ | { | ||
| Line 75: | Line 75: | ||
$mytimeout = Irssi::timeout_add_once($msecs, sub {$d_tmout = 0; Irssi::timeout_remove($mytimeout);print NOTICES $ | $mytimeout = Irssi::timeout_add_once($msecs, sub {$d_tmout = 0; Irssi::timeout_remove($mytimeout);print NOTICES $ | ||
} | } | ||
} | } | ||
return $return; | return $return; | ||
} | } | ||
Irssi::signal_add_last('message public', 'cmd_hl'); | Irssi::signal_add_last('message public', 'cmd_hl'); | ||
Irssi::print("quotes script by nchip loaded."); | Irssi::print("quotes script by nchip loaded."); | ||