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

2Beğeni(ler)
  • 1 Post By Toprak
  • 1 Post By Toprak

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 06 Kasım 2014, 02:10   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
yardım lutfen




merhaba ArkaDaslar sizden Bir ricam olucakti L4roXyL kardeşimizin yazdigi bir kanal koruma botu var c-prot buradada mevcut sizden ricam şu menude ayarlari yapıp şifreyi yazıyorum baglanıyor fakat şifreyi girmiyo ve ben ekstra sizden soyle bişe isticektim mevcut olan c-prot botuna komutla tum veya istedigim kanaldan cıkara bilirmiyim part veya partall seklinde ve istedigim kanala girmesini saglaya bilirmiyim komutla ve tabiiki şifresini identi ettire bilirmiyim Tşk ilginiz icin

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 06 Kasım 2014, 09:32   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: yardım lutfen




İdentify sorunu için pm nize cvp vermiştim botu tam incelemesi ama size ilettigim gibidir.
Komutlar içinde sockwrite -n * join #kanal olarak kullanabilirsiniz.
sockwrite -n * komut

 
Alıntı ile Cevapla

Alt 07 Kasım 2014, 00:17   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: yardım lutfen




ilgin için Tşk toprak ama dedigini yaptim olmadi benim Script cıkıyor ve bot baglanmıyor

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 00:17 -->-> Daha önceki mesaj 00:15 --

su bota istedigim kanala girmesini ve istedigim kanaldan cıkmasini ve istedigim nicki komutla aldırıp identi ettirmeyi ekleyip buraya vermeniz mumkunmu lutfen tşk

 
Alıntı ile Cevapla

Alt 08 Kasım 2014, 18:41   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: yardım lutfen




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

Bunu incele birşeyler yaparsın.

 
Alıntı ile Cevapla

