egghelp/eggheads community

Try "*\[away\]*". Also, read http://www.peterre.com/characters.html.

strikelight wrote:lrange returns a (sub)list, and from my understanding, $reason is supposed to be a string... as such you need to apply the join tcl command to the result to make it into a proper string.

Yup, you also have to [split] it before using [lrange] on it, like caesar says.

Please be more specific. What changes have you made (preferably paste the script again)? Can you paste the output on the partyline, if any?

In proc cssup you still have a few "[lindex $arg 0]" instead of "[lindex [split $arg] 0]". You also have an lrange a little after that which probably needs to be converted back into a string using join, i.e. "set msg [join [lrange [split $arg] 0 end]]". Incidentally, th...

HuH.I think this is deep in linux.I dont think is so easy to change.... Actually it's trivially easy to change ... when you type a command into your shell (bash, csh, tcsh, etc), it looks for the program in each directory listed in the PATH environment variable. The reason you have to run a lot of ...

bind join - * procname proc procname {nick uhost hand chan} { if {[string match "*@*.staff.*" $uhost]} { puthelp "PRIVMSG $nick :message for people with the staff host" } else { puthelp "PRIVMSG $nick :message for everyone else" } } Read the Tcl "string" manu...

Try connecting to ircnet using an IRC client on your shell. If it works you know it's an eggdrop issue. If it doesn't work you know it's something you need to discuss with your shell server's admin.

If you want it to do logging and absolutely nothing else, why even bother giving it ops?

This is a wild guess, based on the fact that one uses the Syabse functions in PHP to access MSSQL databases on *nix platforms.

Perhaps you could use Sybtcl to do the same in Tcl ... http://sourceforge.net/projects/sybtcl.

Try using blat.

CrazyCat wrote:

Code: Select all

switch [string tolower $args] {

Try and get out of that habit before it causes your problems. $args is a list, 'string' is for strings. Read http://www.peterre.com/characters.html as many times as it takes to understand it.

You might want to use 'string match -nocase ...' to make sure it's case insensitive.

use string functions: bind pub - "!reverse" reverse proc reverse {nick uhost handle chan args} { if {[string length $args] == 0} { return 0 } set new "" for { set len 0} {$len < [string length $args]} {incr len} { set pos {[string length $args] - $len} append new [string range $...

Sir_Fz wrote:Souperman's ping.tcl works just fine. lol

The latest version works. Older versions had various bugs which would affect some bots. Hopefully I've thought of everything and there will be no more bugs

I'll be updating the archive again today. I do the updates manually, and believe it or not, it takes about an hour just to add seven or eight scripts. I've been working on an automated "self-serve" type of system which should be much more efficient and will allow for more frequent updates...