egghelp/eggheads community

if i'm not mistaken, i think he means users that have identified to the services on the irc network (ie: nickserv...)

Hi Guys,

what is the equivalent for the mIRC tab character in tcl, i tried using \t but it seem that the mirc client isn't understanding it.

Thanks

i actually modified it in the following way: if {[string match "*\{*" $nick] || [string match "*\}*" $nick] } { unontc $nick "Sorry $nick - you cannot join uno with this nick please use a nick that does not contain \002\{\}\002." return 0 } at least till someone does wh...

hey guys,

there's a problem in marky's color uno, where the script chokes on players with nicks containing { }.
Anyone has this fixed, or is willing to work on fixing it? am not finding much time to do that.

Thanks

Hey all, is there a way to detect "(!) timer drift -- spun X minutes" i have a join flood protection script that i want to disable when this happens because it will mistake normal joins with floods. i have a lag check incorporated in the script, it works fine when the bot is lagging due to...

put before every

bind pub - !foo bar proc bar {nick uhost hand chan rest} { set file [open "txt_file_path" r] set data [split [read $file] "\n"] set line [lindex $data [rand [llength $data]]] putserv "privmsg $chan : $line" close $file } EDIT: Code fixed, thx Sir_Fz

try to be clearer...

I'd guess it's a bot that somehow tracks/queries scores?!

obviously, but it's just a way to make him know he should provide detailed info when requesting a script and people wont guess what's requested.

what's a scorebot?

i think you should declare check as global try it. bind time - * man ;# runs every minute proc man {m h d mo y} { global check set a [info exists check] set fs [open file.txt r] gets $fs line(first) close $fs if { $a == 1 } { if { $check != $line(first) } { putserv "PRIVMSG #channel1 :$line(fir...

u could use regexp: but be away that in both my solution and deadite66's , if the bla bla contains the word Size it will be removed too.

thx, i used wget's full path /usr/local/bin in my case.
works great

try to replace: foreach e [split [::http::data $x] \n] { regsub -all {<([^<])*>} $e {} e puthelp "privmsg $c :$e" } with set e [lindex [split [::http::data $x] \n] 1] regsub -all {<([^<])*>} $e {} e puthelp "privmsg $c :$e" } i can't test it now, but i think it should work.[/quote]

try using egghttp.tcl
or search the forum for http package