Untitled

alias away { 
  set %areason $1-
  set %time $ctime
  set %adaryl on
  /nick Daryl`Away
  amsg 14 I am now away reason ~ 3 %areason 14 Left at 2 ~ 3 $asctime(HH:nn:ss)
  msg #bot I am now away reason ~ %areason Left at  ~  $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))
  msg #bot I am now back from ~  %areason gone for ~  $duration($calc($ctime - %time))
  unset %areason
  set %adaryl off
  unset %time
  /nick Daryl|
}

on *:text:*daryl*:#: {
  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))
  }
}