Türkçe mirc resmi adresi TurkIRC. Mirc indir, mirc sohbet, mirc chat odaları, mirc addonları, IRC Client komutları alanında kaliteli hizmet vermektedir.
Turkirc.com, Mirc indir Sohbet odalarına Hoşgeldiniz Mirc Nedir? IRC’yi kullanmak için küçük bir programa (mIRC) yada web chatlere ihtiyacınız var. mIRC oldukça kullanışlı bir IRC programıdır. mIRC’i bedava olarak Turkirc.com ‘den indirebilirsiniz.
» 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 23 24 25 26 |
ON ^*:TEXT:*:*: { var %coco = 1 var %metin = $strip($1-) if (%kelime = http://www.,.net,.com,a.k,köpek,piç,deneme/) { ;kelimeler örnek olarak eklendi bunları while yada hget ile de faklı biçimlerde kullanbilirsiniz. while $gettok(%kelime,%coco,44) { if ($v1 isin %metin) { var %metin = $replace(%metin,$v1,14*****) ;**** lı olan kısma alt+160 boş TAB karekterini kullanarak hiç bir yazı da görüntületmeyebilirsiniz. Tavsiye etmem. kişinin ne yazdıgı merak edilebilir inc %coco } } } if (***** isin %metin) { ;eger karakteri alt+160 ile ayarlarsanı yukarıdaki **** ları da aynı yapmalısınız. echo -tbf $iif($chan,$v1,$nick) $+(<,$nick,>) %metin ;$+(<,$nick,>) kısmını $+([,$nick,]) gibi temanıza göre ayarlayabilirsiniz. haltdef } } return %y } |
|
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 |
on *^:join:#:{ ;multi join[tüm adresler] inc $+(-u,$ccrc(mjhafıza)) %mjj. [ $+ [ $chan ] ] $ccrc(mjaveraj) if (%mj- [ $+ [ $chan ] ] >= $ccrc(mjlimit)) { mode $chan +l $calc($nick(#,0) - %mjj. [ $+ [ $chan ] ]) .unset %mjj. [ $+ [ $nick ] ] } ;Clone join tek adres.. var %ad = $wildsite inc $+(-u,$ccrc(cjhafıza)) %mj. [ $+ [ %ad ] ] $ccrc(cjaveraj) if (%mj. [ $+ [ %ad ] ] >= $ccrc(cjlimit)) { echo -t $chan %ad $color(info) adresinden massjoin: $+(%mj. [ $+ [ %ad ] ] ) mode $chan +b %ad unset %mj. [ $+ [ %ad ] ] } } alias ccrc { goto $1 ;### Multi join conf :mjhafıza { RETURN 2 } :mjaveraj { ;bu rakamı degiştirmeyin.. RETURN 1 } :mjlimit { RETURN 6 } ;### Clone join conf :cjhafıza { RETURN 1 } :cjaveraj { ;bu rakamı değiştirmeyin.. RETURN 1 } :cjlimit { RETURN 2 } } |
|
1 2 3 4 5 6 7 8 9 10 11 12 |
*\Bu kod ile sunucuya giriş yapanlara whois çeker ve fullname kısmında reklam bulunan kişileri size bildirir*\ Raw 352:*: { if $regex($upper($strip($9-)),İRCDE|.COM|WWW.|HTTP:|.ORG) && $regex($strip($2),/#) { var %ö 1 while %ö <= $comchan($6,0) { msg #x $comchan($6,%ö) $6 4FULLNAME'de Reklam Tespit Edildi.14 mIRCHane inc %ö } } } on *:JOIN:#:{ if ($nick = $me) { timer 1 20 checkstatus # } | else { if ($me isop #) { who $nick } } } |
|
1 2 3 4 5 6 |
on *:input:*: { if /* !iswm $1- && !$inpaste && status !isin $active && @* !iswm $active { say $regsubex($1-,/(?<=^|\s)(.)/g,$+(,$upper(\1),)) halt } } |
|
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 |
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 m drawtext @Acilis %renk Arial 100 70 25 $rand(a,z) halt :harf3 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 $rand(a,z) halt :harf4 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 R drawtext @Acilis %renk Arial 100 150 25 $rand(a,z) halt :harf5 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 R drawtext @Acilis %renk Arial 100 150 25 C drawtext @Acilis %renk Arial 100 190 25 $rand(a,z) halt :harf6 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 R drawtext @Acilis %renk Arial 100 150 25 C drawtext @Acilis %renk Arial 100 190 25 H drawtext @Acilis %renk Arial 100 220 25 $rand(a,z) halt :harf7 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 R drawtext @Acilis %renk Arial 100 150 25 C drawtext @Acilis %renk Arial 100 190 25 H drawtext @Acilis %renk Arial 100 220 25 a drawtext @Acilis %renk Arial 100 235 25 $rand(a,z) halt :harf8 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 R drawtext @Acilis %renk Arial 100 150 25 C drawtext @Acilis %renk Arial 100 190 25 H drawtext @Acilis %renk Arial 100 220 25 a 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 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 R drawtext @Acilis %renk Arial 100 150 25 C drawtext @Acilis %renk Arial 100 190 25 H drawtext @Acilis %renk Arial 100 220 25 A drawtext @Acilis %renk Arial 100 235 25 n drawtext @Acilis %renk Arial 100 285 25 e unset %xzy .timerdegistir off .timer 1 1 window -c @Acilis } |