[mrdamned]

merhaba arkadaşlar. herkese iyi günler dilerim.

ben bir oyun botu yazıyorum fakat biraz farklı bir şey olacak. diğerleri gibi bunuda kısmetse paylaşacağım. takıldığım yerlerde var tabiki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

örneğin
!oyver nick denildiği zaman, oylar.txt nin içerisinde o nick mevcut ise, onun değerini 1 arttıracak. farz-ı misal;

ahmet 5
mehmet 10
kadir 9
fatma 8

oylar.txt listemiz bu. ben !oyver ahmet dediğim zaman, listedeki ahmet'in 5 değeri 1 artacak. ahmet nicki yoksada ahmet'e 1 değeri verilecek.

2. sorum ise, bu listeyi okutmak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


!oylar dediğim zaman #oyun kanalına listeyi baştan aşağı nasıl okutabilirim?
şimdiden ilgi ve alakanıza teşekkür eder, saygılarımı sunarım.

[Difuzyon]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;\\\\\\\\\\\\\\\\\\\\\\\\\\  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///////////////////////////////////