bind chon - * ldcc:show proc ldcc:show {hand idx} { set lsttime [getuser $hand XTRA LSTDCC] putdcc $idx "\002Последний вход\002 - $lsttime" setuser $hand XTRA LSTDCC "[ctime [unixtime]] с адреса \002*![egglib:idx2host $idx]\002" } proc egglib:idx2host { idx } { set lstdcc [dcclist] set i 0 while { $i < [llength $lstdcc] } { if { [lindex [lindex $lstdcc $i] 0] == $idx } { set hstdcc [lindex [lindex $lstdcc $i] 2] } incr i } return $hstdcc } putlog "dcclast v1.0 by mrBuG loaded."