on *:TEXT:!tcalc *:#:{
  /set %hourl. $2
  /set %minl. $3 
  /set %secl. $4
  /set %hourr. $6
  /set %minr. $7
  /set %secr. $8
  /set %hourl2. $calc(%hourl. * 3600) $+  
  /set %minl2. $calc{%minl. * 60) $+
  /set %secl2. $calc(%secl. * 1) $+
  /set %hourr2. $calc(%hourr. * 3600) $+
  /set %minr2. $calc(%minr. * 60) $+
  /set %secr2. $calc(%sec5. * 1) $+
  /set %hour. $calc(%hourl. $5 %hourr.) $+
  /set %min. $calc(%minl. $5 %minr.) $+
  /set %sec. $calc(%secl. $5 %secr.) $+
  /set %msec. $calc(%sec. / 60) $+
  /set %msec1. $calc(%msec. * 60) $+
  /set %msec2. $calc(%sec. - %msec1.) $+
  /set %mmin. $calc(%msec. + %min.) $+
  /set %mmin2. $calc(%mmin. / 60) $+ 
  /set %mmin3. $calc(%mmin2. * 60) $+
  /set %mmin4. $calc(%min. - %mmin3.) $+
  /set %mhour. $calc(%mmin2. + %hour.) $+
  /msg $chan %mhour. hours %mmin4. minutes %msec2. seconds 
  /unset %hourl. $2
  /unset %minl. $3 
  /unset %secl. $4
  /unset %hourr. $5
  /unset %minr. $6
  /unset %secr. $7
  /unset %hourl2. $calc(%hourl. * 3600) $+  
  /unset %minl2. $calc{%minl. * 60) $+
  /unset %secl2. $calc(%secl. * 1) $+
  /unset %hourr2. $calc(%hourr. * 3600) $+
  /unset %minr2. $calc(%minr. * 60) $+
  /unset %secr2. $calc(%sec5. * 1) $+
  /unset %hour. $calc(%hourl. $5 %hourr.) $+
  /unset %min. $calc(%minl. $5 %minr.) $+
  /unset %sec. $calc(%secl. $5 %secr.) $+
}