| View previous topic :: View next topic |
| Author |
Message |
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
 Posted: Mon Aug 10, 2009 7:25 pm Post subject: troll.tcl Version 2.5 (19.11.2021) |
 |
|
| 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
# |
github fetch: https://raw.githubusercontent.com/spithash/troll.tcl/main/troll.tcl
_________________
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl
Last edited by spithash on Thu May 05, 2022 5:29 am; edited 4 times in total |
|
| Back to top |
|
 |
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
| Posted: Tue Oct 19, 2010 2:50 pm Post subject: troll.tcl version 2.0 |
|
|
troll.tcl version 2.0 is out.
| 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 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 
_________________
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl
Last edited by spithash on Tue Jan 17, 2012 8:24 am; edited 3 times in total |
|
| Back to top |
|
|
Pixelz
Voice
Joined: 15 Jun 2005
Posts: 24
Location: EFnet
|
|
| Back to top |
|
|
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
| Posted: Mon Oct 25, 2010 5:58 am Post subject: egghelp.org's fetch |
|
|
egghelp.orgs's fetch
_________________
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl |
|
| Back to top |
|
|
Lucifer
Voice
Joined: 01 Nov 2006
Posts: 17
|
| Posted: Sat Nov 20, 2010 8:29 pm Post subject: error!!!!! |
|
|
| [16:22] <(FreeBSD> [16:22:08] Tcl error [parce]: invalid command name "::http::config" |
|
| Back to top |
|
|
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
| Posted: Sun Nov 21, 2010 1:34 am Post subject: Re: error!!!!! |
|
|
| 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 |
|
| Back to top |
|
|
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
| Posted: Tue Jan 17, 2012 8:19 am Post subject: |
|
|
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 
_________________
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl |
|
| Back to top |
|
|
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
|
| Back to top |
|
|
Dominatez
Halfop
Joined: 14 Jan 2019
Posts: 46
Location: United Kingdom
|
| Posted: Thu Aug 15, 2019 9:02 am Post subject: |
|
|
This is showing the following error now.
Tcl error [parse]: data error
Would be good if it was working.
| 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 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
|
|
|
| Back to top |
|
|
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
|
| Back to top |
|
|
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
| Posted: Fri Nov 19, 2021 8:43 am Post subject: troll.tcl 2.5 |
|
|
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 |
|
| Back to top |
|
|
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
