Away

alias away { 
  set %areason $1-
  set %time $ctime
  set %adaryl on
  /nick Louisc999|Away
  amsg 14 I am now 4away14 reason  4 %areason 14 Left at 2 ~ 3 $asctime(HH:nn:ss)
}


alias back {
  amsg 14 I am now back from 2~ 3 %areason 14 gone for 2~ 3 $duration($calc($ctime - %time))
  unset %areason
  set %adaryl off
  unset %time
  /nick Louisc999
}

on *:text:*Louisc999*:#: {
  if (%adaryl == off) { HALT }
  if (%adaryl == on) {
    notice $nick 14 I am currently away reason ~ 3 %areason 14 Left at 2 ~ 3 $asctime(HH:nn:ss) 14Been Gone for3  $duration($calc($ctime - %time))
  }
}