skiidoo

# 352 WHO REPLY
on 352 mywho {
    global skii_whois_cfg
    global who_en
    global who_comp
    global who_clones
    if {$who_en > 0 } {
        set whodata [split $_rest " "]
        set wd(ident) [lindex $_rest 1]
         set wd(host) [lindex $_rest 2]
        set wd(chan) [lindex $_rest 0]
        set wd(server) [lindex $_rest 3]
        set wd(nick) [lindex $_rest 4]
        set wd(awaystatus) [lindex $_rest 5]
        set wd(realname) [lrange $_rest 7 end]
        set col 7
        if {[string index $wd(awaystatus) 0] != "H"} { set col 15}
        if { $who_comp > 0 } {
            lappend who_clones $wd(nick)
            complete EAT_ALL
        } else {
            print "[color $col]*** [reset][bold]$wd(nick)[bold]\t$wd(ident)@$wd(host)[color 14] ($wd(realname)) is on $wd(chan)
@ $wd(server)"
            complete EAT_ALL
        }
    } else {
        complete EAT_NONE
    }

    unset wd
}