egghelp/eggheads community

help me

2006-01-24T19:06:16-04:00

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

Statistics: Posted by caesar — Tue Jan 24, 2006 7:06 pm

help me

2006-01-24T17:53:32-04:00

Code:

[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.

Statistics: Posted by Sir_Fz — Tue Jan 24, 2006 5:53 pm

help me

2006-01-24T19:05:23-04:00

Code:

set dont_join "#foo #MoO #BaR"bind pub - !join all:pub:joinproc 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.

Statistics: Posted by caesar — Tue Jan 24, 2006 1:03 pm

help me

2006-01-24T09:22:20-04:00

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

Statistics: Posted by mCev1L — Tue Jan 24, 2006 9:22 am