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

Etiketlenen Kullanıcılar

1Beğeni(ler)
  • 1 Post By moonman

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 12 Eylül 2013, 22:36   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Socket bota ekleme




Merhaba arkadaşlar aşağıdaki kod mirclerde çalışmaktadır bu kodu Socket bota göre ayarlıyabilirmiyiz ? ilgilenen arkadaşlara teşekkür ederim


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu status,menubar,channel { .- $iif($group(#nickidents) == on, • Nick/Idents [Acik], • Nick/Idents [Kapali]): if $group(#nickidents) == on { .disable #nickidents | echo -a 4 Nick/Ident Korumasi Kapatildi } | else { .enable #nickidents | echo -a 12 Nick/Ident Korumasi Acildi } .• Nick/Idents Ayarlar:BanEkleNick .- } dialog BanEkle.n_ { title "Ban Ekleme (Nick)" size -1 -1 100 110 option dbu box "Nickler", 1, 2 0 96 93 list 2, 5 8 90 70, disable size sort extsel edit "", 3, 5 80 90 10 box "Muaf Kanal Listesi", 4, 100 0 96 93 list 5, 103 8 90 70, vsbar size sort edit "", 6, 102 80 80 10, autohs return button "+", 7, 184 80 9 10, flat button "Ban", 97, 2 97 30 10, flat button "İptal", 98, 34 97 30 10, cancel flat button "Kanallar >>", 99, 66 97 32 10, flat } on *:dialog:*:*:*:{ if ($dname == BanEkle.n_) { if ($devent == sclick) { if ($did == 7) { var %x $did($dname,6) var %y $iif($left(%x,1) == $chr(35),%x,$+($chr(35),%x)) var %z $hget(Ayarlar,BanEkleKanallar),44 if $istok(%z,%y,44) == $false { hadd -m Ayarlar BanEkleKanallar $addtok($hget(Ayarlar,BanEkleKanallar),%y,44) did -r $dname 5,6 | did -f $dname 6 | BanEkleListe } } if ($did == 97) { var %q 1 while %q <= $comchan($me,0) { if ($regex($nick($comchan($me,%q),$me).pnick,@|&|%|~)) && (!$istok($hget(Ayarlar,BanEkleKanallar),$comchan($me,%q),44)) { ban -u175 $comchan($me,%q) $+($did($dname,3).text,*!*@*) } inc %q } dialog -x $dname | .timeru_ off } if ($did == 99) { if !%BanEkle_>> { BanEkle>> | did -a $dname 99 << Kanallar | set %BanEkle_>> 1 } elseif %BanEkle_>> == 1 { BanEkle<< | did -a $dname 99 Kanallar >> | unset %BanEkle_>> } } } if ($devent == dclick) { if ($did == 5) { var %x $did($dname,5).seltext | hadd Ayarlar BanEkleKanallar $remtok($hget(Ayarlar,BanEkleKanallar),%x,44) .did -r $dname 5 BanEkleListe } } if ($devent == edit) { if ($did == 6) { if ($chr(32) isin $did($dname,6).text) { did -o $dname 20 1 Boşluk Kullanmayın | .timer 1 1 did -r $dname 6 } } } if ($devent == init) { BanEkleListe did -f $dname 1 | did -a $dname 3 %klondata | benzer.nick | .timeru_ 1 15 dialog -x $dname } if ($devent == close) { .timeru* off | unset %klondat* | unset %banekle* hsave -a Ayarlar Ayarlar.db } } } #nickidents on on !*:join:#:{ if $regex($token($address,2,64),/(admin|dj|global\.oper|global\.sop|globaldesk|helpdesk|helper|helpsop|local\.founder|local\.sop|localdesk|operdesk|superdesk|vip|yardimci\.sop|ircop)/i) { halt } if $regex($token($address,9,64),/(swatbot|admin_|ciodesk_|covisor_|csop_|globaldesk_|helpdesk_|operdesk_|superdesk_|supervisor_|sysop_|techvisor|vip_)/i) { halt } if $len($strip($token($token($address($nick,5),2,33),1,64))) > 0 { hinc -mu8 $+(#,_Ident) $strip($token($token($address($nick,5),2,33),1,64)) 1 } if $len($nick) >= 3 { set %klondata0 $left($nick,$calc($len($nick)-2)) | hadd -mu30 BenzerNick %klondata0 $addtok($hget(BenzerNick,%klondata0),$nick,32) set %klondata1 $left($nick,$calc($len($nick)-3)) | hadd -mu30 BenzerNick %klondata1 $addtok($hget(BenzerNick,%klondata1),$nick,32) set %klondata2 $left($nick,$calc($len($nick)-4)) | hadd -mu30 BenzerNick %klondata2 $addtok($hget(BenzerNick,%klondata2),$nick,32) set %klondata3 $left($nick,$calc($len($nick)-5)) | hadd -mu30 BenzerNick %klondata3 $addtok($hget(BenzerNick,%klondata3),$nick,32) set %klondata4 $left($nick,$calc($len($nick)-6)) | hadd -mu30 BenzerNick %klondata4 $addtok($hget(BenzerNick,%klondata4),$nick,32) } if ($regex($nick(#,$me).pnick,@|&|%|~)) { if ($hget($+(#,_Ident),$strip($token($token($address($nick,5),2,33),1,64))) == 3) { ban -u45 # $+(*!*,$strip($token($token($address($nick,5),2,33),1,64)),*@*) | mode # +mi | .timer 1 11 mode # -i } if ($numtok($hget(Benzernick,%klondata0),32) >= 3) { set %klondata %klondata0 | BanEkleNick } elseif ($numtok($hget(Benzernick,%klondata1),32) >= 3) { set %klondata %klondata1 | BanEkleNick } elseif ($numtok($hget(Benzernick,%klondata2),32) >= 3) { set %klondata %klondata2 | BanEkleNick } elseif ($numtok($hget(Benzernick,%klondata3),32) >= 3) { set %klondata %klondata3 | BanEkleNick } elseif ($numtok($hget(Benzernick,%klondata4),32) >= 3) { set %klondata %klondata4 | BanEkleNick } } } #nickidents end alias BanEkleNick { if $dialog(BanEkle.n_) { dialog -v BanEkle.n_ } | else { dialog -m BanEkle.n_ BanEkle.n_ } } alias -l BanEkleListe { var %. = 1 | while %. <= $numtok($hget(Ayarlar,BanEkleKanallar),44) { did -a $dname 5 $gettok($hget(Ayarlar,BanEkleKanallar),%.,44) | inc %. } } alias -l BanEkle>> { set %BanEkle_Anime 1 | var %i 200 | while (%i <= 398) { dialog -sr BanEkle.n_ -1 -1 %i 220 | inc %i } } alias -l BanEkle<< { set %BanEkle_Anime 1 | var %i 398 | while (%i >= 200) { dialog -sr BanEkle.n_ -1 -1 %i 220 | dec %i } } alias -l Benzer.Nick { set %klon $hget(Benzernick,%klondata) | var %aa = 1 | while %aa <= $numtok(%klon,32) { did -a $dname 2 $gettok(%klon,%aa,32) | inc %aa } } on *:load:{ if (!$hget(Ayarlar)) { hmake Ayarlar 100 } | if $isfile(Ayarlar.db) { hload Ayarlar Ayarlar.db } } on *:start:{ if (!$hget(Ayarlar)) { hmake Ayarlar 100 } | if $isfile(Ayarlar.db) { hload Ayarlar Ayarlar.db } } alias kanalekle { hadd -m ayarlar baneklekanallar $1- }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet Mobil Chat
Alt 13 Eylül 2013, 21:47   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket bota ekleme




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

 
Alıntı ile Cevapla

Alt 15 Eylül 2013, 00:42   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket bota ekleme




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] el atmanı bekliyoruz lütfen
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Cevapla

Etiketler
bota, ekleme, socket


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Bota kod ekleme ads01ads mIRC Scripting Sorunları 1 09 Ocak 2012 03:30
Socket Bota Muaf İp MikaiL mIRC Scripting Sorunları 2 02 Ocak 2011 20:07
Socket bota port şifresi girdirmede sorun(!) XLarGe mIRC Scripting Sorunları 4 17 Kasım 2010 01:29
Bota , Küfür koruma ekleme Skys mIRC Scripting Sorunları 6 07 Temmuz 2010 14:15
Bota Master Ekleme lacremel mIRC Scripting Sorunları 5 13 Nisan 2008 01:17