|
|
|
@ -428,12 +428,12 @@ sub cmd_fk {
|
|
|
|
$n0thing_kickpat=$newarg;
|
|
|
|
$n0thing_kickpat=$newarg;
|
|
|
|
&slashify($n0thing_kickpat);
|
|
|
|
&slashify($n0thing_kickpat);
|
|
|
|
$n0thing_kickmsg=$args || "though names may change each face retains the mask it wore";
|
|
|
|
$n0thing_kickmsg=$args || "though names may change each face retains the mask it wore";
|
|
|
|
&addhook("352", "doftdelist");
|
|
|
|
&addhook("352", "dofklist");
|
|
|
|
&addhook("315", "donefk");
|
|
|
|
&addhook("315", "donefk");
|
|
|
|
&sl("WHO $talkchannel");
|
|
|
|
&sl("WHO $talkchannel");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
&addcmd("fk");
|
|
|
|
&addcmd("fk");
|
|
|
|
sub hook_doftdelist {
|
|
|
|
sub hook_dofklist {
|
|
|
|
local($a)=@_;
|
|
|
|
local($a)=@_;
|
|
|
|
local($c, $c, $u, $h, $s, $n)=split(/ +/, $a);
|
|
|
|
local($c, $c, $u, $h, $s, $n)=split(/ +/, $a);
|
|
|
|
(($n."!".$u."\@".$h) =~ /${n0thing_kickpat}/i) && $n ne $nick &&
|
|
|
|
(($n."!".$u."\@".$h) =~ /${n0thing_kickpat}/i) && $n ne $nick &&
|
|
|
|
@ -441,7 +441,7 @@ sub hook_doftdelist {
|
|
|
|
$silent=1;
|
|
|
|
$silent=1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
sub hook_donefk {
|
|
|
|
sub hook_donefk {
|
|
|
|
&remhook("352", "doftdelist");
|
|
|
|
&remhook("352", "dofklist");
|
|
|
|
&remhook("315", "donefk");
|
|
|
|
&remhook("315", "donefk");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
sub cmd_setaway {
|
|
|
|
sub cmd_setaway {
|
|
|
|
|
