IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Listeden ismi bulup değer verme (https://www.ircforumlari.net/mirc-scripting-sorunlari/340193-listeden-ismi-bulup-deger-verme.html)

Listeden ismi bulup değer verme

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 :)
ö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 :)

!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.

Cevap: Listeden ismi bulup değer verme

Kod:

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

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