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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

LyXiRd 07 Haziran 2008 19:56
Ö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...

Linqu 07 Haziran 2008 20:41
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..

lion983 07 Haziran 2008 20:48
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...]

Linqu 07 Haziran 2008 21:06
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

LyXiRd 07 Haziran 2008 21:42
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
Tclye mi? yoksa mirc scriptine mi?

Regex 07 Haziran 2008 21:43
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

LyXiRd 07 Haziran 2008 21:48
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

Linqu 07 Haziran 2008 22:09
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.?

LyXiRd 08 Haziran 2008 23:32
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 :)

Microsoft 12 Haziran 2008 13:27
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
düz mirc on script out oldu ;) calisiyo paylasim icin tskler.

bøCek 12 Haziran 2008 13:35
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ßirsey Daniscam bu [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Yazısnı NasıL Kaldırcaz. ozelde Onu Gorenler ben Su kisiyle gorusmek ıstıyorum [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kim dıe soru soruorlar. nick ayni olsada Inanmiyorlar ? ßunada bi Cozum buLsak ya ? Tamam Emegine Saygı duyuyoruz Ona Amenna ama :)

Microsoft 12 Haziran 2008 14:30
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
Degistirirsin. ayni sekilde :)

bøCek 12 Haziran 2008 15:14
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
kendını otomatıkman IptaL edıor Ozaman :)

KutsaLgrau 13 Haziran 2008 19:48
Yanıt: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
girilen kodları statusde değilde @kod penceresi adı altında nasıl görürüz

Regex 13 Haziran 2008 20:01
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
goKhaN`, "%gerekli" variableslerini kaldır veya benim verdiğimi kullan.

LyXiRd 13 Haziran 2008 20:11
Cevap: Yanıt: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
Alıntı:
KutsaLgrau Nickli Üyeden Alıntı (Mesaj 487622)
girilen kodları statusde değilde @kod penceresi adı altında nasıl görürüz
Statüse bişi yollamıyor zaten @Özel penceresinde gösterio girilen kodları,kabulleri falan
--------------------------------------------------------
goKhaN` Al Kendi İsmimi Sildim :P Bunu Ekleyebilirsin :)

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 %ozelkod $rand(a,z) $+ $rand(1,9) $+ $rand(a,z)
    .privmsg $nick 4 Kontrol ediliyorsunuz... 15
    .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..
    .timer 1 4 .msg $nick 2Kodu 30 saniye içinde girmediğiniz zaman mesajlarınızı göremiyeceğim.
    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
    .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
    .echo $nick $timestamp < $+ $nick $+ > %ozelyazi
  }
  else {
    .privmsg $nick 2Girdiğiniz kod 4yanlıştır2 30 saniyeliğine bana yazmanız engellenmiştir...15
    .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
  }
}
}

LyXiRd 13 Haziran 2008 20:13
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
Alıntı:
Regex Nickli Üyeden Alıntı (Mesaj 487626)
goKhaN`, "%gerekli" variableslerini kaldır veya benim verdiğimi kullan.
Verdiğin kodda hem kabul edildi dio hemde reddedildi dio; kod doğru girildiği hale :)

Regex 13 Haziran 2008 21:16
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
Haklısın PysCoPaT, timerları kapatmayı unutmuşum. Şu şekilde değiştirirsen sorun kalmaz:

Kod:
on *:open:?:*:if $nick != %ozelson { set %ozelyazi $1- | set %ozelkod $+($rand(a,z),$rand(1,9),$rand(a,z)) | .msg $nick 4Kontrol ediliyorsunuz. | .timerq 1 4 .msg $nick 2Selam $+(4,$nick,.) | .timerq2 1 4 .msg $nick 2Bot olmadığınızı kanıtlamak için özelime 4!kod %ozelkod 2yazınız. | .timerq3 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 | $iif($timer(q),.timerq off) | $iif($timer(q2),.timerq2 off) | $iif($timer(q3),.timerq3 off) | .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

Not: İsimsiz timer açmak yerine, özel için açılan timerlara bir isim verilirse /timers off (bütün timerları kapat) gibi bir komut uygulamak yerine sadece bu işlem için açılan timerları kapatırız.

LyXiRd 14 Haziran 2008 00:15
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
Renklerini düzelt Regex

muratt_aziz 09 Ekim 2008 09:02
Cevap: Yanıt: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
Alıntı:
LyXiRd Nickli Üyeden Alıntı (Mesaj 487630)
Statüse bişi yollamıyor zaten @Özel penceresinde gösterio girilen kodları,kabulleri falan
--------------------------------------------------------
goKhaN` Al Kendi İsmimi Sildim :P Bunu Ekleyebilirsin :)

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 %ozelkod $rand(a,z) $+ $rand(1,9) $+ $rand(a,z)
    .privmsg $nick 4 Kontrol ediliyorsunuz... 15
    .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..
    .timer 1 4 .msg $nick 2Kodu 30 saniye içinde girmediğiniz zaman mesajlarınızı göremiyeceğim.
    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
    .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
    .echo $nick $timestamp < $+ $nick $+ > %ozelyazi
  }
  else {
    .privmsg $nick 2Girdiğiniz kod 4yanlıştır2 30 saniyeliğine bana yazmanız engellenmiştir...15
    .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
  }
}
}


