#################################################################################################
# CodeNinja Quote System v1.0.1                                                                 #
#                                                                                               #
# Commands (<required> [optional]):                                                             #
#  !addquote <quote> (adds a quote)                                                             #
#  !delquote <quote id> (deletes a quote)                                                       #
#  !quote [quote id] (gets a specific or random quote)                                          #
#  !findquote <regexp string> (find quotes matching regexp string)                              #
#  !lastquote (get the last quote added to the database)                                        #
#  !quoteauth <nick> (find quotes added by nick)                                                #
#  !quotechan <#chan> (find quotes added in #chan)                                              #
#                                                                                               #
# Changes                                                                                       #
#  v1.0.1                                                                                       #
#  -Quote file is automatically added upon adding first quote                                   #
#  -Fixed a bug with random quotes                                                              #
#  v1.0.2                                                                                       #
#  -Changed how search commands (e.g. !findquote, !quoteauth, and !quotechan) handle            #
#   excess results                                                                              #
#  -Fixed a var mix-up                                                                          #
#                                                                                               #
# For updates, check out https://sites.google.com/site/codeninjacodes/                          #
#                                                                                               #
# To report bugs, email me at [email protected]                                             #
#                                                                                               #
#################################################################################################

namespace eval codeninja {
    namespace eval quotesys {

        # File to store quotes in
        variable qfile "data/quote.txt"

        # Limit of lines before quote is sent to private instead of the channel
        variable plines 6

        # Use notice for private instead of message?
        variable notice 1

        # Maximum number of search results to display (0 for no limit)
        # WARNING: if you do not enable this there is a chance the bot will get booted from the
        # server if there are too many results
        variable flimit 15

        # Line divider to use when adding quotes
        variable div "|"

        # Command character
        variable cmdchar "!"

        # Flags required to delete quotes
        variable dflags "m"
    }
}

# END CONFIG - DO NOT EDIT BELOW THIS

