on @*:text:**:#: {
if $nick !isreg # || $istok(ahmet hüsamettin,$nick,32) { return }
  if ($nick isop $chan) || ($nick == $me) { halt }
  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))
  }
}