This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

i need a tcl file to:

Old posts that have not been replied to for several years.
Locked
m
matt2kjones
Voice
Posts: 24
Joined: Fri Feb 07, 2003 11:16 am

i need a tcl file to:

Post by matt2kjones »

I need a tcl file, which every minute, writes to a text file how many users are in the chat room the bot is connected in.

If anyone could do that for me, or could direct me to a pre made script then that wold be great

Thanx :)
http://www.thedigitaldream.co.uk
irc.thedigitaldream.co.uk #thedigitaldream
User avatar
Papillon
Owner
Posts: 724
Joined: Fri Feb 15, 2002 8:00 pm
Location: *.no

Post by Papillon »

try searching in the tcl archive, or why not trying to make it yourself? :)
Elen sila lúmenn' omentielvo
User avatar
caesar
Mint Rubber
Posts: 3778
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

Code: Select all

set status(file) "status.txt"
set status(chan) "#channel"

bind time - * chan:status

proc chan:status {args} {
  if {![validchan $::status(chan)]} {
    putlog "\002Warning!\002 Invalid channel $::status(chan).. Please replace it!"
    return
  }
  set file [open $::status(file) w]
  puts $file "Current $::status(chan) users: [llength [chanlist [string tolower $::status(chan)]]]"
  catch {close $file}
}
Once the game is over, the king and the pawn go back in the same box.
Locked