TCL Auto Whom
Auto Whom
### autowhom.tcl v1.0.0, 7 April 2002
### by Graeme Donaldson
### Automatically does a .whom when a user logs on to partyline.
set awver "1.0.0"
set awnver "100000"
putlog "Loading autowhom.tcl $awver by Souperman..."
bind chon - * awdowhom
proc awdowhom {hand idx} {
*dcc:whom $hand $idx *
}
putlog "Successfully loaded autowhom.tcl $awver by Souperman!"