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