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

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

- - !kod (https://www.ircforumlari.net/mirc-scripting-sorunlari/354651-kod.html)

arkadaşlar bu kodu Client connecting girişinde verse 30 sn içinde !kod girmesse shunlanmasını nasıl sağlarız.

Kod:

; Bu yazıyı değiştirmek kodun çalışmamasına sebep olabilir... 

;Bu kod PysCoPaT tarafından yazılmıştır...

on *:open:?:*:{  

  if ( $nick != %ozelson ) {

    unset %ozelkod

    set %ozelyazi $1- 

    set %gerekli  (ßy PysCoPaT) 

    set %ozelkod $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) 

    .privmsg $nick 4 Kontrol ediliyorsunuz... 15 %gerekli

    .timer 1 4 .msg $nick 2Selam4 $nick 

    .timer 1 4 .msg $nick 2Bot olmadığınız kanıtlamak için özelime 4 !kod %ozelkod 2 yazınız.. 15 %gerekli

    .timer 1 4 .msg $nick 2Kodu 30 saniye içinde girmediğiniz zaman mesajlarınızı göremiyeceğim. 15 %gerekli

    window -m @Özel 

    echo @Özel 1,4 $time(HH:nn.ss) 2 Özel isteği Nick: 4 $nick 

    set %ozelson $nick

    .timer 1 30 unset %ozelson

  }

  closemsg $nick

}

on *:text:!kod *:?:{

  if ( $2  ==  %ozelkod ) {

    clear $nick

    .window -m @Özel

    .echo @Özel 1,4 $time(HH:nn.ss) 2 $nick şifreyi doğru girdiği için özelinize kabul edilmiştir... 

    .timers off

    .q $nick

    set %gerekli  (ßy PysCoPaT)

    .msg $nick 2Şifreniz Doğru. Görüşme talebiniz 4kabul edilmiştir... Not Sadece İlk Yazdığınız $me Nickine ulaşacaktır... 15 %gerekli

    .echo $nick $timestamp < $+ $nick $+ > %ozelyazi

  }

  else {

    set %gerekli  (ßy PysCoPaT)

    .privmsg $nick 2Girdiğiniz kod 4yanlıştır2 30 saniyeliğine bana yazmanız engellenmiştir...15 %gerekli

    .timers off

    .ignore $nick

    .timer 1 30 ignore -r $nick

    .closemsg $nick

    unset %ozelson

    .window -m @Özel

    .echo @Özel 1,4 $time(HH:nn.ss) 2 $nick ile özel görüşme reddedilmiştir... Çünkü kodu yanlış girmiştir. Girmesi gereken kod:7 %ozelkod 2Kod olarak gösterilen yazı:4 $2 

  }

}

}

bu özelini açan kişide etkin olan bir kod girişle tam olarak ne yapmak istiyosun çünkü girişte kullanmak istersen her girene işlem yapacaktır

şimdi girişte ki snoticelerini kopyalarsan yapabilirız ama bunu yaparsan her girene bu işlemi uygulayacaktır ve 30 saniye içinde özeline gelmezse o kişiye shun atacaktır bunu istediğine emin misin :)

[SiMeDYa] 23::34 -irc.sistemshell.net- *** Notice -- Client connecting on port 6667: ProSohbetCafe96 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) [clients]

peki belirlediğim ipleri muaf tutabilirmiyiz

----------

Kod:

on ^*:snotice:*connecting*on*: {

  if ( $9 != %ozelson ) {

    unset %ozelkod 

    set %ozelkod $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z)

    .privmsg $9 4 Kontrol ediliyorsunuz... 

    .timer 1 4 .msg $9 2Selam4 $9 

    .timer 1 4 .msg $9 2Bot olmadığınız kanıtlamak için özelime 4 !kod %ozelkod 2 yazınız.. 

    .timer 1 4 .msg $9 2Kodu 30 saniye içinde girmediğiniz taktirde konusmanız yasaklanacaktır.

    set %ozelson $9

    .timer 1 30 unset %ozelson

  }

  closemsg $9

}

