egghelp/eggheads community

And what is the point of if { [string match "" "$a"] } { when you can just do if {$a == ""} Instead of lindex junk, regsub the space with either %20 or %2B (+ sign) depending on what the website wants for spaces.. thanks that was it needed the %20 works great :) if {$a...

Try: bind pub - !search pub:search proc pub:search {n u h c a} { if {$a == ""} { puthelp "PRIVMSG $c :usage: !search UserName" } else { set data [::http::geturl http://www.mydomain.com/test/ircstats.php?search=$a] foreach line [split [::http::data $data] \n] { puthelp "PRIV...

hey all i cant get this to work no matter what i try what i need is for it to add the arg to the url but it only adds eg !search MacDaddy works. but !search MacDaddy IRC it dont see the IRC part bind pub - !search pub:search proc pub:search {n u h c a} { set text [lindex [split $a] 0] if { [string m...

ok thanks for the reply :wink: edit: ok it there a way to have the script loaded but none of the triggers in the script to work untill the channel trigger is used ie !bload and deactivate on !bunload ? like instead of loading the script with a /load command have the script loaded in the bot but it w...

hey all is there a way to make a trigger that will load 1 or more backup scripts if the main channel bot gose in a netsplit i know how to do it in mIRC script but not tcl eg: ON *:TEXT:!bload:#channelhere: { if (($nick isop #) || ($nick ishop #) || ($nick isvoice #)) { /load -rs Scripts\Scripts.mrc ...

thanks Sir_Fz works perfect

Sir_Fz thanks testing it now ok that works well is there a way of putting the if {[string match -nocase "*version*" $arg]} { into more than one version like if {[string match -nocase "*version1*" $arg] || [string match -nocase "*version2*" $arg]} { and so on add ing ver...

hey all i got a mIRC script that i use and i tryed to convert it into tcl this is the mirc scrpt. ON !*:JOIN:#: { ctcp $nick version } ON *:CTCPREPLY:VERSION*: { if (!$window(@version)) window -ne @version aline @version $nick $1- if (*version here* iswm $1-) { /notice $nick $nick message here } } a...