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 |
raw 367:*: { mode $2 -b $3 } alias banac { mode # +b } on &*:text:*:#:{ if ($1 == !bantemizle) { banac } } on *:ban:#aşk: { if (%biz == 10) { banac | msg $chan Kanal ban Listesi Temizleniyor. | set %biz 1 } if (%biz == 15) { banac | msg $chan Kanal ban Listesi Temizleniyor. | set %biz 1 } if (%biz == 15) { unset %biz } else { inc %biz } } |
|
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 |
alias Ekoru { .window -Bdok0pbx +fyX @Ekran_koruyucu .timer_sc_nokta 0 3 drawdot @Ekran_koruyucu $rand(0,15) 2000 10 5 .timer_sckoşabine 0 5 drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Fixedsys 1000 11 500 500 $me gelbana .timer_scgel -hio 0 1 gelbana .timer_sc_koşgel 0 1 baslıx .timer_sc_kapat_ -mio 0 1 .SCC | .set %MX $+($mouse.x,$mouse.y) } alias SCC { if ( $+($mouse.x,$mouse.y) == %MX) { Halt } if ( $+($mouse.x,$mouse.y) != %MX) { SCF } } alias SCF { .timersc off | .window -c @Ekran_koruyucu | .timer_sc* off } on *:KEYDOWN:@Ekran_koruyucu:*:SCF alias -l gelbana { drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Fixedsys $rand(0,500) $rand(0,500) $rand(0,500) MTX drawtext -r @Ekran_koruyucu ($rgb(100,173,255) verdana 20 200 650 Ekranı Açmak için Fareyi Kıpırdatın } alias -l baslıx { drawtext -r @Ekran_koruyucu $rgb(73,73,73) Verdana 50 112 12 Screen Saver drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Verdana 50 110 10 Screen Saver } |
|
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 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 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 |
alias -l txt $iif($1 == -o,drawtext -or @tahmin $2 Tahoma 11 $3 $4 $5-,drawtext -r @tahmin $1 Tahoma 11 $2 $3 $4-) alias -l rect $iif($1 == -f,drawrect -rf @tahmin $2 1 $3 $4 $5 $6,drawrect -r @tahmin $1 1 $2 $3 $4 $5) alias -l mlist { inc %mly 23 | txt -o $rgb(255,255,255) 30 %mly $1- } alias -l create->table { if ($window(@tahmin)) { set %ly 26 rect -f $rgb(0,130,65) 6 6 770 22 rect $rgb(0,0,0) 6 6 770 22 rect -f $rgb(69,101,8) 6 27 770 25 rect $rgb(0,0,0) 6 27 770 25 rect $rgb(0,0,0) 60 27 1 25 rect $rgb(0,0,0) 120 27 1 25 ;rect $rgb(0,0,0) 320 27 1 25 rect $rgb(0,0,0) 530 27 1 25 rect $rgb(0,0,0) 590 27 1 25 rect $rgb(0,0,0) 660 27 1 25 txt -o $rgb(255,204,0) 20 33 Saat txt -o $rgb(255,204,0) 80 33 Kod txt -o $rgb(255,204,0) 300 33 KARŞILAŞMA ;txt -o $rgb(255,204,0) 470 33 Misafir Takım txt -o $rgb(255,204,0) 550 33 MBS txt -o $rgb(255,204,0) 610 33 Sonuç txt -o $rgb(255,204,0) 680 33 Banko/Süpriz } } alias -l create->col { if ($window(@tahmin)) { rect -f $rgb(52,113,52) 0 50 2000 2000 var %tsay = 1 while (%tsay <= $lines(maclar.txt)) { inc %ly 24 tokenize 191 $read(maclar.txt,%tsay) rect -f $rgb(0,92,0) 6 %ly 770 25 rect $rgb(0,0,0) 6 %ly 770 25 rect $rgb(0,0,0) 60 %ly 1 25 rect $rgb(0,0,0) 120 %ly 1 25 ;rect $rgb(0,0,0) 320 %ly 1 25 rect $rgb(0,0,0) 530 %ly 1 25 rect $rgb(0,0,0) 590 %ly 1 25 rect $rgb(0,0,0) 660 %ly 1 25 $iif($1 != $null,txt $rgb(255,255,255) 17 $calc(%ly + 5) $1) $iif($2 != $null,txt $rgb(255,255,0) 77 $calc(%ly + 5) $2) $iif($3 != $null,txt $rgb(255,255,0) 180 $calc(%ly + 5) $3) $iif($4 != $null,txt $rgb(255,255,255) 555 $calc(%ly + 5) $4) $iif($5 != $null,txt $rgb(255,255,255) 620 $calc(%ly + 5) $5) $iif($6 != $null,txt $rgb(255,255,255) 700 $calc(%ly + 5) $6) $iif(%tsay == $lines(maclar.txt),guncel->button) inc %tsay } } } alias tahmin { window -pxk[1] @Tahmin rect -f $rgb(52,113,52) 0 0 2000 2000 create->table drawtext -or @tahmin $rgb(255,255,0) Tahoma 25 50 150 Bekleyin... } alias -l guncel->button { txt -o $rgb(255,255,255) 280 10 %tarih rect -f $rgb(0,128,64) 700 $calc(%ly + 30) 70 20 rect $rgb(0,0,0) 700 $calc(%ly + 30) 70 20 txt -o $rgb(255,255,0) 709 $calc(%ly + 33) Gün. Bilgi } alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } } alias iddaa { tahmin | sockclose tiddaa* | write -c maclar.txt | sockopen $+(tiddaa,$r(1,999)) www.betstudy.com 80 } on *:SockOpen:tiddaa*:{ sockwrite -n $sockname GET /turkce/iddaa/iddaa-tahminleri.htm/ HTTP/1.1 sockwrite -n $sockname host: www.betstudy.com sockwrite -n $sockname $crlf } on *:load:sockclose update | unset %yap | sockopen update www.geocities.com 80 | echo -a Addon Başarıyla Yüklenmiştir | echo -a Iddaa Tahminleri By SCouNDReL & SeRDaR406 on *:SockRead:tiddaa*:{ var %a sockread %a if (<strong> isin %a) && (iddaa tahminleri isin %a) { set %tarih $htmlfree(%a) } if (%yas) && (Oyna !isin %a) && (</div> isin %a) { set %serdarjan $addtok(%serdarjan,$htmlfree($replace(%a,ı,i,ş,s,,$crlf,ğ,g,ö,o,",",ü,u,İ,I,ç,c,Ç,C,Ş,S,&e,e,Ğ,G,’,',…,...,â,a,î,i,’,',”,",“,",YORUM İÇİN TIKLA,-)),191) } if (#00CC33 isin %a) { set %yas temem } if (/tr isin %a) && (%yas) { unset %yas | write maclar.txt %serdarjan | unset %serdarjan } } alias -l update.basla { sockclose updatestart | unset %yap | sockopen updatestart www.geocities.com 80 } on *:SockOpen:update:{ sockwrite -n $sockname GET /serjan.team/iddaa.txt HTTP/1.1 sockwrite -n $sockname host: www.geocities.com sockwrite -n $sockname $crlf } on *:SockOpen:updatestart:{ sockwrite -n $sockname GET $+(/serjan.team/,%guncel) HTTP/1.1 sockwrite -n $sockname host: www.geocities.com sockwrite -n $sockname $crlf } on *:SockRead:update:{ var %a sockread %a if ($sockerr) { return } if ($gettok($script,-1,$asc(\)) != %a) && (.txt isin %a) { set %guncel $gettok(%a,-1,$asc(/)) } } menu @tahmin { uclick: { $iif($inrect($mouse.x,$mouse.y,700,$calc(%ly + 30),70,20),dialog -m guncel guncel) } Yenile:.iddaa - Kapat:close -@ @Tahmin } on *:SockRead:updatestart:{ var %a sockread %a if (%yap) { write %guncel %a } if (¿ isin %a) { set %yap Ok! } } on *:SockClose:update:$iif(%guncel,update.basla,echo -a Iddaa Tahminleri Gösterici Güncellendi) on *:SockClose:updatestart:{ $iif($exists($shortfn($+($scriptdir,%guncel))),.load -rs $shortfn($+($scriptdir,%guncel)),halt) unset %guncel unset %yap .remove $script .unload -rs $shortfn($script) echo -a Iddaa Tahminleri Gösterici Güncellendi } dialog guncel { title "Güncelleştirme Bilgileri" size -1 -1 150 93 option dbu edit "Yükleniyor...", 1, 3 15 155 60, read multi hsbar vsbar text "Güncelleştirme Bilgileri", 2, 33 3 54 8 button "Tamam", 3, 55 78 37 12,ok } on *:sockclose:tiddaa*: create->col on *:dialog:guncel:init:0:guncel.bilgi alias -l guncel.bilgi { sockclose guncel.bilgi | sockopen guncel.bilgi www.geocities.com 80 } on *:SockOpen:guncel.bilgi:{ sockwrite -n $sockname GET /serjan.team/iddaaguncel.txt HTTP/1.1 sockwrite -n $sockname host: www.geocities.com sockwrite -n $sockname $crlf } on *:SockRead:guncel.bilgi:{ var %a sockread %a if ($sockerr) { $iif($dialog(guncel),did -ra guncel 1 Bağlantı Hatası!) } if (%yap == Ok!) && ($dialog(guncel)) { did -a guncel 1 %a $crlf } if (¿ isin %a) { set %yap Ok! | $iif($dialog(guncel),did -r guncel 1) } } on *:start: { sockclose update | sockopen update www.geocities.com 80 } on *:SockClose:guncel.bilgi:unset %yap |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
raw 401:*: { msg #nerden $2 : Nick'i online degil! } alias nerden { set %ip $1 sockclose nerden sockopen nerden www.ripe.net 80 } on *:sockopen:nerden:{ sockwrite -n $sockname GET /fcgi-bin/whois?form_type=simple&full_query_string=&searchtext= $+ %ip $+ &submit.x=15&submit.y=7 HTTP/1.1 sockwrite -n $sockname Host: www.ripe.net $+ $crlf $+ $crlf } on *:sockread:nerden:{ sockread %ğ if (descr: isin %ğ) && (TurkTelecom !isin %ğ) { msg #nerden 4 $+ $replace(%ğ,descr,şehir) } if (country: isin %ğ) { msg #nerden 2 $+ $replace(%ğ,country,ülke,tr,Türkiye,de,Almanya,nl,Hollanda) } } on *:text:*:#Nerden:{ if ($1 == !nerden) && $2 { baka.q $2 } } alias baka.q { whois $1 | enable #dirim } #dirim off raw 378:*: { nerden $gettok($6,2,64) | disable #dirim } #dirim end |