LineS | 22 Temmuz 2012 13:33 | kuran ayetleri türkçe Kodun amacı merak ettiğiniz kuran ayetlerini özelinize yansıtmasıdır
Bot sistemi üzerine kodlanmış olup kanalda veya özel penceresinde !ayt aranacak ayet ismi şeklinde calısmaktatır
örnek: Kod:
!ayt ezan
!ayet hac
!ayt kıyamet Şeklinde kullanılabilir.
Gelen veriler'in uzunlugu önceden kestirilemediği için 20 kelimelik satırlar halinde yansıtma uygulanacaktır sorguyu yapan kişi özeline veriler iletilecektir böylece rahatsızlık yaratılmamış olunacaktır
Beğenilen ayetlerden secmeler yapıp belge.txt içerisine atılırsa biri nick'inizi yazdığında kişiye ayetlerden bir kısım ıletilecektir tabi bu kısmı kullanmaya bilirsinizde
Koddaki bu kısmı bulup Kod:
Notice $nick 3,4Allah7'ın Sözü $regsubex($read(belge.txt),/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2)) Altta ki gibi ; koydugunuzda bukısım deaktif olacaktır Kod:
;Notice $nick 3,4Allah7'ın Sözü $regsubex($read(belge.txt),/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2)) } Muaf nick'ler içinde burdaki satıra ekleyebilirsiniz. Kod:
if !$istok(s-bot burcbot komiksoz sozbot kelime yarismaci soru bilemezki test ozelkoruma sirinfm,$nick,32) { Umarım faydalı olur geliştirmelere değiştirmelere her türlü kullanım izni serbestir hayırlı ramazanlar. Kod:
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, )
return %x
} |