ali
veli 
ahmet
ahmet
ali
ali
veli
veli
ahmet
ahmet

alias tlist { 
  var %x = 1
  var %t = $lines(tmz.txt)
  while %x <= %t {
    echo -a 4Toplam3 $read(tmz.txt,%x) 4kere temizle raporu vermiştir.
    inc %x
  }
}
on *:text:*:#: {  
  if $nick isop # {
    if temiz isin $strip($1) || tmz isin $strip($1) || temız isin $strip($1) { set %tn $nick | inc %tnck $+ %tn
      if $read(tmz.txt,w,%tn $+ *) { set %tnc tnck $+ %tn }
      if $read(tmz.txt,w,%tn $+ *) { write $+(-dl,$readn) tmz.txt }
      write tmz.txt $nick % $+ %tnc
    }
  }
  if $chan == #zurnaop {
  if $nick isop # {
    if $strip($1) == !temizlelist { tlist }
    }
  }
}

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