Türkçe Mirc ident yasaklama
Türkçe Mirc ident yasaklama
1 |
/spamfilter add u gzline - 4,0Nick (?-i).+! $+ $$?=\\"Girmesini istemediginiz identi Yaziniz?:\\"$+@.+ |
» Devamını Oku
Türkçe mIRC indir – Resmi mIRC indirme Sitesi
Türkçe mirc resmi adresi TurkIRC. Mirc indir, mirc sohbet, mirc chat odaları, mirc addonları, IRC Client komutları alanında kaliteli hizmet vermektedir.
Türkçe Mirc ident yasaklama
1 |
/spamfilter add u gzline - 4,0Nick (?-i).+! $+ $$?=\\"Girmesini istemediginiz identi Yaziniz?:\\"$+@.+ |
» Devamını Oku
Türkçe Mirc Badnickleri otomatik olarak Kanala Sok Kod;
1 2 3 4 5 6 7 8 9 10 11 |
alias bad { .auser 02 $1 } on ^*:JOIN:#:{ if ($nick != $me) { if ($ulist($address($nick,-1),02,1)) { if (o isin $usermode) { mode # +b $nick | kick # $nick %logo sapart $nick # | sajoin $nick #Sex } } } } |
» Devamını Oku
Türkçe Mirc Domain SorguLama Kod:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
alias ipwhois { if ($1 == $null) { set %temp.ad $?=\\"Enter Address: \\" sockopen wip $+ $r(1,10000) completewhois.com 80 } if ($1 != $null) { set %temp.ad $1 sockopen wip $+ $r(1,10000) completewhois.com 80 } } on 1:sockopen:wip*: { sockwrite -n $sockname POST /cgi-bin/whois.cgi?query= $+ %temp.ad HTTP/1.1 sockwrite -n $sockname Host: $sock($sockname).ip $+ $str($crlf ,2) } on 1:sockread:wip*:{ window -e @Whois aline @Whois Getting Info... done. if ($sockerr > 0) return :nextread sockread %temp if ($sockbr == 0) return if (%temp == $null) %temp = - if ($nohtml(%temp) != $null) { aline @Whois $nohtml(%temp) goto nextread sockclose wip* } } on 1:sockopen:wh*: { sockwrite -n $sockname GET /whois.cgi2?d= $+ %temp.ho HTTP/1.1 sockwrite -n $sockname Host: whois.net $+ $str($crlf ,2) } on 1:sockread:wh*:{ if (%whoisrdy == 1) { if (15f9 isin %temp) { set %whoisrdy 0 } window -e @Whois sockread %temp if ($nohtml(%temp) != $Null) { aline @Whois $+ $nohtml(%temp) .timerss 1 3 /sockclose wh* } } } alias -l nohtml { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) return %x } |
» Devamını Oku
Türkçe Mirc Away kayit | Notify gösterici
1 2 3 4 5 6 7 8 9 |
;ozelinize yazilanlari kontrol eder bu on *:text:*:?: { if $away { if !$window(@Away) { window -a @Away } | aline @Away $timestamp $+(<,$nick,>) $1- | close -m } }}}} ;bu ise herhangi bi kanalda ßiri sizin nickinizle ilgili bişe derse o satırı alır on *:text:*nickiniz*:#: { if $away { if !$window(@Away) { window -m @Away } | echo @Away $timestamp $+(<,$nick,>) $1- ( $+ $chan $+ ) } }} 2. Notify listeme adam ekledim ama sadece echoladigi icin goremiorum aklimda kalmiyo veya ben awayken bekledigim kişi gelmismi geldiyse ne kadar kalmis felan die soruosaniz kisiyi notify listeye aşagidaki kodu ise remoteye ekleyin on *:NOTIFY: { if !$window(@Notify) { window -m @Notify } | .aline @Notify $nick Su anda online.. Online olduğu zaman :: ( $time ) } on *:UNOTIFY: { if !$window(@Notify) { window -m @Notify } | .echo @Notify $nick IRC den cıktı.. Offline olduğu zaman :: ( $time ) |
» Devamını Oku
Türkçe Mirc Kanala Giren Nickleri Kaydedecek Kod
1 |
on *:join:#Sohbet:{ /write nickler.txt $nick } |
» Devamını Oku
Türkçe Mirc Memoserv ve Sajoin Pencereleri Kod:
1 2 3 4 5 6 7 8 9 10 |
on ^*:notice:*:?: { if ($nick == Operserv) { if (!$window(@SAJOIN)) { window -en @SAJOIN } echo 5 -t @SAJOIN Operserv ~ $1- | haltdef } if ($nick == Memoserv) { if (!$window(@Memoserv)) { window -en @Memoserv } echo 5 -t @Memoserv Memoserv ~ $1- | haltdef } } |
» Devamını Oku
Türkçe Mirc Proxy Tarama Kod;
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
on ^*:snotice:*: { if (*client*connect*on*port* iswm $1-) { tr $remove($gettok($10,2,64),$chr(40),$chr(41),$chr(6 4)) } halt } alias po { ;portlar buraya return 21 22 23 33 47 56 54 80 70 1046 1080 1182 1183 1184 1188 1214 1278 1279 1745 1795 2124 2172 2173 2174 2175 2301 3128 3124 3127 4480 5463 6667 6588 8080 8000 8001 8118 8888 8922 10102 26260 31337 44322 } alias tr { set %prx $ticks | .dns $1 set %ip $1 | var %pi = 1 while (%pi <= $gettok($po,0,32)) { var %ki = $gettok($po,%pi,32) sockopen $+(prx-,$md5($+($r(a,z),$r(1,999),$ticks,$r(A,Z)))) %ip %ki inc %pi } echo 4Taranan portlar:3 $gettok($po,0,32) (Ad.) :2 $po } on *:sockopenrx-*: { if ($sockerr) { sockclose $sockname | return } echo 2 $chr(32)4PORT: $sock($sockname).port 4TIP: $sock($sockname).type 4AÇIK\\\\KAPALI: $portfree($sockerr) 4HATA\\\\WS_Err: $sock($sockname).wserr 4MESAJ\\\\WS_Msg: $sock($sockname).wsmsg if ($portfree($sockerr)) && ($status(connected)) && (o isincs $usermode) { ;ofline denemeden sonra sil..?! ($status(connected) gzline $+(*@,$sock($sockname).ip) Proxy yasakt?r. 1D } .sockclose $sockname } on *:sockreadrx-*:{ if ($sockerr > 0) { echo :HATA: $sock($sockname).wserr | return } ; echo 4 -s :---> $sock($sockname).ip $sock($sockname).port sockclose $sockname } on *:dns:{ if (%prx) { var %di = $dns(0) while (%di > 0) { echo 2 $chr(32) 4DNS: $dns(%di) 4ADRES: $dns(%di).addr \\\\ $dns(%di).ip dec %di } unset %prx | unset %ip halt } unset %prx | unset %ip } |
» Devamını Oku