egghelp/eggheads community

Dedan

please don't take my nick off, i am just sick, not dead

Dedan

and stop using list commands on strings.
split the sting into a var and then
use the foreach ....

global botnick
if the botnick var was not called then it will produce
an error and stop the loop

Dedan

erm, if that one bot goes down then the whole channel
is down, also bots get lagged from time to time, netsplits,
and other events which you never thought of .....

we have been doing this for 5 years, we do know a thing or two

Dedan

This is an advanced auto-voice tcl i have been using for 3 years, i just completly re-wrote the script and will de-bug and release. # Advanced auto-voice tcl for +m Channels # If you OP a moderated channel you know that several bots are # needed to make sure that people are +voiced. Problem is that ...

Dedan

Code: Select all


bind pubm -|- * protect:channel
proc protect:channel {nick uhost handle channel text} {
  if {(![botisop $channel]) || ([isop $nick $channel])} {return 0}
  if {([matchattr $handle o]) || ([matchattr $handle f])} {return 0}

Dedan

{[ \\[ ] \\]} ??????
you mean {[ \\[ \\] ]} ????

Dedan

1) the original post refected an aspect of the orginal topic user started 2) the orginal post was directed to user 3) it is set in an array because it does have value, 5+ values 4) are you suggesting i should use: set banmask [string map {[ \\[ ] \\]} $banmask] set banmask [string map {[ \\{ } \\]} ...

Dedan

what are you talking about?

Code: Select all


 set banmask "*[M]*!*@*"
 set blacklist($banmask) 

bind join -|- * BLK:J
proc BLK:J {N uhost H C} {

  set U "$N![getchanhost $N]"
  foreach E [array names blacklist] {
    if {[string match -nocase $E $U]} {

and you are suggesting what?

Dedan

never the less user i am in the final stages of a very nice blacklist script for large channels i would like to be able to ban nicks with special chars in them but it seems impossible. i am currently using "string match" for compare [01:50] <botowner> .tcl string match *[M]*!*@* *!*@* [01:...

Dedan

try:

Code: Select all


   if {[catch {after cancel $state(after)}]} {}

Dedan

did you figure it out DevilWolf?

Dedan

i have been trying to use your seach feature which you sem to have changed. i look at a post and then try to use the "back arrow' button to get to the main listing of "found posts" and keep getting the "your page is not longer available" whatever message. will this be change...

Dedan

well, BSD systems are THE only systems ...
what else would one ever want to use?

Dedan

i searched the forum and found nothing to my suprise. i am having a problem finding the proper format of this command, i am not even sure it can be used in the way i need it. I have a loop that will loop about 60,000 times and i want to place a "pause" in it. foreach t $tenthousands { blah...

Dedan

if you still need one sjones, send me a message,
i got what you want, have been using it for over
2 years. it has a 37 minute voice ban if user is -v-ed

egghelp/eggheads community

Search found 258 matches

Beta testers needed for advanced auto-voice tcl

Special characters in string match

search feature

usage of "after" command