#**********************************#
# Xhelp.tcl Aide sur les commandes #
#          Geofront                #
#**********************************#

namespace eval helpcmds {}

bind dcc - cmds helpcmds::xhelp
proc helpcmds::xhelp {hand idx arg}  {
  putdcc $idx "\00300,01AIDE => Commandes Robot $::botnick"
  putdcc $idx "_"
      if {$level == "0"} {
    putdcc $idx "\0031Level \002NULL\002 \0031($::botnick) : \037COMMANDES Pincipales\037"
    putdcc $idx "_"
  }
  if [matchattr $hand A $c] {
    putdcc $idx "\0031Level \002I\002 \0031($::botnick) : \037COMMANDES ChanAdmins\037"
    putdcc $idx "_"
  }
  if [matchattr $hand B $c] {
    putdcc $idx "\0031Level \002II\002 \0031($::botnick) : \037COMMANDES Géofrontistes\037"
    putdcc $idx "_"
  }
  if [matchattr $hand C $c] {
    putdcc $idx "\0031Level \002III\002 \0031($::botnick) : \037COMMANDES IrcOpérateurs\037"
    putdcc $idx "_"
  }
  if [matchattr $hand D $c] {
    putdcc $idx "\0031Level \002IV\002 \0031($::botnick) : \037COMMANDES Administrateur\037"
    putdcc $idx "_"
  }
}