on *:text:*:?:{
  inc $+(%,$nick,.,msg)
  if $+(%,$nick,.,msg) == 1 { .msg $nick Yazma bana. }
  if $+(%,$nick,.,msg) == 2 { .msg $nick Yazmasana? }
  if $+(%,$nick,.,msg) == 3 { .msg $nick Yazma diyorum. }
  if $+(%,$nick,.,msg) == 4 { .msg $nick Bu dört oldu; yazma! }
  else unset $+(%,$nick,.,msg)
}