namespace eval codeninja {
    namespace eval quotesys {
        variable ver "v1.0.1"
        proc add {nick uhost hand chan text} {
            if {[string trim $text] == ""} { putserv "PRIVMSG $chan :No quote specified"
                return
            }
            set filesock [open ${codeninja::quotesys::qfile} {WRONLY APPEND CREAT}]
            puts $filesock "\{$text\} $nick $chan [unixtime]"
            close $filesock

            putserv "PRIVMSG $chan :Quote added to storage file"
        }
        proc del {nick uhost hand chan text} {
            if {![regexp {^([0-9]+)$} $text]} { putserv "PRIVMSG $chan :Invalid quote ID"
                return
            }
            set filesock [open ${codeninja::quotesys::qfile} r]
            set quotelist [split [string trimright [read $filesock] "\n"] "\n"]
            close $filesock

            if {[lindex $quotelist [expr $text - 1]] == ""} { putserv "PRIVMSG $chan :Invalid quote ID"
                return
            }
            set filesock [open ${codeninja::quotesys::qfile} w]
            set x 0
            foreach quote $quotelist {
                if {$x != [expr $text - 1]} { puts $filesock [string trim $quote "\n"] }
                incr x
            }
            close $filesock
            putserv "PRIVMSG $chan :Quote $text deleted"
        }
        proc get {nick uhost hand chan text} {
            if {![file exists ${codeninja::quotesys::qfile}]} { putserv "PRIVMSG $chan :No quotes available."
                return
            }
            if {[string trim $text] == ""} {
                set filesock [open ${codeninja::quotesys::qfile} r]
                set quotes [split [string trimright [read $filesock] "\n"] "\n"]
                close $filesock

                set qi(id)  [rand [llength $quotes]]
                set qi(all) [lindex $quotes $qi(id)]
                incr qi(id)
                set qi(quote) [lindex $qi(all) 0]
                set qi(nick) [lindex $qi(all) 1]
                set qi(chan) [lindex $qi(all) 2]
                set qi(time) [lindex $qi(all) 3]
            } elseif {[regexp {^([0-9]+)$} $text]} {
                set filesock [open ${codeninja::quotesys::qfile} r]
                set quotes [split [string trimright [read $filesock] "\n"] "\n"]
                close $filesock

                if {$text > [llength $quotes] || $text < 1} { putserv "PRIVMSG $chan :That quote does not exist" }

                set qi(id) $text
                set qi(all) [lindex $quotes [expr $text - 1]]
                set qi(quote) [lindex $qi(all) 0]
                set qi(nick) [lindex $qi(all) 1]
                set qi(chan) [lindex $qi(all) 2]
                set qi(time) [lindex $qi(all) 3]
            } else { putserv "PRIVMSG $chan :Invalid quote ID"
                return
            }
            if {[llength [split $qi(quote) ${codeninja::quotesys::div}]] > 5} { set sendmeth "[pmnot] $nick" } else { set sendmeth "PRIVMSG $chan" }
            foreach line [split $qi(quote) ${codeninja::quotesys::div}] {
                putserv "$sendmeth :Quote $qi(id): $line"
            }
            putserv "$sendmeth :Added by $qi(nick) in $qi(chan) on [clock format $qi(time)]"
        }
        proc find {nick uhost hand chan text} {
            if {[string trim $text] == ""} { putserv "PRIVMSG $chan :What do you want to search for?"
                return
            }
            set filesock [open ${codeninja::quotesys::qfile} r]
            set quotes [split [string trimright [read $filesock] "\n"] "\n"]
            close $filesock

            set x 1
            set found ""
            foreach quote $quotes {
                if {[regexp -nocase $text [lindex $quote 0]]} { lappend found $x }
                incr x
            }
            if {$found == ""} { putserv "PRIVMSG $chan :No quotes found"
            } elseif {[llength $found] > ${codeninja::quotesys::flimit}} { putserv "PRIVMSG $chan :The following quotes matched your query: [lrange $found 0 [expr ${codeninja::quotesys::flimit} - 1]] (first ${codeninja::quotesys::flimit} shown)"
            } else { putserv "PRIVMSG $chan :The following quotes matched your query: $found" }
        }
        proc last {nick uhost hand chan text} {
            set filesock [open ${codeninja::quotesys::qfile} r]
            set quotes [split [string trimright [read $filesock] "\n"] "\n"]
            close $filesock

            set qi(id) [llength $quotes]
            set qi(all) [lindex $quotes [expr $qi(id) - 1]]
            set qi(quote) [lindex $qi(all) 0]
            set qi(nick) [lindex $qi(all) 1]
            set qi(chan) [lindex $qi(all) 2]
            set qi(time) [clock format [lindex $qi(all) 3]]

            if {[llength [split $qi(quote) ${codeninja::quotesys::div}]] > ${codeninja::quotesys::plines}} { set sendmeth "NOTICE $nick" } else { set sendmeth "PRIVMSG $chan" }
            foreach line [split $qi(quote) ${codeninja::quotesys::div}] {
                putserv "$sendmeth :Quote ${qi(id)}: $line"
            }
            putserv "$sendmeth :Added by $qi(nick) in $qi(chan) on $qi(time)"
        }
        proc total {nick uhost hand chan text} {
            set filesock [open ${codeninja::quotesys::qfile} r]
            set quotes [split [string trimright [read $filesock] "\n"] "\n"]
            close $filesock

            set total [llength $quotes]

            putserv "PRIVMSG $chan :There are $total quotes in my database"
        }
        proc listauth {nick uhost hand chan text} {
            if {$text == ""} { putserv "PRIVMSG $chan :Invalid syntax"
                return
            }
            set filesock [open ${codeninja::quotesys::qfile} r]
            set quotes [split [string trimright [read $filesock] "\n"] "\n"]
            close $filesock

            set match ""
            set qid 1
            foreach quote $quotes {
                if {[string match -nocase [lindex $quote 1] [lindex $text 0]]} {
                    lappend match $qid
                }
                incr qid
            }
            if {$match == ""} { putserv "PRIVMSG $chan :No quotes found by $text"
            } elseif {[llength $match] > ${codeninja::quotesys::flimit}} { putserv "PRIVMSG $chan :$text added the following quotes: [lrange $match 0 [expr ${codeninja::quotesys::flimit} - 1]] (first ${codeninja::quotesys::flimit} shown)"
            } else { putserv "PRIVMSG $chan :$text added the following quotes: $match" }
        }
        proc listchan {nick uhost hand chan text} {
            if {$text == ""} { set arg $chan } else { set arg [lindex $text 0] }
            set filesock [open ${codeninja::quotesys::qfile} r]
            set quotes [split [string trimright [read $filesock] "\n"] "\n"]
            close $filesock

            set match ""
            set qid 1

            foreach quote $quotes {
                if {[string match -nocase [lindex $quote 2] $arg]} {
                    lappend match $qid
                }
                incr qid
            }
            if {$match == ""} { putserv "PRIVMSG $chan :No quotes were added in $arg"
            } elseif {[llength $match] > ${codeninja::quotesys::plines}} { putserv "PRIVMSG $chan :The following quotes were added in $arg: [lrange $match 0 [expr ${codeninja::quotesys::flimit} - 1]] (first ${codeninja::quotesys::flimit} shown)"
            } else { putserv "PRIVMSG $chan :The following quotes were added in $arg: $match" }
        }
        proc pmnot {} {
            if {${codeninja::quotesys::notice} == 1} { return "NOTICE"
            } else { return "PRIVMSG" }
        }
    }
}

bind pub -|- ${codeninja::quotesys::cmdchar}addquote codeninja::quotesys::add
bind pub ${codeninja::quotesys::dflags} ${codeninja::quotesys::cmdchar}delquote codeninja::quotesys::del
bind pub -|- ${codeninja::quotesys::cmdchar}quote codeninja::quotesys::get
bind pub -|- ${codeninja::quotesys::cmdchar}findquote codeninja::quotesys::find
bind pub -|- ${codeninja::quotesys::cmdchar}lastquote codeninja::quotesys::last
bind pub -|- ${codeninja::quotesys::cmdchar}totalquotes codeninja::quotesys::total
bind pub -|- ${codeninja::quotesys::cmdchar}quoteauth codeninja::quotesys::listauth
bind pub -|- ${codeninja::quotesys::cmdchar}quotechan codeninja::quotesys::listchan

putlog "CodeNinja Quote System ${codeninja::quotesys::ver} loaded"