on armed:TEXT:*`ban *:#: {
var %n , %i , %l = 1 | while ($nick($chan,%l)) {
%n = $ifmatch
if ($2 isin %n) && (%n != $me) %i = $addtok(%i,%n,32)
inc %l
}
if ($numtok(%i,32) > 0) access # add deny $ial(%i).addr 1440 :DeathBAN | kick # %i C-YA in 24 hours, very nice person | halt
else /msg $active Sorry $nick $+ , no users have been found matching that phrase in their nickname.
}
on armed:text:*`kick*:#: {
set %chan $comchan($nick,1) | set %i $nick(%chan $+ ,0) | set %hit 0 | unset %kicknick | unset %kickaddr | unset %kickchan
:next
if ($2 isin $nick(%chan $+ ,%i)) { inc %hit | set %kickaddr $ial($nick(%chan $+ ,%i) $+ *,1).addr | set %kicknick $nick(%chan $+ ,%i) | set %kickchan $comchan($nick(%chan %+ ,%i),1) | if %hit > 1 { /notice $nick Too many hits, narrow your search! | halt } }
dec %i | if %i > 0 goto next | if %hit = 0 { msg # No nicks found that match $2 $+ ! }
if %i == 0 && %hit != 0 { kick %kickchan %kicknick $3-
}
}
There ya go works gr8 in GD. Original coding I forget, but credits to Tgk for tweaks.
Just ccp part of the "funny" nick and bam they are history.