help me

[mCev1L]

hi,

i set in my eggdrop tcl command like every body with none flag - can control bot only when they type !join #chan .. i need small tcl that can i add some chans bot will not join it if the user type !join


example:

KellyWAG: !join #sucker
mynot: sorry, chan on my bad list

[caesar]

Code: Select all

set dont_join "#foo #MoO #BaR"

bind pub - !join all:pub:join

proc all:pub:join {nick uhost handle channel text} {
  global dont_join
  if {![llength [set chan [lindex [split $text] 0]]]} {
    putserv "NOTICE $nick :Usage: !join #channel"
    return
  }
  if {[validchan $chan]} {
    set msg "Sorry, the $chan channel is already a known channel to me."
    if {![botonchan $chan] || [channel get $chan inactive]} {
      append msg " Currently I'm not on the $chan channel, possible reasons: limit, invite only, banned or channel is se to +inactive."
      } else {
      append msg " Currently I'm on the $chan channel."
    }
    putserv "NOTICE $nick :$msg"
    return
  }
  if {[regexp -nocase $chan $dont_join]} {
    putserv "NOTICE $nick :Sorry, $chan channel is on my bad list."
    return
  }
  putserv "NOTICE $nick :Allright, I'll join $chan channel."
  channel add $chan
}

Feel free to modify it to suit your needs.

Edit: Fixed.

[Sir_Fz]

Code: Select all

[regexp -nocase {$chan} $dont_join]

this will always return 0 unless there is the word "$chan" in $dont_join, removing the braces will solve the problem.

[caesar]

Oups! Duno how that got there. I swear I've removed it once. Weird, anyway, thanks for pointing that out Sir_Fz.