; -=Basic Clock Kit=- 
 ;(Paste into Tools, aliases, and decorate to taste) *****
 ;to activate, simply type /clock  *enter*

/clock {
 /say 0,0___1Pacific0____15,14\14,14 $atime 15,14/
 /say 0,0___1Standard0___15,14 4,1 $atime 15,14 
 /say 0,0___1Time0____...15,14/14,14 $atime 15,14\
}
/atime {
  set %hr $token(1,58,$time)
  set %min $token(2,58,$time)
 if (%hr == 0) { set %hr 12 | set %sub am }
  elseif (%hr < 12) { set %sub am }
  elseif (%hr == 12) { set %sub pm }
  else { %hr = %hr - 12 | set %sub pm }
  return %hr $+ : $+ %min  %sub
}

    Source: geocities.com/southbeach/breakers/Breakers/8178/mirc

               ( geocities.com/southbeach/breakers/Breakers/8178)                   ( geocities.com/southbeach/breakers/Breakers)                   ( geocities.com/southbeach/breakers)                   ( geocities.com/southbeach)