Unnamed

alias wkick {
  var %a 1
  var %b $active
  while ($nick(%b,%a)) {
    var %n $v1
    if (($+(*,$$1,*) iswm %n) && (%n != $me) && (%n != chanserv)) kick %b %n $2-
    inc %a
  }
  return
}


To use the script do
/wkick C MSG
Where C = Character you would like to kick

EG. /wkick le BYE
will kick everyone that has *le* in their name with the message BYE 
if you need help join #leaX on gamesurge