;########################################
; Usage :: /aw <nick> <reason> || /back #
;########################################

alias aw {
  if (!$1) { echo -a Provide a nickname! | halt }
  if (!$2-) { echo -a Provide a reason! | halt }
  /set %away.nick $me
  /set %away.time $ctime
  /set %away.reason $2- {
    amsg 8::: 8A10way8 ::: 8I10 am now away!  08R10eason 8:::10 %away.reason 8::: 8L10eft at 8:::10 $time($+ HH8:10 $+ nn8:10 $+ ss 8:::)  {
      qmsg 8::: 8A10way 8 ::: 8I10 am now away!  08R10eason 8:::10 %away.reason 8::: 8L10eft at $time(8:::10   $+ HH8:10 $+ nn8:10 $+ ss 8:::)  {
        nick $1 
        /away 08R10eason 8:::10 %away.reason 8::: 8L10eft at $time(8:::10  $+ HH8:10 $+ nn8:10 $+ ss 8:::)  {
          enable #script
        }
      }
    }
  }

  alias back {
    /away
    amsg 8::: B1010ack8 ::: I10 am now back! 8:::  8F10rom 8:::10 %away.reason 8:::8 B10een away for $duration($calc($ctime - %away.time)) 8::: {
      qmsg 8::: B1010ack8 ::: I10 am now back! 8:::  8F10rom 8:::10 %away.reason 8:::8 B10een away for $duration($calc($ctime - %away.time)) 8::: {
        nick %away.nick
        unset %away.time
        unset %away.reason
        unset %away.nick
        disable #script
      }
    }
  }

  #script off
  on *:text:$($+(*,Killer,*)):#: {
    /window @AwayHighlight
    /echo @AwayHighlight $time $+ - $+ $nick $+ - $+ $chan $+ : $1-
  }
  #script end