egghelp.org community :: View topic - !addquote word count limit

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

!addquote word count limit

egghelp.org community Forum Index -> Scripting Help

View previous topic :: View next topic

Author

Message

Elements
Voice

Joined: 19 Mar 2009
Posts: 12

Posted: Thu Jan 13, 2011 10:43 am Post subject: !addquote word count limit

there seems to be a limit in how many words per quote the script can take as input,
but i also noticed that in other quote scripts so i guess is a general limit,
can this be fixed ?

Code:

#################################################################################################
# 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 codeninja68@gmail.com #
# #
#################################################################################################

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"

Display posts from previous:

	egghelp.org community Forum Index -> Scripting Help	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum