egghelp/eggheads community

Qur'an And Hadeeth Script

2014-12-02T04:30:53-04:00

link is broken please updated link
i needed tcl that

Statistics: Posted by abah — Tue Dec 02, 2014 4:30 am

Qur'an And Hadeeth Script

2007-09-11T13:46:29-04:00

This script is a normal script saying out random lines at different intervals and reads a database from the text file @ "tmp/Quran.txt"

So basically Hesham, you have to build your own database (if you cannot find an archive online) and the rest you can use this script (rather obsolete and too over complicated though) display your ayat and hadeeth lines from quran on your channels.

I have already uploaded the Database see the link please. Database means the whole Quran, which is not easy to write.

http://love.musicpk.com/Quran.zip

It contains Qurant.txt and the TCL.

Statistics: Posted by iamdeath — Tue Sep 11, 2007 1:46 pm

Qur'an And Hadeeth Script

2007-09-11T04:15:15-04:00

This script is a normal script saying out random lines at different intervals and reads a database from the text file @ "tmp/Quran.txt"

So basically Hesham, you have to build your own database (if you cannot find an archive online) and the rest you can use this script (rather obsolete and too over complicated though) display your ayat and hadeeth lines from quran on your channels.

Statistics: Posted by awyeah — Tue Sep 11, 2007 4:15 am

woow!

2007-09-10T10:33:47-04:00

@iamdeath thx bro, now i've found it!

Statistics: Posted by ZEXEL — Mon Sep 10, 2007 10:33 am

Qur'an And Hadeeth Script

2007-09-10T08:15:18-04:00

This script was basically written by one of my friend and me on the request of #karachi channel @ Undernet. It's old I am not sure neither I gurantee will work or not, I don't have time to fix it either, if other legendary coders can take out their precious time for you to fix it then it's upto you. I searched for this TCL and the source and I uploaded it for you.

Code:

#####################################################                      Quran                       ######################################################## Variablesset quran(interval) "2"set quran(intervall) "20"set quran(characters) "190"set quran(database.txt) "tmp/Quran.txt" ### Eventsbind pub - "!quran" quran:procbind pub - "!autoplay" autoplay:proc### Commandsproc quran:proc {nick uhost handle chan text} {  global quran  if {[lindex [split "$text" ":"] 0] != "" && [lindex [split "$text" ":"] 1] != ""} {    if {[file exists "$quran(database.txt)"] == "1"} {      set quran(found) "NO"      set txt "[open "$quran(database.txt)" r]"      for {set x 0} {![eof $txt]} {incr x} {        gets $txt line        if {[lindex [split "$text" ":"] 0] == [lindex [split $line ":"] 1] && [lindex [split "$text" ":"] 1] == [lindex [split $line ":"] 2]} {          set quran(found) "YES"          set line "[lindex [split $line "¤"] 0]"          if {[string length "$line"] > "200"} { quran:divide $nick $chan $line } else { puthelp "PRIVMSG $chan :[lindex "$line" 0] [lrange "$line" 1 end]" }          break        }      }      if {$quran(found) == "NO"} { puthelp "PRIVMSG $chan :INVALID ENTRY: Retry!" }      close $txt    } else { putlog "ERROR: File \"$quran(database.txt)\" not found!" }  } else { puthelp "PRIVMSG $chan :Use: !quran :" }}proc quran:divide {nick chan text} {  global quran  set word "1"  set sentence "1"  while {$sentence <= [expr [string length "$text"] / $quran(characters)]} {    set line "[lindex "$text" $word]"    while {$word < "2000"} {      incr word      set line "$line [lindex "$text" $word]"      if {[string length "$line"] > "$quran(characters)"} { utimer [expr $sentence * $quran(interval)] "puthelp {PRIVMSG $chan :[lindex "$text" 0] $line}" ; break }    }    incr word    incr sentence  }  if {[lrange "$text" $word end] != ""} { utimer [expr $sentence * $quran(interval)] "puthelp {PRIVMSG $chan :[lindex "$text" 0] [lrange "$text" $word end]}" }}proc autoplay:proc {nick uhost handle chan text} {  global quran  if {[isop $nick $chan] || [isvoice $nick $chan]} {    if {$text != ""} {      if {$text == "stop"} {        foreach utimer [utimers] { if {[string match "*quran:proc *" $utimer]} { killutimer [lindex $utimer end] } }        puthelp "PRIVMSG $chan :All TIMERS stopped!"      } else {        foreach utimer [utimers] { if {[string match "*quran:proc *" $utimer]} { puthelp "PRIVMSG $chan :Busy: Retry later!" ; return 0 } }        if {[file exists "$quran(database.txt)"] == "1"} {          set t "0"          set quran(found) "NO"          set txt "[open "$quran(database.txt)" r]"          for {set x 0} {![eof $txt]} {incr x} {            gets $txt line            if {$text == [lindex [split $line ":"] 1]} {              set quran(found) "YES"              utimer [expr $t * $quran(intervall)] "quran:proc $nick $uhost $handle $chan [lindex [split $line ":"] 1]:[lindex [split $line ":"] 2]"              incr t            }          }          if {$quran(found) == "NO"} { puthelp "PRIVMSG $chan :INVALID ENTRY: Retry!" }          close $txt        } else { putlog "ERROR: File \"$quran(database.txt)\" not found!" }      }    } else { puthelp "PRIVMSG $chan :Use: !autoplay " }  }}putlog "TCL Quran.tcl Loaded!"

And here is the link of Quran Source.

Complete Holy QURAN & Quran.tcl

Thanks
iamdeath

Statistics: Posted by iamdeath — Sun Sep 09, 2007 4:25 pm

Qur'an And Hadeeth Script

2007-09-09T13:56:09-04:00

The script is the easy part.. Finding a suitable data source is the real trick. There's an existing bible script in the archive, that uses data from ebible.org's downloadable text file version. Find a data source, whether a text file or a website, and we can easily make a script for it.

Statistics: Posted by rosc2112 — Sun Sep 09, 2007 1:56 pm

Qur'an And Hadeeth Script

2007-09-09T06:05:57-04:00

I once wrote a script for Quran, I will go through my older hard disk and let you know if I still have it. You may need to wait a few days.

Thanks
iamdeath

Statistics: Posted by iamdeath — Sun Sep 09, 2007 6:05 am

Qur'an And Hadeeth Script

2007-09-08T18:08:01-04:00

It's your job to find a source. If you're talking about a web page, then you'll need to find a site and ask for someone to write a script to parse it.

Statistics: Posted by Sir_Fz — Sat Sep 08, 2007 6:08 pm

Qur'an And Hadeeth Script

2007-09-08T03:58:38-04:00

good idea i was thinking about that.. but still need a source { perfect source } of ayat & hadeeth .. do you know any source that can be readable by script?

Statistics: Posted by Hesham — Sat Sep 08, 2007 3:58 am

Qur'an And Hadeeth Script

2007-09-08T03:55:10-04:00

Search the Tcl Archive for a random quotes/messages script and replace the messages with the Ayat or Hadeeth.

Statistics: Posted by Sir_Fz — Sat Sep 08, 2007 3:55 am

Qur'an And Hadeeth Script

2007-09-08T03:46:23-04:00

Hello..
need a script for eggdrop that sends random ayat of Quran or Hadeeth to the channel

Thanks

Statistics: Posted by Hesham — Sat Sep 08, 2007 3:46 am