Something

on *:text:*:*: {
  if (%awaytoggle = off) { halt }
  set %idletime $idle
  if (%idletime >= 10) { 
    unset %stop1
    set %away AFK
    if (%stop2 = stop2) { goto one | halt }
    ame is away reason: %away - 4Left at: $asctime(h:nn tt) ( $+ %gmt $+ )1 - 4Auto-away after 10 minutes idle
    set %time Left at: $asctime(h:nn tt)
    set %timeaway $ctime
    nick %awaynick
    set %stop2 stop2
    Away 4Auto-away - Left at %time
  } 
  if (%idletime <= 9) {
    if (%stop1 = stop1) { halt }
    unset %stop2    
    Away
    /nick %mainnick
    ns id %pass
    ame is back from: %away - 15I was away for $duration($calc( $ctime - %timeaway )) 1- 4 %time ( $+ %gmt $+ )
    set %stop1 stop1
    unset %timeaway
    unset %time
    unset %away
    unset %awayuserlist
  }
  :one  
  if ($$1- == %respondnick) {
    if ($address($nick,2) isin %awayuserlist) || (%stop1 = stop1) || (%awaytoggle = off) { halt }
    set %awayuserlist %awayuserlist $address($nick,2)
    notice $nick 1I'm currently away Reason: %away - Left at %time ( $+ %gmt $+ ) - 4One time Response1
  }
}