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 Yenilikçi Tasarımı ve şık görüntüsü ile dikkatleri üstüne çeken HTC,HTC M7 modelinin evrimleştiği ve daha iyiye ulaşmak amacıyla HTC One serisinin son modeli HTC M8 tüm akıllı telefon severlere tanıttı.Yüksek Kalite tek parça metal gövdesi , 5 inçlik ekranı , kurşun rengi ile göz dolduran HTC M8 , 2014 yılına damgasını vurcak gibi gözüküyor. DuoKamera teknolojisi yaratıcı ve […]
» Devamını Okutürkçe mirc türkçe mirc indir mirc indir mIRC tam özellikli bir internet sohbet ve chat iletişim aracıdır. İnternet dünyasının en eski ve en popüler mesajlaşma (chat, sohbet, haberleşme) programlarından biri olan mIRC, IRC sunucularına bağlanarak server üzerindeki odalarda toplu mesajlaşmanıza ve kişilerle birebir konuşmanıza imkanı sağlıyor. Türkçe mirc programı Turkirc.com tarafından codelenmiş lisanslı bir programdır.
» Devamını Okutürkçe mirc mirc indir Türkçe mirc indir Türkçe Sohbet odalarımıza Hoşgeldiniz Sohbet Odalarımız ”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ı Okuraw 322:*:{ if !$istok(#oyun #radyo #operhelp #opers #helper #help,$2,32) { if (www. isin $4-) || (gen.tr isin $4-) || (.org isin $4-) || (http: isin $4-) || (com. isin $4-) || (com.tr isin $4-) || (net. isin $4-) { $iif(!$window(@topic-reklam),window -en @Topic-Reklam) echo @Topic-Reklam 4 $2 10Kanal Topic’inde 4Reklam Tesbiti.!! echo @Topic-Reklam 10Kanal Topic => $4- | echo @Topic-Reklam 4- } } }
» Devamını Oku|
1 2 3 4 5 6 7 8 9 10 11 |
on *:start:.timer 0 1 timeback alias timeback { window -dHhBp +d @saat 0 0 180 60 drawtext -ro @saat $rgb(241,111,198) Arial 20 50 0 $time drawtext -ro @saat $rgb(241,111,198) Arial 10 25 22 $+($chr(40),$asctime($ctime,dd) $trans(month,$asctime($ctime,mmmm)) $trans(day,$day) $asctime($ctime,yyyy),$chr(41)) drawsave -b32 @saat saat.bmp | window -c @saat | background -s saat.bmp } alias trans { if ($regex($1,^(day)$)) return $replacecs($day,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar) if ($regex($1,^(month)$)) return $replacecs($asctime($ctime,mmmm),January,Ocak,February,Şubat,March,Mart,April,Nisan,May,Mayıs,June,Haziran,July,Temmuz,August,Ağustos,September,Eylül,October,Ekim,November,Kasım,December,Aralık) } |
|
1 2 |
Kodun amacı merak ettiğiniz kuran ayetlerini özelinize yansıtmasıdır Bot sistemi üzerine kodlanmış olup kanalda veya özel penceresinde <b>!ayt</b> aranacak <b>ayet</b> ismi şeklinde calısmaktatır |
|
1 2 3 4 5 6 7 |
!ayt ezan !ayet hac !ayt kıyamet Seklinde kullanılmaktadır Ve Kod: |
|
1 |
alias tr { var %v 10 | set %s 1 | var %ft 1, %x 1, %d 1 set %t $gettok($read(gg.txt,%s),0,32) var %ff $left($gettok($read(gg.txt,%s),0,32),1) while %x <= %t { .timer 1 %ft msg %nic $gettok($read(gg.txt,%s), $+ %x $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3) var %v $calc(%v + 10) if (%ff == %d) { .timer 1 %ft gh } inc %x 10 inc %d } } alias gh { set %s $calc(%s + 1) set %t $gettok($read(gg.txt,%s),0,32) tg } alias tg { var %ft 1, %v 10, %i 1, %ı 1 var %ff $left($gettok($read(gg.txt,%s),0,32),1) while %i <= %t { .timer 1 %ft msg %nic $gettok($read(gg.txt,%s), $+ %i $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3) var %v $calc(%v + 10) if (%ff == %ı) { .timer 1 %ft gh } inc %i 10 inc %ı } } on *:text:*:*: { if !$regex($nick,/(s-bot|burcbot|komiksoz|sozbot|Kelime|yarismaci|Soru|BiLemezki|test|OzelKoruma|SirinFm|chanserv|operserv)/i) { if $istok($1-,$me,32) { Notice $nick 3,4Allah7'ın Sözü $regsubex($read(belge.txt),/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2)) } if ($1 == !ayt) { set %nic $nick | set %ayet $replace($2-,ü,$chr(37) $+ FC,Ü,$chr(37) $+ DC,ö,$chr(37) $+ F6,Ö,$chr(37) $+ D6,ı,$chr(37) $+ FD,İ,$chr(37) $+ DD,ğ,$chr(37) $+ F0,Ğ,$chr(37) $+ D0,ş,$chr(37) $+ FE,Ş,$chr(37) $+ DE,ç,$chr(37) $+ E7,Ç,$chr(37) $+ C7) if !$2 { msg $chan Lütfen ayet konusunu belirtiniz. Örn; !ayt ezan | halt } if $sock(ayet) { msg %nic 3:-4Şu anda başka bir Ayet alınıyor lütfen daha sonra tekrar deneyiniz. | halt } ayet remove gg.txt } } } alias ayet { sockopen ayet meal.ihya.org 80 } on *:sockopen:ayet: { sockwrite -n $sockname GET /meal.php?t2=elmali&ara= $+ $strip(%ayet) $+ &sn=0&an=0 HTTP/1.1 sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */* sockwrite -n $sockname Referer: meal.ihya.org, Kuran, Kur'an, Kuran-i Kerim, kuranikerim, Quran, qur'an, Al qur'an, Quran, holyquran, holy, coran, kuruan, koran, corano,koraani, islam, muslim, allah, arabic, türkçe,meal, der heilige Koran, islam, muslim, chinese al qur'an, el sagra sockwrite -n $sockname Accept-Language: tr-TR sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0) sockwrite -n $sockname Host: meal.ihya.org sockwrite -n $sockname $crlf } on *:SOCKREAD:ayet: { var %a sockread %a if (<strong>ARAMA SONUCLARI: isin $strip(%a)) { msg %nic :- 3Uygun Ayetler Aranıyor } if (valign=top> isin $strip(%a)) { if ($findfile($mircdir,gg.txt,*) != 1) { write -c gg.txt $htmlfree(%a) } | else { write gg.txt $htmlfree(%a) } .timerde 1 5 tr } } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) return %x } |
|
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 |
on *:sockopen:whoiz:{ sockwrite -n $sockname GET /index.php?query= $+ %difyipno HTTP/1.1 sockwrite -n $sockname Host: www.iplocation.net $+ $crlf $+ $crlf sockwrite -n $sockname $clrf } on *:sockread:whoiz:{ if ($sockerr) { echo -a Veri alımında Hata oluştu. | halt } else { var %difi sockread %difi if (*Country*Region*City* iswm %difi) { set %dify $htmlfree($replace(%difi,</td>,$chr(32))) } elseif (*Registry*Information* iswm %difi) { sockclose whoiz if $regex(%dify,/Region City ISP (.+) Google Map for.+Geolocation data from/i) { set %difuzyon $regml(1) <span style="color: #4169e1">if !$window(@Whois) { window -adk0 +let @Whois 700 80 290 132 Verdana 12 | titlebar @Whois yerel bilgiler... } else { window -a @Whois } aline @Whois 11,1Nick1...11:8 %difyyerelnick 1.................................................... aline @Whois 11,1IP no1.11:8 $token(%difuzyon,1,32) 1..................................................... aline @Whois 11,1Ülke1...............11:9 $token(%difuzyon,2,32) 1............................................ aline @Whois 11,1Bölge1.............11:9 $token(%difuzyon,3,32) 1....................................... aline @Whois 11,1Şehir1..............11:9 $token(%difuzyon,4,32) 1...................................... aline @Whois 11,1Organizasyon:9 $token(%difuzyon,5-,32) 1................................................. aline @Whois 0,1----------------Bilgi Sonu------------------------------------------------------------</span> unset %dif* } } } } alias bağlantı { sockclose whoiz sockopen whoiz www.iplocation.net 80 } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) return %x } on *:snotice:*whois*on*you*: { if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) { hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41)) set -e %difyipno $remove($token($3,2,64),$chr(41)) set -e %difyyerelnick $2 bağlantı echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor... } } |