on *:text:t*:#zurnaop:{
  if $regex(temiz tmz temız,$1) {
    inc $+(%,tmz,:,$nick)
    msg # Emeğinize sağlık, teşekkürler.
  }
  if temizliste == $1 { 
    if !$var(%tmz*,0) { msg # Hiç temiz raporu verilmedi. | halt }
    var %t 0
    var %a 1
    while %a <= $var(%tmz*,0) {
      msg # $gettok($var(%tmz*,%a),2,$asc(:)) nicki $var(%tmz*,%a).value temiz raporu vermiştir.
      inc %t $var(%tmz*,%a).value
      inc %a
    }
    msg # -
    msg # Toplam %t kere temiz raporu verilmiştir.
  }
  if $1 == temizsil { unset %tmz* | msg # Temiz listesi temizlenmiştir. }
}

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. }