on *:text:*:#:{
  if $chan == #zurnaop && $regex($1,/^t(e?)m(i|ı)z/i) {
    msg #zurnaop Emeğinize sağlık teşekkürler.
    if !$read(temizle.txt,w,$+(*,$nick,*)) { write temizle.txt $nick 1 }
    else { 
      var %dify $readn 
      var %yeah = $calc($token($read(temizle.txt,%dify),2,32) +1) 
      write $+(-l,%dify) temizle.txt $nick %yeah 
    }
  }
  if $chan == #zurnahelp && $1 == !temizlelist { 
    msg #zurnahelp Temizle komutu kullanım listesi:
    play #zurnahelp temizle.txt 1000
  }
}
on *:playend:if $filename == temizle.txt { msg #zurnahelp Liste sonu. }