Advertising
Paste Description for troll.tcl version 2.1
troll.tcl v2.1 by spithash@DALnet #CodeMasters
- troll.tcl version 2.1
- Thursday, May 3rd, 2012 at 6:45:29am MDT
- #############################################################################################################
- # Troll v2.1 TCL by spithash@DALnet #
- #############################################################################################################
- # Gets troll quotes and makes people suffer! #
- #############################################################################################################
- # #
- # Version 2.1 (20.03.2012) #
- # #
- # Added flood protection. More like, throttle control. Special thanks to username. #
- # #
- # 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 #
- #############################################################################################################
- # Version 2.0 #
- # #
- # 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. #
- # #
- # (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 and arfer who helped me with this :) #
- #############################################################################################################
- # Channel flag.
- setudef flag troll
- # Set the time (in seconds) between commands.
- set delay 10
- bind pub - !troll parse
- proc parse {nick uhost hand chan text} {
- global delay
- variable troll
- if {![channel get $chan troll]} {
- return 0
- }
- if {[info exists troll(lasttime,$chan)] && [expr $troll(lasttime,$chan) + $delay] > [clock seconds]} {
- putserv "NOTICE $nick :You can use only 1 command in $delay seconds. Wait [expr $delay - [expr [clock seconds] - $troll(lasttime,$chan)]] seconds and try again, nigga."
- return 0
- }
- ::http::config -urlencoding utf-8 -useragent "Mozilla/5.0 (X11; U; Linux i686; el-GR; rv:1.8.1) Gecko/2010112223 Firefox/3.6.12"
- 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;
- while {$info != ""} {
- putserv "PRIVMSG $chan :[string range $info 0 419]"
- set info [string range $info 420 end]
- }
- set troll(lasttime,$chan) [clock seconds]
- }
- putlog "\002troll.tcl\002 v2.1 by spithash@DALnet iz up and trollin'"
- # EOF
Paste Details
Tags: tcl dalnet troll codemasters spithash
advertising
Update the Post
Either update this post and resubmit it with changes, or make a new post.
You may also comment on this post.
Please note that information posted here will expire by default in one month. If you do not want it to expire, please set the expiry time above. If it is set to expire, web search engines will not be allowed to index it prior to it expiring. Items that are not marked to expire will be indexable by search engines. Be careful with your passwords. All illegal activities will be reported and any information will be handed over to the authorities, so be good.