alias -l c1 { return $+($chr(3),10,$1-) } 
alias -l c2 { return $+($chr(3),12,$1-) } 
on $*:TEXT:/^[!@]time/Si:#: { 
  if ($left($1,1) == $chr(33)) { set %msg notice $nick } 
  elseif ($left($1,1) == $chr(64)) { set %msg msg $chan } 
  set %1 $calc($ctime + 3600)
  set %2 $calc($ctime + 18000)
  set %3 $calc($ctime + 21600)
  set %4 $calc($ctime + 54000)
  %msg $c1 $+ Current Times:
  %msg $c1 $+ USA -- CST: $c2 $+ $asctime(h:nntt ddd d) $+ th
  %msg $$c1 $+ USA -- EST: $c2 $+ $asctime(%1,h:nntt ddd d) $+ th
  %msg $c1 $+ UK --- GMT: $c2 $+ $asctime(%2,h:nntt ddd d) $+ th
  %msg $c1 $+ Euro - CET: $c2 $+ $asctime(%3,h:nntt ddd d) $+ th
  %msg $c1 $+ Aus -- EST: $c2 $+ $asctime(%4,h:nntt ddd d) $+ th
  unset %1
  unset %2
  unset %3
  unset %4
unset %msg
}
}