egghelp/eggheads community

bind pub - ${trigger}kick akick proc akick {nick host hand chan text} { global botnick protect if {([matchattr $hand n] || [isop $nick $chan]) && [isop $botnick $chan]} { if {[lindex $text 0] == ""} { putserv "NOTICE $nick :You need to enter a user." } else { if {[onchan...

Well I found there above somewhere searching on this forum. But how would I exclude #mychannel from that?

This doesn't help the original poster but... Note: !image doesnt work correctly atm., and I haven't rewritten the !file search, since its not google, but filemirror.com :D. bind pub - !image pub:image proc pub:image { nick uhost handle channel arg } { global agent if {[llength $arg]==0} { putserv &q...

Ah, I got it all sorted, thanks.

Ah woops, I found what was wrong. Still getting loads of problems though... ########## Join - Total/Op/Voice/Users ########## bind join - * join:all proc join:all {nick uhost hand chan} { set mychan #longbow set wtotal [open total.php w] set wop [open op.php w] set wvoice [open voice.php w] set wuse...

Thanks. Ok, this is my whole script.. ########## Total/Op/Voice/Users ########## bind join - * join:all proc join:all {nick uhost hand chan} { set mychan "#longbow" set wtotal [open total.php w] set wop [open op.php w] set wvoice [open voice.php w] set wusers [open users.php w] puts $wtota...

Yeah I already done that, I was asking can I just use that for sign/part procs/binds aswell..

What would I use for for the same script but binded with sign and part?

Mmmm.... indeed that does, but whats the join there for?

Does that mean I don't need the bind join / proc?

puts $thewritefile "[chanlist $chan]" Ok that writes all the current users in the channel to $mywritefile, there are 2 problems though.. 1. For people using [ ] in there name, it will output { } around there name.. Example.. [Clan]Name Turns to.. {[Clan]Name} 2. How would I go about putti...

I have a global chan mode, and then I have

channel add #mychannel {
chanmode "+k mypass"
}

However it's not working, will the global chan mode effect it?

Thanks. I just found another small problem.... HTML code: <!--START-->qwe<br />asd<br />zxc<br /><!--END--> TCL snippet code: regexp {<!--START-->(.*?)<br />} $html - first regexp {<br />(.*?)<br />} $html - second regexp {<br />(.*?)<br /><!--END-->} $html - third putserv "PRIVMSG $chan :$firs...

Ah, I was able to get it to work with another script, but whilst i'm here...

How do I calculate something in tcl?

I need $mem + $anon

Ofloo wrote:

Longbow wrote:And how much are you going to pay?

not saying that you don't know how but id say you should maybe get some more experiance before you sell your self. looking from the questions you ask.

It was curiousity. I never said I was going to take it.