All Activity

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

Komut: !yasakid <ekle <Şehir> <ISP> Komut: !yasakid <sil> <Şehir> <ISP> Bir şehir için birden fazla ISP yasaklayabiliyorsunuz. Örnek Ankara için Türk Telekom, TurkNet, SuperOnline, Vodafone vs. dilediğiniz kadar ekleyebilirsiniz. on *:text:*:#Admin:{ if $regex($1,/^[!.]yasak[ıiİ]d/Si) { if !$2 { msg # Lütfen !yasakid <ekle|sil|list> olarak belirtiniz. } elseif $regex($2,/^ekle$/Si) { if !$3 || !$4 { msg # Lütfen !yasakid <ekle> <Şehir> <ISP> olarak belirtiniz. } elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) } elseif $istok($hget(YasakS,$strip($3)),$strip($4-),191) { msg # $strip($3) - $strip($4-) girişi yasak listesinde zaten ekli, neyin kafası. } else { .hadd -m YasakS $strip($3) $hget(YasakS,$strip($3)) $+($strip($4-),¿) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) - $strip($4-) girişi yasak listesine eklendi. } } elseif $regex($2,/^s[ıiİ]l$/Si) { if !$3 || !$4 { msg # Lütfen !yasakid <sil> <Şehir> <ISP> olarak belirtiniz. } elseif !$istok($hget(YasakS,$strip($3)),$strip($4-),191) { msg # $strip($3) - $strip($4-) girişi yasak listesinde ekli değil. } else { var %sil $remtok($hget(YasakS,$strip($3)),$strip($4-),191) .hdel -m YasakS $strip($3) | .hadd -m YasakS $strip($3) %sil | .hsave -o YasakS yasaks.tprk msg # $strip($3) - $strip($4-) girişi yasak listesinden silindi. } } elseif $regex($2,/^l[ıiİ]st$/Si) { if !$hget(YasakS,0).data { msg # Yasak giriş listesi boş. } else { msg # Yasak giriş listesi msg # - var %:t = 1 | while %:t <= $hget(YasakS,0).data { msg # $+(%:t,-,$chr(41)) Şehir:4 $hget(YasakS,%:t).item ISP'ler:2 $replace($hget(YasakS,%:t).data,$chr(191),$+($chr(32),$chr(45))) inc %:t } msg # - msg # Yasak giriş listesi sonu } } } } on *:start:if $isfile(yasaks.tprk) { .hmake YasakS | .hload YasakS yasaks.tprk } on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) } raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r) www.ipaddresslocation.org 80 | sockmark $+(isp,%:r) $+($4,¿,$6) } on *:sockopen:isp*:{ 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:isp*:{ var %:isp | sockread -f %:isp | tokenize 32 %:isp if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Ülke $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) { if $istok($hget(YasakS,$hget(Sehir,$sockname)),$regml(1),191) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Giriş .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname | sockclose $sockname | return } $iif(!$window [USER=12343]Network[/USER]),window -e [USER=12343]Network[/USER]) echo -t [USER=12343]Network[/USER] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Ülke,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(YasakS,$hget(Sehir,$sockname)),- 4Yasak Şehir Girişi!) .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname sockclose $sockname } } Komut: !yasakid <ekle <Şehir> <ISP> Komut: !yasakid <sil> <Şehir> <ISP> Bir şehir için birden fazla ISP yasaklayabiliyorsunuz. Örnek Ankara için Türk Telekom, TurkNet, SuperOnline, Vodafone vs. dilediğiniz kadar ekleyebilirsiniz. on *:text:*:#Admin:{ if $regex($1,/^[!.]yasak[ıiİ]d/Si) { if !$2 { msg # Lütfen !yasakid <ekle|sil|list> olarak belirtiniz. } elseif $regex($2,/^ekle$/Si) { if !$3 || !$4 { msg # Lütfen !yasakid <ekle> <Şehir> <ISP> olarak belirtiniz. } elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) } elseif $istok($hget(YasakS,$strip($3)),$strip($4-),191) { msg # $strip($3) - $strip($4-) girişi yasak listesinde zaten ekli, neyin kafası. } else { .hadd -m YasakS $strip($3) $hget(YasakS,$strip($3)) $+($strip($4-),¿) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) - $strip($4-) girişi yasak listesine eklendi. } } elseif $regex($2,/^s[ıiİ]l$/Si) { if !$3 || !$4 { msg # Lütfen !yasakid <sil> <Şehir> <ISP> olarak belirtiniz. } elseif !$istok($hget(YasakS,$strip($3)),$strip($4-),191) { msg # $strip($3) - $strip($4-) girişi yasak listesinde ekli değil. } else { var %sil $remtok($hget(YasakS,$strip($3)),$strip($4-),191) .hdel -m YasakS $strip($3) | .hadd -m YasakS $strip($3) %sil | .hsave -o YasakS yasaks.tprk msg # $strip($3) - $strip($4-) girişi yasak listesinden silindi. } } elseif $regex($2,/^l[ıiİ]st$/Si) { if !$hget(YasakS,0).data { msg # Yasak giriş listesi boş. } else { msg # Yasak giriş listesi msg # - var %:t = 1 | while %:t <= $hget(YasakS,0).data { msg # $+(%:t,-,$chr(41)) Şehir:4 $hget(YasakS,%:t).item ISP'ler:2 $replace($hget(YasakS,%:t).data,$chr(191),$+($chr(32),$chr(45))) inc %:t } msg # - msg # Yasak giriş listesi sonu } } } } on *:start:if $isfile(yasaks.tprk) { .hmake YasakS | .hload YasakS yasaks.tprk } on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) } raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r) www.ipaddresslocation.org 80 | sockmark $+(isp,%:r) $+($4,¿,$6) } on *:sockopen:isp*:{ 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:isp*:{ var %:isp | sockread -f %:isp | tokenize 32 %:isp if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Ülke $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) { if $istok($hget(YasakS,$hget(Sehir,$sockname)),$regml(1),191) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Giriş .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname | sockclose $sockname | return } $iif(!$window [USER=12343]Network[/USER]),window -e [USER=12343]Network[/USER]) echo -t [USER=12343]Network[/USER] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Ülke,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(YasakS,$hget(Sehir,$sockname)),- 4Yasak Şehir Girişi!) .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname sockclose $sockname } }

