I need help with a script

[picas0]

Ok lets start hope you can help me



I trying to make a tcl script .....
When my bot is on 20 channels he part #bothut and when he have parted a another chan he join #bothut and I want it o work plz help me

[Stone]

Code: Select all

bind pub n ".check" part:join
proc part:join {nick uhost handle channel text} {
if {[llength [channels]] == 20} {
putquick "privmsg #i-sg.tcl :I am full, part"
channel remove #yourchan
} else { channel add #yourchan }
}

[caesar]

Hint: instead of removing the channels and adding them back better to a +inactive and -inactive and get the number of the channels he is on with a different thing, something like:

Code: Select all

set mychannels 0
foreach chan [chanlist] {
if {[botonchan $chan]} {
incr mychannels
}
}

something like this anyway.. I'm to damn tierd to think at other methods right now..

[Stone]

closed, ;D