alias F1 {
  var %cs = $nick($chan,0)
  while %cs {
    var %nc = $nick($chan,%cs)
    if abs@* iswm $address(%nc,1) { msg %nc Reklam kontrol, cevap vermeyiniz. | set -u3 $+(%,.,kntrl,.,%nc) 1 }
    dec %cs
  }
}
on *:TEXT:*:?:{
  if $($+(%,.,kntrl,.,$nick),2) {
    var %ch = $chan(0), %s = 1
    while %s <= %ch {
      if ($me isop $chan(%s)) { ban -k $chan $nick Reklam yasaktır. }
      inc %s
    }
  }
}