Anonymous

proc harry_+chan {hand idx arg} {
putacmdlog "#$hand# $lastbind [xindex $arg 0]"
set chan [xindex $arg 0]
if {[string range [xindex $arg 1] 0 6] == "%delay-"} {
set delay [string range [xindex $arg 1] 7 end] 
set key [xindex $arg 2]
} {
set key [xindex $arg 1]
}
if {$chan == ""} {
putidx $idx "[harry -u] .$lastbind <#channel> \[%delay-<sec>\] \[key\]"
return 0
}
if {![string match *[string index $chan 0]* #&]} {
set chan "#$chan"
}
if {[validchan $chan]} {
putidx $idx "[harry -e] I'm already on $chan"
return 0
}
putidx $idx "Joining $chan" 
if {[info exists delay]} {
set i 0
  incr i $delay
  utimer $i [list hputbot $bot "hry join $chan $key"]
}
} {
hputallbots "hry join $chan $key"
}
addchan $chan $key
return 0
}