### ????? ?????? ???????
proc ::tpub::cmd_??? {nick chan text} { return [cmd_top $nick $chan $text] }
proc ::tpub::cmd_njg {nick chan text} { return [cmd_top $nick $chan $text] }
proc ::tpub::cmd_top {nick chan text} { variable game; variable conf
 if {"$chan $text" == "? ?"} { return [usage $nick top "????????????" "????? ?????????? ? ?????? ???????."] }

 
 
 if {$text == ""} {
 if {![llength [set users [users list]]]} {
  putmsg $chan "$nick, ??????? ???????? ?????."
  return 0
 }
 
  set msg ""
  set place 0
  foreach item [lrange [users list] 0 9] {
   if {[lindex $item 1] != 0} { append msg ", \00304\002\002[incr place]. \00303[lindex $item 0]\00314 (\00307[lindex $item 1]\00314)\00310" }
   unset item
  }
  if {$msg != ""} { if {$conf(modset) eq 1} {putserv "MODE $chan -c"}; putserv "PRIVMSG $chan : \00310??????? ??????? ?? ??? ?????:\00304 [string range $msg 2 end]\00310.\003"; if {$conf(modset) eq 1} {putserv "MODE $chan +c"} }
  
  if {[llength [set users [users listmonth]]]} {
  set msg ""
  set place 0
  foreach item [lrange [users listmonth] 0 9] {
   if {[lindex $item 1] != 0} { append msg ", \00304\002\002[incr place]. \00303[lindex $item 0]\00314 (\00307[lindex $item 1]\00314)\00310" }
  }
  if {$msg != ""} { if {$conf(modset) eq 1} {putserv "MODE $chan -c"}; putserv "PRIVMSG $chan : \00310??????? ??????? ????? ??????:\00304 [string range $msg 2 end]\00310.\003"; if {$conf(modset) eq 1} {putserv "MODE $chan +c"}  } 
  }
  if {[llength [set users [users listday]]]} {
  set msg ""
  set place 0
  foreach item [lrange [users listday] 0 9] {
   if {[lindex $item 1] != 0} { append msg ", \00304\002\002[incr place]. \00303[lindex $item 0]\00314 (\00307[lindex $item 1]\00314)\00310" }
  }
  if {$msg != ""} { if {$conf(modset) eq 1} {putserv "MODE $chan -c"}; putserv "PRIVMSG $chan : \00310??????? ??????? ?? ??????? ([clock format [clock seconds] -format "%d.%m.%Y"]):\00304 [string range $msg 2 end]\00310.\003"; if {$conf(modset) eq 1} {putserv "MODE $chan +c"}  } {putmsg $chan "??????? ????? ?? ????? \:\("}
  return
  }
  
  
 }
 #putlog "$text"