| pCkOpAt |
28 Ocak 2019 19:30 |
Cevap: Shunlist hk.
@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Sorunun kaynağı if ($v1 isin $nick) { olarak kullanıldığı için _ işaretinin geçtiği her şeyi baz alır bunun yerine iswm kullanarak hem sorunu ortadan kaldırıp hemde joker karakterleri kullanma imkanınız olur. Ek olarak nick değişimlerinde aktif olması için kod ekledim.
Kod:
on !*:join:#sohbet:{
var %1 = 1
while ($read(dosya.txt,%1)) {
if ($v1 iswm $nick) {
inc %_bnick
msg #opers .shun $nick Tedbir.
msg #xxx 4 $date $time 1tarihinde 5 $nick 1giriş yaptı ve shun atıldı.
break
}
inc %1
}
}
on *:NICK: {
var %1 = 1
while ($read(dosya.txt,%1)) {
if ($v1 iswm $newnick) {
inc %_bnick
msg #opers .shun $newnick Tedbir.
break
}
inc %1
}
}
on *:input:*: {
if !$istok(#opers #opersohbet,$chan,32) {
if $regex($1,/^([.!]shun)/Si) {
if $2 == $null {
.timer -h 1 500 msg $chan 4HATA: 2Yetersiz ya da eksik kullanım. Lütfen seçenek belirtin; 4!shun ekle|sil|list
}
else {
if $2 == list {
if $lines(dosya.txt) == 0 {
.timer -h 1 500 msg $chan 2Shun listesinde kullanıcı bulunamadı.
}
else {
.timer -h 1 500 msg $chan 4Shun listesi sıralanıyor.
.timer -h 1 500 msg $chan $str(-,20)
var %1 1
while %1 <= $lines(dosya.txt) {
.timer -h 1 500 msg $chan %1 - $read(dosya.txt,%1)
inc %1
}
}
}
if $2 == ekle {
if $3 == $null {
.timer -h 1 500 msg $chan 2Lütfen bir nick seçiniz 4Kullanımı; !shun ekle nick
.halt
}
if $read(dosya.txt,w,$3) {
.timer -h 1 500 msg $chan 4 $+ $3 $+ , 2zaten listede ekli.
}
else {
write dosya.txt $3
.timer -h 1 500 msg $chan 4 $+ $3 $+ , 2ceza listesine eklenmiştir.
}
}
if $2 == sil {
if $3 == $null {
.timer -h 1 500 msg $chan 2Lütfen bir nick seçiniz 4Kullanımı; !shun sil nick
.halt
}
if !$read(dosya.txt,w,$3) {
.timer -h 1 500 msg $chan 4 $+ $3 $+ , 2listede bulunamadı.
}
else {
write -dw $+ $3 dosya.txt
.timer -h 1 500 msg $chan 4 $+ $3 $+ , 2Shun listesinden silinmiştir.
}
}
}
}
}
}
|
