egghelp/eggheads community

does anyone know any good tcl that works fir with a lot of bots i have try mc
but does not work very well.


Thanks.

unbind msg o|o +ban *msg:+ban; bind msg o|o +ban msg:+ban; proc msg:+ban {handle idx arg} { if {$arg == ""} { *msg:+ban $handle $idx $arg return 0 } set date [strftime %d/%m/%y] set defr "Banned without reason" set host [lindex [split $arg] 0] if {[string first # [set c [lindex ...

Hello can anyone help me,and tell me how it's possible to do

/msg $botnick +ban #channel *@host.domain reason here

and the same with -ban command.


Edited Thanks .

.op user
i have unbind now this commands but noone can use them.:/
i want to use them only owners and masters of the bots.

Can anyone please tell me how i cam make the op command to use only
the admin and the master of the bots.To disable it to the regular ops.




Thanks

############################################################# ### ### Operator Status v0.4: ### Allows Operators to set themself to away or available, ### users can simply type !status (or a custom command) and ### they will get the status for the operators currently on ### the channel. All works w...

Hello i am using this script on a help channel for users to see active operators ############################################################# ### ### Operator Status v0.4: ### Allows Operators to set themself to away or available, ### users can simply type !status (or a custom command) and ### they...

proc rjoin {frombot command text} { set rnick [lindex [split $text] 0] set rchan [lindex [split $text] 1] set flags [lindex [split $text] 2] if {[string index $flags 0] != "+"} { set flags "+$flags" return 0 } if {![validchan $rchan]} { channel add $rchan set rhost [getchanhost $...

yeap but i said i want this without the @ at command.

i have this code (adds handle at command .kickban (or .kb)) but i want the default banmask be *!*@fullhost and not *!*identd@*host. t. Without @nick at command unbind dcc o|o kickban *dcc:kickban; bind dcc o|o kb kban:kickban proc kban:kickban {handle idx arg} { if {$arg == ""} { *dcc:kick...

Sir_Fz also the first code that u wrote was working perfect. Here is the 1st code that u give:) unbind dcc o|o +ban *dcc:+ban bind dcc o|o +ban ban:+ban proc ban:+ban {handle idx arg} { if {$arg == ""} { putlog "SYNTAX: .+ban <hostmask> [channel] [time] [comment]" return 0 } set ...

i can`t understant y but the code that u give me to replace it it`s not working. It`s banning my handle and it`s puts at reason the host that i want to ban...(i`ve try that one before i post here) Let me explain u again what i want. First i want that i said to the previous post. Then i want also at ...

i have a script ban.tcl this little script adds($handle%d/%m/%y) to your bans' reason, so banned person can see who set a ban on him. the script is : > unbind dcc o|o +ban *dcc:+ban; > bind dcc o|o +ban ban:+ban > > proc ban:+ban {handle idx arg} { > if {$arg == ""} { > *dcc:+ban $handle $...