need a tcl with a oppositi use of "bad channel"

[Wrongtruth]

Hi,

I'm searching for a tcl that will allow users to join only if they are on other specific channel... its kind of the opposite of "bad channel"
i've been searching for it and didnt find it
Thank you for helping me if u can
sincerly, Joe

[stdragon]

Is the bot in both channels, or just one?

[Wrongtruth]

Both channels
but can have it only in one if u want ...

[stdragon]

This isn't tested, but it should work. The bot has to be in both channels.

Code: Select all

# Channel to protect
set cochannel(watch) "#privatechannel"

# Channel the person must also be in
set cochannel(require) "#otherchannel"



if {[info exists cochannel(oldwatch)]} {
  unbind join - "$cochannel(oldwatch) *" cochannel_on_join
}
bind join - "$cochannel(watch) *" cochannel_on_join
set cochannel(oldwatch) $cochannel(watch)

proc cochannel_on_join {nick uhost hand chan} {
  global cochannel
  if {![onchan $nick $cochannel(require)]} {
    putserv "KICK $chan $nick :get your loose ass out of here"
    # add ban code here if you want
  }
  return 0
}

[Wrongtruth]

Thanks for your help
I tested it but it dont work
If you can make any modification if possible
And thanks again :)

[stdragon]

Uhh, now I tested it and it works.

[Wrongtruth]

invalid command name "\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fcharset0 Times New Roman;}{\f2\fswiss\fcharset0 Arial;}}
{\colortbl ;\red0\green0\blue0;}
\viewkind4\uc1\pard\sb100\sa100\cf1\f0\fs20 # Channel to protect \line set cochannel(watch) "#hecgames" \line\line # Channel the person must also be in \line set cochannel(require) "#hec" \line\line\line\line if \{[info exists cochannel(oldwatch)]\} \{ \line unbind join - "$cochannel(oldwatch) *" cochannel_on_join \line\} \line bind join - "$cochannel(watch) *" cochannel_on_join \line set cochannel(oldwatch) $cochannel(watch) \line\line proc cochannel_on_join \{nick uhost hand chan\} \{ \line global cochannel \line if \{![onchan $nick $
[15:16] * FICHIER DE CONFIGURATION NON CHARGE (INTROUVABLE OU ERREUR)
HEC@box1(~/eggdrop)$

[dollar]

invalid command name "\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fcharset0 Times New Roman;}{\f2\fswiss\fcharset0 Arial;}}
{\colortbl ;\red0\green0\blue0;}
\viewkind4\uc1\pard\sb100\sa100\cf1\f0\fs20 # Channel to protect \line set cochannel(watch) "#hecgames" \line\line # Channel the person must also be in \line set cochannel(require) "#hec" \line\line\line\line if \{[info exists cochannel(oldwatch)]\} \{ \line unbind join - "$cochannel(oldwatch) *" cochannel_on_join \line\} \line bind join - "$cochannel(watch) *" cochannel_on_join \line set cochannel(oldwatch) $cochannel(watch) \line\line proc cochannel_on_join \{nick uhost hand chan\} \{ \line global cochannel \line if \{![onchan $nick $
[15:16] * FICHIER DE CONFIGURATION NON CHARGE (INTROUVABLE OU ERREUR)
HEC@box1(~/eggdrop)$

Errr, did something go wrong with pasting of the code to a .tcl file? :/

[stdragon]

Yup. Try a different text editor. Looks like you used wordpad or word or something.

[caesar]

No, wordpad is not doing that thing, I'm using it Probably is M$ W0rd or something like it.. so, either stick to notepad or just paste the TCL code directly in pico.