on *:text:!kod *:?:{

  if ( $2  ==  %ozelkod ) {

    clear $nick

    .timers off

    .q $nick

    .msg $nick şifreyi doğru girdiniz için sunucuya girişiniz sağlanmıştır... 

  }

  else {

    .privmsg $nick 2Girdiğiniz kod 4yanlıştır2 

  }

  else {

  }

  else {

    .privmsg $nick 2 2 ci kez yanlış girdiniz 

    .shun $nick Yasaklandınız.

  }

}

}

herşey normal fakat 2 ci kez yanlış girdiniz uyarısını verdirtemedim.

gibi

[SiMeDYa] 02::02 <GhostLy> Kontrol ediliyorsunuz...
[SiMeDYa] 02::02 <GhostLy> Selam ProSohbetCafe799
[SiMeDYa] 02::02 <GhostLy> Bot olmadığınız kanıtlamak için özelime !kod e5e5q yazınız..
[SiMeDYa] 02::02 <GhostLy> Kodu 30 saniye içinde girmediğiniz taktirde konusmanız yasaklanacaktır.
*** #ProSohbet Kanalına giremezsiniz. Banlısınız...
[SiMeDYa] 02::02 <ProSohbetCafe799> !kod e5e5q
[SiMeDYa] 02::02 <GhostLy> şifreyi doğru girdiniz için sunucuya girişiniz sağlanmıştır...
[SiMeDYa] 02::02 <ProSohbetCafe799> !kod e5ds43
[SiMeDYa] 02::02 <GhostLy> Girdiğiniz kod yanlıştır
[SiMeDYa] 02::03 <ProSohbetCafe799> !kod e5ds43
[SiMeDYa] 02::03 <GhostLy> Girdiğiniz kod yanlıştır

Kod:

on ^*:snotice:*connecting*on*: {

  if ( $9 != %ozelson ) {

    unset %ozelkod 

    set %ozelkod $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z)

    .privmsg $9 4 Kontrol ediliyorsunuz... 

    .timer 1 4 .msg $9 2Selam4 $9 

    .timer 1 4 .msg $9 2Bot olmadığınız kanıtlamak için özelime 4 !kod %ozelkod 2 yazınız.. 

    .timer 1 4 .msg $9 2Kodu 30 saniye içinde girmediğiniz taktirde konusmanız yasaklanacaktır.

    set %ozelson $9

    .timer 1 30 unset %ozelson

  }

  closemsg $9

}

on *:text:!kod *:?:{

  if ( $2  ==  %ozelkod ) {

    clear $nick

    .timers off

    .q $nick

    .msg $nick şifreyi doğru girdiniz için sunucuya girişiniz sağlanmıştır... 

  }

  else {

  inc  -eu30 $+(%,w,$2) | if $($+(%,w,$2),2) == 1 { .msg $nick 2Girdiğiniz kod 4yanlıştır2 } | if $($+(%,w,$2),2) == 2 { .msg $nick 2 2 ci kez yanlış girdiniz | .shun $nick Yasaklandınız. }  }

}

30saniye içinde 2 kere yanlış girerse shun atacaktır

sizin verdiğiniz şekilde çalişiyor fakat 2 ci kez yanlıs girdiniz demiyor.

Alıntı:

GhostLy Nickli Üyeden Alıntı (Mesaj 1040516250)

sizin verdiğiniz şekilde çalişiyor fakat 2 ci kez yanlıs girdiniz demiyor.

düzenledim tekrar dener misin

Konu uygun bölüme alınmıştır.

süper oldu yardımın için çok tşkkür ederim bunu tamamlayacak bir modul vardı status'de bekleten onunla ilave 2 si bir takım olacak :)

kolay gelsin o zaman sana:)