Code:
############################################################################################################## Troll v2.8 TCL by spithash@Libera ############################################################################################################### Gets troll quotes and makes people suffer! ############################################################################################################### Version 2.5 (19.11.2021) ## ## Changed url because the old one was dead and enabled tls. ## tcl-tls is required to be installed on your server. ############################################################################################################### 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 this repo https://github.com/spithash/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 :) ##############################################################################################################package require httppackage require tls# Channel flag for enabling the featuresetudef flag troll# Set the time (in seconds) between usesset delay 10# Configure HTTP to support HTTPShttp::register https 443 [list ::tls::socket -autoservername true]::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"# Bind the !troll commandbind pub - !troll parseproc parse {nick uhost hand chan text} { global delay variable troll if {![channel get $chan troll]} { return 0 } if {[info exists troll(lasttime,$chan)] && ([clock seconds] - $troll(lasttime,$chan)) < $delay} { set wait [expr {$delay - ([clock seconds] - $troll(lasttime,$chan))}] putserv "NOTICE $nick :You can use only 1 command every $delay seconds. Wait $wait more second(s)." return 0 } set url "http://meoww.getenjoyment.net/nou.php" # Fetch URL set token [::http::geturl $url -timeout 15000] if {[::http::status $token] ne "ok"} { putserv "NOTICE $nick :Error fetching data. HTTP status: [::http::status $token]" ::http::cleanup $token return 0 } set data [::http::data $token] ::http::cleanup $token # Collapse all whitespace (spaces, tabs, newlines) into single spaces regsub -all -- {\s+} $data " " data set data [string trim $data] # Extract content inside <p>...</p> if {[regexp -nocase -- {<p .*?>(.*?)</p>} $data -> info]} { set info [string trim $info] # Replace <strong> and <b> tags with bold control code (\002) regsub -all -- {(<strong[^>]*>|<b[^>]*>)} $info "\002" info regsub -all -- {</strong>|</b>} $info "\002" info # Strip any other remaining HTML tags regsub -all -- {<[^>]+>} $info "" info set info [string trim $info] # Send output in chunks of 420 characters while {[string length $info] > 0} { putserv "PRIVMSG $chan :[string range $info 0 419]" set info [string range $info 420 end] } # Update lasttime set troll(lasttime,$chan) [clock seconds] } else { putserv "NOTICE $nick :Error: No matching data found." putlog "DEBUG: Data fetched: $data" }}putlog "\002troll.tcl\002 v2.8 by spithash@Libera is up and trollin'!"# EOFStatistics: Posted by spithash — Tue Jun 24, 2025 2:07 am
Code:
<b>Code:
<strong>Statistics: Posted by spithash — Mon Apr 28, 2025 6:42 am
Statistics: Posted by spithash — Tue Oct 15, 2024 7:46 am
Statistics: Posted by spithash — Thu May 05, 2022 5:32 am
Statistics: Posted by spithash — Fri Nov 19, 2021 8:43 am
Statistics: Posted by spithash — Thu Sep 10, 2020 9:15 am
Code:
############################################################################################################## 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 10bind pub - !troll parseproc parse {nick uhost hand chan text} {global delayvariable trollif {![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 $urlregsub -all -- {\n} $data "" data;regexp -nocase -- {<p .*?>(.*?)</p>} $data -> inforegsub -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 Statistics: Posted by Dominatez — Thu Aug 15, 2019 9:02 am
Statistics: Posted by spithash — Mon Mar 26, 2012 4:33 am
Statistics: Posted by spithash — Tue Jan 17, 2012 8:19 am
Statistics: Posted by spithash — Sun Nov 21, 2010 1:34 am
Statistics: Posted by spithash — Mon Oct 25, 2010 5:58 am
Statistics: Posted by Pixelz — Fri Oct 22, 2010 2:06 am
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/eggdrop/scripts/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 and arfer 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; 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 $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 "\002troll.tcl\002 v2.0 by spithash@DALnet iz up and trollin'"# EOFStatistics: Posted by spithash — Tue Oct 19, 2010 2:50 pm
Code:
# Displays random troll quotes in the channel using a simple !troll trigger and makes people suffer## Official troll.tcl and updated version, at http://bsdunix.info/eggdrop/scripts/troll.tcl# # troll TCL for eggdrop by spithash@DALnet #Codemasters## version 1.0#Statistics: Posted by spithash — Mon Aug 10, 2009 7:25 pm