egghelp/eggheads community

I can't ban/remove the account, but I've deleted all its posts. (one by one ...it took some clicking )

EDIT: It seems it is still posting... :/

Try this: bind pub - !countdown cdn_start proc cdn_start {n u h c a} { if {![info exists ::cdntimer($c)]} { cdn_next $c 0 } else { # already counting on that channel - ignore request } } proc cdn_next {c i} { set msgs { "[3 minute countdown started]" "[2 minutes]" "[1 minute...

pietje wrote:My friend has a eggdrop that announce someting like !get file.txt
I am looking for a code that wil connect to his ftp, get the file and store it on my own hd if his bot does !get file.txt.

Are you an eggdrop?

What's wrong with ?

However, it will leave a needless bind in memory if never-give-up is set to 0. The disconnect-server bind is doing that job in your version. You should unbind the disconnect-server bind in the init-server code and get rid of that pesky "catch" ;) If we had a hair splitting forum, I would ...

strikelight wrote:You might connect to a server that doesn't require the quote pass...

EDIT: To make things clear... I'm talking about the part removing the bind on disconnect.

missing the disconnect bind incase the bot gets it wrong though I don't see why it needs to be removed...it will be created again when the bot tries to reconnect, and creating the same bind several times (like my script would do in that case) should not cause any problems. Yours will run the compar...

Try this (not tested): bind evnt - connect-server passbind bind evnt - init-server passunbind proc passbind x { bind raw - NOTICE passnotice } proc passunbind x { unbind raw - NOTICE passnotice } proc passnotice {f k a} { if {$f==""&&[string match "AUTH */QUOTE PASS *" $a...

So, what I want to do here is within "onDisc" tell the specific socket that was disconnected, to reconnect. You could create a new connection to the same destination... It would not be the same socket (that's not possible using tcl's socket command), but I don't think it makes any differe...

nml375 wrote:there would be four or five of them

Actually, there would be five or six (since my bound commands have an embedded argument (+/-)), but I guess he got the idea

gemeau50 wrote:... when a said nick parts a particular channel ...

I don't know mIRC script, but I guess you want something like this... bind join - "#chan *!cservice@undernet.org" {silence +} bind part - "#chan *!cservice@undernet.org" {silence -} bind sign - "#chan *!cservice@undernet.org" {silence -} proc silence {prefix args} {puts...

The command mentioned in your error message doesn't match the name of your proc. Maybe you need to restart to get rid of old binds? Also, you should split $text before you use lrange on it. (or remove that part entirely, as you probably don't need it)

Since "PART" is to leave a channel and "QUIT" is to leave a network, do /part and /quit the same in TCL or do I have to bind QUIT also? Also your join and part procedure do not provide for a specific channel. bind join <flags> <mask> <proc> procname <nick> <user@host> <handle> <...

Read doc/tcl-commands.doc bind msgm <flags> <mask> <proc> procname <nick> <user@host> <handle> <text> bind notc <flags> <mask> <proc> procname <nick> <user@host> <handle> <text> <dest> ...As you can see, there's no "chan". And keep in mind that the notc bind is triggered by public notices ...