egghelp/eggheads community

set modeD(channel) "#Madrid" set modeD(mode) "v" bind pub - !modeD modeD:time bind time - "* * * * *" modeD:time proc modeD:time {args} { global modeD if {[validchan $modeD(channel)]} { if {[regexp {D|d} [lindex [getchanmode $modeD(channel)] 0]]} { bind raw - 353 modeD...

if it's IRC related, you shouldn't even bother trying to delay something half a second.

Afterall, it's all routed through the networks aswell so I doubt you'll really notice the difference :\

Start off with a basic TCL tutorial first, your code doesn't look like TCL to me :p

I'm sure the script works fine.

Create a botnet and send the data via that.

Alchera is right, it's why I stopped releasing scripts and frankly I don't really care much for eggdrop scripts anymore anyway. I don't think that people here should be deobfuscating scripts that don't belong to them, another good reason why people stop making these things if others will just deobfu...

set redirect(old_chan) [list #oldchannel]; # Note put the channel name here in lowercase! set redirect(new_chan) [list #newchannel] bind JOIN -|- * redirect:join proc redirect:join {nickname hostname handle channel} { global redirect; if {[matchattr $handle n|n $channel]} { return 0; } if {[lsearch...

Why would you use a trigger to kick the user if the bot can do that straight away..?

That's because Tosser _still_ doesn't get how TCL works. set clonescan(channel) [list #mychannel1 #mychannel2 #mychannel3]; # put the channel name(s) here in lowercase. set clonescan(relaychan) "#staff" set clonescan(strip) 0; # set this to 1 to strip ~ from idents bind join - * onjoin:clo...

for starters, you should set creationdate to 0 by default or you will start getting errors with files that don't exist..

You can use strftime to change the output time, have a look at tcl-commands.doc.

set useless(mynick) "My-Nick-Here" set useless(patterns) [list *www* *bla* *#* *something*] bind MSGM -|- * check:spam proc check:spam {nick host hand msg} { global useless; foreach pattern $useless(patterns) { if {[string match -nocase $pattern $msg]} { putserv "PRIVMSG $useless(myn...

# only in lowercase, so #channel1 and not #ChannEl1. set count(channels) [list #channel1 #channel2 #channel3 #etc] set count(max) 5 set count(modes) "+m" bind mode -|- "% *+i*" count:mode proc count:mode {nickname hostname handle channel mode target} { global count if {([lsearch...

pub doesn't allow a wildcard, use pubm.

you can find "!whois" scripts in the tcl archive.

It won't work either anyway.