IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ] (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/116670-ozele-kodla-girmek-kodlar-tamamen-bana-aittir.html)

Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]

Topicde yazdğı gibi özele kodla girme eklentisi
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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 

  }

}

}

Umarım beğenirsiniz...

Dipnot: Kodlar hiç bir şekilde alıntı değildir...

Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]

cok güzel bir çalışma emeğinize teşekkur fakat...
bunu hani diyorum sunucular için yapsanız mesala nomercy tarzındaki botlara bu tur kodları lanse etseniz vebotkanala her gelenin özeline gidip işde şu kodu yapın.. yapmasanız atılacaksınız turu şeyler yazza.. bu kendilerini lamer sanan deyyuslara bir nevi önlem olmazmı.. fikirdi benimki sadece yanlış anlamayın haa.
bide kodu nereye ne şekilde ekleniceğini bilen bir arkadaş yazarsa sanırım yararlı olucak [ben bilmiyom] herkese selam..

Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]

Linqu Sanırım senin istediğin tarzda bir konu mevcut incelersen yararlı olur

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

Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]

yok babacan vben sadece aniden aklıma gelen bir olayı yazım dedim meğer benden önce başkalarının akılna gelmiş bile:) ama harbidende güsel olurdu değilmi.. düşünsene.. sunucuna bri gelecek user yani bot ona şu kodu giriniz.. yoksa depuklerim dicek.. gusel bence:)9 ama yapabilenen paylaşabilene... ne mutlu Turk'um diyene

Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]

Tclye mi? yoksa mirc scriptine mi?

Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]

Saygısızlık olarak anlaşılmasın fakat basit bir kodla özele kabul sistemi için bu kadar variable ve satır fazla. Daha etik, kısa ve basit olarak şöyle olabilir:

Kod:

on *:open:?:*:if $nick != %ozelson { set %ozelyazi $1- | set %ozelkod $+($rand(a,z),$rand(1,9),$rand(a,z)) | .msg $nick 4Kontrol ediliyorsunuz. | .timer 1 4 .msg $nick 2Selam $+(4,$nick,.) | .timer 1 4 .msg $nick 2Bot olmadığınızı kanıtlamak için özelime 4!kod %ozelkod 2yazınız. | .timer 1 4 .msg $nick 2Kodu 30 saniye içinde girmediğiniz takdirde, yazdığınız mesajlar kabul edilmeyecektir. | $iif(!$window(@Özel),window -m @Özel) | echo @Özel 1,4 $time 2-Özel isteği- Nick: $+(4,$nick,.) | set -u30 %ozelson $nick } | else close -m $nick

on *:text:!kod *:?:if $2 === %ozelkod { clear $nick | $iif(!$window(@Özel),window -m @Özel) | echo @Özel 1,4 $time 2 $nick şifreyi doğru girdiği için özelinize kabul edilmiştir. | query $nick | .msg $nick 2Şifreniz doğru. Görüşme talebiniz kabul edilmiştir. | echo $nick $timestamp $+(<,$nick,>) %ozelyazi | unset %ozelyazi } | else .msg $nick 2Girdiğiniz kod, 4yanlıştır.2Otuz saniyeliğine bana yazmanız engellenmiştir. | .ignore -u30 $nick | $iif(%ozelson,unset %ozelson) | $iif(!$window(@Özel),window -m @Özel) | echo @Özel 1,4 $time 2 $nick $+ , kodu yanlış girdiğinden özel görüşme talebi reddedildi. Kod:7 %ozelkod - 2Kod olarak gösterilen yazı:4 $2

Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]

Alıntı:

Regex Nickli Üyeden Alıntı (Mesaj 483191)

Saygısızlık olarak anlaşılmasın fakat basit bir kodla özele kabul sistemi için bu kadar variable ve satır fazla. Daha etik, kısa ve basit olarak şöyle olabilir:

Kod:

on *:open:?:*:if $nick != %ozelson { set %ozelkod $+($rand(a,z),$rand(1,9),$rand(a,z)) | .msg $nick 4Kontrol ediliyorsunuz. | .timer 1 4 .msg $nick 2Selam $+(4,$nick,.) | .timer 1 4 .msg $nick 2Bot olmadığınızı kanıtlamak için özelime 4!kod %ozelkod 2yazınız. | .timer 1 4 .msg $nick 2Kodu 30 saniye içinde girmediğiniz takdirde, yazdığınız mesajlar kabul edilmeyecektir. | $iif(!$window(@Özel),window -m @Özel) | echo @Özel 1,4 $time 2-Özel isteği- Nick: $+(4,$nick,.) | set -u30 %ozelson $nick } | else close -m $nick

on *:text:!kod *:?:if $2 === %ozelkod { clear $nick | $iif(!$window(@Özel),window -m @Özel) | echo @Özel 1,4 $time 2 $nick şifreyi doğru girdiği için özelinize kabul edilmiştir. | query $nick | .msg $nick 2Şifreniz doğru. Görüşme talebiniz kabul edilmiştir. | echo $nick $timestamp $+(<,$nick,>) %ozelyazi } | else .msg $nick 2Girdiğiniz kod, 4yanlıştır.2Otuz saniyeliğine bana yazmanız engellenmiştir. | .ignore -u30 $nick | $iif(%ozelson,unset %ozelson) | $iif(!$window(@Özel),window -m @Özel) | echo @Özel 1,4 $time 2 $nick $+ , kodu yanlış girdiğinden özel görüşme talebi reddedildi. Kod:7 %ozelkod - 2Kod olarak gösterilen yazı:4 $2

Ben birden fazla satırla yaptım sen tek satıra indirdin aslında fazla fark yok :) 2 side kod

Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]

Regex kod çalışıyomu ben denedim başka başka şeyler de attım forumdan ama....
<Fifa> Selamun Aleykum
<Fifa> Selamun Aleykum
<Fifa> dqw
<Fifa> dqw

seklinde çıkıyo.. belki benhatalı attım tam bilmiyorum ama deneyip atarsanız cok işimize yarıcak bu kod.?

Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]

Regex

23:22:50 RvB şifreyi doğru girdiği için özelinize kabul edilmiştir.
23:22:50 RvB, kodu yanlış girdiğinden özel görüşme talebi reddedildi. Kod: r7y - Kod olarak gösterilen yazı: r7y

Şeklinde çıkıo verdiğin kodda hem kabul edildi dio hemde reddedildi dio; kod doğru girildiği hale :)

Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]

düz mirc on script out oldu ;) calisiyo paylasim icin tskler.