troll.tcl Version 2.8 (Jun.24.2025)

spithash · Post by **spithash** » Mon Aug 10, 2009 7:25 pm

# 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
#

github url: https://github.com/spithash/troll.tcl

spithash · Post by **spithash** » Tue Oct 19, 2010 2:50 pm

troll.tcl version 2.0 is out.

Code: Select all

#############################################################################################################
# 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 troll
bind pub - !troll parce
proc 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 $url
regsub -all -- {\n} $data "" data;
regexp -nocase -- {<p .*?>(.*?)</p>} $data -> info
regsub -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'"
# EOF

I really thank you guys for helping me out

Pixelz · Post by **Pixelz** » Fri Oct 22, 2010 2:06 am

There's also this: http://rolloffle.churchburning.org/fortune/trolldb

spithash · Post by **spithash** » Mon Oct 25, 2010 5:58 am

egghelp.orgs's fetch

Lucifer · Post by **Lucifer** » Sat Nov 20, 2010 8:29 pm

[16:22] <(FreeBSD> [16:22:08] Tcl error [parce]: invalid command name "::http::config"

spithash · Post by **spithash** » Sun Nov 21, 2010 1:34 am

Lucifer wrote:[16:22] <(FreeBSD> [16:22:08] Tcl error [parce]: invalid command name "::http::config"

you need http.tcl loaded first

spithash · Post by **spithash** » Tue Jan 17, 2012 8:19 am

For any official release of troll.tcl you may refer to egghelp.org's tcl archive.

Let me know if you are experiencing any problems with the script, I will appreciate it

spithash · Post by **spithash** » Mon Mar 26, 2012 4:33 am

Brand new version of troll.tcl 2.1 is out!
Added flood protection. Well, throttle control.

Fetch it from egghelp's tcl archive:

http://www.egghelp.org/cgi-bin/tcl_arch ... ad&id=1618

Enjoy the lulz!!!

Dominatez · Post by **Dominatez** » Thu Aug 15, 2019 9:02 am

This is showing the following error now.

Tcl error [parse]: data error

Would be good if it was working.

Code: Select all

#############################################################################################################
# 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

spithash · Post by **spithash** » Thu Sep 10, 2020 9:15 am

updates and whatnot for troll.tcl on github

https://github.com/spithash/troll.tcl

spithash · Post by **spithash** » Fri Nov 19, 2021 8:43 am

I've updated the script.

I changed the url and enabled tls, you are now required to install tcl-tls on your server.

The script used to bold certain words on its output, I will try to find some time in the next days to fix that as well, but this fix won't have any effect on the script itself, just the output on the php end.

Anyways, you can get it from: https://github.com/spithash/troll.tcl

Enjoy

spithash · Post by **spithash** » Thu May 05, 2022 5:32 am

I've updated the script.
https://github.com/spithash/troll.tcl

spithash · Post by **spithash** » Tue Oct 15, 2024 7:46 am

New release:
https://github.com/spithash/troll.tcl/r ... /tag/2.5.1

The url of the database has changed

spithash · Post by **spithash** » Mon Apr 28, 2025 6:42 am

New release of the troll.tcl guys!

Changed the url of the database and removed an extra space from the bot's reply.

Also we're handling /n newlines better (it was adding extra space there)

Added better bolding support for
Code: Select all
```
<b>
```
and
Code: Select all
```
<strong>
```

as always, it's available here

spithash · Post by **spithash** » Tue Jun 24, 2025 2:07 am

Code: Select all

#############################################################################################################
# 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 http
package require tls

# Channel flag for enabling the feature
setudef flag troll

# Set the time (in seconds) between uses
set delay 10

# Configure HTTP to support HTTPS
http::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 command
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)] && ([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'!"
# EOF

egghelp/eggheads community

troll.tcl Version 2.8 (Jun.24.2025)

troll.tcl Version 2.8 (Jun.24.2025)

troll.tcl version 2.0

egghelp.org's fetch

error!!!!!

Re: error!!!!!

troll.tcl version 2.1

troll.tcl on GitHub

troll.tcl 2.5

Re: troll.tcl Version 2.5.1 (Oct.15.2024)

troll.tcl Version 2.8 (Apr.28.2025)

Re: troll.tcl Version 2.8 (Apr.28.2025)