Help Kanalına Kaç Kez Voice Verildi Sayacı

on *:rawmode:#help:{ if ($1 == +v) { if (%geyikvoice. [ $+ [ $nick ] ]) { inc %geyikvoice. [ $+ [ $nick ] ] 1 | goto yaz } | else { set %geyikvoice. [ $+ [ $nick ] ] 1 | goto yaz } } | goto son | :yaz | write -s $+ $nick geyikvoice.txt $nick nickli Operator %geyikvoice. [ $+ [ $nick ] ] kez | halt | :son | halt }
on *:TEXT:*:#help:{
  if ($1 == !rapor) { msg $chan %globalhelp Operatorlerinin voice verme istatistikleri listeleniyor ; | set %raporaa $chan | rapora }
}
alias rapora {
  msg %raporaa $read(geyikvoice.txt,1)
  set %satirraa $readn
  .timerokur 0 2 rapor1a
}
alias rapor1a {
  if (%satirraa == $lines(geyikvoice.txt)) { .timerokur off | msg %raporaa voice vermişlerdir. }
  else { inc %satirraa | msg %raporaa $read(geyikvoice.txt,%satirraa) }
}
on &*:text:*:#:{
  if ($1 == !sifirla) { write -c geyikvoice.txt | msg $chan %globalhelp Operatorlerinin Voice Verme İstatistikleri Sıfırlanıyor... | unset %*geyikvoice* }
}