on *:voice:#: {
  set %Kanal $chan
  if !$count($nick(#help,$vnick).pnick,%,@,&) {
    if $read(VoiceNick.txt,w,$+(*,$nick,*)) { write $+(-,l,$readn) VoiceNick.txt $nick $calc($token($read(VoiceNick.txt,$readn),2,32) + 1) }
    else { write VoiceNick.txt $nick 1 }
  }
}
on *:text:*:#: {
  if ($nick ison $chan) {
    if $1 == !voiceList {
      if $lines(VoiceNick.txt) == 0) { msg #  %Kanal Kanalinda Voice Verilmemistir. | halt }
      else {
        msg $chan - %Kanal Kanali Voice Bilgileri
        var %voice 1
        while %voice <= $lines(VoiceNick.txt) {
          msg $chan  $gettok($read(VoiceNick.txt,%voice),1,32) nickli Kisi $token($read(VoiceNick.txt,%voice),2,32))
          inc %voice
        }
        msg $chan Voice Vermisler.
      }
    }
    if $1 == !sifirla {
      msg $chan %kanal voice verme istatistikleri sifirlanmistir.
      var %t 1
      while %t <= $lines(VoiceNick.txt) {
        write $+(-,l,%t) VoiceNick.txt $token($read(VoiceNick.txt,%t),1,32) 0
        inc %t
      }
    }
  }
}

on *:voice:#:if !$regex($nick(#,$vnick).pnick,/[@&%]/) { writeini -n voice.ini $nick $+($chr(40),$date,$chr(41),---,$time,---,$vnick,) nickine $chan kanalında voice verdi. }
on *:playend:if $file(voice.ini) { msg %difychan -- Liste Sonu -- | unset %difychan }
on *:text:*:#denetim:{
  if $1 == !voicelist {
    if !$file(voice.ini) { msg $chan Hiç kayıt tutulmamış }
    elseif $ini(voice.ini,0,0) == 0 { msg $chan  - Kayıt bulunmuyor - } 
    elseif $ini(voice.ini,0,0) > 0 { var %dify 1 | while %dify <= $ini(voice.ini,0) { msg $chan $ini(voice.ini,%dify) nickinin voice sayısı : $ini(voice.ini,$ini(voice.ini,%dify),0) | inc %dify } }
  }
  elseif $1 == !detay && $2 {
    if !$ini(voice.ini,$2) { msg $chan - $2 nickinin kaydı bulunmuyor - }
    else { msg $chan $2 nickinin voice detayları listeleniyor: | set -e %difychan $chan | play $+(-t,$2) $chan voice.ini 750 }
  }
  elseif $1 == !sil && $2 {
    if !$ini(voice.ini,$2) { msg $chan - $2 nickinin kaydı bulunmuyor - }
    else { msg $chan - $2 nickinin voice kaydı silinmiştir. | .remini voice.ini $2 }
  }
  elseif $1 == !sıfırla { msg $chan * Tüm voice kayıtları silinmiştir. * | .remove voice.ini }
}