This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

troll.tcl Version 2.5 (19.11.2021)

Support & discussion of released scripts, and announcements of new releases.
Post Reply
User avatar
spithash
Master
Posts: 248
Joined: Thu Jul 12, 2007 9:21 am
Location: Libera
Contact:

troll.tcl Version 2.5 (19.11.2021)

Post by spithash »

Code: Select all

# 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 fetch: https://raw.githubusercontent.com/spith ... /troll.tcl
Last edited by spithash on Thu May 05, 2022 5:29 am, edited 4 times in total.
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl
User avatar
spithash
Master
Posts: 248
Joined: Thu Jul 12, 2007 9:21 am
Location: Libera
Contact:

troll.tcl version 2.0

Post by spithash »

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 :)
Last edited by spithash on Tue Jan 17, 2012 8:24 am, edited 3 times in total.
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl
User avatar
Pixelz
Voice
Posts: 24
Joined: Wed Jun 15, 2005 9:37 am
Location: EFnet

Post by Pixelz »

Pixelz @ EFnet, freenode, QuakeNet, Undernet
User avatar
spithash
Master
Posts: 248
Joined: Thu Jul 12, 2007 9:21 am
Location: Libera
Contact:

egghelp.org's fetch

Post by spithash »

Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl
L
Lucifer
Voice
Posts: 17
Joined: Wed Nov 01, 2006 7:02 pm

error!!!!!

Post by Lucifer »

[16:22] <(FreeBSD> [16:22:08] Tcl error [parce]: invalid command name "::http::config"
User avatar
spithash
Master
Posts: 248
Joined: Thu Jul 12, 2007 9:21 am
Location: Libera
Contact:

Re: error!!!!!

Post by spithash »

Lucifer wrote:[16:22] <(FreeBSD> [16:22:08] Tcl error [parce]: invalid command name "::http::config"
you need http.tcl loaded first
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl
User avatar
spithash
Master
Posts: 248
Joined: Thu Jul 12, 2007 9:21 am
Location: Libera
Contact:

Post by spithash »

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 :D
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl
User avatar
spithash
Master
Posts: 248
Joined: Thu Jul 12, 2007 9:21 am
Location: Libera
Contact:

troll.tcl version 2.1

Post by spithash »

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!!!
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl
User avatar
Dominatez
Halfop
Posts: 50
Joined: Mon Jan 14, 2019 5:08 pm
Location: United Kingdom

Post by Dominatez »

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 
User avatar
spithash
Master
Posts: 248
Joined: Thu Jul 12, 2007 9:21 am
Location: Libera
Contact:

troll.tcl on GitHub

Post by spithash »

updates and whatnot for troll.tcl on github

https://github.com/spithash/troll.tcl
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl
User avatar
spithash
Master
Posts: 248
Joined: Thu Jul 12, 2007 9:21 am
Location: Libera
Contact:

troll.tcl 2.5

Post by spithash »

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 :)
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl
User avatar
spithash
Master
Posts: 248
Joined: Thu Jul 12, 2007 9:21 am
Location: Libera
Contact:

Post by spithash »

I've updated the script.
https://github.com/spithash/troll.tcl
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl
Post Reply