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 Whois Uyarısı
|
1 2 3 4 5 6 7 8 9 10 11 12 |
on *:snotice:*/whois*on*you*:{ echo -a 6 $2 5 Whoisiniz Kontrol Ediliyor… notice $2 14 4 Dikkat: Başkalarının Özelini Karıştırmamalısın.6 $2 } on ^*:snotice:*: { if whois on you isin $1- { inc -u10 %whois. [ $+ [ $1 ] ] 1 if %whois. [ $+ [ $1 ] ] >= 2 { kill $2 0,4 .Whoisci . } } } |
» Devamını Oku
Türkçe Mirc Nick Değişim On 1:input:*:{ if ($1 == !degis) { msg $chan 0,18H9e7m11e13n 8D7e8g9i7ş9i7yo8ru11m .. .nick Test halt } }
» Devamını OkuTürkçe Mirc Nick Takip
|
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 |
» Devamını Oku
Bir kanalı takibe aldınız diyelim? Bu kod bu kanalda neleri takip eder? 1- Kanal’da voice/halfop/op veren veya alanları.(Tarihleri dahil) 2- Kanal’da ban atan/atılan veya banı açan/açılan’ları.(Tarihleri dahil) 3- Kanal’da atılan ban sayısını. 4- Kanal’a giren kullanıcı sayısını. 5- Kanal’dan çıkan kullanıcı sayısını. 6- Kanal’da bulunupta IRC’den çıkan sayısını. 7- Kanal’a kaç satır text gönderdildiğini. 8- Kanal’da kimin ne zaman nick […]
» Devamını OkumIRC te Büyük yazılar yazmak isterseniz ?
|
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 |
alias bigtext { if (!$1) { return } tokenize 9 $1- if ($0 == 1) { var %fc = 01, %bc = 00, %fs = 10, %ff = Fixedsys } else { if ($3) { var %fc = $gettok($2,1,32), %bc = $gettok($2,2,32), %fs = $gettok($3,1,32), %ff = $gettok($3,2-,32) } else { if ($gettok($2,2-,32) isnum) { var %fc = $gettok($2,1,32), %bc = $gettok($2,2,32), %fs = 10, %ff = Fixedsys } else { var %fs = $gettok($2,1,32), %ff = $gettok($2,2-,32), %fc = 01, %bc = 00 } } } if (%bc !isnum 0-15) { %bc = 00 } if (%fc !isnum 0-15) { %fc = 01 } if (!%ff || !$isfontinstalled($qt(%ff))) { %ff = Fixedsys } if (!%fs || %fs !isnum) { %fs = 10 } var %text = $1, %i 0, %y 0 %fc = $base(%fc,10,10,2) %bc = $base(%bc,10,10,2) window -hp @bigtext drawfill -r @bigtext $color(%bc) $color(%bc) 0 0 drawtext -brp @bigtext $color(%fc) $color(%bc) $qt(%ff) %fs 0 0 %text var %heightend = $height(%text,%ff,%fs) + 1, %widthend = $width(%text,%ff,%fs,0,1) + 1 while (%y <= %heightend) { var %x 0, %s = $null while (%x <= %widthend) { var %c = $iif($getdot(@bigtext,%x,%y) != $color(%bc),$coc($v1,%fc),%bc) if (%lc != %c) { var %lc = %c %c = $+($chr(3),%c,$chr(44),%c) } else %c = $null %s = $+(%s,%c,@) inc %x } %s = $+($chr(3),%bc,$chr(44),%bc,@,%s,$chr(3),%bc,$chr(44),%bc,@) if ($regex(%s,/\x03(?! $+ %bc $+ )/)) { msg $active %s inc %i } inc %y } window -c @bigtext } alias coc { var %i 0 while (%i < 16) { if ($color(%i) == $1) return $base(%i,10,10,2) inc %i } return $base($2,10,10,2) } ;Alias by praetorian. alias isfontinstalled { var %w = @isfontinstalled,%f = isfontinstalled.bmp window -ak0pBfh +d %w -1 -1 200 100 drawfill -r %w $rgb(0,0,0) $rgb(0,0,0) 0 0 drawtext -r %w $rgb(255,255,255) "this is surely not the name of an installed font" -9 5 5 test. drawsave %w %f var %crc = $crc(%f) clear %w drawfill -r %w $rgb(0,0,0) $rgb(0,0,0) 0 0 drawtext -r %w $rgb(255,255,255) $+(",$1,") -9 5 5 test. drawsave %w %f var %crc2 = $crc(%f) .remove %f window -c %w if (%crc != %crc2) { return $true } else { return $false } } |
Açılış Efekti (Starting)
|
1 2 3 4 5 6 7 8 9 |
on *:start:acilis alias acilis { window -aCBdop +deL @Acilis 10 10 400 150 .timerdegistir 0 0 /degistir } alias degistir { set %renk $rand(2,12) inc %xzy 1 if (%xzy <= 30) { goto harf1 } if (%xzy <= 60) { goto harf2 } if (%xzy <= 90) { goto harf3 } if (%xzy <= 120) { goto harf4 } if (%xzy <= 150) { goto harf5 } if (%xzy <= 180) { goto harf6 } if (%xzy <= 210) { goto harf7 } if (%xzy <= 250) { goto harf8 } if (%xzy == 251) { set %renk 1 | goto end } :harf1 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 $rand(A,Z) halt :harf2 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 $rand(a,z) halt :harf3 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 $rand(a,z) halt :harf4 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 $rand(a,z) halt :harf5 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 $rand(a,z) halt :harf6 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 $rand(a,z) halt :harf7 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 i drawtext @Acilis %renk Arial 100 235 25 $rand(a,z) halt :harf8 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 i drawtext @Acilis %renk Arial 100 235 25 n drawtext @Acilis %renk Arial 100 285 25 $rand(a,z) halt :end clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 i drawtext @Acilis %renk Arial 100 235 25 n drawtext @Acilis %renk Arial 100 285 25 g unset %xzy .timerdegistir off .timer 1 1 window -c @Acilis } Çalıştırma komutu : /acilis |
» Devamını Oku
irc kodu:
|
1 2 3 4 5 6 7 8 |
alias doldur { var %ik 1 var %ikss $3 while (%ikss >= %ik) { /sendraw $1 :: $+ $2 $+ $rand(0,10000) $+ $rand(0,10000) $+ ! $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ @ $+ $+ $rand(a,z) $+ $rand(0,10000) $+ . $+ $rand(A,Z) $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ .SUNUCUADI.Com join $1 dec %ikss } } |
» Devamını Oku