egghelp/eggheads community

it works on tclsh and should work with eggdrop too.
if you don't want to see {} around "clients" : [regsub -all {\{|\}} $client {}]

my bad! code edited.

bind raw - NOTICE serv:connectnick proc serv:connectnick {from key text} { if {[string match *!*@* $from] || ![string match -nocase "*Client connecting*" $text]} { return } if {[scan [lindex [split $text :] 1] {%[^(](%[^@]@%[^)]) [%[^]]]%[^[][%[^]]} Nick ident host IP client ssl] == 6} { ...

bind raw - NOTICE serv:connectnick proc serv:connectnick {from key text} { if {[string match *!*@* $from] || ![string match -nocase "*Client connecting*" $text]} { return } if {[scan [lindex [split $text :] 2] {%[^(](%[^@]@%[^)]) [%[^]]} Nick ident host IP] == 4} { puthelp "PRIVMSG #...

tcllib/textutil could be an alternative: https://core.tcl.tk/tcllib/doc/trunk/em ... split.html

I've edited the script above. You're welcome!

.chanset #channel +FML TclTLS : https://core.tcl.tk/tcltls/wiki/Download (tls package) tcllib : https://github.com/tcltk/tcllib (htmlparse package) package require http package require tls package require htmlparse proc do_fml {} { if {[package vcompare [package present tls] 1.7] > 0} { ::http::regi...

I am not regularly using any AI scripts. I am only testing when needed to see whats wrong . and i still didn't get any error from this while my tests. I assume, your bot/shell sometimes having an issue to resolve dns address of this pandorabots link. Anyway I've just changed the script little bit an...

Script sending your messages as a -query to the pandorabots site and pandorabots doesn't recognize the bot name if the comparison is fail cause they looking for -exact match. Go to proc talkto : regsub -all -- $::pandoraNick [fix_chars $text] {} TxT and change this line to: regsub -all -nocase $::pa...

You can add an asterisk { * } right'n side of $::pandoraNick variable in both [expr [lsearch .. lines. :
${::pandoraNick}* or $::pandoraNick* works.

Settore : Do you have another old http.tcl sourced in your bot .conf ? http::config has -urlencoding -option since http 2.5 and Tcl 8.6 has http 2.8.5 <-> 2.8.10 is the newest one. http package already included in Tcl. there is no need to source it elsewhere. and Your Tcl 8.6 / http version 'should'...

Koach : #Bot's Nickname to Respond to: ex. MyBot - Usage: MyBot, what's 1+1? set pandoraNick "MyBot" #Your Pandora Bot ID. (Feel free to use the existing one if you want, but the bot will think its name is AlphaBot set botid "a5cd504e4e342614" # enable chat in bot pm : 1 ,disable...

This 'Bogus URL..' comes from egghttp.tcl / proc egghttp:geturl : if {![regexp -nocase {^(http://)?([^:/]+)(:([0-9]+))?(/.*)?$} $url x protocol server y port path]} { This Regex only works for http URLs , if you Replace it to : if {![regexp -nocase {^(http(s|)://)?([^:/]+)(:([0-9]+))?(/.*)?$} $url x...

Well , nothings wrong from pandorabots side. You can make your own tests with a simple snippet like this: # what you wanna say ? set saysmth "Do You Love me ?" package require http package require tls tls::init -ssl3 0 -ssl2 0 -tls1 1 http::register https 443 [list ::tls::socket -require 0...