Shunlist hk.

[SampLeSs]

Selamlar herkese, kendimce bir kod yapmaya çalıştım. Kodları birleştirerek yaptığım bu çalışmada kanala giren ____ nickini shunlu liste eklediğim zaman alper____ nicki de shun yiyor. Bu sorunu çözmek istiyorum. Birde shunliste eklediğim insan farklı nickle login olup nickini shunlistteki yaparsa yine shun yesin istiyorum. Yardımlarınız için teşekkürler.

on !*:join:#sohbet:{
var %1 = 1
while ($read(dosya.txt,%1)) {
if ($v1 isin $nick) {
inc %_bnick
timerlmr 1 3 /msg #opers .shun $nick Tedbir.
timerlms 1 4 /msg #xxx 4 $date $time 1tarihinde5 $nick 1giriş yaptı ve shun atıldı.
break
}
inc %1
}
}
on *:input:*: {
if !$istok(#opers #opersohbet,$chan,32) {
if $regex($1,/^([.!]shun)/Si) {
if $2 == $null {
msg #xxx 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 {
msg #xxx 2Shun listesinde kullanıcı bulunamadı.
}
else {
msg #xxx 4Shun listesi sıralanıyor.
msg #xxx $str(-,20)
var %1 1
while %1 <= $lines(dosya.txt) {
msg $chan %1 - $read(dosya.txt,%1)
inc %1
}
}
}
if $2 == ekle {
if $3 == $null {
msg #xxx 2Lütfen bir nick seçiniz 4Kullanımı; !shun ekle nick
.halt
}
if $read(dosya.txt,w,$3) {
msg #xxx 4 $+ $3 $+ , 2zaten listede ekli.
}
else {
write dosya.txt $3
msg #xxx 4 $+ $3 $+ , 2ceza listesine eklenmiştir.
}
}
if $2 == sil {
if $3 == $null {
msg #xxx 2Lütfen bir nick seçiniz 4Kullanımı; !ceza sil nick
.halt
}
if !$read(dosya.txt,w,$3) {
msg #xxx 4 $+ $3 $+ , 2listede bulunamadı.
}
else {
write -dw $+ $3 dosya.txt
msg #xxx 4 $+ $3 $+ , 2Shun listesinden silinmiştir.
}
}
}
}
}
}

[pCkOpAt]

SampLeSs


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.




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 1tarihinde5 $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.
}
}
}
}
}
}