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.
|
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 |
Kick Sayacı: alias kick { kick $1- %kicksayac | kicksayac } alias kicksayac { if (%kicksayac == $null) { set %kicksayac 1 } %kicksayac = %kicksayac + 1 halt } Kline Sayacı: alias kline { kline $1- %klinesayac | klinesayac } alias klinesayac { if (%klinesayac == $null) { set %klinesayac 1 } %klinesayac = %klinesayac + 1 halt } |
|
1 2 3 4 5 6 7 8 |
on @1:text:*:#:{ if $me !isop $chan { halt } | if $nick isop $chan { halt } var %bflood $strip($1-) var %mflood $strip($$1) if ($len(%bflood) >= 250 ) || ($len($1) >= 50 ) { /mode $chan +b $address($2,2) | /kick $chan $nick 7¤ 13Flood Yasaktir2 [14!2] 7¤ } } |
|
1 2 3 4 5 6 7 8 9 10 |
on *:notice:*:?: { if ($nick == NickServ) { if (Bu kayitli ve sifre korumali bir nick'tir isin $1-) { msg NickServ IDENTIFY şifreniz } } } on *:notice:*:?: { if ($nick == NickServ) { if (Bu nick kayitli bir nicktir, siz bu nicki kullanamazsiniz isin $1-) { msg NickServ ghost nickiniz şifreniz | msg NickServ release nickiniz şifreniz | timer 2 5 nick nickiniz | timer 2 10 msg NickServ IDENTIFY şifreniz } } } |
|
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 50 51 52 53 54 55 56 57 |
Örnek : /download Sohbet.net selam.txt İşte kod: alias download { if ($sock(download)) { echo $colour(info text) @download *** başka bir dosya download ediliyor, birazdan tekrar deneyiniz. return } sockopen download $1 80 sockmark download $1 $2 } on *:sockopen:download:{ if ($sockerr) { echo $colour(info text) @download *** download ederken hata: $sockerr return } write -c $gettok($sock($sockname).mark,2,32) unset %downloadlength %downloadready window -c @download sockwrite -n $sockname GET $+(/,$gettok($sock($sockname).mark,2,32)) HTTP/1.0 sockwrite -n $sockname Accept: */* sockwrite -n $sockname Host: $gettok($sock($sockname).mark,1,32) sockwrite -n $sockname } on *:sockread:download:{ if (%downloadready != 1) { var %header sockread %header while ($sockbr) { if (Content-length: * iswm %header) { %downloadlength = $gettok(%header,2,32) if (* !iswm $window(@download)) window @download echo $colour(info text) @download *** dosya boyutu: %downloadlength bytes } elseif (* !iswm %header) { %downloadready = 1 %downloadoffset = $sock($sockname).rcvd break } sockread %header } } sockread 4096 &d while ($sockbr) { if (* !iswm $window(@download)) window @download echo $colour(info text) @download *** alınan: $round( $calc(100 * ($sock($sockname).rcvd - %downloadoffset) / %downloadlength) ,1) $+ % bwrite $gettok($sock($sockname).mark,2,32) -1 -1 &d sockread 4096 &d } } on *:sockclose:download:{ echo $colour(info text) @download *** indirme tamamlandı. } |
|
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 |
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } } alias -l tarih { return $+($replace($gettok($date,2,$asc(/)),01,ocak,02,subat,03,mart,04,nisan,05,mayis,06,haziran,07,temmuz,08,agustos,09,eylul,10,ekim,11,kasim,12,aralik),_,$gettok($date,1,$asc(/)),.htm) } alias tbugun { dialog -m tarih tarih } on *:SockOpen:tarih*:{ sockwrite -n $sockname GET $+(/tarih_arsiv/,$tarih) HTTP/1.0 sockwrite -n $sockname host: www.bianet.org $+ $crlf $+ $crlf } on *:SockRead:tarih*:{ var %a sockread %a if ($sockerr) { did -ra tarih 1 Bağlantı Hatası Lütfen Daha Sonra Tekrar Deneyin | return } if (%sjn == Ok!) && (sayfa başına !isin %a) && (dön</FONT> !isin %a) { did -a tarih 1 $htmlfree($replace($+(%a,$chr(160)),<BR>,$crlf)) } if (Tarihte bugün isin %a) { set %sjn Ok! | did -ra tarih 1 Tarihte Bugün $+ $crlf } } dialog tarih { title "Tarihte Bugün Gösterici" size -1 -1 133 169 option dbu edit "Yükleniyor..", 1, 4 2 124 144, read multi return autovs vsbar button "Çıkış", 2, 47 151 37 12, ok } on *:dialog:tarih:init:*:{ unset %sjn sockclose tarih* sockopen $+(tarih,$r(1,999)) www.bianet.org 80 } |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
;kısayol - /dialog -m sifre sifre dialog sifre { title "Identify Paneli" size -1 -1 117 75 option dbu box Nickiniz: $me , 11, 2 3 114 70 edit "", 5, 57 18 51 12, style(pass) autohs edit "Şifrenizi Girin:", 3, 10 19 45 10, read box "", 4, 7 11 104 37 edit "Yeni Nick Seçin:", 16, 10 33 45 10, read edit "", 6, 57 32 51 12, autohs button "Tamam", 1, 8 51 49 18, ok multi default flat button "Vazgeç", 2, 61 51 49 18, cancel flat } on 1:dialog:sifre:sclick:1: { if ($did(sifre,6)) && ($did(sifre,5)) .msg nickserv identify $did(sifre,6) $did(sifre,5) if ($did(sifre,5)) .msg nickserv identify $did(sifre,5) if ($did(sifre,6)) .nick $did(sifre,6) } |
“Kanal bani”, IRC kullanicisinin adresine ve/veya nickine dayanaraktan, kanal girisini onleyen bir yasaklamadir. Banlarin, duygusal acidan veya ayirim gozeterekten yapilmamasina dikkat edilmedir.Bu yuzden kanaldan birilerini disari cikartirken, kanalinizdan sucsuz insanlari da kolayca banlayabilirsiniz. Bir kanalda ban koymaniz icin, op olmaniz gerektigini unutmayiniz (Nickinin onunde ”@ ve % ” isareti olanlar).Yalnizca kanal operatorleri ve halfoperatorleri, kanal banlarini ekleyebilir veya cikarabilirler. Eger […]
» Devamını Oku