alias GetIdent {
  var %nick-ident = $remove($gettok($address($1,3),1,$asc(@)),*!*)
  return %nick-ident
}
alias BadIdentCheck {
  if ($1 == kassel) {
    return $true
  }
  else {
    return $false
  }
}

ON *:TEXT:!kick-kassel:#: {
  var %x = 1
  while ( %x <= $nick($chan,0) ) {
    if ( $BadIdentCheck($GetIdent($nick($chan,%x))) == $true ) {
      kick # $nick($chan,%x) kickmsg
    }
    inc %x
  }
}