Away script mIRC

alias ZAway {
  var %x = 1
  while ($chan(%x)) { var %chan = $v1
    /describe %chan is now away: Reason $2- On $day at $time
    inc %x 
  }

  /set %reason $2-
  /set %time $uptime
  /set %time2 $time
  /nick Zeldo| $+ $1
}
alias ZBack {
  var %x = 1 
  var %timegone = $calc($uptime - %time)
  while ($chan(%x)) { var %chan = $v1
    /describe %chan is now back: Gone for: $ChangeTime(%timegone) - Left at %time2 - Reason for leaving: %reason
    inc %x 
  }
  /nick Zeldo
}

alias ChangeTime {
  var %a = 1
  var %ChangeTime $1
  var %Min = 0
  var %hour = 0
  :GoAgain
  if ($calc(%changetime - 60) >= 0) {
    var %changetime = $calc(%changetime - 60)
    inc %Min
    goto GoAgain
  }
  else {
    var %a = 2
    goto GoHour
  }
  :GoHour
  if ($calc(%Min - 60) >= 0) {
    var %Min = $calc(%Min - 60)
    inc %Hour
    goto GoHour
  }
  else {
    var %a = 2

    goto MakeReturn

  }
  :MakeReturn
  if (%hour > 0) {
    var %words %hour Hour's
  }
  if (%min > 0) {
    var %words %min Min's and
  }
  return %Words %changetime Seconds

}