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 ($6 isop $2) || ($istok(#k #kanal2 #kanal3,$2,32)) return
      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) }
  }
}