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 %hourr2. $calc(%hourr. * 3600) $+
  /set %minr2. $calc(%minr. * 60) $+
  /set %allsecl. $calc(%hourl2. + %minutel2. + %secl.) $+
  /set %allsecr. $calc(%hourr2. + %minuter2. + %secr.) $+
  /set %allsec. $calc(%allsecl. $5 %allsecr.) $+
  /set %alltimehour. $calc(%allsec. / 3600) $+
  /set %hourgone1. $calc(%alltimehour. * 3600) $+
  /set %hourgone2. $calc(%allsec. - %hourgone1.) $+
  /set %alltimemin. $calc(%hourgone2. / 60) $+
  /set %mingone1. $calc(%alltimemin. * 60) $+
  /set %mingone2. $calc(%hourgone2. - %mingone1.) $+
  /msg $chan %alltimehour. hours %hourgone2. minutes %mingone2. seconds 
  /unset %hourl. $2
  /unset %minl. $3 
  /unset %secl. $4
  /unset %hourr. $6
  /unset %minr. $7
  /unset %secr. $8
  /unset %hourl2. $calc(%hourl. * 3600) $+  
  /unset %minl2. $calc{%minl. * 60) $+
  /unset %hourr2. $calc(%hourr. * 3600) $+
  /unset %minr2. $calc(%minr. * 60) $+
  /unset %allsecl. $calc(%hourl2. + %minutel2. + %secl.) $+
  /unset %allsecr. $calc(%hourr2. + %minuter2. + %secr.) $+
  /unset %allsec. $calc(%allsecl. $5 %allsecr.) $+
  /unset %alltimehour. $calc(%allsec. / 3600) $+
  /unset %hourgone1. $calc(%alltimehour. * 3600) $+
  /unset %hourgone2. $calc(%allsec. - %hourgone1.) $+
  /unset %alltimemin. $calc(%hourgone2. / 60) $+
  /unset %mingone1. $calc(%alltimemin. * 60) $+
  /unset %mingone2. $calc(%hourgone2. - %mingone1.) $+
}