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

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

- - Tekrar Korumasında bir Sorun!.. (https://www.ircforumlari.net/mirc-scripting-sorunlari/7337-tekrar-korumasinda-bir-sorun.html)

Tekrar Korumasında bir Sorun!..

alias sequuummm {
if %KanalaTekrar == kick { .kick $chan $nick $tipz(Tekrar Koruması -!- Lütfen Tekrar Etmeyiniz!..) %Iconi }
if %KanalaTekrar == Sureli { .ban -ku $+ %KanalaTekrar.sure $chan $nick 2 $tipz(Tekrar Koruması -!-2 %KanalaTekrar.max.sure 4sn. içinde2 %KanalaTekrar.max.mesaj 4 adetten fazla 2(Text/Notice/Action)4 iletildi -!-2 %KanalaTekrar.sure 4sn. Banlandınız!!!) %Iconi }
if %KanalaTekrar == kickban { .ban -k $chan $nick 2 $tipz(Tekrar Koruması -!-2 %KanalaTekrar.max.sure 4sn. içinde2 %KanalaTekrar.max.mesaj 4 adetten fazla 2(Text/Notice/Action)4 iletildi -!- Banlandınız!!!) %Iconi }
.echo -s $timestamp 4***2 $nick 1 $+ $chan 4kanalında Tekrar yaptığı için $ktkrr | .linesep -s
}
alias ktkrr {
if %KanalaTekrar == kickban { .return kanaldan banlandı!.. %Iconi }
if %KanalaTekrar == Sureli { .return kanaldan2 %KanalaTekrar.sure 4saniye uzaklaştırıldı!.. %Iconi }
if %KanalaTekrar == kick { .return kanaldan atıldı!.. %Iconi }
}
on @*:text:*:#:{
.inc -u [ $+ [ %KanalaTekrar.max.sure ] ] %Kanalatekrar.text. [ $+ [ $nick ] ] [ $+ [ $1- ] ] 1
if (%KanalaTekrar.text. [ $+ [ $nick ] ] [ $+ [ $1- ] ] >= %KanalaTekrar.max.mesaj) {
.sequuummm
.unset %KanalaTekrar.text. [ $+ [ $nick ] ] [ $+ [ $1- ] ]
}
}

Şimdi bu kodda anlayamadığım birşey var bazen sorunsuz çalışıyor bazende;

* /inc: Geçersiz parametre

hatası veriyor. Bunun sebebi ne olabilir?

Ek bilgi olarakda variables da şu şekilde setlenmiş değerler olduğunu göz önüne alalım;
%KanalaTekrar kickban
%KanalaTekrar.max.sure 30
%KanalaTekrar.max.mesaj 3
%KanalaTekrar.sure 60

on @*:text:*:#:{
.inc -u [ $+ [ %KanalaTekrar.max.sure ] ] %Kanalatekrar.text. [ $+ [ $nick ] ] [ $+ [ $1- ] ] 1
hatası burada ya [ $+ [ %KanalaTekrar.max.sure ] ] yada %Kanalatekrar.text. [ $+ [ $nick ] ] [ $+ [ $1- ] ] değerleri null olarak donuyor!

Hatanın o satırda olduğunu anladım zaten. Benim anlamadığım neden bazen null olarak dönmesi bazen de sorunsuz çalışması?

PHP- Kodu:

   on *:TEXT:*:#: {
  if ($hget(flood,$nick)) hinc flood $nick
  else hadd $+(-u,$hget(flood,sure)) flood $nick 1 
 
  if $hget(flood,$nick) >= $hget(flood,flood) {
    ban $chan $nick 2
    kick $chan $nick Flood Yapmak Yasaktır
 
    hdel flood $nick
  }
}
 
on *:START: {
  if $findfile($mircdir,flood.data,1) { hmake flood | hload flood flood.data }
  else { hmake flood 5 | hsave flood flood.data }
}
 
alias flood { 
  if ($1 == sure) { 
    if ($2 isnum) { hadd flood sure $2 | echo -a Yeni Flood Süresi: $hget(flood,sure) | hsave flood flood.data }
  }
  elseif ($1 == izin) {
    if ($2 isnum) { hadd flood flood $2 | echo -a Yeni Flood İzniniz: $hget(flood,flood) | hsave flood flood.data }
  }
}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Burada 3 saniye 5 kez demiştim:)

ayarlar için

/flood sure <saniye>
/flood izin <izin verilen flood>

goXXip çok teşekkür ederim yazdığın kod için.

Fakat ben yukarıdaki kodun neden çalışmadığını anlamak istiyorum. Bu konuda birşeyler söyleyebilirsen memnun olurum.

Bu, tabii ki diğer arkadaşlar için de geçerli...

Sevgiler... Saygılar...

[ $+ [ $1- ] ] yi yazmışsın oraya oda genellikle space character içerir ve inc fonksiyonuda doğal olarak onları yeni parametre zanedeceği için inc bu şekilde kullanılmaz diye uyarı verir. dikkat edersen selam, naber gibi tek kelime içerenlerde bir halt uyarı vermez selam nasılsın gibi boşluklularda verir.

inc $+(-u,%KanalaTekrar.max.sure) ...

diye değiştir o satırı. [ kullanmana gerek yok ilk kısımda.

DMS haklısın...

sorunu anladım. kayıt yaparken mesela mesaj şöyle ise:

<Nick> merhaba ;;;; inc -uN %Kanalatekrar.text.NickMeraba 1 diye setleniyor.

sorun yok ama mesaj şöyle ise;

<Nick> Merhaba nasılsın ;;;; inc -uN %Kanalatekrar.text.NickMerhaba nasılsın

diye setlenmeye çalışıyor ki burda sayı olması lazım sayı şeklinde setlenemediği için de hata veriyor. o halde $1- yerine $remove($1-,$chr(32)) kullanayım dedim ve oldu.

Bana fikir verdiğin için saol. ;)

Sevgiler... saygılar...

birşey değil biz 6 yıldır herkeze birşeyler diyoruz ama nedense bizi hiç ipleyen olmuyor :D.