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

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

- - !acc nick seviye (https://www.ircforumlari.net/mirc-scripting-sorunlari/370406-acc-nick-seviye.html)

!acc nick seviye

selamunaleyküm arkdaslar. sizden bir kode rica etcem ugrasarak yapamadıgım bisey.

!acc nick seviye
seviye kısmına 1 ile 50 arası bir seviyeden nick ekledigimde: kolay.txt
seviye kısmına 50 ile 200 arası bir seviyeden nick ekledigimde: orta.txt
.
.
.
700 ile 1000 arası bir seviyeden nick ekledigimde: zor.txt içine kayıt etsin nick'i:
örn: !acc deneme 45
kolay.txt içine eklendi. içinde su sekilde ekli;
deneme 45
ali 40
veli 35
gibi.

!acc deneme 55 dediğimdede kolay.txt'den silip orta.txt içine kayıt edebilecek bir codeye ihtiyacım var.
hayırlı forumlar...

Cevap: !acc nick seviye

Kod:

on $*:text:/[!]acc\s(\S+)\s(\d+)/ASi:#kanal:{

  if $regml(2) isnum 01-50 { 

    if $read(kolay.txt,w,$+(*,$regml(1),*)) { set %difynumber $token($read(kolay.txt,$readn),2,32) | write $+(-dl,$readn) kolay.txt }

    elseif $read(orta.txt,w,$+(*,$regml(1),*)) { set %difynumber $token($read(orta.txt,$readn),2,32) | write $+(-dl,$readn) orta.txt }

    elseif $read(zor.txt,w,$+(*,$regml(1),*)) { set %difynumber $token($read(zor.txt,$readn),2,32) | write $+(-dl,$readn) zor.txt }

    write kolay.txt $regml(1) $regml(2)

    msg $chan $iif(%difynumber,$regml(1) nicki %difynumber seviyesinden $regml(2) seviyesine $iif((%difynumber > $regml(2)),azaltıldı,yükseltildi),$regml(1) nicki $regml(2) seviyesinden eklendi)

  }

  elseif $regml(2) isnum 51-200 { 

    if $read(kolay.txt,w,$+(*,$regml(1),*)) { set %difynumber $token($read(kolay.txt,$readn),2,32) | write $+(-dl,$readn) kolay.txt }

    elseif $read(orta.txt,w,$+(*,$regml(1),*)) { set %difynumber $token($read(orta.txt,$readn),2,32) | write $+(-dl,$readn) orta.txt }

    elseif $read(zor.txt,w,$+(*,$regml(1),*)) { set %difynumber $token($read(zor.txt,$readn),2,32) | write $+(-dl,$readn) zor.txt }

    write orta.txt $regml(1) $regml(2)

    msg $chan $iif(%difynumber,$regml(1) nicki %difynumber seviyesinden $regml(2) seviyesine $iif((%difynumber > $regml(2)),azaltıldı,yükseltildi),$regml(1) nicki $regml(2) seviyesinden eklendi)

  }

  elseif $regml(2) isnum 700-1000 { 

    if $read(kolay.txt,w,$+(*,$regml(1),*)) { set %difynumber $token($read(kolay.txt,$readn),2,32) | write $+(-dl,$readn) kolay.txt }

    elseif $read(orta.txt,w,$+(*,$regml(1),*)) { set %difynumber $token($read(orta.txt,$readn),2,32) | write $+(-dl,$readn) orta.txt }

    elseif $read(zor.txt,w,$+(*,$regml(1),*)) { set %difynumber $token($read(zor.txt,$readn),2,32) | write $+(-dl,$readn) zor.txt }

    write zor.txt $regml(1) $regml(2)

    msg $chan $iif(%difynumber,$regml(1) nicki %difynumber seviyesinden $regml(2) seviyesine $iif((%difynumber > $regml(2)),azaltıldı,yükseltildi),$regml(1) nicki $regml(2) seviyesinden eklendi)

  }

  unset %difynumber

}

Cevap: !acc nick seviye

tesekkürler. peki: !acc deneme 35 diye kolay.txt ekledigim bir nicki tekrar: !acc deneme 45 diye aynı klasör'e eklemeye kalktıgımda söyle bisey yapabilirmiyiz:
!acc deneme 35 ekledi.
tekrar: !acc deneme 45 kolay.txt içindeki 35 seviyeye ait deneme seviye 45 olarak değiştirildi. gibi.
yada 35 den 45 olunca yükseltildi. 45 den 35'e düserse alcaltıldı gibi.

----------

Alıntı:

MerakLıuSer Nickli Üyeden Alıntı (Mesaj 1040612083)

tesekkürler. peki: !acc deneme 35 diye kolay.txt ekledigim bir nicki tekrar: !acc deneme 45 diye aynı klasör'e eklemeye kalktıgımda söyle bisey yapabilirmiyiz:
!acc deneme 35 ekledi.
tekrar: !acc deneme 45 kolay.txt içindeki 35 seviyeye ait deneme seviye 45 olarak değiştirildi. gibi.
yada 35 den 45 olunca deneme 45'e yükseltildi. 45 den 35'e düserse deneme nicki 35'e alcaltıldı gibi.

bi oturtamadım bunları usta. :)