on @*:text:**:#: {
  if $nick !isreg # || $istok(ahmet hüsamettin,$nick,32) { return }
  if !$var($+(%,koruma,$nick),1) {
    hinc -mu15 renk $+($chan,.,$nick) 1
    if $hget(renk,$+($chan,.,$nick)) == 1 {
      msg # ........ 
    }
    if $hget(renk,$+($chan,.,$nick)) == 2 {
      msg # .....................  
    }
    if $hget(renk,$+($chan,.,$nick)) == 3 { 
      .kick # $nick        
      .hdel -s renk $+($chan,.,$nick))
    }
  }
}
on *:dehelp:#:set -u2 $+(%,koruma,$hnick) $hnick
on *:deop:#:set -u2 $+(%,koruma,$opnick) $opnick
on *:devoice:#:set -u2 $+(%,koruma,$vnick) $vnick