alias control {
  if ($nick isop #) || ($istok(#kanal1 #kanal2 #kanal3,#,32)) return
  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 («BadTara» Uygunsuz rumuz kullanmak yasak! Lütfen yeni rumuz seçiniz. }
      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) }
  }
}