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