Something

on *:TEXT:!tcalc *:#:{
  /set %hourl. $2
  /set %minl. $3 
  /set %secl. $4
  /set %hourr. $5
  /set %minr. $6
  /set %secr. $7
  /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. - %hourr.) $+
  /set %min. $calc(%minl. - %minr.) $+
  /set %sec. $calc(%secl. - %secr.) $+
  /msg $chan %hour. : %min. : %sec. 
  /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. - %hourr.) $+
  /unset %min. $calc(%minl. - %minr.) $+
  /unset %sec. $calc(%secl. - %secr.) $+
}