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 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... } } |
|
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 |
on @shit:join:#:{ ban $chan $nick 2 kick $chan $nick 4Düşman Listemdesin…! echo -a 12*** Düşman Listenizdeki 4 $+ $nick 12 $+ $chan Kanalına Girdi. Ve Atıldı. } alias shitlist { /dialog -m shitlist shitlist } dialog shitlist { title “DeLimIRC - Düşman Listesi” size -1 -1 136 99 option dbu box “Nick:”, 6, 66 0 68 97 button “Ekle(+)”, 4, 82 25 39 11 button “Kaldır(-)”, 10, 82 41 39 11 edit “”, 1, 70 8 61 10, autohs button “&Tamam”, 3, 82 70 39 18, ok default list 2, 5 3 57 83, size ; check “Düşman Listesi Aktif”, 5, 5 90 57 6 } on 1:dialog:shitlist:init:0: { unset %vo1 shitkontrol } on 1:dialog:shitlist:sclick:4: { .auser shit $did(1) did -a shitlist 2 $did(1) ; shitkontrol } on 1:dialog:shitlist:sclick:10: { .ruser shit $did(2,$did(2).sel) did -r shitlist 2 shitkontrol } alias shitkontrol { goto shitlist :shitlist inc %vo1 if ($ulist(*,shit,%vo1) == $null) { unset %vo1 | halt } did -a shitlist 2 $ulist(*,shit,%vo1) goto shitlist } |
» Devamını Oku