REALLY SIMPLE - I'm having a block and am tired.

[Zorb]

Well, the idea is when the bot is invited to a channel it joins but if the user amount in the channel is lower than 3 it will part.

I just can't think of how to get the number of people in the channel.

Thank you in advance.

[scarface]

well, its [llength [chanlist #channel]]
but since the bot joins u should do this check after recieving the nicklist on the channel (bind raw) dont remember the raw atm. if you just use a bind join proc for it, the bot havent recieved the chanlist, and it will return 1.

[r0t3n]

you want the end-of-who raw, which is raw 315.

http://www.xs4all.nl/~wiebeson/rawlist.txt is a list of raws.

[awyeah]

Well you will need to use bind raw with the keyword "INVITE". You will also need an additional bind join, for the bot to check on join the channel user count and then based on that either part or stay in the channel.

Here is a basic script which can do the work for you, make changes and edit it yourself the way you would want it to work accordingly.

Code: Select all

bind raw - INVITE invite:detector
bind join - "*" check:chan:count

proc invite:detector {from keyword arg} {
 channel add [string tolower [lindex [split [join $arg ""] :] 1]]
}

proc check:chan:count {nick uhost hand chan} {
 if {[isbotnick $nick]} {
  if {[llength [chanlist $chan]] < 3} {
    channel remove $chan
    }
  }
}

[r0t3n]

awyeah its best to bind on raw 315 (end of who) so then the bot would of got the list.

Code: Select all

bind raw - INVITE invite:detector
bind raw - 315 check:chan:count

proc invite:detector {from keyword arg} {
 global invite
 if {[validchan [string tolower [lindex [split [join $arg ""] :] 1]]]} { return }
 set invite([string tolower [lindex [split [join $arg ""] :] 1]])
 channel add [string tolower [lindex [split [join $arg ""] :] 1]]
}

proc check:chan:count {from keyword arg} {
 global invite
 if {![info exists invite([set chan [string tolower [lindex [split $arg] 1]]])]} {
  unset $invite($chan)
  if {[llength [chanlist $chan]] < 3} {
   channel remove $chan
  }
 }
}

Just a few tweaks to awyeah's code.

[caesar]

I see that you are using '[string tolower [lindex [split [join $arg ""] :] 1]]' 3 times. Why haven't you done the same thing like in 'if {![info exists invite([set chan [string tolower [lindex [split $arg] 1]]])]} {' ?

[Sir_Fz]

Do not apply join over a string.

[awyeah]

Why shouldn't we apply join over a string? join is used in relation with strings. I don't understand this, please elaborate Sir_Fz.

Anyway Tossers, could would work, but as caesar mentioned to make it more understandable and readable easier to the eye, you can use this:

Code: Select all

bind raw - INVITE invite:detector
bind raw - 315 check:chan:count

proc invite:detector {from keyword arg} {
 global invite
 set chan [lindex [split [join [string tolower $arg] ""] :] 1]
 if {[validchan $chan]} { return 0 }
 set invite($chan) 1
 channel add $chan
}

proc check:chan:count {from keyword arg} {
 global invite
 set chan [string tolower [lindex [split $arg] 1]]
 if {[info exists invite($chan)]} {
  if {[llength [chanlist $chan]] < 3} {
   channel remove $chan
   unset invite($chan)
  } else {
   unset invite($chan)
  }
 }
}

[Zorb]

Okay well, everything works well but when someone parts the channel I need it to check the users again.

So what's the bind for when someone parts the channel?

[awyeah]

bind part <flags> <mask> <proc>
procname <nick> <user@host> <handle> <channel> <msg>

Description: triggered by someone leaving the channel. The mask is matched against "#channel nick!user@host" and can contain wildcards. If no part message is specified, msg will be set to "".

New Tcl procs should be declared as

proc partproc {nick uhost hand chan {msg ""}} { ... }

for compatibility.

Module: irc

Something like this:

Code: Select all

bind part - "*" check:users:on:part

proc check:users:on:part {nick uhost hand chan {text ""}} {
 if {![isbotnick $nick]} {
  #whatever you want to do here
  }
}

[Sir_Fz]

Basically, [join] converts lists into strings. Check the join manual page.