Changeset 37 for QuoteEngine

Timestamp:

04/16/07 04:46:13 (5 years ago)

Author:

notopic

Message:

add auto-quote-spewing stuff

File:

• QuoteEngine/QuoteEngine.tcl (modified) (5 diffs)

QuoteEngine/QuoteEngine.tcl

@@ -35 +35 @@
 # CHANGE ME (use blank if you're not using the PHP script)
 set php_page "http://sakaki.jamesoff.net/~notopic/"
+
+# automatically spew "relevant" quotes?
+set quote_automatic 1
+
+# minimum number of seconds between automatic quotes
+set quote_automatic_minimum 7200
 
 # bind commands CHANGE as needed
@@ -52 +58 @@
 bind pub "-|-" !quoteversion quote_version
 bind pub "-|-" !quotehelp quote_help
+bind pubm "-|ov" * quote_auto
 
 # a user with this flag(s) can't use the script at all
@@ -63 +70 @@
 #1.00
 set quote_version "cvs"
+set quote_auto_last(blah) 0
 
 #add setting to channel
@@ -235 +243 @@
 #   Find all quotes with "text" in them. (in random order)
 #   The first 5 (by default) are listed in the channel. The rest are /msg'd to
-#   you up to the maxiumum (default 5).
+#   you up to the maximum (default 5).
 #     --all: Search all channels, not just current one
 #     --channel: Search given channel
@@ -503 +511 @@
 }
 
+proc quote_auto { nick host handle channel text } {
+        global quote_automatic
+        if {$quote_automatic == 0} {
+                return
+        }
+
+  if {![channel get $channel quoteengine]} {
+                return
+        }
+
+        global quote_auto_last db_handle
+        if [info exists quote_auto_last($channel)] {
+                set diff [expr [clock seconds] - $quote_auto_last($channel)]
+        } else {
+                set diff 3601
+                set quote_auto_last($channel) 0
+        }
+
+        if {$diff < 3600} {
+                return
+        }
+
+        set words [split $text]
+        set newwords [list]
+
+        foreach word $words {
+                if [regexp -nocase {^[a-z0-9']+$} $word] {
+                        if {[lsearch [list "about" "their" "there"] $word] > -1} {
+                                continue
+                        }
+
+                        if [onchan $word] {
+                                continue
+                        }
+
+                        if {[string length $word] > 4} {
+                                lappend newwords [mysqlescape $word]
+                        }
+                }
+        }
+
+        if {[llength $newwords] == 0} {
+                return
+        }
+
+        putloglev d * "quoteengine: candidate words for random quote in $channel: $newwords"
+
+        if {![quote_ping]} {
+                return
+        }
+
+        set thisword [pickRandom $newwords]
+        putloglev d * "quoteengine: using $thisword"
+
+        if {[rand 100] < 95} {
+                putloglev d * "quoteengine: not random enough, ignoring"
+                return
+        }
+
+        
+        set where_clause "WHERE channel='[mysqlescape $channel]' AND quote LIKE '%$thisword%' ORDER BY RAND() LIMIT 1"
+        putloglev d * "quoteengine: $where_clause"
+        set sql "SELECT * FROM quotes $where_clause"
+
+        set result [mysqlquery $db_handle $sql]
+        if {[set row [mysqlnext $result]] != ""} {
+                set id [lindex $row 0]
+                set quote [lindex $row 3]
+
+                putlog "RANDOM QUOTE: $quote ($id)"
+                puthelp "PRIVMSG $channel :\[\002$id\002\] $quote"
+                set quote_auto_last($channel) [clock seconds]
+        }
+        mysqlendquery $result
+
+}
+
+
 quote_connect
 putlog "QuoteEngine $quote_version loaded"