Alt 09 Kasım 2014, 06:21   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: yardım lutfen




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias kekle { if !$hmatch(kfr,$1) { hadd -m kfr $1 1 | hsave -i kfr kfr.db } } alias rekle { if !$hmatch(rklm,$1) { hadd -m rklm $1 1 | hsave -i rklm rklm.db } } alias bekle { if !$hmatch(bdnick,$1) { hadd -m bdnick $1 1 | hsave -i bdnick bdnick.db } } alias koruekle { if !$hmatch(klonkoru,$1) { hadd -m klonkoru $1 1 | hsave -i klonkoru klonkoru.db } } alias btbg { sockopen bt %sunucu %port } alias vsvs { dialog -x cprot cprot | dialog -m cprot cprot } alias ayr { return $remove($gettok($1-,1,33),$chr(58)) } alias km { sockwrite -n bt $1- } alias kps { return $+($chr(2),$1-,$chr(2)) } alias cprtdlg { if !$dialog(cprot) { dialog -m cprot cprot } } alias mdx { dll mdx.dll $1 $2- return } on *:start: { if $isfile(kfr.db) { hmake kfr 100 | hload -i kfr kfr.db } | else { hmake kfr 100 | hsave -i kfr kfr.db } if $isfile(rklm.db) { hmake rklm 100 | hload -i rklm rklm.db } | else { hmake rklm 100 | hsave -i rklm rklm.db } if $isfile(bdnick.db) { hmake bdnick 100 | hload -i bdnick bdnick.db } | else { hmake bdnick 100 | hsave -i bdnick bdnick.db } if $isfile(kanallar.db) { hmake kanallar 100 | hload -i kanallar kanallar.db } | else { hmake kanallar 100 | hsave -i kanallar kanallar.db } if $isfile(klonkoru.db) { hmake klonkoru 100 | hload -i klonkoru klonkoru.db } | else { hmake klonkoru 100 | hsave -i klonkoru klonkoru.db } if !%uzunyazı { set %uzunyazı 250 } | if !%tkr-lmt { set %tkr-lmt 5 } | if !%tkr-sny { set %tkr-sny 3 } | if !%flood-lmt { set %flood-lmt 10 } if !%flood-sny { set %flood-sny 4 } | if !%buharf { set %buharf 65 } | if !%noktalama { set %noktalama 10 } | if !%random-t { set %random-t 3 } if !%hızlıgr-lmt { set %hızlıgr-lmt 6 } | if !%hızlıgrs { set %hızlıgrs 4 } | if !%klon-lmt { set %klon-lmt 2 } | if !%random-n-h-u { set %random-n-h-u 4 } if !%random-nk { set %random-nk 1 } | if !%random-t-t { set %random-t-t 200 } cprtdlg } on *:sockopen:bt: { if $sockerr { echo -at Bağlantıda sorun var. | return } else { km NICK Azxz | km partall | km nickserv identify %bsifre | sockwrite -n bt USER %bident * * Kanal koruma botu. Yapımcı: $kps(L4roXyL.) | sockmark bt Azxz } echo -a Bilgi: $kps($sock(bt).mark) bot'u, $kps(%sunucu) sunucusuna bağlandı. } on *:sockread:bt: { if $sockerr { echo -at Bilgi: Bağlantıda sorun var. | return } else { var %:- | sockread %:- | tokenize %:- | cvp %:- } if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug) { window -k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug } | aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug $timestamp < $1- } alias cvp { if $sock(bt) { if $1 == PING { km PONG $remove($2,$chr(58)) } if *VERSION* iswm $4- { km NOTICE $ayr($1-) Azxz kanal koruma bot'u. Yapımcı: $kps(L4roXyL.) | km privmsg %ykanal Bilgi: $kps($ayr($1)) bana version uyguladı. } if $sock(bt).mark == $ayr($1) && $2 == JOIN { if !$hmatch(kanallar,$remove($3,$chr(58))) { km parallt $remove($3,$chr(58)) } } if $remove($1,$chr(58)) == $sock(bt).mark && $2 == MODE && $3 == $sock(bt).mark { var %1 = 1,%2 = $hget(kanallar,0).item | while %1 <= %2 { km join $hget(kanallar,%1).item | inc %1 } } if $2 == PRIVMSG { if $sock(bt).mark !isreg $3 { if $count($nick($3,$ayr($1)).pnick,@,&,%,~,.) != 0 { if $remove($4,$chr(58)) == !sus && $5 ison $3 { km MODE $3 +b $+(~q:,$address($5,2)) | km NOTICE $5 $+($5,$chr(58)) $kps($3) kanalın'da konuşmanız, $kps($ayr($1)) tarafından engellendi. } if $remove($4,$chr(58)) == !banac { km MODE $3 +b | km PRIVMSG $3 $kps($3) kanal'ı ban listesi temizleniyor. } if $remove($4,$chr(58)) == !nik && $5 ison $3 { km MODE $3 +b $+(~n:,$address($5,2)) | km NOTICE $5 $+($5,$chr(58)) $kps($3) kanalın'da nick değiştirmeniz, $kps($ayr($1)) tarafından engellendi. } if $remove($4,$chr(58)) == !k && $5 ison $3 { km KICK $3 $5 $6- } if $remove($4,$chr(58)) == !cban { if $left($5,1) == $chr(35) { km MODE $3 +b $+(~c:,$5) | km PRIVMSG $3 Bilgi: $kps($5) kanalında bulunan kullanıcıların, $kps($3) kanalına girmesi yasaklandı. } } if $remove($4,$chr(58)) == !op && $5 && $5 ison $3 { km mode $3 +o $5 } if $remove($4,$chr(58)) == !deop && $5 && $5 ison $3 { km mode $3 -o $5 } if $remove($4,$chr(58)) == !voice && $5 && $5 ison $3 { km mode $3 +v $5 } if $remove($4,$chr(58)) == !devoice && $5 && $5 ison $3 { km mode $3 -v $5 } if $remove($4,$chr(58)) == !hop && $5 && $5 ison $3 { km mode $3 +h $5 } if $remove($4,$chr(58)) == !dehop && $5 && $5 ison $3 { km mode $3 -h $5 } if $remove($4,$chr(58)) == !pro && $5 && $5 ison $3 { km mode $3 +a $5 } if $remove($4,$chr(58)) == !depro && $5 && $5 ison $3 { km mode $3 -a $5 } if $remove($4,$chr(58)) == !own && $5 && $5 ison $3 { km mode $3 +q $5 } if $remove($4,$chr(58)) == !deown && $5 && $5 ison $3 { km mode $3 -q $5 } if $remove($4,$chr(58)) == !rban && $5 { km MODE $3 +b $+(~r:,$5-) | km PRIVMSG $3 Bilgi: $kps($5-) realname'a sahip olanların, $kps($3) kanalına girmesi yasaklandı. } if $remove($4,$chr(58)) == !ban && $5 { km MODE $3 +b $address($5,2) | km NOTICE $5 $kps($ayr($1)) tarafından $kps($3) kanalında banlandınız. } if $remove($4,$chr(58)) == !kb && $5 && $5 ison $3 { km MODE $3 +b $address($5,2) | km KICK $3 $5 $6- } if $remove($4,$chr(58)) == !mode { km mode $3 $5- } if $remove($4,$chr(58)) == !temizle { var %1 = 40 | while %1 { km privmsg $3 $chr(160) | dec %1 } } if $remove($4,$chr(58)) == !koru && $5 && $5 ison $3 { km mode $3 +e $5 } if $remove($4,$chr(58)) == !invite && $5 && $5 ison $3 { km mode $3 +I $5 } if $remove($4,$chr(58)) == !uyarı && $5 && $5 ison $3 { km privmsg $3 Uyarı: $kps($+($5,$chr(58))) %uyarı } if $istok(!sus !banac !mode !voice !devoice !hop !deop !hop !dehop !pro !depro !own !deown !invite !koru !temizle !nick !cban !rban !k !kb !uyarı !kurallar,$remove($4,$chr(58)),32) { km privmsg %ykanal Bilgi: $kps($ayr($1)) yetkilisi, $kps($3) kanalında $kps($remove($4-,$chr(58))) komutunu uyguladı. } } else { var %1 = 1,%2 = $hget(kfr,0).item while %1 <= %2 { if $hget(kfr,%1).item iswm $remove($4-,$chr(58)) { var %klm = $v1 | km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) Kullandığınız [kelime/cümle][de] $+([küfür kelimesi],[,$kps(%klm),]) algılandı. } inc %1 } var %p = $len($4-) if $len($remove($4-,$chr(58))) >= %uzunyazı { km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) $kps(%uzunyazı) karakterden $+(fazla,[,$kps(%p),$chr(32),karakter,],) text gönderdiğiniz algılandı. } hinc $+(-mu,%tkr-lmt) text $+($3,½,$ayr($1)) 1 if $hget(text,$+($3,½,$ayr($1))) >= %tkr-sny { km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) $kps($3) kanalına; $kps($+([,%tkr-lmt,][saniye])) içerisinde $kps($+([,%tkr-sny,][satır])) text gönderdiğiniz algılandı. } hinc $+(-mu,%flood-lmt) tkr $+($3,½,$ayr($1),$4,$5,$6) 1 if $hget(tkr,$+($3,½,$ayr($1),$4,$5,$6)) >= %flood-sny { km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) $kps($3) kanalın'da; $kps($+([,%flood-lmt,][saniye])) içerisinde $kps($+([,%flood-sny,][defa])) flood(tekrar) yaptığınız algılandı. } if $int($calc($regex($4-,/[A-ZÁ-ÙÄ]/g)*100/$len($4-))) >= %buharf { km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) Göndermiş olduğunuz text $kps($+([,%,%buharf,])) izinli olan büyük harf limitini aşmaktadır. } var %s = 1,%x = $hget(rklm,0).item while %s <= %x { if $hget(rklm,%s).item iswm $remove($4-,$chr(58)) { var %klm2 = $v1 | km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) Kullandığınız [kelime/cümle][de] $+([reklam kelimesi],[,$kps(%klm2),]) algılandı. } inc %s } if $regex($4-,/([?!:;,*@/\-=´`.])/g) >= %noktalama { var %tt = $v1 km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) Kanala göndermiş olduğunuz text'de, $kps(%noktalama) adet'den $+(fazla,[,$kps(%tt),$chr(32),adet,]) noktalama işareti bulunmakta. } if $chr(3) isin $4- || $chr(2) isin $4- || $chr(31) isin $4- || $chr(22) isin $4- { km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) Göndermiş olduğunuz text'de, $kps(CTRL) kodları bulunmakta. } if $len($right($4-,-1)) >= %random-t-t && $regex($ayr($4-), /[aeuioüÜÖöİı]/gi) < %random-t { km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) Göndermiş olduğunuz text'de, $kps($+(RANDOM[,%random-t sesli harf'den az])) olarak algılandı. } } } } if $2 == mode { if $sock(bt).mark !isreg $3 { if $left($4,1) == $chr(43) { if *o* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda operator durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) operator oldu. } if *h* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda halfop durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) halfop oldu. } if *a* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda protect durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) protect oldu. } if *q* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda founder durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) founder oldu. } if *b* iswm $4 && $5 != $sock(bt).mark { if $ayr($1) == $sock(bt).mark { km privmsg %ykanal Bilgi: $kps($3) kanalında, banladım: $kps($5-) } else { km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($ayr($1)) yetkilisi banladı: $kps($5-) } } } if $left($4,1) == $chr(45) { if *o* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-operator durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-operator oldu. } if *h* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-halfop durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-halfop oldu. } if *a* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-protect durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-protect oldu. } if *q* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-founder durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-founder oldu. } if *b* iswm $4 { if $ayr($1) == $sock(bt).mark { km privmsg %ykanal Bilgi: $kps($3) kanalında, ban açtım: $kps($5-) } else { km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($ayr($1)) yetkilisi ban açtı: $kps($5-) } } } } } if $2 == 367 && $sock(bt).mark !isreg $4 { km mode $4 -b $5 } if $2 == 368 && $sock(bt).mark !isreg $4 { km PRIVMSG $4 Bilgi: $kps($4) kanal'ı ban listesi temizlendi. } if $2 == JOIN { if $sock(bt).mark !isreg $remove($3,$chr(58)) { if !$hmatch(grs,$ayr($1)) { hadd $+(-mu,%hızlıgr-lmt) grs $ayr($1) 1 } if $hget(grs,0).item >= %hızlıgrs { var %& = 1,%&& = $hget(grs,0).item while %& <= %&& { km mode $remove($3,$chr(58)) +b $hget(grs,%&).item km kick $remove($3,$chr(58)) $hget(grs,%&).item Agrasif hızlı giriş korumasına yakalandınız. inc %& } } if $ayr($1) != $sock(bt).mark { if !$hget(klonkoru,$gettok($remove($1,$chr(58)),2,64)) { hadd -m klon $+($remove($3,$chr(58)),.,$remove($1,$chr(58))) 1 if $hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),0) >= %klon-lmt { var %1 = 1,%2 = $hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),0) while %1 <= %2 { km mode $remove($3,$chr(58)) +b $gettok($hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),%1),2,64) km kick $remove($3,$chr(58)) $gettok($gettok($hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),%1),1,33),2,46) $+([,$kps($gettok($hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),%1),2,64)),]) adresinden $kps(%klon-lmt) adet clone tespit edildi. inc %1 } } } } var %z = 1,%j = $hget(bdnick,0).item while %z <= %j { if $hget(bdnick,%z).item iswm $ayr($1) { var %:: = $v1 | km mode $remove($3,$chr(58)) +b $gettok($1,2,64) km kick $remove($3,$chr(58)) $ayr($1) Kullandığınız rumuzda, yasaklı listesinden olan $+([,$kps(%::,)]) kelimesi algılandı. } inc %z } if $len($ayr($1)) >= %random-n-h-u && $regex($ayr($1), /[aeuioüÜÖöİı]/gi) < %random-nk { km mode $remove($3,$chr(58)) +b $gettok($1,2,64) km kick $remove($3,$chr(58)) $ayr($1) Kullandığınız rumuz, random nick olarak algılandı. Sebeb: Rumuz içerisinde $kps(%random-nk) adet'den daha az sesli harf. } } } if $2 == part { if $hmatch(klon,$+($3,.,$remove($1,$chr(58)))) { hdel klon $v1 } } if $2 == kick { if $hmatch(klon,$+($3,.,$address($4,5))) { hdel klon $v1 } if $ayr($1) == $sock(bt).mark { km privmsg %ykanal Bilgi: $kps($3) kanalında, $kps($4) rumuzunu kick'ledim. } else { km privmsg %ykanal Bilgi: $kps($3) kanalında, $kps($ayr($1)) tarafından; $kps($4) rumuzu kicklendi. } } if $2 == quit { if $hmatch(klon,$+(*,$remove($1,$chr(58)))) { hdel klon $v1 } } if $2 == nick { var %2 = 1,%3 = $hget(bdnick,0).item while %2 <= %3 { if $hget(bdnick,%2).item iswm $remove($3,$chr(58)) { var %& = $v1,%&& = $v2 badnick %&& %& } inc %2 } } if $2 == privmsg && $3 == $sock(bt).mark { hinc -m oztext $ayr($1) if $hget(oztext,$ayr($1)) == 1 { km privmsg $ayr($1) Merhaba, $+($kps($ayr($1)),.) km privmsg $ayr($1) Ben kanalların güvenliğinden sorumlu olan ve tamamen socket yapımı bir bot'um. km privmsg $ayr($1) Özelime yazdığınız hiçbir text'e cevap verilmeyecektir. km privmsg $ayr($1) Bu uyarıya uymayıp, $kps(2) defa daha text gönderirseniz; yetkili olduğum tüm kanallardan sizi $kps(uzaklaştırmak) zorunda kalıcağım. km privmsg $ayr($1) Hoş sohbetler dilerim. } if $hget(oztext,$ayr($1)) == 2 { km privmsg $ayr($1) $+($kps($ayr($1)),:) 2. defa text gönderdiniz. Son uyarıdır. } if $hget(oztext,$ayr($1)) == 3 { var %% = 1,%%% = $comchan($sock(bt).mark,0) while %% <= %%% { if $sock(bt).mark !isreg $comchan($sock(bt).mark,%%) { km mode $comchan($sock(bt).mark,%%) +b $ayr($1) km kick $comchan($sock(bt).mark,%%) $ayr($1) Özelime uyarıları dikkate alma***** $kps([3]) satır text gönderdiğiniz için; yetkili olduğum tüm kanallardan uzaklaştırıldınız. } inc %% } } } } } alias badnick { var %/ = 1,%\ = $comchan($sock(bt).mark,0) while %/ <= %\ { if $sock(bt).mark !isreg $comchan($sock(bt).mark,%/) { km mode $comchan($sock(bt).mark,%/) +b $1 km kick $comchan($sock(bt).mark,%/) $1 Geçmiş olduğunuz rumuz'da, yasaklı listesinden varolan $+([,$kps($2),]) kelimesi algılandı. } inc %/ } } dialog cprot { title "Azxz socket bot - Özellik/bağlantı ayarları" size -1 -1 344 268 option dbu text "- Küfür koruması ayarları -", 1, 255 11 87 8, center list 2, 263 31 50 40, size hsbar vsbar edit "", 3, 263 20 50 10, autohs button "EKLE", 4, 314 21 21 9 button "SİL", 5, 314 41 21 9 button "T.SİL", 6, 314 51 21 9 text "- Reklam koruması ayarları -", 7, 255 75 88 8, center edit "", 8, 263 84 50 10, autohs list 9, 263 95 50 40, size hsbar vsbar button "EKLE", 10, 314 85 21 9 button "SİL", 11, 314 105 21 9 button "T.SİL", 12, 314 115 21 9 text "- Badnick koruması ayarları -", 13, 256 138 88 8, center edit "", 14, 264 147 50 10, autohs list 15, 264 158 50 40, size hsbar vsbar button "EKLE", 16, 315 148 21 9 button "SİL", 17, 315 168 21 9 button "T.SİL", 18, 315 178 21 9 box "Gelişmiş korumalar", 19, 257 1 85 200 text "Sunucu:", 21, 6 12 23 8 edit "", 22, 29 11 47 10, autohs edit "", 23, 29 23 47 10, autohs text "PORT:", 24, 6 24 22 8 text "- Bot'un gireceği kanallar -", 25, 5 59 73 8, center edit "", 26, 5 70 50 10, autohs list 27, 5 81 50 40, size hsbar vsbar button "EKLE", 28, 56 71 21 9 button "SİL", 29, 56 91 21 9 button "T.SİL", 30, 56 101 21 9 text "Şifre:", 20, 6 36 23 8 edit "", 31, 29 35 47 10, autohs text "Ident:", 32, 6 48 22 8 edit "", 33, 29 47 47 10, autohs box "Bot bağlantı ayarları", 34, 3 1 79 200 text "- Uzun yazı koruma ayarları -", 35, 81 7 86 8, center edit "", 36, 87 16 11 10, autohs limit 3 text "karakter gönderilirse işlev.", 37, 99 17 64 8 text "- Satır koruma ayarları -", 38, 88 57 74 8, center edit "", 39, 86 66 11 10, limit 2 text "saniyede", 40, 98 67 23 8 edit "", 41, 121 66 11 10, limit 2 text "satır'a işlev.", 42, 133 67 30 8 text "- Tekrar koruma ayarları -", 43, 87 105 74 8, center edit "", 44, 86 114 11 10, limit 2 text "saniyede", 45, 98 115 22 8 edit "", 46, 120 114 11 10, limit 2 text "tekrar'a işlev.", 47, 132 115 33 8 text "- Büyük harf koruma ayarları -", 48, 169 7 84 8, center text "%", 49, 173 17 7 8 edit "", 50, 181 16 11 10, autohs limit 2 text "büyük harf'e işlev.", 51, 194 17 52 8 text "- Noktalama işareti koruma -", 52, 172 57 78 8, center edit "", 53, 172 66 11 10, limit 2 text "noktalama işaretine işlev.", 54, 184 67 66 8 text "Açıklama: Belirttiğiniz miktar'dan fazla karakter kanal'a gönderilise işlev yapıcaktır.", 55, 87 26 76 22, center text "Açıklama: Belirttiğiniz saniyede, belirttiğiniz miktardan fazla satır gönderilirse işlev yapıcaktır.", 56, 87 76 76 22, center text "Açıklama: Belirttiğiniz saniyede, belirttiğiniz miktar kadar tekrar yapılırsa işlev yapıcaktır.", 57, 86 124 76 22, center text "Açıklama: Gönderilen text'de belirttiğiniz % miktarı kadar büyük harf varsa işlev yapıcaktır.", 58, 168 26 83 22, center text "Açıklama: Gönderilen text'de belirttiğiniz miktar kadar noktalama işareti varsa işlev yapıcaktır.", 59, 169 76 84 22, center text "- Random text koruma ayarları -", 60, 163 105 96 8, center edit "", 61, 169 114 11 10, autohs limit 3 text "sesli harf işlev.", 62, 218 115 40 8 text "Açıklama: Gönderilen text'de belirttiğiniz miktardan aşşağıda sesli harf varsa işlev yapıcaktır.", 63, 169 124 84 22, center text "- Hızlı giriş koruma ayarları -", 64, 87 153 77 8, center text "saniyede", 66, 98 163 22 8 edit "", 67, 121 162 11 10, limit 2 text "giriş'e işlev.", 68, 133 163 31 8 text "Açıklama: Belirttiğiniz saniyede, belirttiğiniz kişi ve/ya fazlası kanal'a girer ise işlev yapıcaktır.", 69, 87 172 76 22, center text "- Clone koruma ayarları -", 70, 172 152 77 8, center edit "", 65, 86 162 11 10, limit 2 edit "", 71, 173 161 11 10, limit 2 text "adet clone'a aşarsa işlev.", 72, 185 162 62 8 text "Açıklama: Kanal'a belirttiğiniz miktarda clone girişi olursa tüm clone'lara işlev yapıcaktır.", 73, 168 172 84 22, center text "- Random nick koruma ayarları - ", 74, 124 201 93 8, center edit "", 75, 124 210 11 10, limit 2 text "karakter'de", 76, 136 211 29 8 edit "", 77, 166 210 11 10, limit 2 text "sesli harf'e işlev.", 78, 178 211 41 8 text "Açıklama: Belirlediğiniz karakter'den yüksek olan bir nick'de, belirttiğiniz karakterden aşşağıda sesli harf mevcut ise işlev yapılıcaktır.", 79, 128 221 84 28, center text "- Rapor bildirim kanalı -", 80, 6 123 72 8, center text "Kanal ismi girin:", 81, 6 133 38 8 edit "", 82, 45 133 35 9, autohs limit 15 text "Açıkalamalar", 84, 6 146 72 8, center text "Bot yapımı tamamen bana aittir.(L4roXyL) Bot'un gireceği kanalları ve bildirim kanalını mutlaka belirlemelisiniz. Aksi taktirde hatalar çıkabilir.", 85, 6 157 72 41, center button "AYARLARI KAYDET VE BAŞLAT", 86, 2 202 80 12, flat ok box "", 83, 83 1 83 50 box "", 87, 167 1 89 50 box "", 88, 83 50 83 51 box "", 89, 167 50 89 51 box "", 90, 83 148 83 49 box "", 91, 167 100 89 49 box "", 92, 83 100 83 49 box "", 93, 167 148 89 49 box "", 94, 122 196 97 56 button "SADECE AYARLARI KAYDET/YENİLE", 95, 122 253 96 12 text "Azxz bot durumu:", 96, 4 233 66 14 text "", 97, 72 233 48 14 box "Etkilenmiyecek adresler", 98, 257 202 84 64 text "Açıklama: Buraya eklediğiniz adresler clone korumasından etkilenmez. Örnek: *helper*", 99, 259 209 79 22, center edit "", 100, 287 233 51 10, autohs text "Adres gir:", 101, 262 234 25 8 button "EKLE", 102, 262 244 75 10 button "Liste", 103, 282 255 37 9 button "BAĞLANTIYI KOPAR", 104, 2 216 80 11, flat text "uzunlukda", 105, 181 115 26 8 edit "", 106, 206 114 11 10, limit 2 } dialog cloness { title "Etkilenmiyenler;" size -1 -1 95 69 option dbu list 1, 3 2 89 50, size hsbar vsbar button "Korunan adresi sil", 2, 18 54 60 12 } on *:dialog:cprot:sclick:*: { if $did == 86 { if $did(36) == $null || $did(39) == $null || $did(41) == $null || $did(44) == $null || $did(46) == $null || $did(50) == $null || $did(61) == $null || $did(65) == $null || $did(67) == $null || $did(71) == $null || $did(75) == $null || $did(77) == $null || $did(53) == $null || $did(22) == $null || $did(23) == $null || $did(31) == $null || $did(33) == $null || $hget(kanallar,0).item < 1 { $input(Boş alan bıraktınız. Bot'u belirtilen sunucuya bağlamak için boş alan bırakılmamalıdır. Lütfen tüm yerleri doldurunuz.,ohud,HATA) halt } else { set %uzunyazı $did(36) | set %tkr-lmt $did(39) | set %tkr-sny $did(41) | set %flood-lmt $did(44) | set %flood-sny $did(46) | set %buharf $did(50) | set %random-t-t $did(61) set %random-t $did(106) | set %hızlıgr-lmt $did(65) | set %hızlıgrs $did(67) | set %klon-lmt $did(71) | set %random-n-h-u $did(75) | set %random-nk $did(77) | set %noktalama $did(53) set %ykanal $did(82) | set %sunucu $did(22) | set %port $did(23) | set %bsifre $did(31) | set %bident $did(33) btbg %sunucu %port dialog -x cprot cprot | echo -a Bilgi: $kps(Azxz) botu, şuan'da $kps(%sunucu) sunucusuna bağlanıyor. hadd -m kanallar %ykanal 1 } } if $did == 28 { if $did(26).text == $null { $iif($input(Herhangi bir veri girmediniz.,ohud,Hata) == $true,halt,return) } if $left($did(26).text,1) != $chr(35) { $iif($input(Lütfen kanal eklerken başına "#" karakterini koyunuz,ohud,Hata) == $true,did -r $dname 26,did -r $dname 26) } else { var %ttt = $did(26).text if $hget(kanallar,%ttt) != 1 { did -a $dname 27 %ttt | hadd -m kanallar %ttt 1 | hsave -i kanallar kanallar.db | did -r $dname 26 } else { $iif($input(%ttt kanalı zaten listede.,ohud,Hata) == $true,did -r $dname 26,did -r $dname 26) } } if $hget(kanallar,0).item >= 10 { $iif($input(Kanal listesini doldurmuşsunuz maksimum 9 kanal ekliyebilirsiniz.,ohud,Hata) == $true,did -r $dname 26,did -r $dname 26) } } if $did == 29 { var %- = $did($dname,27).sel,%-- = $did($dname,27).seltext if !%- { $input(Listeden bir kanal seçmelisiniz.,ohud,hata) } else { hdel kanallar %-- | hsave -i kanallar kanallar.db | did -d $dname 27 %- } } if $did == 30 { if $hget(kanallar,0).item >= 1 { did -r $dname 27 | hfree kanallar | hmake kanallar 100 | hsave kanallar kanallar.db } else { $input(Herhangi bir veri yok.,ohud,Hata) } } if $did == 4 { if $did(3).text == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Hata) == $true,halt,return) } else { var %kkk = $did(3).text if $hget(kfr,%kkk) == 1 { $iif($input(%kkk kelimesi zaten listede.,ohud,Hata) == $true,did -r $dname 3,did -r $dname 3) } else { did -a $dname 2 %kkk | hadd -m kfr %kkk 1 | hsave -i kfr kfr.db | did -r $dname 3 } } } if $did == 5 { var %q = $did($dname,2).sel,%qq = $did($dname,2).seltext if !%q { $input(Listeden bir kelime seçmelisiniz.,ohud,hata) } else { hdel kfr %qq | hsave -i kfr kfr.db | did -d $dname 2 %q } } if $did == 6 { if $hget(kfr,0).item >= 1 { did -r $dname 2 | hfree kfr | hmake kfr 100 | hsave kfr kfr.db } else { $input(Herhangi bir veri yok.,ohud,Hata) } } if $did == 10 { if $did(8).text == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Hata) == $true,halt,return) } else { var %ssq = $did(8).text if $hget(rklm,%ssq) == 1 { $iif($input(%ssq kelimesi zaten listede.,ohud,Hata) == $true,did -r $dname 8,did -r $dname 8) } else { did -a $dname 9 %ssq | hadd -m rklm %ssq 1 | hsave -i rklm rklm.db | did -r $dname 8 } } } if $did == 11 { var %ww = $did($dname,9).sel,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if !%ww { $input(Listeden bir kelime seçmelisiniz.,ohud,hata) } else { hdel rklm %
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
hsave -i rklm rklm.db | did -d $dname 9 %ww } } if $did == 12 { if $hget(rklm,0).item >= 1 { did -r $dname 9 | hfree rklm | hmake rklm 100 | hsave rklm rklm.db } else { $input(Herhangi bir veri yok.,ohud,Hata) } } if $did == 16 { if $did(14).text == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Hata) == $true,halt,return) } else { var %po = $did(14).text if $hget(bdnick,%po) == 1 { $iif($input(%po kelimesi zaten listede.,ohud,Hata) == $true,did -r $dname 14,did -r $dname 14) } else { did -a $dname 15 %po | hadd -m bdnick %po 1 | hsave -i bdnick bdnick.db | did -r $dname 14 } } } if $did == 17 { var %ee = $did($dname,15).sel,%eee = $did($dname,15).seltext if !%ee { $input(Listeden bir kelime seçmelisiniz.,ohud,hata) } else { hdel bdnick %eee | hsave -i bdnick bdnick.db | did -d $dname 9 %ee } } if $did == 18 { if $hget(bdnick,0).item >= 1 { did -r $dname 15 | hfree bdnick | hmake bdnick 100 | hsave bdnick bdnick.db } else { $input(Herhangi bir veri yok.,ohud,Hata) } } if $did == 102 { if $did(100) == $null { $input(Eklenilecek adres girmediniz. Örnek: *helper* ve/ya *admin* şeklinde ekleme yapınız.,ohud,Hata) } else { var %&1 = $did(100).text if $hmatch(klonkoru,%&1) { $iif($input(%&1 adresini zaten koruma listesine eklemişsiniz.,ohud,Hata) == $true,did -r $dname 100,did -r $dname 100) } else { did -r $dname 100 | hadd -m klonkoru %&1 1 | hsave -i klonkoru klonkoru.db | did -a $dname 100 Eklendi. } } } if $did == 103 { if !$dialog(cloness) { dialog -m cloness cloness } } if $did == 104 { if $sock(bt).status == active { sockclose bt | echo -a Bilgi: $kps(Azxz) bağlantısı koptu. | vsvs | hfree klon } | else { echo -a Bilgi: Bot zaten bağlı değil. } } if $did == 95 { set %uzunyazı $did(36) | set %tkr-lmt $did(39) | set %tkr-sny $did(41) | set %flood-lmt $did(44) | set %flood-sny $did(46) | set %buharf $did(50) set %random-t-t $did(61) | set %hızlıgr-lmt $did(65) | set %hızlıgrs $did(67) | set %klon-lmt $did(71) | set %random-n-h-u $did(75) | set %random-nk $did(77) | set %noktalama $did(53) set %ykanal $did(82) | set %sunucu $did(22) | set %port $did(23) | set %bsifre $did(31) | set %bident $did(33) | set %random-t $did(106) dialog -x cprot cprot | echo -a Bilgi: Tüm ayarlar kaydedildi/yenilendi. } } on *:dialog:cprot:init:*:{ var %&& = 1,%&&& = $hget(kanallar,0).item | while %&& <= %&&& { did -a $dname 27 $hget(kanallar,%&&).item | inc %&& } var %oo = 1,%l = $hget(kfr,0).item | while %oo <= %l { did -a $dname 2 $hget(kfr,%oo).item | inc %oo } var %ii = 1,%i = $hget(rklm,0).item | while %ii <= %i { did -a $dname 9 $hget(rklm,%ii).item | inc %ii } var %gak = 1,%p = $hget(bdnick,0).item | while %gak <= %p { did -a $dname 15 $hget(bdnick,%gak).item | inc %gak } did -a $dname 36 %uzunyazı | did -a $dname 39 %tkr-lmt | did -a $dname 41 %tkr-sny | did -a $dname 44 %flood-lmt | did -a $dname 46 %flood-sny did -a $dname 50 %buharf | did -a $dname 61 %random-t-t | did -a $dname 65 %hızlıgr-lmt | did -a $dname 67 %hızlıgrs | did -a $dname 71 %klon-lmt did -a $dname 75 %random-n-h-u | did -a $dname 77 %random-nk | did -a $dname 53 %noktalama | did -a $dname 106 %random-t did -a $dname 22 %sunucu | did -a $dname 23 %port | did -a $dname 33 %bident | did -a $dname 31 %bsifre | did -a $dname 82 %ykanal did -a $dname 97 $iif($sock(bt).status == active,Bot bağlı.,Bağlı değil.) mdx MarkDialog $dname mdx SetFont $dname 25,80,84,35,38,43,64,48,52,60,70,74,1,7,13,34,19,36,50,39,41,53,44,46,61,65,67,71,75,77,21,20,24,32,98,106 14 800 Bauhaus mdx SetFont $dname 96,97 16 800 Bauhaus mdx SetColor $dname 96,97 text $rgb(205,38,38) mdx SetColor $dname 25,80,84,35,38,43,64,48,52,60,70,74,1,7,13,34,19 text $rgb(205,38,38) if $sock(bt).status == active { did -b $dname 86 } else { did -e $dname 86 | did -b $dname 104 } } on *:dialog:cloness:init:*: { var %11 = 1,%12 = $hget(klonkoru,0).item | while %11 <= %12 { did -a $dname 1 $hget(klonkoru,%11).item | inc %11 } } on *:dialog:cloness:sclick:2: { var %1 = $did($dname,1).sel,%2 = $did($dname,1).seltext if !%1 { $input(Listeden herhangi bir veri seçmediniz.,ohud,Hata) } else { hdel klonkoru %2 | hsave -i klonkoru klonkoru.db | did -d $dname 1 %1 }

Su Bota ne olur istedigim eklemeleri yapabilirmisiniz ornek !gir #a !partall tum kanllardan cıksın !ident nickin şifresini identi etsin yani ozeline bunlari yazdimmi yapsin


Konu Feragat tarafından (09 Kasım 2014 Saat 23:16 ) değiştirilmiştir. Sebep: mIRC Kod'larını CODE Tagı içinde paylaşın lütfen..
 
Alıntı ile Cevapla

Alt 09 Kasım 2014, 11:36   #6
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: yardım lutfen




Kodları paylaşırken code tag kullanırsak daha iyi olur.

Buyur;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias kekle { if !$hmatch(kfr,$1) { hadd -m kfr $1 1 | hsave -i kfr kfr.db } } alias rekle { if !$hmatch(rklm,$1) { hadd -m rklm $1 1 | hsave -i rklm rklm.db } } alias bekle { if !$hmatch(bdnick,$1) { hadd -m bdnick $1 1 | hsave -i bdnick bdnick.db } } alias koruekle { if !$hmatch(klonkoru,$1) { hadd -m klonkoru $1 1 | hsave -i klonkoru klonkoru.db } } alias btbg { sockopen bt %sunucu %port } alias vsvs { dialog -x cprot cprot | dialog -m cprot cprot } alias ayr { return $remove($gettok($1-,1,33),$chr(58)) } alias km { sockwrite -n bt $1- } alias kps { return $+($chr(2),$1-,$chr(2)) } alias cprtdlg { if !$dialog(cprot) { dialog -m cprot cprot } } alias mdx { dll mdx.dll $1 $2- return } on *:start: { if $isfile(kfr.db) { hmake kfr 100 | hload -i kfr kfr.db } | else { hmake kfr 100 | hsave -i kfr kfr.db } if $isfile(rklm.db) { hmake rklm 100 | hload -i rklm rklm.db } | else { hmake rklm 100 | hsave -i rklm rklm.db } if $isfile(bdnick.db) { hmake bdnick 100 | hload -i bdnick bdnick.db } | else { hmake bdnick 100 | hsave -i bdnick bdnick.db } if $isfile(kanallar.db) { hmake kanallar 100 | hload -i kanallar kanallar.db } | else { hmake kanallar 100 | hsave -i kanallar kanallar.db } if $isfile(klonkoru.db) { hmake klonkoru 100 | hload -i klonkoru klonkoru.db } | else { hmake klonkoru 100 | hsave -i klonkoru klonkoru.db } if !%uzunyazı { set %uzunyazı 250 } | if !%tkr-lmt { set %tkr-lmt 5 } | if !%tkr-sny { set %tkr-sny 3 } | if !%flood-lmt { set %flood-lmt 10 } if !%flood-sny { set %flood-sny 4 } | if !%buharf { set %buharf 65 } | if !%noktalama { set %noktalama 10 } | if !%random-t { set %random-t 3 } if !%hızlıgr-lmt { set %hızlıgr-lmt 6 } | if !%hızlıgrs { set %hızlıgrs 4 } | if !%klon-lmt { set %klon-lmt 2 } | if !%random-n-h-u { set %random-n-h-u 4 } if !%random-nk { set %random-nk 1 } | if !%random-t-t { set %random-t-t 200 } cprtdlg } on *:sockopen:bt: { if $sockerr { echo -at Bağlantıda sorun var. | return } km NICK Azxz km USER %bident * * Kanal koruma botu. Yapımcı: $kps(L4roXyL.) sockmark bt Azxz echo -a Bilgi: $kps($sock(bt).mark) bot'u, $kps(%sunucu) sunucusuna bağlandı. } on *:sockread:bt: { if $sockerr { echo -at Bilgi: Bağlantıda sorun var. | return } else { var %:- | sockread %:- | tokenize %:- | cvp %:- } if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug) { window -k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug } | aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug $timestamp < $1- } alias cvp { if $sock(bt) { if ($2 == 001) { km oper OPERNICK OPERPASS | km nick BOT | .timer 1 3 km identify %bsifre | .timer 1 5 join #0,0 | .timer 1 7 join #Kanal,#Kanal1,#Kanal2 } if $1 == PING { km PONG $remove($2,$chr(58)) } if *VERSION* iswm $4- { km NOTICE $ayr($1-) Azxz kanal koruma bot'u. Yapımcı: $kps(L4roXyL.) | km privmsg %ykanal Bilgi: $kps($ayr($1)) bana version uyguladı. } if $sock(bt).mark == $ayr($1) && $2 == JOIN { if !$hmatch(kanallar,$remove($3,$chr(58))) { km parallt $remove($3,$chr(58)) } } if $remove($1,$chr(58)) == $sock(bt).mark && $2 == MODE && $3 == $sock(bt).mark { var %1 = 1,%2 = $hget(kanallar,0).item | while %1 <= %2 { km join $hget(kanallar,%1).item | inc %1 } } if $2 == PRIVMSG { if $sock(bt).mark !isreg $3 { if $count($nick($3,$ayr($1)).pnick,@,&,%,~,.) != 0 { if $remove($4,$chr(58)) == !sus && $5 ison $3 { km MODE $3 +b $+(~q:,$address($5,2)) | km NOTICE $5 $+($5,$chr(58)) $kps($3) kanalın'da konuşmanız, $kps($ayr($1)) tarafından engellendi. } if $remove($4,$chr(58)) == !banac { km MODE $3 +b | km PRIVMSG $3 $kps($3) kanal'ı ban listesi temizleniyor. } if $remove($4,$chr(58)) == !nik && $5 ison $3 { km MODE $3 +b $+(~n:,$address($5,2)) | km NOTICE $5 $+($5,$chr(58)) $kps($3) kanalın'da nick değiştirmeniz, $kps($ayr($1)) tarafından engellendi. } if $remove($4,$chr(58)) == !k && $5 ison $3 { km KICK $3 $5 $6- } if $remove($4,$chr(58)) == !cban { if $left($5,1) == $chr(35) { km MODE $3 +b $+(~c:,$5) | km PRIVMSG $3 Bilgi: $kps($5) kanalında bulunan kullanıcıların, $kps($3) kanalına girmesi yasaklandı. } } if $remove($4,$chr(58)) == !op && $5 && $5 ison $3 { km mode $3 +o $5 } if $remove($4,$chr(58)) == !deop && $5 && $5 ison $3 { km mode $3 -o $5 } if $remove($4,$chr(58)) == !voice && $5 && $5 ison $3 { km mode $3 +v $5 } if $remove($4,$chr(58)) == !devoice && $5 && $5 ison $3 { km mode $3 -v $5 } if $remove($4,$chr(58)) == !hop && $5 && $5 ison $3 { km mode $3 +h $5 } if $remove($4,$chr(58)) == !dehop && $5 && $5 ison $3 { km mode $3 -h $5 } if $remove($4,$chr(58)) == !pro && $5 && $5 ison $3 { km mode $3 +a $5 } if $remove($4,$chr(58)) == !depro && $5 && $5 ison $3 { km mode $3 -a $5 } if $remove($4,$chr(58)) == !own && $5 && $5 ison $3 { km mode $3 +q $5 } if $remove($4,$chr(58)) == !deown && $5 && $5 ison $3 { km mode $3 -q $5 } if $remove($4,$chr(58)) == !rban && $5 { km MODE $3 +b $+(~r:,$5-) | km PRIVMSG $3 Bilgi: $kps($5-) realname'a sahip olanların, $kps($3) kanalına girmesi yasaklandı. } if $remove($4,$chr(58)) == !ban && $5 { km MODE $3 +b $address($5,2) | km NOTICE $5 $kps($ayr($1)) tarafından $kps($3) kanalında banlandınız. } if $remove($4,$chr(58)) == !kb && $5 && $5 ison $3 { km MODE $3 +b $address($5,2) | km KICK $3 $5 $6- } if $remove($4,$chr(58)) == !mode { km mode $3 $5- } if $remove($4,$chr(58)) == !temizle { var %1 = 40 | while %1 { km privmsg $3 $chr(160) | dec %1 } } if $remove($4,$chr(58)) == !koru && $5 && $5 ison $3 { km mode $3 +e $5 } if $remove($4,$chr(58)) == !invite && $5 && $5 ison $3 { km mode $3 +I $5 } if $remove($4,$chr(58)) == !uyarı && $5 && $5 ison $3 { km privmsg $3 Uyarı: $kps($+($5,$chr(58))) %uyarı } if $istok(!sus !banac !mode !voice !devoice !hop !deop !hop !dehop !pro !depro !own !deown !invite !koru !temizle !nick !cban !rban !k !kb !uyarı !kurallar,$remove($4,$chr(58)),32) { km privmsg %ykanal Bilgi: $kps($ayr($1)) yetkilisi, $kps($3) kanalında $kps($remove($4-,$chr(58))) komutunu uyguladı. } } else { var %1 = 1,%2 = $hget(kfr,0).item while %1 <= %2 { if $hget(kfr,%1).item iswm $remove($4-,$chr(58)) { var %klm = $v1 | km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) Kullandığınız [kelime/cümle][de] $+([küfür kelimesi],[,$kps(%klm),]) algılandı. } inc %1 } var %p = $len($4-) if $len($remove($4-,$chr(58))) >= %uzunyazı { km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) $kps(%uzunyazı) karakterden $+(fazla,[,$kps(%p),$chr(32),karakter,],) text gönderdiğiniz algılandı. } hinc $+(-mu,%tkr-lmt) text $+($3,½,$ayr($1)) 1 if $hget(text,$+($3,½,$ayr($1))) >= %tkr-sny { km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) $kps($3) kanalına; $kps($+([,%tkr-lmt,][saniye])) içerisinde $kps($+([,%tkr-sny,][satır])) text gönderdiğiniz algılandı. } hinc $+(-mu,%flood-lmt) tkr $+($3,½,$ayr($1),$4,$5,$6) 1 if $hget(tkr,$+($3,½,$ayr($1),$4,$5,$6)) >= %flood-sny { km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) $kps($3) kanalın'da; $kps($+([,%flood-lmt,][saniye])) içerisinde $kps($+([,%flood-sny,][defa])) flood(tekrar) yaptığınız algılandı. } if $int($calc($regex($4-,/[A-ZÁ-ÙÄ]/g)*100/$len($4-))) >= %buharf { km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) Göndermiş olduğunuz text $kps($+([,%,%buharf,])) izinli olan büyük harf limitini aşmaktadır. } var %s = 1,%x = $hget(rklm,0).item while %s <= %x { if $hget(rklm,%s).item iswm $remove($4-,$chr(58)) { var %klm2 = $v1 | km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) Kullandığınız [kelime/cümle][de] $+([reklam kelimesi],[,$kps(%klm2),]) algılandı. } inc %s } if $regex($4-,/([?!:;,*@/\-=´`.])/g) >= %noktalama { var %tt = $v1 km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) Kanala göndermiş olduğunuz text'de, $kps(%noktalama) adet'den $+(fazla,[,$kps(%tt),$chr(32),adet,]) noktalama işareti bulunmakta. } if $chr(3) isin $4- || $chr(2) isin $4- || $chr(31) isin $4- || $chr(22) isin $4- { km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) Göndermiş olduğunuz text'de, $kps(CTRL) kodları bulunmakta. } if $len($right($4-,-1)) >= %random-t-t && $regex($ayr($4-), /[aeuioüÜÖöİı]/gi) < %random-t { km mode $3 +b $address($ayr($1),2) km kick $3 $ayr($1) Göndermiş olduğunuz text'de, $kps($+(RANDOM[,%random-t sesli harf'den az])) olarak algılandı. } } } } if ($2 = privmsg && $left($3,1) != $chr(35)) { if $istok(nick nick1 nick2 nick3,$remove($gettok($1,1,33),:),32) { if $istok(!gir .gir,$remove($4,:),32) { if (!$strip($5)) || #* !iswm $strip($5) { km PRIVMSG $remove($gettok($1,1,33),:) Lütfen kanal belirtiniz. Örn; !gir #a | return } km join $strip($5) km privmsg $remove($gettok($1,1,33),:) $strip($5) kanal'ına giriş yapıldı.. } if $istok(!part .part,$remove($4,:),32) { if (!$strip($5)) || #* !iswm $strip($5) { km PRIVMSG $remove($gettok($1,1,33),:) Lütfen kanal belirtiniz. Örn; !part #a | return } km part $strip($5) km privmsg $remove($gettok($1,1,33),:) $strip($5) kanal'ına part yapıldı.. } if $istok(!partall .partall,$remove($4,:),32) { km join #0,0 km privmsg $remove($gettok($1,1,33),:) Bütün kanal'lardan part yapıldı. } if $istok(!ident .ident,$remove($4,:),32) { km nickserv identify %bsifre km privmsg $remove($gettok($1,1,33),:) Nick identify edildi.. } } } if $2 == mode { if $sock(bt).mark !isreg $3 { if $left($4,1) == $chr(43) { if *o* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda operator durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) operator oldu. } if *h* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda halfop durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) halfop oldu. } if *a* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda protect durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) protect oldu. } if *q* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda founder durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) founder oldu. } if *b* iswm $4 && $5 != $sock(bt).mark { if $ayr($1) == $sock(bt).mark { km privmsg %ykanal Bilgi: $kps($3) kanalında, banladım: $kps($5-) } else { km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($ayr($1)) yetkilisi banladı: $kps($5-) } } } if $left($4,1) == $chr(45) { if *o* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-operator durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-operator oldu. } if *h* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-halfop durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-halfop oldu. } if *a* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-protect durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-protect oldu. } if *q* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-founder durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-founder oldu. } if *b* iswm $4 { if $ayr($1) == $sock(bt).mark { km privmsg %ykanal Bilgi: $kps($3) kanalında, ban açtım: $kps($5-) } else { km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($ayr($1)) yetkilisi ban açtı: $kps($5-) } } } } } if $2 == 367 && $sock(bt).mark !isreg $4 { km mode $4 -b $5 } if $2 == 368 && $sock(bt).mark !isreg $4 { km PRIVMSG $4 Bilgi: $kps($4) kanal'ı ban listesi temizlendi. } if $2 == JOIN { if $sock(bt).mark !isreg $remove($3,$chr(58)) { if !$hmatch(grs,$ayr($1)) { hadd $+(-mu,%hızlıgr-lmt) grs $ayr($1) 1 } if $hget(grs,0).item >= %hızlıgrs { var %& = 1,%&& = $hget(grs,0).item while %& <= %&& { km mode $remove($3,$chr(58)) +b $hget(grs,%&).item km kick $remove($3,$chr(58)) $hget(grs,%&).item Agrasif hızlı giriş korumasına yakalandınız. inc %& } } if $ayr($1) != $sock(bt).mark { if !$hget(klonkoru,$gettok($remove($1,$chr(58)),2,64) ) { hadd -m klon $+($remove($3,$chr(58)),.,$remove($1,$chr(58))) 1 if $hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,6 4)),0) >= %klon-lmt { var %1 = 1,%2 = $hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,6 4)),0) while %1 <= %2 { km mode $remove($3,$chr(58)) +b $gettok($hmatch(klon,$+(*,$gettok($remove($1,$chr( 58)),2,64)),%1),2,64) km kick $remove($3,$chr(58)) $gettok($gettok($hmatch(klon,$+(*,$gettok($remove( $1,$chr(58)),2,64)),%1),1,33),2,46) $+([,$kps($gettok($hmatch(klon,$+(*,$gettok($remove($1 ,$chr(58)),2,64)),%1),2,64)),]) adresinden $kps(%klon-lmt) adet clone tespit edildi. inc %1 } } } } var %z = 1,%j = $hget(bdnick,0).item while %z <= %j { if $hget(bdnick,%z).item iswm $ayr($1) { var %:: = $v1 | km mode $remove($3,$chr(58)) +b $gettok($1,2,64) km kick $remove($3,$chr(58)) $ayr($1) Kullandığınız rumuzda, yasaklı listesinden olan $+([,$kps(%::,)]) kelimesi algılandı. } inc %z } if $len($ayr($1)) >= %random-n-h-u && $regex($ayr($1), /[aeuioüÜÖöİı]/gi) < %random-nk { km mode $remove($3,$chr(58)) +b $gettok($1,2,64) km kick $remove($3,$chr(58)) $ayr($1) Kullandığınız rumuz, random nick olarak algılandı. Sebeb: Rumuz içerisinde $kps(%random-nk) adet'den daha az sesli harf. } } } if $2 == part { if $hmatch(klon,$+($3,.,$remove($1,$chr(58)))) { hdel klon $v1 } } if $2 == kick { if $hmatch(klon,$+($3,.,$address($4,5))) { hdel klon $v1 } if $ayr($1) == $sock(bt).mark { km privmsg %ykanal Bilgi: $kps($3) kanalında, $kps($4) rumuzunu kick'ledim. } else { km privmsg %ykanal Bilgi: $kps($3) kanalında, $kps($ayr($1)) tarafından; $kps($4) rumuzu kicklendi. } } if $2 == quit { if $hmatch(klon,$+(*,$remove($1,$chr(58)))) { hdel klon $v1 } } if $2 == nick { var %2 = 1,%3 = $hget(bdnick,0).item while %2 <= %3 { if $hget(bdnick,%2).item iswm $remove($3,$chr(58)) { var %& = $v1,%&& = $v2 badnick %&& %& } inc %2 } } if $2 == privmsg && $3 == $sock(bt).mark { hinc -m oztext $ayr($1) if $hget(oztext,$ayr($1)) == 1 { km privmsg $ayr($1) Merhaba, $+($kps($ayr($1)),.) km privmsg $ayr($1) Ben kanalların güvenliğinden sorumlu olan ve tamamen socket yapımı bir bot'um. km privmsg $ayr($1) Özelime yazdığınız hiçbir text'e cevap verilmeyecektir. km privmsg $ayr($1) Bu uyarıya uymayıp, $kps(2) defa daha text gönderirseniz; yetkili olduğum tüm kanallardan sizi $kps(uzaklaştırmak) zorunda kalıcağım. km privmsg $ayr($1) Hoş sohbetler dilerim. } if $hget(oztext,$ayr($1)) == 2 { km privmsg $ayr($1) $+($kps($ayr($1)), 2. defa text gönderdiniz. Son uyarıdır. } if $hget(oztext,$ayr($1)) == 3 { var %% = 1,%%% = $comchan($sock(bt).mark,0) while %% <= %%% { if $sock(bt).mark !isreg $comchan($sock(bt).mark,%%) { km mode $comchan($sock(bt).mark,%%) +b $ayr($1) km kick $comchan($sock(bt).mark,%%) $ayr($1) Özelime uyarıları dikkate alma***** $kps([3]) satır text gönderdiğiniz için; yetkili olduğum tüm kanallardan uzaklaştırıldınız. } inc %% } } } } } alias badnick { var %/ = 1,%\ = $comchan($sock(bt).mark,0) while %/ <= %\ { if $sock(bt).mark !isreg $comchan($sock(bt).mark,%/) { km mode $comchan($sock(bt).mark,%/) +b $1 km kick $comchan($sock(bt).mark,%/) $1 Geçmiş olduğunuz rumuz'da, yasaklı listesinden varolan $+([,$kps($2),]) kelimesi algılandı. } inc %/ } } dialog cprot { title "Azxz socket bot - Özellik/bağlantı ayarları" size -1 -1 344 268 option dbu text "- Küfür koruması ayarları -", 1, 255 11 87 8, center list 2, 263 31 50 40, size hsbar vsbar edit "", 3, 263 20 50 10, autohs button "EKLE", 4, 314 21 21 9 button "SİL", 5, 314 41 21 9 button "T.SİL", 6, 314 51 21 9 text "- Reklam koruması ayarları -", 7, 255 75 88 8, center edit "", 8, 263 84 50 10, autohs list 9, 263 95 50 40, size hsbar vsbar button "EKLE", 10, 314 85 21 9 button "SİL", 11, 314 105 21 9 button "T.SİL", 12, 314 115 21 9 text "- Badnick koruması ayarları -", 13, 256 138 88 8, center edit "", 14, 264 147 50 10, autohs list 15, 264 158 50 40, size hsbar vsbar button "EKLE", 16, 315 148 21 9 button "SİL", 17, 315 168 21 9 button "T.SİL", 18, 315 178 21 9 box "Gelişmiş korumalar", 19, 257 1 85 200 text "Sunucu:", 21, 6 12 23 8 edit "", 22, 29 11 47 10, autohs edit "", 23, 29 23 47 10, autohs text "PORT:", 24, 6 24 22 8 text "- Bot'un gireceği kanallar -", 25, 5 59 73 8, center edit "", 26, 5 70 50 10, autohs list 27, 5 81 50 40, size hsbar vsbar button "EKLE", 28, 56 71 21 9 button "SİL", 29, 56 91 21 9 button "T.SİL", 30, 56 101 21 9 text "Şifre:", 20, 6 36 23 8 edit "", 31, 29 35 47 10, autohs text "Ident:", 32, 6 48 22 8 edit "", 33, 29 47 47 10, autohs box "Bot bağlantı ayarları", 34, 3 1 79 200 text "- Uzun yazı koruma ayarları -", 35, 81 7 86 8, center edit "", 36, 87 16 11 10, autohs limit 3 text "karakter gönderilirse işlev.", 37, 99 17 64 8 text "- Satır koruma ayarları -", 38, 88 57 74 8, center edit "", 39, 86 66 11 10, limit 2 text "saniyede", 40, 98 67 23 8 edit "", 41, 121 66 11 10, limit 2 text "satır'a işlev.", 42, 133 67 30 8 text "- Tekrar koruma ayarları -", 43, 87 105 74 8, center edit "", 44, 86 114 11 10, limit 2 text "saniyede", 45, 98 115 22 8 edit "", 46, 120 114 11 10, limit 2 text "tekrar'a işlev.", 47, 132 115 33 8 text "- Büyük harf koruma ayarları -", 48, 169 7 84 8, center text "%", 49, 173 17 7 8 edit "", 50, 181 16 11 10, autohs limit 2 text "büyük harf'e işlev.", 51, 194 17 52 8 text "- Noktalama işareti koruma -", 52, 172 57 78 8, center edit "", 53, 172 66 11 10, limit 2 text "noktalama işaretine işlev.", 54, 184 67 66 8 text "Açıklama: Belirttiğiniz miktar'dan fazla karakter kanal'a gönderilise işlev yapıcaktır.", 55, 87 26 76 22, center text "Açıklama: Belirttiğiniz saniyede, belirttiğiniz miktardan fazla satır gönderilirse işlev yapıcaktır.", 56, 87 76 76 22, center text "Açıklama: Belirttiğiniz saniyede, belirttiğiniz miktar kadar tekrar yapılırsa işlev yapıcaktır.", 57, 86 124 76 22, center text "Açıklama: Gönderilen text'de belirttiğiniz % miktarı kadar büyük harf varsa işlev yapıcaktır.", 58, 168 26 83 22, center text "Açıklama: Gönderilen text'de belirttiğiniz miktar kadar noktalama işareti varsa işlev yapıcaktır.", 59, 169 76 84 22, center text "- Random text koruma ayarları -", 60, 163 105 96 8, center edit "", 61, 169 114 11 10, autohs limit 3 text "sesli harf işlev.", 62, 218 115 40 8 text "Açıklama: Gönderilen text'de belirttiğiniz miktardan aşşağıda sesli harf varsa işlev yapıcaktır.", 63, 169 124 84 22, center text "- Hızlı giriş koruma ayarları -", 64, 87 153 77 8, center text "saniyede", 66, 98 163 22 8 edit "", 67, 121 162 11 10, limit 2 text "giriş'e işlev.", 68, 133 163 31 8 text "Açıklama: Belirttiğiniz saniyede, belirttiğiniz kişi ve/ya fazlası kanal'a girer ise işlev yapıcaktır.", 69, 87 172 76 22, center text "- Clone koruma ayarları -", 70, 172 152 77 8, center edit "", 65, 86 162 11 10, limit 2 edit "", 71, 173 161 11 10, limit 2 text "adet clone'a aşarsa işlev.", 72, 185 162 62 8 text "Açıklama: Kanal'a belirttiğiniz miktarda clone girişi olursa tüm clone'lara işlev yapıcaktır.", 73, 168 172 84 22, center text "- Random nick koruma ayarları - ", 74, 124 201 93 8, center edit "", 75, 124 210 11 10, limit 2 text "karakter'de", 76, 136 211 29 8 edit "", 77, 166 210 11 10, limit 2 text "sesli harf'e işlev.", 78, 178 211 41 8 text "Açıklama: Belirlediğiniz karakter'den yüksek olan bir nick'de, belirttiğiniz karakterden aşşağıda sesli harf mevcut ise işlev yapılıcaktır.", 79, 128 221 84 28, center text "- Rapor bildirim kanalı -", 80, 6 123 72 8, center text "Kanal ismi girin:", 81, 6 133 38 8 edit "", 82, 45 133 35 9, autohs limit 15 text "Açıkalamalar", 84, 6 146 72 8, center text "Bot yapımı tamamen bana aittir.(L4roXyL) Bot'un gireceği kanalları ve bildirim kanalını mutlaka belirlemelisiniz. Aksi taktirde hatalar çıkabilir.", 85, 6 157 72 41, center button "AYARLARI KAYDET VE BAŞLAT", 86, 2 202 80 12, flat ok box "", 83, 83 1 83 50 box "", 87, 167 1 89 50 box "", 88, 83 50 83 51 box "", 89, 167 50 89 51 box "", 90, 83 148 83 49 box "", 91, 167 100 89 49 box "", 92, 83 100 83 49 box "", 93, 167 148 89 49 box "", 94, 122 196 97 56 button "SADECE AYARLARI KAYDET/YENİLE", 95, 122 253 96 12 text "Azxz bot durumu:", 96, 4 233 66 14 text "", 97, 72 233 48 14 box "Etkilenmiyecek adresler", 98, 257 202 84 64 text "Açıklama: Buraya eklediğiniz adresler clone korumasından etkilenmez. Örnek: *helper*", 99, 259 209 79 22, center edit "", 100, 287 233 51 10, autohs text "Adres gir:", 101, 262 234 25 8 button "EKLE", 102, 262 244 75 10 button "Liste", 103, 282 255 37 9 button "BAĞLANTIYI KOPAR", 104, 2 216 80 11, flat text "uzunlukda", 105, 181 115 26 8 edit "", 106, 206 114 11 10, limit 2 } dialog cloness { title "Etkilenmiyenler;" size -1 -1 95 69 option dbu list 1, 3 2 89 50, size hsbar vsbar button "Korunan adresi sil", 2, 18 54 60 12 } on *:dialog:cprot:sclick:*: { if $did == 86 { if $did(36) == $null || $did(39) == $null || $did(41) == $null || $did(44) == $null || $did(46) == $null || $did(50) == $null || $did(61) == $null || $did(65) == $null || $did(67) == $null || $did(71) == $null || $did(75) == $null || $did(77) == $null || $did(53) == $null || $did(22) == $null || $did(23) == $null || $did(31) == $null || $did(33) == $null || $hget(kanallar,0).item < 1 { $input(Boş alan bıraktınız. Bot'u belirtilen sunucuya bağlamak için boş alan bırakılmamalıdır. Lütfen tüm yerleri doldurunuz.,ohud,HATA) halt } else { set %uzunyazı $did(36) | set %tkr-lmt $did(39) | set %tkr-sny $did(41) | set %flood-lmt $did(44) | set %flood-sny $did(46) | set %buharf $did(50) | set %random-t-t $did(61) set %random-t $did(106) | set %hızlıgr-lmt $did(65) | set %hızlıgrs $did(67) | set %klon-lmt $did(71) | set %random-n-h-u $did(75) | set %random-nk $did(77) | set %noktalama $did(53) set %ykanal $did(82) | set %sunucu $did(22) | set %port $did(23) | set %bsifre $did(31) | set %bident $did(33) btbg %sunucu %port dialog -x cprot cprot | echo -a Bilgi: $kps(Azxz) botu, şuan'da $kps(%sunucu) sunucusuna bağlanıyor. hadd -m kanallar %ykanal 1 } } if $did == 28 { if $did(26).text == $null { $iif($input(Herhangi bir veri girmediniz.,ohud,Hata) == $true,halt,return) } if $left($did(26).text,1) != $chr(35) { $iif($input(Lütfen kanal eklerken başına "#" karakterini koyunuz,ohud,Hata) == $true,did -r $dname 26,did -r $dname 26) } else { var %ttt = $did(26).text if $hget(kanallar,%ttt) != 1 { did -a $dname 27 %ttt | hadd -m kanallar %ttt 1 | hsave -i kanallar kanallar.db | did -r $dname 26 } else { $iif($input(%ttt kanalı zaten listede.,ohud,Hata) == $true,did -r $dname 26,did -r $dname 26) } } if $hget(kanallar,0).item >= 10 { $iif($input(Kanal listesini doldurmuşsunuz maksimum 9 kanal ekliyebilirsiniz.,ohud,Hata) == $true,did -r $dname 26,did -r $dname 26) } } if $did == 29 { var %- = $did($dname,27).sel,%-- = $did($dname,27).seltext if !%- { $input(Listeden bir kanal seçmelisiniz.,ohud,hata) } else { hdel kanallar %-- | hsave -i kanallar kanallar.db | did -d $dname 27 %- } } if $did == 30 { if $hget(kanallar,0).item >= 1 { did -r $dname 27 | hfree kanallar | hmake kanallar 100 | hsave kanallar kanallar.db } else { $input(Herhangi bir veri yok.,ohud,Hata) } } if $did == 4 { if $did(3).text == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Hata) == $true,halt,return) } else { var %kkk = $did(3).text if $hget(kfr,%kkk) == 1 { $iif($input(%kkk kelimesi zaten listede.,ohud,Hata) == $true,did -r $dname 3,did -r $dname 3) } else { did -a $dname 2 %kkk | hadd -m kfr %kkk 1 | hsave -i kfr kfr.db | did -r $dname 3 } } } if $did == 5 { var %q = $did($dname,2).sel,%qq = $did($dname,2).seltext if !%q { $input(Listeden bir kelime seçmelisiniz.,ohud,hata) } else { hdel kfr %qq | hsave -i kfr kfr.db | did -d $dname 2 %q } } if $did == 6 { if $hget(kfr,0).item >= 1 { did -r $dname 2 | hfree kfr | hmake kfr 100 | hsave kfr kfr.db } else { $input(Herhangi bir veri yok.,ohud,Hata) } } if $did == 10 { if $did(8).text == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Hata) == $true,halt,return) } else { var %ssq = $did(8).text if $hget(rklm,%ssq) == 1 { $iif($input(%ssq kelimesi zaten listede.,ohud,Hata) == $true,did -r $dname 8,did -r $dname 8) } else { did -a $dname 9 %ssq | hadd -m rklm %ssq 1 | hsave -i rklm rklm.db | did -r $dname 8 } } } if $did == 11 { var %ww = $did($dname,9).sel,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if !%ww { $input(Listeden bir kelime seçmelisiniz.,ohud,hata) } else { hdel rklm %
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
hsave -i rklm rklm.db | did -d $dname 9 %ww } } if $did == 12 { if $hget(rklm,0).item >= 1 { did -r $dname 9 | hfree rklm | hmake rklm 100 | hsave rklm rklm.db } else { $input(Herhangi bir veri yok.,ohud,Hata) } } if $did == 16 { if $did(14).text == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Hata) == $true,halt,return) } else { var %po = $did(14).text if $hget(bdnick,%po) == 1 { $iif($input(%po kelimesi zaten listede.,ohud,Hata) == $true,did -r $dname 14,did -r $dname 14) } else { did -a $dname 15 %po | hadd -m bdnick %po 1 | hsave -i bdnick bdnick.db | did -r $dname 14 } } } if $did == 17 { var %ee = $did($dname,15).sel,%eee = $did($dname,15).seltext if !%ee { $input(Listeden bir kelime seçmelisiniz.,ohud,hata) } else { hdel bdnick %eee | hsave -i bdnick bdnick.db | did -d $dname 9 %ee } } if $did == 18 { if $hget(bdnick,0).item >= 1 { did -r $dname 15 | hfree bdnick | hmake bdnick 100 | hsave bdnick bdnick.db } else { $input(Herhangi bir veri yok.,ohud,Hata) } } if $did == 102 { if $did(100) == $null { $input(Eklenilecek adres girmediniz. Örnek: *helper* ve/ya *admin* şeklinde ekleme yapınız.,ohud,Hata) } else { var %&1 = $did(100).text if $hmatch(klonkoru,%&1) { $iif($input(%&1 adresini zaten koruma listesine eklemişsiniz.,ohud,Hata) == $true,did -r $dname 100,did -r $dname 100) } else { did -r $dname 100 | hadd -m klonkoru %&1 1 | hsave -i klonkoru klonkoru.db | did -a $dname 100 Eklendi. } } } if $did == 103 { if !$dialog(cloness) { dialog -m cloness cloness } } if $did == 104 { if $sock(bt).status == active { sockclose bt | echo -a Bilgi: $kps(Azxz) bağlantısı koptu. | vsvs | hfree klon } | else { echo -a Bilgi: Bot zaten bağlı değil. } } if $did == 95 { set %uzunyazı $did(36) | set %tkr-lmt $did(39) | set %tkr-sny $did(41) | set %flood-lmt $did(44) | set %flood-sny $did(46) | set %buharf $did(50) set %random-t-t $did(61) | set %hızlıgr-lmt $did(65) | set %hızlıgrs $did(67) | set %klon-lmt $did(71) | set %random-n-h-u $did(75) | set %random-nk $did(77) | set %noktalama $did(53) set %ykanal $did(82) | set %sunucu $did(22) | set %port $did(23) | set %bsifre $did(31) | set %bident $did(33) | set %random-t $did(106) dialog -x cprot cprot | echo -a Bilgi: Tüm ayarlar kaydedildi/yenilendi. } } on *:dialog:cprot:init:*:{ var %&& = 1,%&&& = $hget(kanallar,0).item | while %&& <= %&&& { did -a $dname 27 $hget(kanallar,%&&).item | inc %&& } var %oo = 1,%l = $hget(kfr,0).item | while %oo <= %l { did -a $dname 2 $hget(kfr,%oo).item | inc %oo } var %ii = 1,%i = $hget(rklm,0).item | while %ii <= %i { did -a $dname 9 $hget(rklm,%ii).item | inc %ii } var %gak = 1,%p = $hget(bdnick,0).item | while %gak <= %p { did -a $dname 15 $hget(bdnick,%gak).item | inc %gak } did -a $dname 36 %uzunyazı | did -a $dname 39 %tkr-lmt | did -a $dname 41 %tkr-sny | did -a $dname 44 %flood-lmt | did -a $dname 46 %flood-sny did -a $dname 50 %buharf | did -a $dname 61 %random-t-t | did -a $dname 65 %hızlıgr-lmt | did -a $dname 67 %hızlıgrs | did -a $dname 71 %klon-lmt did -a $dname 75 %random-n-h-u | did -a $dname 77 %random-nk | did -a $dname 53 %noktalama | did -a $dname 106 %random-t did -a $dname 22 %sunucu | did -a $dname 23 %port | did -a $dname 33 %bident | did -a $dname 31 %bsifre | did -a $dname 82 %ykanal did -a $dname 97 $iif($sock(bt).status == active,Bot bağlı.,Bağlı değil.) mdx MarkDialog $dname mdx SetFont $dname 25,80,84,35,38,43,64,48,52,60,70,74,1,7,13,34,19,3 6,50,39,41,53,44,46,61,65,67,71,75,77,21,20,24,32, 98,106 14 800 Bauhaus mdx SetFont $dname 96,97 16 800 Bauhaus mdx SetColor $dname 96,97 text $rgb(205,38,38) mdx SetColor $dname 25,80,84,35,38,43,64,48,52,60,70,74,1,7,13,34,19 text $rgb(205,38,38) if $sock(bt).status == active { did -b $dname 86 } else { did -e $dname 86 | did -b $dname 104 } } on *:dialog:cloness:init:*: { var %11 = 1,%12 = $hget(klonkoru,0).item | while %11 <= %12 { did -a $dname 1 $hget(klonkoru,%11).item | inc %11 } } on *:dialog:cloness:sclick:2: { var %1 = $did($dname,1).sel,%2 = $did($dname,1).seltext if !%1 { $input(Listeden herhangi bir veri seçmediniz.,ohud,Hata) } else { hdel klonkoru %2 | hsave -i klonkoru klonkoru.db | did -d $dname 1 %1 } }





