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.
Bu DLL ile dosya paylaşım sitelerine istediğiniz dosyayı upload edebilirsiniz. Upload işlemi gerçekleştikden sonra gelecek olan dataları kullanarak işlemlerinizi yapabilirsiniz. (Upload ettiğiniz dosyanın download link’ini alabilirsiniz.)
» Devamını OkuBu DLL ile dialoglarınız açılırken, animasyonlu bir şekilde açmanızı sağlar.Yalnız Win2k/XP‘de çalışmaktadır.
» Devamını Oku|
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 |
|
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 |
alias -l _buser { .guser blacklist $1 3 } alias -l _rbuser { .ruser blacklist $1 3 } alias -l _luser { dialog -m dusmanlist dusmanlist } alias -l _blist { did -r dusmanlist 11 var %_btotal = $ulist(*,blacklist,0) , %_b = 0 while (%_b < %_btotal) { inc %_b did -a dusmanlist 11 $ulist(*,blacklist,%_b) } } alias dusman { /dialog -m dusmanlist dusmanlist } dialog dusmanlist { title "Falan Filan - Düşman Listesi" size -1 -1 106 117 option dbu combo 11, 6 19 94 50, extsel sort autohs autovs text " Eklediğiniz nickler Gline yiyecektir. Buna Göre Ekleyeceğiniz nicklere dikkat edin", 2, 6 4 95 15 box "", 3, 3 0 101 96 edit "", 12, 6 69 94 10 , read autohs button "Ekle", 20, 7 81 40 12 , default button "Sil", 30, 58 81 40 12 , default box "", 7, 3 94 101 21 button "Pencereyi Kapat", 8, 17 100 73 12, ok } on *:dialog:dusmanlist:init:*: { _blist } on *:dialog:dusmanlist:sclick:*: { if ($did == 20) { if ($did(11).text != $null && $level($did(11).text) != blacklist) { var %_badd = $did(11).text .auser blacklist %_badd _blist did -o $dname 12 1 %_badd Kara Listeye Alındı... } } if ($did == 30) { if ($did(11).text != $null && $level($did(11).text) == blacklist) { var %_brem = $did(11).text .ruser blacklist %_brem _blist did -o $dname 12 1 %_brem Kara Listeden Silindi... } } } on @blacklist:join:#: { .gline $nick 15m Uzaklastırıldınız | .echo $nick 0,1 Kötü Nick / Düşman Listesinden ötürü Serverden Atıldı. %Logo1 } |
|
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 |
alias Clone { var %ğ = $nick(#,0) while %ğ { if !$hget(host,$address($nick(#,%ğ),2)) { hadd -m host $address($nick(#,%ğ),2) 1 } else { hinc host $address($nick(#,%ğ),2) } dec %ğ } echo 4 -st # kanalı için clone taraması başlatıldı... echo -s - .timer 1 1 .h_al # } alias h_al { var %ı = $hget(host,0).item while %ı { if $hget(host,%ı).data > 1 { set %y_k yes var %ç = $nick($1,0) while %ç { if $hget(host,%ı).item == $address($nick($1,%ç),2) { set %_cln $addtok(%_cln,$nick($1,%ç),32) } dec %ç } echo 12 -st 2Adres: $hget(host,%ı).item --- 10Bağlı kullanıcı sayısı: $hget(host,%ı).data --- 4Bağlı rumuzlar: $gettok(%_cln,1-,32) unset %_cln } dec %ı } echo -s - $iif($(%y_k,2) != yes,echo 4 -st $1 kanalında clone bulunamadı.,echo 4 -st $1 kanalı için clone taraması tamamlandı.) unset %y_k hfree host } menu channel { .- .Clone Tara:.Clone # |
|
1 2 3 4 5 6 7 8 9 10 11 12 |
on 1:connect:{ .IAL On | takip + 300 } alias takip { if $1 == + { $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,]) } else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! } } #Takip on on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) + $nick,$nick)) } on !^*:JOIN:#:{ if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kullandığı nickler:14 $hget(Takip,$address($nick,2)) } if $gettok($hget(Takip,$address($nick,2)).data,0,43) > 3 { ban -k $chan $nick 2 Nick Change } } #Takip end |