alias aw {
if ($1 == $null) echo -a Provide a nickname! | halt } 
/set %away.nick $me
/set %away.timehours $time(HH)
/set %away.timeminutes $time(nn)
/set %away.timesecs $time(ss)
/set %away.reason $2- {
  msg $chan 4« 14Away4 » 10I14 am now away!  10R14eason 4:::14 %away.reason 4::: 10L14eft at $time(10(04 $+ HH14:04 $+ nn14:04 $+ ss10))  {
    nick $1 {
      /away 10R14eason 4:::14 %away.reason 4::: 10L14eft at $time(10(04 $+ HH14:04 $+ nn14:04 $+ ss10))
enable #script
    }
  }
}



alias back {
  /away {
    msg $chan 4« 14Back4 » 10I14 am now back!  10R14eason 4:::14 %away.reason 4::: 10B14een away for $calc($time(HH) - %away.timehours) 10H14ours $calc($time(nn) - %away.timeminutes) 10M14inutes $calc($time(ss) - %away.timesecs) 10S14econds! {
      nick %away.nick {
        unset %away.timehours
        unset %away.timeminutes
        unset %away.timesecs
        unset %away.reason
        unset %away.nick
disable #script
      }
    }
  }
}