Simple auto-away script

on *:input:*:{
  if ($away) {
    away
    ame Has Returned, Was Gone For: $duration($calc($ctime - %awaytime )) - (Reason: Auto A-F-K After 30 minutes..)
    unset %awaytime. [ $+ [ $network ] ]
  }
}
on *:ping:{
  if ($idle >= 1800 && !$away) {
    set %awaytime. [ $+ [ $network ] ] $ctime
    away Auto A-F-K After 30 minutes..
    ame Has Gone Away... - (Reason: Auto A-F-K After 30 minutes..)
  }
}