Komutlar;
  • !gir #kanal
  • !part #kanal
  • !partall
  • !ident
Komutları kullanıcak nick'leri şu kısıma ekleyiniz.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $istok(nick nick1 nick2 nick3,$remove($gettok($1,1,33),:),32) {

Buna ek şunuda ekliyelim;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if ($2 == 001) { km oper OPERNICK OPERPASS | km nick BOT | .timer 1 3 km identify ŞİFRE | .timer 1 5 join #0,0 | .timer 1 7 join #Kanal,#Kanal1,#Kanal2 }

Oper pass, nick şifresi, girecegi kanallar vs ayarlarsın..

 
Alıntı ile Cevapla

Alt 10 Kasım 2014, 23:21   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: yardım lutfen




Tşk kardeşim cok Saol hersey için birde kod paylaşırken tag kullan demişin fakat bilmedigim için o Sekil paylaştim ozur dilerim saol

 
Alıntı ile Cevapla

Alt 11 Kasım 2014, 08:36   #8
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: yardım lutfen




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

 
Alıntı ile Cevapla

Cevapla

Etiketler
lutfen, yardım


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
yardım lutfen Cyptm Eggdrop, NeoStats, BNC 15 12 Kasım 2009 19:31
Yardım Lutfen :\ Gokhan17 mIRC Scripting Sorunları 1 24 Temmuz 2009 20:24
yardım lutfen Change123 Unreal IRCd 3 19 Aralık 2008 01:26
Yardım Lutfen! pire40 mIRC Scripting Sorunları 1 01 Eylül 2008 18:28
yardım lutfen XpLoD Unreal IRCd 1 05 Ocak 2008 19:55