on *:nick:{
  if (kelebek* iswm $newnick) { 
    var %a 1
    while %a <= $comchan($newnick,0) {
      if $me isop $comchan($newnick,%a) {
        mode $comchan($newnick,%a) -v $newnick
        %opchannel = $addtok(%opchannel,$comchan($newnick,%a),32)
      }
      if $me !isop $comchan($newnick,%a) { msg $comchan($newnick,%a) !k $newnick }
      inc %a
    }
    if %opchannel != $null { 
      msg $token(%opchannel,1,32) $newnick Nickiniz Kanal Seviyesine Uygun Değildir!!
      $+(.timer,$newnick) 1 30 allkick1 $newnick 
    }
    unset %opchannel
  }
}