putquick "privmsg $::kanal :++++++++++++++++++++++++"
hadisver privmsg $::kanal "\0030,4 Hadisi Şerif \003 \00314 [string map {"\{" "" "\}" ""} [lrange $hadisal 2 end]] \003"
putquick "privmsg $::kanal :++++++++++++++++++++++++"
} else {
hadis $d $s $g $a $y
}
}
set sureler {
"\002 KURAN-I KERİM MEALİ \002"
"\003"
"\0034 1-\003Fatiha |\0034 2-\003Bakara |\0034 3-\003Al-i İmran |\0034 4-\003Nisa |\0034 5-\003Maide |\0034 6-\003Enam |\0034 7-\003Araf |\0034 8-\003Enfal |\0034 9-\003Tevbe |\0034 10-\003Yunus"
"\003"
"\0034 11-\003Hud |\0034 12-\003Yusuf |\0034 13-\003Rad |\0034 14-\003İbrahim |\0034 15-\003Hicr |\0034 16-\003Nahl |\0034 17-\003İsra |\0034 18-\003Kehf |\0034 19-\003Meryem |\0034 20-\003Taha"
"\003"
"\0034 21-\003Enbiya |\0034 22-\003\003Hac |\0034 23-\003Muminun |\0034 24-\003Nur |\0034 25-\003Furkan |\0034 26-\003Suara |\0034 27-\003Neml |\0034 28-\003Kasas |\0034 29-\003Ankebut |\0034 30-\003Rum"
"\003"
"\0034 31-\003Lokman |\0034 32-\003\003Secde |\0034 33-\003Ahzab |\0034 34-\003Sebe |\0034 35-\003Fatir |\0034 36-\003Yasin |\0034 37-\003Saffat |\0034 38-\003Sad |\0034 39-\003Zümer |\0034 40-\003Mümin"
"\003"
"\0034 41-\003Fusilet |\0034 42-\003\003Şura |\0034 43-\003Zuhruf |\0034 44-\003Duhan |\0034 45-\003Casiye |\0034 46-\003Ahkaf |\0034 47-\003Muhammed |\0034 48-\003Fetih |\0034 49-\003Hucurat |\0034 50-\003Kaf"
"\003"
"\0034 51-\003Zariyat |\0034 52-\003\003Tur |\0034 53-\003Necm |\0034 54-\003Kamer |\0034 55-\003Rahman |\0034 56-\003Vakia |\0034 57-\003Hadid |\0034 58-\003Mucadele |\0034 59-\003Hasr |\0034 60-\003Mumtehine"
"\003"
"\0034 61-\003Saff |\0034 62-\003\003Cuma |\0034 63-\003Munafikun |\0034 64-\003Tegabun |\0034 65-\003Talak |\0034 66-\003Tahrim |\0034 67-\003Mülk |\0034 68-\003Kalem |\0034 69-\003Hakka |\0034 70-\003Mearic"
"\003"
"\0034 71-\003Nuh |\0034 72-\003\003Cin |\0034 73-\003Müzzemmil |\0034 74-\003Muddessir |\0034 75-\003Kıyame |\0034 76-\003İnsan |\0034 77-\003Murselat |\0034 78-\003Nebe |\0034 79-\003Naziat |\0034 80-\003Abese"
"\003"
"\0034 81-\003Tekvir |\0034 82-\003\003İnfitar |\0034 83-\003Mütaffirin |\0034 84-\003İnşikak |\0034 85-\003Büruc |\0034 86-\003Tarık |\0034 87-\003A'la |\0034 88-\003Gasiye |\0034 89-\003Fecr |\0034 90-\003Beled"
"\003"
"\0034 91-\003Şems |\0034 92-\003\003Lehl |\0034 93-\003Duha |\0034 94-\003İnşirah |\0034 95-\003Tin |\0034 96-\003Alak |\0034 97-\003Kadr |\0034 98-\003Beyyine |\0034 99-\003Zilzal |\0034 100-\003Adiyat"
"\003"
"\0034 101-\003Karia |\0034 102-\003\003Tekasur |\0034 103-\003Asr |\0034 104-\003Hümeze |\0034 105-\003Fil |\0034 106-\003Kureyş |\0034 107-\003Maun |\0034 108-\003Kevser |\0034 109-\003Kafirun |\0034 110-\003Nasr"
"\003"
"\0034 111-\003Tebbet |\0034 112-\003\003İhlas |\0034 113-\003Felak |\0034 114-\003Nas"
"\003"
}
proc meal {n u h a} {
foreach sureliste $::sureler {
putquick "privmsg $n :$sureliste"
}
}
proc ayet {nick host hand text} {
if {$text < 115} {
set suresite [::http::geturl https://www.kurandan.com/kk/1fatiha.htm -timeout 5000]
set suredata [::http::data $suresite]
::http::cleanup $suresite
set sureayir [string range $suredata [expr [string first "Sure'ler 1 - 10" $suredata]] [expr [string last "Konular ve Ayetler" $suredata]]]
while {[regexp -- {
if {[string match -nocase "*$text*" $sayi] } {
set suresite [::http::geturl https://www.kurandan.com/kk/$sayi -timeout 5000]
set suredata [string map -nocase {"scope=\"col\">
" "\n"} [::http::data $suresite]]
::http::cleanup $suresite
set sureara [string range $suredata [expr [string first "Bismillâhirrahmânirrahîm
" $suredata]] [expr [string last "" $suredata]]]
putquick "privmsg $nick :\002\0034$sureismi SURESİ\002\003"
set surex 0
foreach surever [split [harfdecode $sureara] \n] {
if {$surex == 0} {
putquick "privmsg $nick :\002$surever\002"
} else {
putquick "privmsg $nick :[string trimright [string trim $surever] "<"]"
}
incr surex
}
break
}
}
}
}
proc harfdecode {harfler} {
regsub -all "
regsub -all "
" $harfler "" harflerputquick "privmsg $nick :\002\0034$sureismi SURESİ\002\003"
set surex 0
foreach surever [split [harfdecode $sureara] \n] {
if {$surex == 0} {
putquick "privmsg $nick :\002$surever\002"
} else {
putquick "privmsg $nick :[string trimright [string trim $surever] "<"]"
}
incr surex
}
break
}
}
}
}
proc harfdecode {harfler} {
regsub -all "
" $harfler "" harfler
regsub -all "" $harfler "" harfler
regsub -all "
regsub -all "
regsub -all "" $harfler "" harfler
regsub -all " " $harfler "" harfler
regsub -all "" $harfler "" harfler
regsub -all "" $harfler "" harfler
regsub -all "
" $harfler "" harfler
regsub -all "" $harfler "" harfler
regsub -all " " $harfler "" harfler
regsub -all "
regsub -all "
regsub -all "
regsub -all "