s.a öncelıkle güzelbir calısma tebrık edıyorum kod calısıyor lakın not dusulmus kod dogruda olsa bırdefaya mahsus ozel görüşmeyi kabul edıyor ben bu o kısmı kaldıra bılırmıyız yanı ozelegelene şifre sorsa gırenı alsa ozele gırmeyenı almasa ıkıncı kez geldıgınde bana ulasılamıyor bu kısmını kaldırsak nasıl olur

Heavenly 11 Ekim 2008 21:34
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
bu koda muaf nıck eklemek mumkun mu acaba sunucuya qırdıqımde Jeanx botumuz serıye baqlıyo ve dusuyorum

LyXiRd 11 Ekim 2008 22:28
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
PHP- Kodu:
; 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 ) || ($nick != Jeanx){
    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 kodu kullanırsan olur

Heavenly 12 Ekim 2008 01:44
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
kodda sorun var tmm jeanx qeldıqınde sorun cıkmıyoda her nıck bana yazabılıyo bu seferde

Editor 14 Ekim 2008 18:51
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
Kod:
on *:open:?:*:{ 
  if ( $nick != %ozelson ) && ($nick != Jeanx){
  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 olmad11n1z kan1tlamak için özelime 4 !kod %ozelkod 2 yaz1n1z.. 15 %gerekli
  .timer 1 4 .msg $nick 2Kodu 30 saniye içinde girmediiniz zaman mesajlar1n1z1 göremiyeceim. 15 %gerekli
  window -m @Özel
  echo @Özel 1,4 $time(HH:nn.ss) 2 Özel istei Nick: 4 $nick
  set %ozelson $nick
  .timer 1 30 unset %ozelson
}
closemsg $nick
on *:text:!kod *:?:{
  if ( $2  ==  %ozelkod ) {
    if ($istok(Jeanx,$nick,32)) { halt }
    clear $nick
    .window -m @Özel
    .echo @Özel 1,4 $time(HH:nn.ss) 2 $nick _ifreyi doru girdii için özelinize kabul edilmi_tir...
    .timers off
    .q $nick
    set %gerekli  (ßy PysCoPaT)
    .msg $nick 2^ifreniz Doru. Görü_me talebiniz 4kabul edilmi_tir... Not Sadece 0lk Yazd11n1z $me Nickine ula_acakt1r... 15 %gerekli
    .echo $nick $timestamp < $+ $nick $+ > %ozelyazi
  }
  else {
    set %gerekli  (ßy PysCoPaT)
    .privmsg $nick 2Girdiiniz kod 4yanl1_t1r2 30 saniyeliine bana yazman1z 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 yanl1_ girmi_tir. Girmesi gereken kod:7 %ozelkod 2Kod olarak gösterilen yaz1:4 $2
  }
}

Heavenly 14 Ekim 2008 20:19
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
rapList
* /if: parametreler geçersiz (line 178, defter.sys)
-rapList
* /msg: insufficient parameters
-rapList


ßu cıkıyo yıne oLmadı yaffff

Heavenly 16 Ekim 2008 22:15
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
yardımcı olucak kımse yok muu ?

LyXiRd 23 Temmuz 2009 23:05
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
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 ) || ($nick != Jeanx){
    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
  }
}
} 

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

Southwind 31 Ağustos 2009 01:22
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
Eline sağlık güzel kodlama ama mesela büyük sunucuda özelime başka biri geldiğinde öncekinin gireceği kod yanlış olarak gözüküyor.

LyXiRd 28 Ekim 2009 13:45
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
Alıntı:
Southwind Nickli Üyeden Alıntı (Mesaj 791702)
Eline sağlık güzel kodlama ama mesela büyük sunucuda özelime başka biri geldiğinde öncekinin gireceği kod yanlış olarak gözüküyor.
üzerinde fazla uğraşmadm ama version 2 de bütün hatalar giderilcek .)

JaMMaH 08 Eylül 2010 07:16
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
Ellerine sağlık. Fakat şöyle bi durum var diyelim 2 kişi birden geldi özeline. O zaman ilk kodun üstüne eklicek variables'e . ilk gelenin şifresine yanlış girdiniz diye bi uyarı gidicek.

Redworm 09 Eylül 2010 02:09
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
Selamun aleyküm öncelikle ..
Deviloper birşeye deyinmek istiyorum, ilk önce, bu kod senin değil, sen buna eklenti yaparak kendinin gösteriyorsun, yalnız bu kod yaklaşık 3 yıldır elimde mevcud bir kod, ve bir arkadaşın yazdığı kod, bu pek kimsede olmayan kod, sanırım biri senle paylaşmış, sende edit yapmışsın, neyse yinede eline sağlık diyelim ..

dipnot; normalde kodu paylaşmadım/paylaşmayacaktım, yalnız bu durum karşısında paylaşma gereksimi doğuyor, isteyenler pm ile göndere bilirim ..

RAST GELE ..

DaDaS 09 Eylül 2010 06:05
Cevap: Özele kodla girmek [ Kodlar Tamamen Bana Aittir... ]
 
Cok Onemlı Devlet Meselesı Nekodmus bea:D


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:45.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net