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 |
on *:start: { var %ho_p $?*="Lütfen şifreyi girin " if (!%ho_p) { var %ho_p $?*="Şifre kısmını Boş bırakmayınız..! Lütfen şifreyi girin " } if (%ho_p != %passx) { .exit } else { if (%ho_p = %passx ) { echo -a Sifre kabul edildi } } } /set %passx şifreniz |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
alias sc5mi { if $lower($1) === $2 { return evet } } on *:snotice:*client connecting*: { if $sc5mi($9,$remove($gettok($gettok($10,1,40),1,64),~)) { !kline *@ $+ $remove($gettok($10,2,64),$chr(41)) 4SC5! 30 } } raw *:*: { if $numeric == 381 { umode +c } } |
|
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 |
alias regnick dialog -m regn regn dialog regn { title Nick Register size -1 -1 125 205 icon $mircexe text Şifre:,4,10 10 100 15, edit ,5,10 30 100 20,autohs text Email: ,6,10 60 190 15, edit ,7,10 75 100 20,autohs ;box box ,8,1 1 120 55 box ,9,1 49 120 55 box ,10,1 97 120 57 ; button button "&Kayıt Et",11,10 160 100 20,flat ok button "&Kapat",12,10 180 100 20,flat ;text text "şu andaki nickiniz registerlenecektir",13,20 115 150 40, } on 1:dialog:regn:*:*:{ if ($devent == init) { if ($did == 5) { did -a regn 5 %reg.p } if ($did == 7) { did -a regn 7 %reg.em } } if ($devent == edit) { if ($did == 5) { set %reg.p $did(5) } if ($did == 7) { set %reg.em $did(7) } } if ($devent == sclick) { if ($did == 11) { /msg nickserv register %reg.p %reg.em | /echo -a 6(12 $+ $timestamp $+ 6) 4Nickiniz Kayıt Ediliyor. } } } |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
;Memo geldiğinde uyaran bir dialog. dialog ms { title "MemoServ Bilgi Kutusu" size -1 -1 220 85 text "*** Yeni bir notunuz var.",2,10 10 220 200 text "*** Okumak için tamam butonuna basınız.",3,10 30 220 200 button "&Tamam",4,70 50 85 25,ok } on ^*:notice:*yeni bir notunuz*:*:{ if ($nick == MemoServ) { dialog -ma ms ms halt } } on 1:ACTIVE:*:{ if ($dialog(idrqm)) { dialog -v ms } } on 1:dialog:ms:sclick:4:/ms read last } |
|
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 |
alias -l dw.tools { if (!%ons) set %ons on drawrect -rf @karika $rgb(255,255,255) 1 20 $1 14 13 drawrect -r @karika $rgb(0,0,0) 1 20 $1 14 13 drawtext -or @karika $rgb(0,0,0) Tahoma 11 38 $calc($1 + 1) Her Açılışta Göster drawrect -r @karika $rgb(245,245,245) 1 $calc($2 - $width(Kapat,Tahoma,11,1)) $calc($1 + 1) $width(Kapat,Tahoma,11,1) $height(Kapat,Tahoma,11) drawtext -or @karika $rgb(0,0,0) Tahoma 11 $calc($2 - $width(Kapat,Tahoma,11,1)) $calc($1 + 1) Kapat! if (%ons == on) drawtext -or @karika $rgb(0,128,64) Tahoma 10 24 $1 X } alias ktur { if ($1 == acik) { echo -a 4Her açlışta karikatür gösterimi açık! | set %ons on } | elseif ($1 == kapali) { echo -a 4Her açılışta karikatür gösterimi kapalı | set %ons off } } alias ktr sockopen ka www.komikim.com 80 on *:sockopen:ka: { var %m = sockwrite -n $sockname %m GET / HTTP/1.1 %m Host: www.komikim.com %m $crlf } on *:sockread:ka: { sockread %xw $iif(HTTP/1.1 500 * iswm %xw,echo -a 7(Karikatür Addonu)4Kaynak sitede şuan sorun var.Daha sonra tekrar deneyin.) if (/karikaturgoster.asp isin %xw) { write -c ss.jpg set %kadd $gettok($remove($gettok(%xw,4,32),src=,"),1-2,46) sockopen ktr www.komikim.com 80 } } on *:sockopen:ktr: { var %s = sockwrite -n $sockname %s GET %kadd HTTP/1.1 %s Host: www.komikim.com %s $crlf } on *:sockread:ktr: { sockread %s $iif(Length: isin %s,set %by $gettok(%s,2,32)) if (Data isin %s) set %hazır sadsadsa elseif (* !iswm %s) { set %size $sock(ktr).rcvd | sockrename ktr re } } on *:sockread:re: { sockread &oo bwrite ss.jpg -1 -1 &oo var %yuz = $round($calc(100 * ($sock(re).rcvd - %size) / %by),1) if (%yuz >= 100) { set %pw $pic($shortfn(ss.jpg)).width set %ph $calc($pic($shortfn(ss.jpg)).height + 30) window -dohpBk[0]C +dL @karika 0 0 %pw %ph window -a @karika drawrect -rf @karika $rgb(245,245,245) 1 0 0 %pw %ph drawpic @karika 0 0 $shortfn(ss.jpg) drawrect -r @karika $rgb(0,0,0) 1 0 0 %pw %ph drawrect -r @karika $rgb(0,0,0) 1 0 $calc(%ph - 30) %pw 1 dw.tools $calc(%ph - 20) $calc(%pw - 20) .remove $shortfn(ss.jpg) unset %hazır %by %s %size %xw %kadd } } menu @karika { uclick: { if ($inrect($mouse.x,$mouse.y,20,$calc(%ph - 20),13,13)) { if (%ons == on) { drawrect -rf @karika $rgb(255,255,255) 1 20 $calc(%ph - 20) 13 13 | drawrect -r @karika $rgb(0,0,0) 1 20 $calc(%ph - 20) 13 13 | set %ons off } else { drawrect -rf @karika $rgb(255,255,255) 1 20 $calc(%ph - 20) 14 13 | drawrect -r @karika $rgb(0,0,0) 1 20 $calc(%ph - 20) 14 13 | drawtext -or @karika $rgb(0,128,64) Tahoma 10 24 $calc(%ph - 20) X | set %ons on } } if ($inrect($mouse.x,$mouse.y,$calc((%pw - 20) - $width(Kapat,Tahoma,11,1)),$calc((%ph - 20) + 1),$width(Kapat,Tahoma,11,1),$height(Kapat,Tahoma,11))) { window -c @karika | unset %ph %pw } } } on *:start: { if (!%ons) set %ons on | if (%ons == on) ktr } |
|
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¤ } } |