TCL / Eggdrop Scan for Users, who are in 2 channels or more.

[tessa]

Hallo

i've a very big problem.

I've installed the os_notinchanlist module from anope.

This module being force users into the channel #idle, who are not in any channels.


Now my problem:

On my shell is an eggdrop installed, who takes all 5 minutes following command: /os notinchanlist

Now all 5 minutes are joining peoples the channel #idle, but they aren't part, if they join another chan.


What i want to do, is the following:

All people in this chan should part #idle if they are joining another channel.

- I need a TCL-script that scanns all 5 minutes the users in #idle.
- If they are in 2 or more channels, the script should /sapart them out of #idle
- The script shouldn't sapart op's, because i want to watch the channel


Sry for my english Plz, plz help me ^^

[demond]

wrong forum buddy, you need to ask for this on Script Requests forum

if you are willing to help yourself, here's a tip: WHOIS users and intercept (using raw bind) numeric 319 (the channels that user is on)

[tessa]

Oops I'm sry demond...

Thank u for move

Greetz Tessa

[awyeah]

Here's a basic concept. This is a code written in 3 minutes, so use with caution.

Code: Select all

timer 5 check:chan

proc check:chan { } {
 if {[botonchan #idle]} {
  foreach user [chanlist #idle] {
   if {![isop $user #idle] && ![isbotnick $user]} {
   putserv "WHOIS $user"
   }
  }
 }
 timer 5 check:chan
}

bind raw - 319 check:whois

proc check:whois {from key arg} {
 #This might not be the best way to check for 2 channels, but who cares
 #as long as it works, its fine by me.
  if {[string match "*? #?* #?*" $arg] || [[llength $arg] >= 4] && [onchan [lindex $arg 1] #idle]} {
  # Can also use 'string index' above to check the first index of the lindexes
  #Assuming that the bot is already opered up and has a +a or +A flag
   putserv "SAPART #idle [lindex $arg 1]"
   }
 return 1
}