;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;\\\\\\\\\\\\\\\\\\\\\\\\\\  Nicklere Oy Verme /////////////////////////////////////
;Editlemeniz gereken yerler: #kanal
;Yanıt verilen komut mesajları: !oyver nick    ,   !toplist
;Koddan kendi nickinizinde yararlanmasını istiyorsanız,başka bir mirc botunuza ekleyiniz.
;Paylaşımda biz %dostlar hep %var 'ız.
;//////////////////////////// Product By Dify  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;////////////////////////////////////////////////////////////////////////////////////
;////////////////////////////////////////////////////////////////////////////////////
on $*:text:/^[!](oyver|toplist)/Si:#kanal:{
  var %Heidi = oylar.txt, %Hesna = $2, %XcLusive = toplist.txt
  goto $regml(1)
  :oyver
  if !$read(%Heidi,r,%Hesna) { write %Heidi %Hesna puanı= 1 }
  else {
    var %CesuryureK = $readn, %L4roXyL = $calc($token($read(%Heidi,%CesuryureK),3,32) +1)
    write $+(-l,%CesuryureK) %Heidi %Hesna $&
      puanı= %L4roXyL 
  }
  halt
  :toplist
  filter -ffcteu 3 32 %Heidi %XcLusive
  msg $chan * Puanlar Listeleniyor *
  .play $chan %XcLusive 900
}
on *:playend:if $regex($nopath($filename),/^toplist\.txt$/) { msg #kanal ---Liste Sonu--- }
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\Hoşca Paylaşımlar///////////////////////////////////