Tekil Mesaj gösterimi
Alt 11 Aralık 2010, 20:49   #2
Çevrimdışı
Difuzyon
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !acc nick seviye




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 }



Konu Difuzyon tarafından (11 Aralık 2010 Saat 23:01 ) değiştirilmiştir. Sebep: aşağıdaki istek ilave edildi.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet bizimmekan sohbet odaları