egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2001-10-29T14:43:00-04:00 https://forum.eggheads.org/app.php/feed/topic/278 2001-10-29T14:43:00-04:00 2001-10-29T14:43:00-04:00 https://forum.eggheads.org/viewtopic.php?p=1183#p1183 <![CDATA[Bot doesn't react on users leaving channel]]>

Statistics: Posted by Guest — Mon Oct 29, 2001 2:43 pm

]]> 2001-10-29T13:38:00-04:00 2001-10-29T13:38:00-04:00 https://forum.eggheads.org/viewtopic.php?p=1177#p1177 <![CDATA[Bot doesn't react on users leaving channel]]>
The script is a "max-number of users in the channel"-script, which saves the number of users (of course) and the date and time when the record was set. Kind of basic stuff for a channel with 10 - 20 users.

I'm posting the routine which is failing and it's bind. If you want the rest, just request and I'll mail it.

BTW, this is my first tcl-script so be nice =)


--------------------------------

bind sign - * cm_left

--------------------------------

proc cm_left {nick host handle channel reason} {
global cm_chan cm_numusers

set cm_numusers [llength [chanlist $cm_chan]]

# debugging!
putlog "ChanMax: User $nick left $cm_chan. Now $cm_numusers online."

return 0
}

--------------------------------

Statistics: Posted by Guest — Mon Oct 29, 2001 1:38 pm

]]>