alias liko2 {
  if ($1 == off) { .timerliko off | halt }
  var %tmpM $calc($gettok($1,2,58)-$asctime(nn))
  if (%tmpM < 0) { %tmpM = $calc(60+%tmpM) | var %tmpH $calc($gettok($1,1,58)-$asctime(HH)-1) }
  else { var %tmpH $calc($gettok($1,1,58)-$asctime(HH)) }
  if (%tmpH < 0) { .timerliko off | halt }
  if (%tmpH == 0) && (%tmpM == 0) halt
  msg #scripting Iki $1 liko $iif(%tmpH == 0,%tmpM min,%tmpH h. %tmpM min.)
  .timerliko 1 $iif($2 isnum,$2,60) liko2 $1-
}