Code:

$cmd(delay)

Code:

$troll(delay)

Code:

############################################################################################################# # Troll v2.0 TCL by spithash@DALnet                                                                         # #                                                                                                           # # Gets troll quotes and makes people suffer!                                                                # # Version 2.0 is way different since there's no database in the file. It fetches the quotes by a website.   # # Also, you can ".chanset #channel +troll" to enable it.                                                    # # I added this just in case you don't want your trolls to be available globally.                            # ############################################################################################################# # Any official release of troll.tcl will be announced in http://forum.egghelp.org/viewtopic.php?t=17078     # # Official troll.tcl updates will be in egghelp.org's TCL archive,                                          # # Or here: http://bsdunix.info/spithash/troll/troll.tcl                                                     # # (Keep it to "puthelp" cause I didn't add any flood protection yet,                                        # # and it may cause your bot "Excess Flood" quit if it's in "putserv" or "putquick",                         # # if someone floods the !troll trigger or if the troll quote is too long.)                                  # ############################################################################################################# # Credits: special thanks to: username & speechles who helped me with this :)                               # ############################################################################################################# setudef flag troll # Troll antiflood #set troll(delay) "15"# Troll antiflood #bind pub - !troll parce proc parce {nick uhost hand chan text} {     if {[channel get $chan troll]} { # Troll antiflood #        if {[info exists troll(lasttime,$chan)] && [expr $troll(lasttime,$chan) + $troll(delay)] > [clock seconds]} {            putserv "NOTICE $nick :Next command only after [expr $troll(delay) - [expr [clock seconds] - $troll(lasttime,$chan)]] seconds. Yon can use 1 request in $cmd(delay) seconds."            return 0        }# Troll antiflood #::http::config -urlencoding utf-8 -useragent "Mozilla/5.0 (X11; U; Linux i686; ru-RU; rv:1.8.1) Gecko/2006101023 Firefox/2.0" set url [::http::geturl "http://rolloffle.churchburning.org/troll_me.php" -timeout 15000] set data [::http::data $url] ::http::cleanup $url regsub -all -- {\n} $data "" data; regexp -nocase -- {<p .*?>(.*?)</p>} $data -> info regsub -all -- {(<strong[^>]*>)|(</strong>)} $info "\002" info; # Troll antiflood #    set troll(lasttime,$chan) [clock seconds] # Troll antiflood #while { $info != "" } {     puthelp "PRIVMSG $chan :[string range $info 0 419]"     set info [string range $info 420 end]     }  } } putlog "troll.tcl v2.0 by spithash@DALnet iz up and trollin'" # EOF

Code:

############################################################################################################## Troll v2.0 TCL by spithash@DALnet                                                                         ##                                                                                                           ## Gets troll quotes and makes people suffer!                                                                ## Version 2.0 is way different since there's no database in the file. It fetches the quotes by a website.   ## Also, you can ".chanset #channel +troll" to enable it.                                                    ## I added this just in case you don't want your trolls to be available globally.                            ############################################################################################################### Any official release of troll.tcl will be announced in http://forum.egghelp.org/viewtopic.php?t=17078     ## Official troll.tcl updates will be in egghelp.org's TCL archive,                                          ## Or here: http://bsdunix.info/spithash/troll/troll.tcl                                                     ## (Keep it to "puthelp" cause I didn't add any flood protection yet,                                        ## and it may cause your bot "Excess Flood" quit if it's in "putserv" or "putquick",                         ## if someone floods the !troll trigger or if the troll quote is too long.)                                  ############################################################################################################### Credits: special thanks to: username & speechles who helped me with this :)                               ##############################################################################################################setudef flag trollbind pub - !troll parceproc parce {nick uhost hand chan text} {    if {[channel get $chan troll]} {::http::config -urlencoding utf-8 -useragent "Mozilla/5.0 (X11; U; Linux i686; ru-RU; rv:1.8.1) Gecko/2006101023 Firefox/2.0"set url [::http::geturl "http://rolloffle.churchburning.org/troll_me.php" -timeout 15000]set data [::http::data $url]::http::cleanup $urlregsub -all -- {\n} $data "" data;regexp -nocase -- {<p .*?>(.*?)</p>} $data -> inforegsub -all -- {(<strong[^>]*>)|(</strong>)} $info "\002" info;while { $info != "" } {     puthelp "PRIVMSG $chan :[string range $info 0 419]"    set info [string range $info 420 end]    }  }}putlog "troll.tcl v2.0 by spithash@DALnet iz up and trollin'"# EOF