Ş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
Muaf nick'ler içinde burdaki satıra ekleyebilirsiniz.
Umarım faydalı olur geliştirmelere değiştirmelere her türlü kullanım izni serbestir hayırlı ramazanlar.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
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
}