alias control {
  if $chan(0) >= 1 { set %difi $regsubex($dde(mirc,channels),/\*/,$null) }
  who +c $token(%difi,1,32)
}
raw 352:*:{ 
  if %difi {
    haltdef
    if $regex($level($6),/^(bad)$/) {
      if $me isop $2 || $me ishop $2 { mode $2 +b $6 | kick $2 $6 Badnickler dışarı! }
      else { echo 06 -a $+([,$2,]) kanalında $qt($6) badnick tanımına uyuyor }
    }
  }
}
raw 315:*:{
  if %difi {
    haltdef
    set %difi $deltok(%difi,1,32)
    if $numtok(%difi,32) == 0 { unset %difi }
    else { who +c $token(%difi,1,32) }
  }
}