coders-irc_Bot

TLS is a script for accessing IRC (Internet Relay Chat) chat networks using the mIRC application. It began to be developed in 2004 and has been constantly updated and adapted to meet the needs of users and their respective networks, giving greater priority to the networks that provide official support to TLS, BrasIRC and VirtuaLife. The Script has always been personal and released to a few users, however, in 2014 I decided to officially make it available for download.

Whois Çekeni Sajoin ile istediniz kanala çekersiniz On *:SNOTICE:*did a /whois on you*:{ /sajoin $2 #KANAL } kanal yazan bölüme istediniz kanalı yazınız

Txt Den Okutmalı Küfür Koruması on *:TEXT:*:#:{ if ($me isop $chan) { var %i 1 while $read(kufurler.txt,%i) { if ($read(kufurler.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,) { /kick $chan $nick Küfür Etmek Yasaktır! | /mode $chan +b $nick } inc %i } } } ziqerim siqerim gibi ekleyiniz txt dosyasına Txt Den Okutmalı Reklam Koruması on *:TEXT:*:#:{ if ($me isop $chan) { var %i 1 while $read(reklam.txt,%i) { if ($read(reklam.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,) { /kick $chan $nick Reklam Yapmak Yasaktır..! | /mode $chan +b $nick } inc %i } } } Script Klasörünüzde Reklam.Txt Ye Reklam Sözcüklerini Alt Alta Yazın. Örnek ; 050 054 www hotm Gibi..

kanala 15 saniyede 4 join part olursa +R alır 1 dk. sonrada -R on @1:join:#: { inc -u15 %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] if %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] < 5 halt unset %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] mode $chan +R | .timer 0 60 /mode $chan -R }

SPAM EKLEME SİLME GÖRME ADDONU SPAM EKLİYEBİLİRSİNİZ VE USTUNU İŞARETLEYİP SİLEBİLİRSİN SEÇİLENLERİ SİL İŞARETLEMENİZ YETERLİDİR SİLMEK İCİN GÖRMEK İCİN YENİLEYE TIKLAMANIZ YETERLİDİR ############################################## ## Hızlı Spam alias spammer { dialog -m spamdialog spamdialog } dialog spamdialog { title "Spam Kontrol" size -1 -1 405 250 option dbu list 1, 10 10 285 132, size extsel hsbar box "Görüntüle - Düzenle", 2, 300 7 95 135 text "Hedef:", 3, 304 28 25 8 text "Uygulama:", 4, 344 28 30 8 text "Süre:", 5, 344 50 20 8 text "Sebep:", 6, 304 72 25 8 text "Yakalanacak Metin:", 7, 304 94 61 8 text "Ekleyen:", 8, 304 116 50 8 edit "", 9, 303 36 35 10, read edit "", 10, 343 36 35 10, read edit "", 11, 343 58 35 10, read edit "", 14, 303 80 85 10, read edit "", 13, 303 102 85 10, read edit "", 12, 303 124 85 10, read check "Düzenle", 15, 353 13 35 10 combo 17, 343 36 35 50, hide size drop combo 18, 343 58 35 50, hide size drop check "c", 19, 303 36 10 10, hide push check "p", 20, 314 36 10 10, hide push check "n", 21, 325 36 10 10, hide push check "a", 22, 303 47 10 10, hide push check "N", 23, 314 47 10 10, hide push check "d", 24, 325 47 10 10, hide push check "t", 25, 303 58 10 10, hide push check "u", 26, 314 58 10 10, hide push check "P", 27, 325 58 10 10, hide push button "Sıfırla", 62, 309 119 35 12, hide button "Uygula", 28, 353 119 35 12, hide box "Yeni Spam Ekle:", 16, 10 163 385 65 box "Hedef:", 29, 15 172 166 50 check " c : Kanal Msj.", 30, 20 182 43 10 check " p : Özel Msj.", 31, 70 182 43 10 check " a : Away Msj.", 32, 125 182 45 10 check " n : Özel Notice", 33, 20 194 50 10 check " N : Kanal Notice", 34, 70 194 50 10 check " d : DCC", 35, 125 194 35 10 check " t : Topic", 36, 20 206 30 10 check " u : nick!user@host:realname", 37, 98 206 80 10 check " P : Part Msj.", 38, 54 206 40 10 box "Uygulama:", 61, 185 172 100 50 radio "Kill", 39, 190 182 28 10, group radio "Shun", 40, 190 194 28 10 radio "kline", 41, 190 206 28 10 radio "gline", 42, 219 182 28 10 radio "Zline", 43, 219 194 28 10 radio ";gzline", 44, 219 206 28 10 radio "Block", 45, 248 182 30 10 radio "DccBlock", 46, 248 194 32 10 radio "TempShun", 47, 248 206 34 10 text "Sebep:", 48, 290 177 19 8 edit "4->7Sebeb girin4<-", 49, 310 176 80 10, autohs text "Yakalanacak Metin:", 50, 290 190 52 8 edit "", 51, 290 198 100 10, autohs button "Ekle", 52, 360 211 30 12 button "Yenile", 53, 70 147 37 12 button "Tamam", 54, 147 233 35 12, ok button "Kapat", 55, 222 233 35 12, cancel button "Seçilen(ler)i Sil", 56, 10 147 50 12 text "Süre:", 57, 290 213 17 8 combo 58, 310 212 35 50, size drop check "Spamfilteri TXT'den Okut:", 59, 311 149 69 10, left box "", 60, 300 142 95 21 } on *:dialog:spamdialog:init:*:{ didtok $dname 17 44 kill,shun,gline,gzline,zline,kline,block,dccblock,tempshun didtok $dname 18,58 44 -,15dk.,30dk.,45dk.,1saat,3saat,5saat,1gün,5gün,10gün did -c $dname 58 1 $iif(%spm_txt,did -c $dname 59) } on *:dialog:spamdialog:sclick:59:{ if %spm_txt { unset %spm_txt | did -u $dname 59 } | else { set %spm_txt 1 | filter -if $dname 1 spamlist.txt | did -c $dname 59 } } on *:dialog:spamdialog:sclick:15:{ var %satır = $did(1,$did(1).sel).text did -v $dname 8-12 | did -h $dname 17-28,62 | did -m $dname 13,14 | did -u $dname 19-27 if $did(15).state == 1 { did -h $dname 8-12 | did -v $dname 17-28,62 | did -n $dname 13,14 | did -u $dname 19-27 did -c $dname 17 $findtok($didtok(17,44),$did(10,$did(10).sel).text,1,44) did -c $dname 18 $findtok($didtok(18,44),$did(11,$did(11).sel).text,1,44) if c isincs $gettok(%satır,2,32) { did -c $dname 19 } if p isincs $gettok(%satır,2,32) { did -c $dname 20 } if n isincs $gettok(%satır,2,32) { did -c $dname 21 } if a isincs $gettok(%satır,2,32) { did -c $dname 22 } if N isincs $gettok(%satır,2,32) { did -c $dname 23 } if d isincs $gettok(%satır,2,32) { did -c $dname 24 } if t isincs $gettok(%satır,2,32) { did -c $dname 25 } if u isincs $gettok(%satır,2,32) { did -c $dname 26 } if P isincs $gettok(%satır,2,32) { did -c $dname 27 } } } on *:dialog:spamdialog:sclick:1:{ var %satır = $did(1,$did(1).sel).text if ($gettok(%satır,1,32) === f) { did -ub $dname 15 | did -v $dname 8-12 | did -h $dname 17-28,62 | did -m $dname 13,14 | did -u $dname 19-27 } if ($gettok(%satır,1,32) === F) { did -eu $dname 15 | did -v $dname 8-12 | did -h $dname 17-28,62 | did -m $dname 13,14 | did -u $dname 19-27 } if $did(15).state == 1 { did -u $dname 19-27 } if ($did(1,0).sel > 1) { did -ub $dname 15 | did -r $dname 9-14 } else { did -ra $dname 9 $gettok(%satır,2,32) did -ra $dname 10 $gettok(%satır,3,32) did -ra $dname 11 $süre_spm($gettok(%satır,4,32)) did -ra $dname 12 $gettok($gettok(%satır,6,32),1,33) did -ra $dname 13 $gettok(%satır,7-,32) did -ra $dname 14 $gettok(%satır,5,32) } } on *:dialog:spamdialog:sclick:62:{ var %satır = $did(1,$did(1).sel).text did -u $dname 19-27 did -c $dname 17 $findtok($didtok(17,44),$did(10,$did(10).sel).text,1,44) did -c $dname 18 $findtok($didtok(18,44),$did(11,$did(11).sel).text,1,44) did -ra $dname 13 $gettok(%satır,7-,32) did -ra $dname 14 $gettok(%satır,5,32) if c isincs $gettok(%satır,2,32) { did -c $dname 19 } if p isincs $gettok(%satır,2,32) { did -c $dname 20 } if n isincs $gettok(%satır,2,32) { did -c $dname 21 } if a isincs $gettok(%satır,2,32) { did -c $dname 22 } if N isincs $gettok(%satır,2,32) { did -c $dname 23 } if d isincs $gettok(%satır,2,32) { did -c $dname 24 } if t isincs $gettok(%satır,2,32) { did -c $dname 25 } if u isincs $gettok(%satır,2,32) { did -c $dname 26 } if P isincs $gettok(%satır,2,32) { did -c $dname 27 } } on *:dialog:spamdialog:sclick:28:{ var %satır = $did(1,$did(1).sel).text var %y = 19 { while %y <= 27 { if $did(%y).state == 1 { set -u5 %hedef $addtokcs(%hedef,$did(%y),44) } | inc %y } } spamfilter del $gettok(%satır,2,32) $gettok(%satır,3,32) $gettok(%satır,4,32) $gettok(%satır,5,32) $gettok(%satır,7-,32) spamfilter add $remove(%hedef,$chr(44)) $did(17,$did(17).sel).text $saniye($did(18,$did(18).sel).text) $& $iif(!$did(14),-,$replace($did(14),$chr(32),$chr(95))) $did(13) noop $input(Spamfilter belirttiğiniz şekilde düzenlendi.,o) if %spm_txt { write $+(-l,$did(1).sel) spamlist.txt F $remove(%hedef,$chr(44)) $did(17,$did(17).sel).text $& $saniye($did(18,$did(18).sel).text) $iif(!$did(14),-,$replace($did(14),$chr(32),$chr(95))) $& $address($me,5) $did(13) loadbuf -ro $dname 1 spamlist.txt } | else { did -r $dname 1 | stats f } } on *:dialog:spamdialog:sclick:56:{ if $did(1,0).sel == 1 { if $left($did(1).seltext,1) === f { noop $input(Bu spamfilter silinemez!,ohud,Hata!) | goto son } spamfilter del $gettok($did(1).seltext,2-5,32) $gettok($did(1).seltext,7-,32) $iif(%spm_txt,write $+(-d,$did(1).sel) spamlist.txt) } else { var %a = 1 while %a <= $did(1,0).sel { $iif($left($did(1,$did(1,%a).sel).text,1) === f, inc %h) spamfilter del $gettok($did(1,$did(1,%a).sel).text,2-5,32) $gettok($did(1,$did(1,%a).sel).text,7-,32) $iif(%spm_txt,write $+(-d,$did(1).sel) spamlist.txt) inc %a } } noop $input(Seçtiğiniz $qt($did(1,0).sel) spamfilter girdisinden $qt($calc($did(1,0).sel - %h)) tanesi silindi.,o) unset %h | did -r $dname 1 | $iif(%spm_txt,loadbuf -o $dname 1 spamlist.txt,stats f) :son } on *:dialog:spamdialog:sclick:53:{ did -r $dname 1 | $iif(%spm_txt,loadbuf -o $dname 1 spamlist.txt,stats f) } on *:dialog:spamdialog:sclick:52:{ var %y = 30 { while %y <= 38 { if $did(%y).state == 1 { set -u5 %hedef $addtokcs(%hedef,$mid($did(%y),2,2),44) } | inc %y } } var %z = 39 { while %z <= 47 { if $did(%z).state == 1 { set -u5 %uygulama $lower($did(%z)) } | inc %z } } if (!%hedef || !%uygulama) { noop $input(Yeni spamfilter için hedef ya da uygulama seçmediniz!,ohud,Hata!) } else { spamfilter add $remove(%hedef,$chr(44)) %uygulama $saniye($did(58,$did(58).sel).text) $& $iif(!$did(49),-,$replace($did(49),$chr(32),$chr(95))) $did(51) $iif(%spm_txt,write spamlist.txt F $remove(%hedef,$chr(44)) %uygulama $saniye($did(58,$did(58).sel).text) $& $iif(!$did(49),-,$replace($did(49),$chr(32),$chr(95))) $address($me,5) $did(51)) noop $input(Belirttiğiniz spamfilter eklendi.,o) did -r $dname 1,49,51 did -u $dname 30-47 did -c $dname 58 1 $iif(%spm_txt,loadbuf -o $dname 1 spamlist.txt,stats f) } } alias süre_spm { return $replace($duration($1),secs,saniye,sec,saniye,mins,dk.,hrs,saat,days,gün,day,gün,wk,hafta,min,dk.,Hr,saat) } alias saniye { if gün isin $1- { return $calc($remove($1-,gün) * 86400) } if dk. isin $1- { return $calc($remove($1-,dk.) * 60) } if saat isin $1- { return $calc($remove($1-,saat) * 3600) } else { return - } } alias -l spamdialog { dialog $iif($dialog(spamdialog),-v,-m spamdialog) spamdialog | stats f } raw 229:*:{ if $dialog(spamdialog) { tokenize 32 $1- | did -az spamdialog 1 $2-4 $7- | halt } } raw 219:*:{ if $2 === f && $dialog(spamdialog) { $iif(%spm_txt,filter -if spamdialog 1 spamlist.txt) | halt } }

Açıklama: .Ban nick Sebep Komutu ile attıgınız Banlar Raporlarını ve kayıt edilir. ve Bot'un özelinden Atılan kişiye mesaj gider ve atılma sebebini ve kayıt zamanını görebilir. - Kullanımı: .Ban nick Sebep - Kendinize Göre uyarlamayı, Unutmayınız. - Klavyeniz den Alt + R Tuşlarına Basarak Acılan Pencere de REMOTE Kısmına Basıyoruz Ardından DOSYA Kısmına Basarak Yeni Bir Sayfa acarak içine atıyoruz ve kapatıyoruz on $*:text:/^[\.!]ban/Si:#Operlog: { if (!$3) { msg # Hatalı kullanım; ( .ban nick sebep ) } elseif ($2 !ison #) && $regex($2,/\d+?/i) || ($2 !isreg #) { msg # $qt($2) $+ , Nick'ine Ban Uyguluyamazsınız. Kanalda Görevli yada Bulunmuyor. } elseif ($nick isreg #) { msg # $nick Bu Komutu Kullanmaya Yetkili Değilsiniz. } else { mode # +b $2 chanserv kick # $2 $3- $iif(!$isdir(raporlama),mkdir raporlama) write $+(raporlama/,$2,.,txt) $2 - $3- Sebebi ile $nick tarafından atılmıştır. $+ $fulltime privmsg $2 $2 , $3- Sebebi ile # Kanal'ından Atıldınız. Atan Nick: $nick ( Bu zamana kadar atılan banları görmek için .infoban yazın lütfen. ) } } on $*:text:/^[\.!][ıli]nf[0öo]ban/Si:?: { if ($read $+(raporlama/,$nick,.,txt)) { privmsg $nick Kayıtlara bakılıyor, lütfen bekleyiniz. play $nick $+(raporlama/,$nick,.,txt) } }

Açıklama Kanalı Temizleme Komutunu Kullanan Yetkilinin Renga renk nickleri ile temizler. - Kullanımı !temizle - Kendinize Göre Uyarlamayı, Unutmayınız. - Klavyeniz den Alt + R Tuşlarına Basarak Acılan Pencere de REMOTE Kısmına Basıyoruz Ardından DOSYA Kısmına Basarak Yeni Bir Sayfa acarak içine atıyoruz ve kapatıyoruz on *:text:*:#sohbet: { if ($regex($nick(#,$nick).pnick,[%@&.])) { if ($regex($1,/^[!.][t]emizle$/Si)) { msg $chan 0,2 Kanal Temizleniyor.. var %renk 1,%i 1 .timer 1 1 msg $chan 0,2 -Kanal Yetkili $nick Tarafından Temizlendi- while (%i <= 50) { if %renk == 15 { var %renk 1 } | msg $chan $+($chr(3),%renk,$nick) | inc %i | inc %renk } } } }

Küfür koruma addonu küfür.txt belgesine gerekli küfürleri eklerseniz kanalda yazıldığında direk ban atıp kanalı temizler on *:text:*:#: { var %tr = 1 var %sr = $lines(küfür.txt) while (%tr <= %sr) { if $regex($1-,/ $+ $read(küfür.txt,%tr) $+ /i) { mode $chan +b $nick kick $chan $nick Küfür Yasaktır Kullandığınız Zararlı Kelime 4,4 $regml(1-) temsil } inc %tr } } alias temsil { msg $chan 7 $read(sözler.txt) msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan 12 $read(sözler.txt) msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan $read(sözler.txt) msg $chan msg $chan msg $chan 3(1 $+ $chan $+ 3) 5KanaLı 12KÜFÜR7'den 5Dolayı 4AUTO 5Temizlenmiştir.1Hoş SohbetLeR. }

Kanalda 4 Satırdan Fazla Yazılınca Ban Atmaya ve Kanalı Silmeye Yarar. muafchan.txt belgesine muaf kanalları ekliyebilirsiniz. sözler.txt belgesinede istediğiniz güzel sözleri eklerseniz sonuçları alırsınız. on 1@:text:*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } if ($nick isop #) || ($read(muafchan.txt,w,$chan)) { return } if (*!*@*. $+ $token($server,2-,$asc(.)) iswm $fulladdress) { halt } if (*@ $+ $server iswm $fulladdress) { halt } .timer 1 1 unset %floodkont! [ $+ [ $nick ] ] inc %floodkont! [ $+ [ $nick ] ] ;inc -u2 %floodkont! [ $+ [ $nick ] ] if (%floodkont! [ $+ [ $nick ] ] == 4) { .ban # $nick .kick # $nick 14 $chan 2Kanalında 1Argo4/ 1Kufur4/ 1Flood2girişimleri yasaktır4. ;.zline $nick 14 $chan 2Kanalında 1Argo4/ 1Kufur4/ 1Flood2girişimleri yasaktır4. msg #bilgi 10 $nick 4 # 2Kanalında 1Argo4/ 1Kufur4/ 1Flood 2Yaptığından Dolayı 4AtıLdı.. .floodsil } } alias floodsil { msg #bilgi 2Saldırı altındaki kanal:4 # msg $chan 7 $read(sözler.txt) msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan 12 $read(sözler.txt) msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan msg $chan $read(sözler.txt) msg $chan msg $chan msg $chan 3(1 $+ $chan $+ 3) 5KanaLı 7Argo4/7Küfür4/12Flood 5DolayısıyLa 4AUTO 5Temizlenmiştir.1Hoş SohbetLeR. }

Kanal takip analiz Kanala giriş çıkış raporları komut kullanıp raporları vb kanal takip kodu alias b_nick return BotNicki alias b_pass return BotŞifresi alias b_fullname return BotFullname alias b_ident return BotIdent alias b_chan return RaporKanalı alias b_server return Sunucu PORT alias b_ajoin return BotunGireceğiKanallar alias b_admin return MasterNick alias g_nick return $gettok($gettok($1,1,33),1,58) alias sw { sockwrite -nt BOT $1- } alias ekle { if !$read(slnck.txt,w,$1) { write slnck.txt $1 } } alias bağlan { if ($sockerr) { halt } else { sıfırla | .remove slnck.txt | sockclose BOT | sockopen BOT $b_server | halt } } alias çık { if ($sockerr) { halt } else { sockclose BOT | halt } } on *:sockopen:BOT:{ if ($sockerr) { return } sw NICK $b_nick sw USER $b_ident * * : $b_fullname } on *:sockread:BOT:{ if !$sock($sockname) { halt } var %bot sockread %bot tokenize 32 %bot $iif(!$window(@bot), window -ne3 @bot) | echo @bot $1- if $1 == PING { sw PONG $2 } if :VERSION iswm $4- { sw notice $g_nick($1) : $+ $chr(1) $+ VERSION Bot $+ $chr(1) } if :FINGER iswm $4- { sw notice $g_nick($1) : $+ $chr(1) $+ FINGER Bot $+ $chr(1) } if $2 == 376 { sw identify $b_pass | sw join $b_chan | sw join $b_ajoin } if ($2 == quit) { var %1 = 1,%2 = $numtok($b_ajoin,44) | while %1 <= %2 { if $hget($gettok($b_ajoin,%1,44)) { hinc $v1 $+(ayr,½,$v1) 1 } | inc %1 } } if ($2 == nick) { var %ü = 1,%& = $numtok($b_ajoin,44) | while %ü <= %& { if $hget($gettok($b_ajoin,%ü,44)) { var %o = $v1 | hinc $v1 $+(nck,½,$v1) 1 | ekle $+(%o,nick,.txt) | write $+(%o,nick,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Nick: $+($chr(2),$g_nick($1),$chr(2)) - Yeni nick: $+($chr(2),$right($3,-1)) } | inc %ü } } if ($2 == join) { if $hget($right($3,-1)) { hinc $right($3,-1) $+(grs,½,$right($3,-1)) 1 } } if ($2 == part) { if $hget($3) { hinc $3 $+(cks,½,$3) 1 } } if ($2 == mode) { if (+b isin $4) { if $hget($3) { hinc $3 $+(ban,½,$3) 1 | ekle $+($3,ban,.txt) | write $+($3,ban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Banlıyan: $+($chr(2),$g_nick($1),$chr(2)) - Banlanan: $+($chr(2),$5,$chr(2)) | halt } } if (-b isin $4) { if $hget($3) { hinc $3 $+(unbn,½,$3) 1 | ekle $+($3,unban,.txt) | write $+($3,unban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Ban açan: $+($chr(2),$g_nick($1),$chr(2)) - Banı açılan: $+($chr(2),$5) | halt } } if (+v isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(vc,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice veren: $+($chr(2),$g_nick($1),$chr(2)) - Voice olan: $+($chr(2),$5,$chr(2)) | halt } } if (+o isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(op,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u veren: $+($chr(2),$g_nick($1),$chr(2)) - Op olan: $+($chr(2),$5,$chr(2)) | halt } } if (+h isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(hlp,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u veren: $+($chr(2),$g_nick($1),$chr(2)) - Halfop olan: $+($chr(2),$5,$chr(2)) | halt } } if (-v isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(devc,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice'u alan: $+($chr(2),$g_nick($1),$chr(2)) - Voice'u alınan: $+($chr(2),$5,$chr(2)) | halt } } if (-o isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(deop,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u alan: $+($chr(2),$g_nick($1),$chr(2)) - Op'u alınan: $+($chr(2),$5,$chr(2)) | halt } } if (-h isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(dehlp,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u alan: $+($chr(2),$g_nick($1),$chr(2)) - Halfop'u alınan: $+($chr(2),$5,$chr(2)) | halt } } else { if $hget($3) { hinc $3 $+(md,½,$3) 1 | ekle $+($3,mode,.txt) | write $+($3,mode,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Mod değişen: $+($chr(2),$g_nick($1),$chr(2)) - Değişen mod: $+($chr(2),$4,$chr(2)) | halt } } } if ($2 == kick) && ($4 == $b_nick) { sw join $3 | sw privmsg $b_chan - $3 kanalından $g_nick($1) tarafından kicklendim. } if ($2 == 474) { sw privmsg $b_chan - $4 kanalına banlı olduğum için giremedim. } if ($2 == privmsg) { if ($3 == $b_nick) && $istok($b_admin,$g_nick($1),32) { sw $right($4-,-1) } if ($3 == $b_chan) { if ($right($4,-1) == !kns) { if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!kns #kanalismi) | halt } if !$hget($+(yazı,$5)) { sw privmsg $b_chan - Veri bulunamadı. | halt } else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($+(yazı,$5),0).item,$chr(2)) adet veri bulundu. | var %& = 1,%&& = $hget($+(yazı,$5),0).item | while %& <= %&& { sw privmsg $b_chan - Nick: $+($chr(2),$hget($+(yazı,$5),%&).item,$chr(2)) - Yazdığı satır miktarı: $+($chr(2),$hget($+(yazı,$5),%&).data,$chr(2)) | inc %& } } } if ($right($4,-1) == !bn) { if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!bn #kanalismi) | halt } if !$read($+($5,ban,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt } else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($5,$+(ban½,$5)),$chr(2)) adet veri bulundu. | var %1 = 1,%2 = $lines($+($5,ban,.txt)) | while %1 <= %2 { sw privmsg $b_chan - $read($+($5,ban,.txt),%1) | inc %1 } } } if ($right($4,-1) == !unbn) { if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!unbn #kanalismi) | halt } if !$read($+($5,unban,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt } else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($5,$+(unbn½,$5)),$chr(2)) adet veri bulundu. | var %s = 1,%x = $lines($+($5,unban,.txt)) | while %s <= %x { sw privmsg $b_chan - $read($+($5,unban,.txt),%s) | inc %s } } } if ($right($4,-1) == !yetki) { if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!yetki #kanalismi) | halt } if !$read($+($5,yetkiler,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt } else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$lines($+($5,yetkiler,.txt)),$chr(2)) adet veri bulundu. | var %q = 1,%r = $lines($+($5,yetkiler,.txt)) | while %q <= %r { sw privmsg $b_chan - $read($+($5,yetkiler,.txt),%q) | inc %q } } } if ($right($4,-1) == !md) { if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!md #kanalismi) | halt } elseif !$read($+($5,mode,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt } else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($5,$+(md½,$5)),$chr(2)) adet veri bulundu. | var %p = 1,%f = $lines($+($5,mode,.txt)) | while %p <= %f { sw privmsg $b_chan - $read($+($5,mode,.txt),%p) | inc %p } } } if ($right($4,-1) == !nik) { if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!nik #kanalismi) | halt } if !$read($+($5,nick,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt } else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($5,$+(nck½,$5)),$chr(2)) adet veri bulundu. | var %z = 1,%o = $lines($+($5,nick,.txt)) | while %z <= %o { sw privmsg $b_chan - $read($+($5,nick,.txt),%z) | inc %z } } } if ($right($4,-1) == !sıfırla) { sw privmsg $b_chan - Tüm veriler sıfırlandı. | .hfree -w yazı* | .hfree -w $+($chr(35),*) | var %oo = 1,%aa = $lines(slnck.txt) | while %oo <= %aa { .remove $read(slnck.txt,%oo) | inc %oo } } if ($right($4,-1) == !takip) { if !$5 { sw privmsg $b_chan Takip listesine alınacak kanalı girmediniz. Kullanım şekli; $+($chr(2),!takip #kanalismi,$chr(2)) | halt } if $hget($5) { sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanal'ı zaten takip listesinde. | halt } if $istok($b_ajoin,$5,44) { sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanalında bulunmuyorum. | halt } else { hmake $5 100 | sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanalı takip listesine eklendi. } } if ($right($4,-1) == !rapor) { if !$5 { sw privmsg $b_chan Rapor alınacak kanal ismini girmediniz. Kullanım şekli; $+($chr(2),!rapor #kanalismi,$chr(2)) | halt } if !$hget($5) { sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanal'ı takip listesinde değil. | halt } else { sw privmsg $b_chan $+($chr(45),$chr(32),[,$chr(2),$5,$chr(2)) kanalı için istatistikler] - sw privmsg $b_chan - sw privmsg $b_chan - Prefixler $+($chr(40),$iif($hget($5,$+(yetki½,$5)),$+($chr(2),$hget($5,$+(yetki½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),$chr(41)) sw privmsg $b_chan - [Voice: $+($iif($hget($5,$+(vc½,$5)),$+($chr(2),$hget($5,$+(vc½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [OP: $+($iif($hget($5,$+(op½,$5)),$+($chr(2),$hget($5,$+(op½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Halfop: $+($iif($hget($5,$+(hlp½,$5)),$+($chr(2),$hget($5,$+(hlp½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) sw privmsg $b_chan - [Devoice: $+($iif($hget($5,$+(devc½,$5)),$+($chr(2),$hget($5,$+(devc½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [DEOP: $+($iif($hget($5,$+(deop½,$5)),$+($chr(2),$hget($5,$+(deop½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Dehalfop: $+($iif($hget($5,$+(dehlp½,$5)),$+($chr(2),$hget($5,$+(dehlp½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) sw privmsg $b_chan - Kim kime ne zaman ne yetkisi vermiş/almış? Görmek için: $+($chr(2),!yetki $5,$chr(2)) yazınız. sw privmsg $b_chan - sw privmsg $b_chan - Giren kullanıcı sayısı: $iif($hget($5,$+(grs½,$5)),$+($chr(2),$hget($5,$+(grs½,$5))),$+($chr(2),Giren kullanıcı yok.)) sw privmsg $b_chan - Ayrılan kullanıcı sayısı: $iif($hget($5,$+(cks½,$5)),$+($chr(2),$hget($5,$+(cks½,$5))),$+($chr(2),Ayrılan kullanıcı yok.)) sw privmsg $b_chan - Çıkan kullanıcı sayısı: $iif($hget($5,$+(ayr½,$5)),$+($chr(2),$hget($5,$+(ayr½,$5))),$+($chr(2),Çıkan kullanıcı yok.)) sw privmsg $b_chan - Nick değişim sayısı: $iif($hget($5,$+(nck½,$5)),$+($chr(2),$hget($5,$+(nck½,$5)),$chr(32),$chr(2), - (Değişen nick'leri görmek için; $+($chr(2),!nik $5,$chr(2)) yazınız.)),$+($chr(2),Nick değişen yok.)) sw privmsg $b_chan - Yazılan satır miktarı: $iif($hget($5,$+(yz½,$5)),$+($chr(2),$hget($5,$+(yz½,$5)),$chr(32),$chr(2), - (Kanal'da kimin kaç satır cümle kurduğunu görmek için: $+($chr(2),!kns $5,$chr(2)) yazınız.)),$+($chr(2),Herhangi bir yazı yazılmamış.)) sw privmsg $b_chan - Atılan ban sayısı: $iif($hget($5,$+(ban½,$5)),$+($chr(2),$hget($5,$+(ban½,$5)),$chr(32),$chr(2), - (Kanal'da kim kime ne zaman ban atmış? Öğrenmek için: $+($chr(2),!bn $5,$chr(2)) yazınız.)),$+($chr(2),Atılan ban yok.)) sw privmsg $b_chan - Açılan ban sayısı: $iif($hget($5,$+(unbn½,$5)),$+($chr(2),$hget($5,$+(unbn½,$5)),$chr(32),$chr(2), - (Kanal'da kim ne zaman ban açmış? Öğrenmek için: $+($chr(2),!unbn $5,$chr(2)) yazınız.)),$+($chr(2),Açılan ban yok.)) sw privmsg $b_chan - Değişen mod sayısı: $iif($hget($5,$+(md½,$5)),$+($chr(2),$hget($5,$+(md½,$5)),$chr(32),$chr(2), - (Kanal'da kim hangi mod'u değiştirmiş? Öğrenmek için: $+($chr(2),!md $5,$chr(2)) yazınız.)),$+($chr(2),Değişen mod yok.)) } } } else { if $hget($3) { hinc $3 $+(yz,½,$3) 1 | hinc -m $+(yazı,$3) $g_nick($1) 1 } } } } ircforumları ircforum irc foru

alias _spamregex { return $replacex($1-,a,[aA@4æàáâãäåÀÁÂÃÄÅÆ],b,[bBß],c,[cçÇ],ç,[cçÇ],Ç,[cçÇ],e,[eE3ÆèéêëÈÉÊË€£],g,[ggGqk],g,[ggGqk],G,[ggGqk],i,[iIiI1I!ÏïîÍíÌìÎî],i,[iIiI1I!ÏïîÍíÌìÎî],I,[iIiI1I!ÏïîÍíÌìÎî],k,[kqgGg],m,[mw],l,[Iil1],o,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],ö,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],Ö,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],u,[uüÜÙÚÛÜ],ü,[uüÜÙÚÛÜ],Ü,[uüÜÙÚÛÜ]) } on *:text:*:#Security: { if $1 == !regex { if $istok([COLOR=DarkRed]Admin Karizma Sami[/COLOR],$nick,32) { if !$2 { msg # Hatali Kullanim !regex kelime } .msg #Security $_spamregex($regsubex($2-,/(.)/gSi,\t.?)) .msg #Security ornek /Spamfilter add u block - 4Security (?-i)^(.+! $+ $_spamregex($regsubex($2-,/(.)/gSi,\t.?)) $+ @.+:.+)$ .msg #Security ornek /Spamfilter del u block - 4Security (?-i)^(.+! $+ $_spamregex($regsubex($2-,/(.)/gSi,\t.?)) $+ @.+:.+)$ } else { msg # Bu komutu kullanacak yetkiye sahip degilsiniz } } } Regex Remote Botlar icin Hazırkod

on *:JOIN:#: { if ($nick(#,$me,@&~%)) { var %Clone.join.flood2 = $+(*!*@*.,$gettok($address($nick,2),-2,46),.,$gettok($address($nick,2),-1,46)) if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] == $null) { set -u3 %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] 1 } else { inc %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] } if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] >= 2) { if (%modechanx7 != $true) { .raw mode $chan +b %Clone.join.flood2 set -u3 %modechanx7 $true } } var %Clone.join.flood = $+(*!*@,$remove($gettok($address($nick,2),1-2,46),*!*@),.*) if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] == $null) { set -u3 %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] 1 } else { inc %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] } if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] >= 2) { if (%modechan1MR76567 != $true) { .raw mode $chan +b %Clone.join.flood set -u3 %modechan1MR76567 $true } } var %join.flood.ident = $left($remove($gettok($address($nick,3),1,$asc(@)) ,*!*),4) if (%join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] == $null) { set -u3 %join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] 1 } else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] } if (%join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] >= 2) { if (%modechan1MR541 != $true) { .raw mode $chan +b $+(*!,$left($gettok($gettok($address($nick,5),1,64 ),2,33),5),*@*) set -u3 %modechan1MR541 $true } } var %join.flood = $+($left($nick,4),*!*@*) if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] == $null) { set -u3 %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] 1 } else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] } if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] >= 2) { if (%modechan1MR != $true) { set -u3 %clnicks2 1 .raw mode $chan +b %join.flood set -u3 %modechan1MR $true } } } }

Socket Koruma botu için Ülke yasaklama kodu Operlog kanalında !ulke ekle fransa !ulke sil fransa gibi komutlar uygulayabilirsiniz ______________________ Not: Toprak arkadasımızın şehir kodu degişildi ulke yasakla olarak ayarlandı Duzenleyen Emrehan dir on *:text:*:#OperLog:{ if $regex($1,/^[!.][uüÜ]lke/Si) { if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. } elseif $regex($2,/^ekle$/Si) { if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. } elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok. } elseif $hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. } else { .hadd -ms Ulke $remove($strip($3-),$chr(32)) $+($strip($3-),$chr(191),$nick) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesine eklendi. } } elseif $regex($2,/^s[ıiİ]l$/Si) { if !$3 { msg # Lütfen !ulke sil <Ulke> olarak belirtiniz. } elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. } else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesinden silindi. } } elseif $regex($2,/^l[ıiİ]st$/Si) { if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. } else { msg # Yasak Ülke Listesi msg # - var %:t = 1 | while %:t <= $hget(Ulke,0).data { msg # $+(%:t,-,$chr(41)) Ülke:4 $token($hget(Ulke,%:t).data,1,191) Ekleyen:2 $token($hget(Ulke,%:t).data,2,191) inc %:t } msg # - msg # Yasak Ülke Listesi Sonu } } } } on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak } on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) } raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r) www.ipaddresslocation.org 80 | sockmark $+(ulke,%:r) $+($4,¿,$6) } on *:sockopen:ulke*:{ if ($sockerr) { .sockclose $sockname | return } sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36 sockwrite -nt $sockname $crlf } on *:sockread:ulke*:{ var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $sockname $iif($regml(1),$regml(1),Belirsiz) } elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) } elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) { $iif(!$window(@Network),window -e @Network) echo -t @Network [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!) if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi } .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname } }