egghelp/eggheads community

I'm also getting the same problem with putquick.

I'm getting this error AFTER the fact that LockDown or UnLock has been called on.

Okay.. So it worked at first, till I had someone with chattr modes of h, and they were getting +qaohv... When they should have only gotten +hv... proc Up { nick host hand chan text } { if {[matchattr $hand n|n $chan]} { putserv "MODE $chan +qaohv $nick $nick $nick $nick $nick" } elseif {[m...

Hi there, I'm having an issue with vars, one proc is making the var, and I want another proc to be able to read that var. bind pub m|m "!LockDown" LockDown bind pub m|m "!UnLock" UnLock bind pubm - "*CONNECT*" CONNECTLOCKDOWN proc LockDown { nick host hand chan text } {...

How can I script something that will happen on all channels that the bot is on.

To be honest, I didn't code this...

Could you please help me code it correctly?

The script below adds an extra character at the beginning of the ident! proc stricthost {host chan} { set strict 0 if {[string index $host 0] == "!"} { set host [string range $host 1 end] set strict 1 } if {![string match "*@*" $host]} { set addhost "$host[getchanhost $host ...

Okay, I have a new problem.

The $User is underlined, and I don't know how to remove the underline in the variable. How can I remove it?

I would like my bot to sajoin a user after they connect to the network, but wait 5 seconds before it does it. bind pubm - "*CONNECT*" CONNECT proc CONNECT { nick host hand chan text } { set User [lindex [split $text] 3] if {$chan == "#4ct1v1ty"} { utimer 5 "putquick SAJOIN #...

Awesome, thank you very much!

The script will only set +v on me no matter what. I want: if there is no nick provided, set +v on $nick, but if there is a nick provides, set +v on said nick. proc Voice { nick host hand chan text } { set User [lindex [split $text] 1] if {$User == ""} { pushmode $chan +v $nick } else { pus...

Tcl error [incith::weather::weather_handler]: invalid command name "clock"



Need help! Please!

Works great! THANK YOU!

Ok... I'm still getting the same error, and I've read the TCL commands file... I do not understand what I'm doing wrong... bind notc - * notice proc notice {nick uhost hand text {dest ""}} { global botnick; if {$dest == ""} {set dest $botnick} set themessage [lrange $text 0 end] ...

I tried putting what you put and it didn't work, then I tried this; proc notic { nick uhost handle text dest } { global botnick set themessage [lrange $text 0 end] if {$botnick == $dest} { putserv "PRIVMSG #Satanic :--- Recieved NOTICE --- $nick = $themessage" } } and that didn't work, and...