[LyXiRd]

Topicde yazdğı gibi özele kodla girme eklentisi

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

 
; 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...

[Linqu]

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..

[lion983]

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

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

[Linqu]

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ama harbidende güsel olurdu değilmi.. düşünsene.. sunucuna bri gelecek user yani bot ona şu kodu giriniz.. yoksa depuklerim dicek.. gusel bence
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
9 ama yapabilenen paylaşabilene... ne mutlu Turk'um diyene

[LyXiRd]

Tclye mi? yoksa mirc scriptine mi?

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:   Kodu kopyalamak için üzerine çift tıklayın!

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

[LyXiRd]

Regex Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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:   Kodu kopyalamak için üzerine çift tıklayın! 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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
2 side kod

[Linqu]

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.?

[LyXiRd]

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Microsoft]

düz mirc on script out oldu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
calisiyo paylasim icin tskler.