Sunucuya giriş yapan kullanıcının ülke/şehir/isp adresini @Giriş penceresine yansıtır. En az oper yetkiniz olması gerek ve sunucuya giriş/çıkış(snotice)'leri görmeniz gerekmektedir. NOT : ALT BOLÜMDE KANALDA YANSITMA HEM ÖZELDE YANSITMA İÇİN KODLARIDA BULUNMAKTADIR. on *:snotice:*on*port*:who +I $9 raw 352:*:var %:r $r(1000,99999) | proxy $4 | nerd $4 $6 alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } alias nerd { :tekrar var %:x $rand(0,9999999) if $sock($+(xxnerden,%:x)) { goto tekrar } sockopen $+(xxnerden,%:x) www.ipsorgu.com 80 sockmark $+(xxnerden,%:x) $1 hadd -m nerden $1 $2 } on *:sockopen:xxnerden*: { var %komut sockwrite -nt $sockname %komut GET $+(/?ip=,$sock($sockname).mark) HTTP/1.1 %komut Host: www.ipsorgu.com %komut User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0 %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 %komut Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 %komut DNT: 1 %komut Connection: keep-alive %komut Upgrade-Insecure-Requests: 1 %komut Cache-Control: max-age=0 %komut $crlf } on *:sockread:xxnerden*: { var %x, %nick | sockread %x if $regex(%x,/lke : <em style="color:#666">(.*?)</em></strong>.+ehir : <em style="color:#666">(.*?)</em></strong>/i) { var %ulke $regml(1), %sehir $regml(2), %ip $sock($sockname).mark, %nick $token($hget(nerden,$sock($sockname).mark),1,32) msg #Opers 45[Login5] 2Nick: %nick 2IP: %ip 2Ulke: $iif(%ulke,$v1,Belirsiz) 2Sehir: $iif(%sehir,$v1,Belirsiz) msg operserv raw swhois %nick : %ulke , %sehir hdel -m nerden %ip sockclose $sockname } } on *:snotice:*Client connecting on port*:who +I $9 raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($4,¿,$6) alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:pro*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: www.ipaddresslocation.org 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:pro*:{ if ($sockerr) { .sockclose $sockname | return } var %:pro | sockread -f %:pro if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (ISP Provider: isin %:pro) { var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir) $iif(!$window(@Giriş),window -e @Giriş) .echo @Giriş Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp .hfree -sw %:n sockclose $sockname } } ÜLKE ŞEHİR GÖSTERİMİ KANALDA YANSITMAK İÇİN #giriste on on *:snotice:*Client connecting on port*:who +I $9 raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($4,¿,$6) alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:pro*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: www.ipaddresslocation.org 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:pro*:{ if ($sockerr) { .sockclose $sockname | return } var %:pro | sockread -f %:pro if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (ISP Provider: isin %:pro) { var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir) msg #Şehir Nick:2 %:n - IP:2 %ip - Ulke:2 %ülke - Sehir:2 %sehir - ISP:2 %:isp .hfree -sw %:n sockclose $sockname } } #giriste end menu menubar { +> IP GIRIS ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on } ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off } ..Durum < $replace($group(#giriste).status, off, Kapalı, on, Açık) >:. } ÜLKE ŞEHİR GÖSTERİMİ HEM ÖZELDE HEM KANALDA on *:snotice:*Client connecting on port*:who +I $9 raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($4,¿,$6) alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:pro*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: www.ipaddresslocation.org 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:pro*:{ if ($sockerr) { .sockclose $sockname | return } var %:pro | sockread -f %:pro if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (ISP Provider: isin %:pro) { var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir) $iif(!$window(@Giriş),window -e @Giriş) msg %:n Girişiniz: - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp msg #kanal Nick: 4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp .echo @Şehir Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp .hfree -sw %:n sockclose $sockname } } on *:snotice:*Client connecting on port*:if !$hget(giris,$9) { who +I $9 } on ^*:join:#: { if $nick == $me { return } if o isin $usermode { if $hget(giris,$nick) { echo # $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(giris,$nick) 1 $hget(sehir,$nick) | haltdef } else { hadd -m chan $nick $addtok($hget(chan,$nick),#,32) if !$sock($+(nrdbul,$nick)) { who +I $nick } haltdef } } } raw 352:*:bul $4 $6 | haltdef alias bul { sockopen $+(nrdbul,$1) www.ipaddresslocation.org 80 sockmark $+(nrdbul,$1) $+($1,*,$2) } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:nrdbul*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,42)) HTTP/1.1 sockwrite -nt $sockname Host: www.ipaddresslocation.org 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:nrdbul*:{ var %x | sockread %x if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) } if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) } if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webisp $regml(1) hadd -mu5 $sockname webnick $token($sock($sockname).mark,2,42) hadd -mu5 $sockname webip $token($sock($sockname).mark,1,42) hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick)) hdel -m chan $hget($sockname,webnick) hadd -m giris $hget($sockname,webnick) $hget($sockname,webip) hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41)) tokenize 32 $hget($sockname,webchan) echo $* $+($chr(3),$color(join)) $timestamp *** Giriş: $hget($sockname,webnick) $hget(giris,$hget($sockname,webnick)) 1 $hget(sehir,$hget($sockname,webnick)) } } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return % Girişte Şehrine Göre Haber/Hava Durumu Kendi botumda olan kodu sizlerle paylaşmak istedim Sinan arkadaşım Adamca' için bota eklemiş ti ve hoşuma gitti bende yapmıştım bari paylaşayım beğenenler kullansın dedim. on *:snotice:*Client connecting on port*:who +I $9 raw 352:*:{ .var %:rand $rand(100,9999999) | .sockopen $+(city,%:rand) www.ipaddresslocation.org 80 | .sockmark $+(city,%:rand) $+($4,¿,$6) } alias bbüyük { return $replace($1,a,A,b,B,c,C,ç,C,Ç,C,d,D,e,E,f,F,g,G,ğ,G,Ğ,G,h,H,ı,I,i,I,İ,I,j,J,k,K,l,L,m,M,n,N,o,O,ö,O,Ö,O,p,P,r,R,s,S,t,T,u,U,v,V,y,Y,z,Z,w,W,x,X,q,Q,ş,S,Ş,S,@,A) } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } alias trchra return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Åž,ş,ÄŸ,ğ,Ãœ,ü,Äž,ğ,$chr(39),-) on *:sockopen:city*:{ sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1 sockwrite -n $sockname host: www.ipaddresslocation.org sockwrite -n $sockname $crlf } on *:sockread:city*: { if ($sockerr) { .sockclose $sockname | return } var %city | sockread %city if (IP Country: isin %city) && (*Turkey* !iswm $token($htmlfree(%city),2,58) ) { msg #Opers [ Yurt Dışı ] [Nick: $token($sock($sockname).mark,2,191) ] [IP: $token($sock($sockname).mark,1,191) ] [Ülke: $token($htmlfree(%city),2,58) ] sockclose $sockname return } if (IP City: isin %city) { if !$token($htmlfree(%city),2,58) { return } msg #Opers [ ŞEHİR ] [Nick: $token($sock($sockname).mark,2,191) ] [IP: $token($sock($sockname).mark,1,191) ] [Şehir: $token($htmlfree(%city),2,58) ] var %:hava $rand(10,999999) | .sockopen $+(hava,%:hava) www.mynet.com 80 | .sockmark $+(hava,%:hava) $+($bbüyük($token($htmlfree(%city),2,58)),¿,$token($sock($sockname).mark,2,191)) sockclose $sockname } } on *:sockopen:hava*:{ var %:hava sockwrite -n $sockname | %:hava GET /havadurumu/asya/turkiye/ $+ $token($sock($sockname).mark,1,191) HTTP/1.1 | %:hava Host: www.mynet.com | %:hava $crlf } on *:sockread:hava*:{ if ($sockerr) { .sockclose $sockname | return } var %hava | sockread %hava if (*span class="hvDay">*</span* iswm %hava) { msg $token($sock($sockname).mark,2,191) :5Ülkeniz: Türkiye 5Sehriniz: $trchra($token($sock($sockname).mark,1,191)) msg $token($sock($sockname).mark,2,191) :5Tarih: $date $htmlfree(%hava) 5Saat: $time } if (*span class="hvMood">*</span* iswm %hava) { msg $token($sock($sockname).mark,2,191) :5Durum: $trchra($regsubex($trchra($htmlfree(%hava)),/(.)/i,$iif(2 \\ \n,$upper(\1),$lower(\1)))) } if (*span class="hvDeg1">*/span* iswm %hava) { .hadd -ms Hava $token($sock($sockname).mark,2,191) $trchra($htmlfree(%hava)) } if (*span class="hvDeg2">*</span* iswm %hava) { msg $token($sock($sockname).mark,2,191) :5EnYuksek: $trchra($hget(Hava,$token($sock($sockname).mark,2,191))) 5EnDusuk: $trchra($htmlfree(%hava)) msg $token($sock($sockname).mark,2,191) : msg $token($sock($sockname).mark,2,191) : $+(",$trchra($token($sock($sockname).mark,1,191)),") İl'inden sondakika haberleri.. msg $token($sock($sockname).mark,2,191) : .hdel -ms Hava $token($sock($sockname).mark,2,191) var %:haber $rand(100,999999) | .sockopen $+(haber,%:haber) rss.haberler.com 80 | .sockmark $+(haber,%:haber) $+($trchra($token($sock($sockname).mark,1,191)),¿,$token($sock($sockname).mark,2,191)) sockclose $sockname return } } on *:sockopen:haber*:{ var %:haber sockwrite -n $sockname %:haber GET /rss.asp?kategori= $+ $token($sock($sockname).mark,1,191) HTTP/1.1 %:haber Host: rss.haberler.com %:haber $crlf if (!$hget(Haber)) { .hmake Haber } } on *:sockread:haber*:{ if ($sockerr) { .sockclose $sockname | return } var %haber | sockread %haber | .tokenize 32 %haber if (<title> isin %haber) { if $htmlfree(%haber) == Haberler.Com { return } msg $token($sock($sockname).mark,2,191) :5Baslik: $trchra($htmlfree(%haber)) } if (*<description>* iswm %haber) { if (*Türkiye'nin en kapsamlı haber portalı.* iswm $htmlfree(%haber)) { return } msg $token($sock($sockname).mark,2,191) :5Aciklama: $trchra($htmlfree(%haber)) } if (*<pubDate>*</pubDate>* iswm %haber) { msg $token($sock($sockname).mark,2,191) :5Zaman: $trchra($htmlfree(%haber)) msg $token($sock($sockname).mark,2,191) : .hinc Haber $token($sock($sockname).mark,2,191) 1 if $hget(Haber,$token($sock($sockname).mark,2,191)) == 2 { msg $token($sock($sockname).mark,2,191) :5Sohbet Kanal'larımız: #Sohbet msg $token($sock($sockname).mark,2,191) :5Radyo Kanal'ımız: #Radyo msg $token($sock($sockname).mark,2,191) :5User Yardım Kanal'ımız: #Help msg $token($sock($sockname).mark,2,191) :5Oper Yardım Kanal'ımız: #OperHelp msg $token($sock($sockname).mark,2,191) : msg $token($sock($sockname).mark,2,191) :1Sunucu kuralları için5 /kurallar 1komutunu kullanınız. msg $token($sock($sockname).mark,2,191) :1Online oper listesi için5 /ircops 1komutunu kullanınız. msg $token($sock($sockname).mark,2,191) :1Online helper listesi için5 /helpers 1komutunu kullanınız. .hdel Haber $token($sock($sockname).mark,2,191) .sockclose $sockname return } } }

; Kodun çalışma mantığı aşağıda ki şemada belirtilmiştir. ; !ekle (IP Adresi) şeklinde ip ekleyebilir o nick'i sunucu/serverden uzaklaştırabilirsiniz. ; !ekle (@Ident) şeklinde ise, identd yasaklayabilirsiniz. ; !ekle Nick yaptığınızda da, bahsi geçen nick'i uzaklaştırır ayrıca, wildcard olarakta nickleri ekleyebilirsiniz örnk; *ali* olarak eklediniz ali ve türevi nickleri uzaklaştırır. ; !list (IP, NICK, IDENT) komutları ile de bahsi geçen listeleri görebilmektesiniz. ; DIPNOT (KOD) Oper/adminler için hazırlanmıştır bu nedenle bu rütbeye dahil olmayan/olamayan kişiler kullanamaz. ; ##### Bu kod sadece zline.txt dosyasından işlem yapmaktadir. ### ; ##### Yapimci: By Entrance ##### on *:input:*: { if ($regex($1,/(^[!]ekle$)/i)) { if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt } if $read(zline.txt,w,$+(*:,$2,*)) { echo -a Zaten $token($read(zline.txt,w,$+(*,$2,*)),1,58) listeye ekli | halt } if $regex($left($2,1),@) { echo -a Ident listeye eklendi! | write zline.txt $+(Ident:,$2) | halt } if $regex($2,\d) && $regex($2,\W) { echo -a IP listeye eklendi! | write zline.txt $+(IP:,$2) | halt } echo -a Nick listeye eklendi! | write zline.txt $+(Nick:,$2) } if ($regex($1,/(^[!]((ç|c)(i|ı)kar|s(i|ı)l)$)/i)) { if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt } if $regex($left($2,1),@) && $regex($2,$chr(64)) && !$read(zline.txt,w,$+(*,$2,*)) { echo -a Ident listede bulunmuyor! | halt } if $regex($2,\d) && $regex($2,\W) && !$read(zline.txt,w,$+(*,$2,*)) { echo -a IP zaten listede bulunmuyor! | halt } if !$read(zline.txt,w,$+(*,$2,*)) { echo -a Nick zaten listede bulunmuyor! | halt } echo -a $token($read(zline.txt,w,$+(*,$2,*)),1,58) Listeden silindi! | write $+(-dl,$readn) zline.txt } if ($regex($1,/(^[!]l(i|ı)st$)/i)) { if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt } if (!$regex($2,/(ip|ident|nick)/i)) { echo -a $qt($2) Adın da, mask bulunmuyor. Masklar: IP / Ident / Nick | halt } if ($lines(zline.txt) == 0) { echo -a Listede hiç bir kayıt bulunmamaktadir! | halt } if $masks($2) == 0 { echo -a $2 Listesinde kayıt bulunmuyor! | halt } echo -ae $2 listesi - var %s 1 | while (%s <= $lines(zline.txt)) { $iif($2 isin $read(zline.txt,%s),echo -a $+(%s,]) $replace($read(zline.txt,%s),$chr(58),$+(:,$chr(32)))) | inc %s } echo -ae List sonu. } } alias masks { var %s 1 | while (%s <= $lines(zline.txt)) { $iif($1 isin $read(zline.txt,%s),return 1) | inc %s } return 0 } on *:snotice:*connecting*: { var %s 1, %nick $9, %ident $right($token($10,1,64),-1), %ip $remove($token($10,2,64),$chr(41)) while (%s <= $lines(zline.txt)) { $iif($regex($read(zline.txt,%s),/Ident/i),$iif($right($gettok($read(zline.txt,%s),2,58),-1) == %ident,gzline %nick +0 Forbidden Tion! $+([Data:,%ident,]) )) $iif($regex($read(zline.txt,%s),/IP/),$iif($gettok($read(zline.txt,%s),2,58) == %ip,gzline %nick +0 Forbidden Tion! $+([Data:,%ip,]) )) $iif($regex($read(zline.txt,%s),/Nick/i),$iif($gettok($read(zline.txt,%s),2,58) iswm %nick,gzline %nick +0 Forbidden Tion! $+([Data:,%nick,]) )) inc %s } }

Badnick-Koruması (Hash) Yapımcısı Toprak Arkadaşımız on *:start:{ $iif(!$isfile(badnick.tprk),.mkdir badnick.tprk) | .hmake badnick.tprk | .hload badnick badnick.tprk } on @*:join:#:{ if $hfind(badnick,$nick,1,W).data { mode # +b $nick kick # $nick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz.. if !$hget(bdnck,$nick) { .hinc -msu20 bdnck $nick msg #Opers [ JOIN ] $nick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W).data),$chr(32),]) } } } on *:nick:{ if $hfind(badnick,$newnick,1,W).data { msg #Opers [ NICK ] $newnick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$newnick,1,W).data),$chr(32),]) var %:c $regsubex($str(-,$comchan($newnick,0)),/./g, $iif($regex($nick($comchan($newnick,\n),$me).pnick,/(%|@|&|~\.)/i),$comchan($newnick,\n) $chr(32))) var %c = 1 | while %c <= $token(%:c,0,32) { mode $token(%:c,%c,32) +b $newnick | kick $token(%:c,%c,32) $newnick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz.. inc %c } } } on *:text:*:#:{ if $regex($1,/^[!\.]badnick$/Si) { if $regex($2,/^ekle$/Si) { if (!$3) { msg # Lütfen nick belirtiniz | return } if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return } var %n = $left($calc($ctime * $rand(1000,9999)),7) .hadd -m badnick %n $strip($3) .hsave -o badnick badnick.tprk msg # $strip($3) Badnick listesine eklendi. } if $regex($2,/^s[ıiİ]l$/Si) { if (!$3) { msg # Lütfen nick belirtiniz | return } if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return } .hdel -m badnick $hfind(badnick,$strip($3),1,W).data .hsave -o badnick badnick.tprk msg # $strip($3) Badnick listesinden silindi. } if $regex($2,/^tara$/Si) { if (!$3) { msg # Lütfen nick belirtiniz | return } if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return } msg # Nick: $strip($3) - 4Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) } if $regex($2,/^l[ıiİ]st$/Si) { if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return } msg # Badnick listesi msg # - var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i } msg # - msg # Badnick listesi sonu } } if $regex($1,/^[!\.]tara$/Si) { if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return } if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return } var %:tara = 1 | while %:tara <= $nick($2,0) { if $hfind(badnick,$nick($2,%:tara),1,W).data { msg #Opers [ TARAMA ] $nick($2,%:tara) nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%:tara),1,W).data),$chr(32),]) mode $2 +b $nick($2,%:tara) | kick $2 $nick($2,%:tara) 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz.. } inc %:tara } } } Komut(lar): ;- [!.]badnick ekle Nick (4*?) Mask olarak ekleyebilirsiniz. ;- [!.]badnick sil Nick ;- [!.]badnick tara Nick Etkilenen nick'in maskını gösterir. (Nick: turgay - Mask: [ *gay ]) ;- [!.]badnick list ;- [!.]tara #Kanal Belirlenen kanal'da badnick taraması yapar.

NERDEN KODU GÜNCEL KİŞİNİN NERDEN OLDUNU GÖREBİLİRSİNİZ ÜLKE ŞEHİR İSP GİBİ SONUCLARI GÖSTERİR Kullanımı: !nerden IP/NICK on *:text:*:#:{ if $regex($1,/^[!.-]nerden$/Si) { if !$2 { msg # Lütfen !Nerden IP/Nick Olarak Belirtiniz. | return } set %:kanal # if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 } else { .enable #nerdenbul | .who +I $2 } } } on *:input:#:{ if $regex($1,/^[!.-]nerden$/Si) { if !$2 { msg # Lütfen !Nerden IP/Nick Olarak Belirtiniz. | return } set %:kanal # if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 } else { .enable #nerdenbul | .who +I $2 } } } #nerdenbul off raw 352:*: _nerden $4 raw 315:*:.disable #nerdenbul #nerdenbul end alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) www.ipaddresslocation.org 80 | sockmark $+(yerbul,%:r) $1 } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:yerbul*:{ sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1 sockwrite -n $sockname Host: www.ipaddresslocation.org sockwrite -n $sockname Connection: keep-alive sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 sockwrite -n $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 -n $sockname $crlf } on *:sockread:yerbul*:{ var %:yerbul | sockread -f %:yerbul if (Hostname: isin %:yerbul) { msg %:kanal Hostname:4 $iif(!$token($htmlfree(%:yerbul),3,58),Belirsiz,$token($htmlfree(%:yerbul),3,58)) } if (IP Country: isin %:yerbul) { msg %:kanal Ülke:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) } if (IP Country Code: isin %:yerbul) { msg %:kanal Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) } if (IP Continent: isin %:yerbul) { msg %:kanal Kıta:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) } if (IP City: isin %:yerbul) { msg %:kanal Şehir:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) } if (IP Latitude: isin %:yerbul) { msg %:kanal Enlem:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) } if (IP Longitude: isin %:yerbul) { msg %:kanal Boylam:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) } if (ISP Provider: isin %:yerbul) { msg %:kanal ISP:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) | sockclose $sockname } }

Gelişmiş bir nick/ip takip kodu Kırmızı olarak mobil ve web portu işaretledim onu kendinize göre düzenleyiniz. on *:input:#:{ if $regex($1,/^[!.&-][ıiİ]p$/Si) { if !$2 { msg # Lütfen Nick/IP belirtiniz. Kullanımı:4 !ip [IP|NICK] } elseif $regex($2,/\d+\.\d+\.\d+\.\d+/Si) { if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($2),) IP'ine ait kayıt bulunamadı. | return } msg # =====" 2Nick "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "===== msg # - var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar { var %:read = $read($+(IP/,$strip($2),.txt),%:_ar) msg # 2-4 $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191)) dec %:_ar } msg # - msg # 4* Bilgi: $+(2,$strip($2),) IP'sine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır. msg # =============================================================== msg # - .hadd -ms Ns-list $strip($2) # ns list $+(*@,$strip($2)) } else { if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($5),) Nick'ine ait kayıt bulunamadı. | return } msg # =====" 2IP "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "===== msg # - var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar { var %:read = $read($+(IP/,$strip($2),.txt),%:_ar) msg # 2-4 $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191)) dec %:_ar } msg # - msg # 4* Bilgi: $+(2,$strip($2),) Nick'ine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır. msg # =============================================================== msg # - } } } on *:notice:*:?:{ if ($nick == NickServ) { if $regex($1-,/uyan veriler:/Si) && $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { msg $hget(Ns-list,$regml(1)) $+(2,$regml(1),) IP'ine ait NickServ kayıtları. } elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) && $hget(Ns-list,$regml(1)) { msg # $hget(Ns-list,$regml(1)) Nick:4 $strip($1) } elseif $regex($1-,/liste sonu/Si) { $iif($4 == 0/0,msg $hget(NS-list,1).data NickServ de identify edilmiş nick bulunmamaktadır.) .hfree -sw Ns-list } } } on *:snotice:*:{ if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) { var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5), %_hub $regml(1) var %_girs = $iif(%_hub == at,%_port HUB,$iif(%_port == 7005,Mobil,$iif(%_port == 1985,Web,IRC))) Girişi $iif(!$isdir(IP),.mkdir IP) .write $+(IP/,%_ip,.txt) $+($date,¿,$time) %_nick %_ident %_girs .write $+(IP/,%_nick,.txt) $+($date,¿,$time) %_ip %_ident %_girs } elseif $regex($1-,/his\/her nickname to/Si) { var %_nk = $token($1-,-1,32), %_it $token($token($1-,1,64),2,40), %_ips $token($token($1-,2,64),1,41) $iif(!$isdir(IP),.mkdir IP) .write $+(IP/,%_ips,.txt) $+($date,¿,$time) %_nk %_it Nick Değişimi .write $+(IP/,%_nk,.txt) $+($date,¿,$time) %_ips %_it Nick Değişimi } elseif $regex($1-,/Permanent (.+) added for .+@(.+) on.+from (.+)!.+/Si) { .hadd -msu15 IRC-Giris $regml(2) $regml(3) $regml(1) Uyguladı. } elseif $regex($1-,/Client exiting/Si) { if $regex($1-,/Client exiting\: (.+) \((.+)@(.+)\) .+/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $regml(3) } elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) } var %:ban = $hget(IRC-Giris,%_cip) $iif(!$isdir(IP),.mkdir IP) .write $+(IP/,%_cip,.txt) $+($date,¿,$time) %_cnk %_cit $iif(%:ban,%:ban,Sunucudan Çıkış) .write $+(IP/,%_cnk,.txt) $+($date,¿,$time) %_cip %_cit $iif(%:ban,%:ban,Sunucudan Çıkış) $iif($hget(IRC-Giris,%_cip),.hdel -ms IRC-Giris %_cip) } }

on $*:snotice:/client connecting.+\x20(\S+)\x3A\x20(\S+)\x20\x28(\S+)@(\S+)\x29/Si: { var %port = $regml(1), %nick = $regml(2), %ident = $regml(3), %ip = $regml(4) if $regex(%ip,^(78\.834\.|78\.824\.|78\.50\.)) { echo -a giris 02nick:04 %nick 02ident:05 %ident 02ip:06 %ip msg #Opers girişyapan nick:4 %nick } }

BU Addon giren kullanıcıların nick, ident ve hostunu kontrol edip eklediğiniz nick , ident ve hostlara gzline atmanıza yarayan Mirc Addonudur ### /lamer komutu ile korumayı açabilirsiniz ### lamerler forum alias lamer { /dialog -m start start } dialog start { title "Ident Nick Ekstra Korumaları" size -1 -1 467 274 option pixels box "", 11, 19 13 430 256 text "Güvenlik Giriş Ayarları", 1, 136 3 167 20 edit "", 3, 125 37 186 20, center button "Nick gzline liste ekle", 8, 30 70 190 30, flat button "İdent gzline liste ekle", 4, 30 108 190 30, flat button "Host gzline liste ekle", 5, 30 148 190 30, flat button "Host gzline list'en sil", 2, 240 148 190 30, flat button "İdent gzline list'en sil", 6, 241 108 190 30, flat button "Nick gzline list'en sil", 7, 240 70 190 30, flat button "Kapat", 9, 125 190 192 29, flat text " Bu koruma sunucuya hep aynı nick yada ident ile saldırıları önlemek için yazılmıştır.", 10, 24 228 413 16 } on 1:dialog:start:*:*: { if ($devent == init) { did -a start 3 $null } if ($devent == sclick) { if ($did == 8 ) { /auser gzline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline Liste eklendi } } if ($devent == sclick) { if ($did == 9 ) { /dialog -c start start } } if ($devent == sclick) { if ($did == 7 ) { /ruser gzline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline List'en silindi } } if ($devent == sclick) { if ($did == 2 ) { /ruser gzline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline List'en silindi } } if ($devent == sclick) { if ($did == 4 ) { /auser gzline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline Liste eklendi } } if ($devent == sclick) { if ($did == 6 ) { /ruser gzline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline Listen silindi } } if ($devent == sclick) { if ($did == 5 ) { /auser gzline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline Liste eklendi } } } on gzline:join:#:{ gzline $nick : 4,1 Security Korumasi 4 $time - }

Merhaba, sizlerle paylaşacağım kod /ignore nick kullanmadan kişinin yazılarını engellemek ve kişi nick değiştirdiği zaman otomatik olarak engelli listesine ekliyen bir calışmadır. on *:input:#kanal: { if ($regex($1,/[\.!][iı]gnore\s/Si) && !$2) { echo -a Nick belirtmelisiniz. ( .ignore nick ) } | elseif ($regex($2,/\d+|\s/i)) { echo -a hatalı kullanım } | elseif ($regex($1,/([\.!][iı]gnore)$/Si)) && $2) { write ignore.txt $2 | echo -a $2 ignore listesine eklendi. } | elseif ($regex($1,/([\.!][ıi]gnores[ıi]l)$/Si) && $2) { write $+(-dl,$readn) ignore.txt | echo -a $2 ignore listesinden silindi. } } on *:open:?: { if ($read(ignore.txt,w,$nick)) { echo -a ignore listesinde $nick mesajı: $1- closemsg $nick } } on *:nick: { if $read(ignore.txt,w,$nick) { echo -a ignore listesinde mevcut kişi $newnick nickini aldı ve engelli listesine eklendi. | write ignore.txt $newnick } } Kullanım amacı; IRCd sunucularında çok fazla karşılaştığımız ve /ignore nick komutunun yetersiz kaldığı durumları giderdiğim bir kod calışmasıdır. Engellediğiniz kişinin yazılarını aktif pencerede görürsünüz ve konuşma penceresi otomatik olarak kapanır. Bildiğiniz üzere /ignore nick komutunda sürekli olarak kişiyi ignore etmeniz gerekir ve nick değiştirip sürekli yazma imkanı doğar bir sürkilasyon oluşur yani bir nevi döngü oluşur tam olarak bunu engelleme amaclı tek seferde eklediğiniz kişi eğer nick değiştirirse otomatik olarak engellenmiş listesine alınır. Not: Engelli listesine aldığınız bir kişiyi mirc i kapatıp actığınızda tekrar engel listesine almanız gerekmez kalıcıdır. Siz onu o listeden cıkarmadığınız sürece tabiki.. Kullanım; .ignore nick .ignoresil nick

OTO SELAM ALMA ADDONU Her kullanıcıdan 1 kere selam alır. Kodlari ekledikten sonra status bölümünde Selam seceneği cıkar ordan acıp kapatabilirsiniz. #selam off On *:text:*:#:{ if $istok(slm slmm slmmm s.a selamm selam. selam,$1-,32) && !$istok(#help #helpegitim #helpteam #helpstaff #yokk,$chan,32) { if $read(muafnick.txt,w,$nick) { return } inc -eu9000 $+(%,$nick,#,$network) 1 if $($+(%,$nick,#,$network),2) == 1 { timer 1 6 msg # Aleyküm Selam $nick } } } #selam end menu status { Selam .Açık:/.enable #selam | echo -a ** Açıldı! .Kapalı:/.disable #selam | echo -a ** Kapatıldı! }