#######
# Fonctions de transfert pour 1.4.0+

proc date {} {
 return [strftime "%-d %b %Y"]
}

proc time {} {
 return [strftime "%H:%M"]
}

#######
# HDB

bind dcc - hdb dcc_hdb
proc dcc_hdb {hand idx arg} {
  putdcc $idx [strftime "-> %T HDB <- (%d %b %Y)"]
  return 1
}

bind dcc - heure dcc_heure
proc dcc_heure {hand idx arg} {
  putdcc $idx "Il est l'heure de t'acheter une montre voilą tout! ;-p"
  return 1
}