Channels

[dq]

Howdy,

Anyone buck enough to traslate this into TCL?

It basically just spits out to the channel what channels the bot is currently in via .commands

Code: Select all

on *:TEXT:.channels:#:{
set %i 1
set %a $null
while %i <= $chan(0) {
(1%a = %a $+ $chr(32) $+ $chan(%i)
inc %i }
msg $chan Channels Idling $calc( $chan(0)) channels ; %a ¬ 
}

GL and thanks in advance.

[DragnLord]

This would fit beter in requests. This is not tcl that you asking for help with.

[whittinghamj]

This should work

Code: Select all

bind pub - !channels pub:channels

proc pub:channels {nick host hand chan arg} {
	set chans [chanlist]
	notice $nick "Channels: $chans"
	putcmdlog "<<$nick>> !$hand! channels"
}

[dq]

Thanks for the replys guys,

whittinghamj, I get the error

Code: Select all

[01:43] Tcl error [pub:channels]: wrong # args: should be "chanlist channel ?flags?"

Am I doing something wrong?

[metroid]

the command is

Code: Select all

channels

not "chanlist", i have no idea how you could even confuse the two

[whittinghamj]

sorry - i been up for the past three days without sleep - its been stressful at work - server hacks

thanks for correcting me.

[dq]

Thanks guys,

And sorry to hear about that whittinghamj :<