mIRC İçin Kuran Ayetleri (Türkçe) Remote
|
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 } |