This is a simple afk script.

Type /afk to go away.
Type /bk to come back.

Also logs highlights while afk.

alias afk {
  if (!%away.check) {
    set %away.check on
    set %away.reason $1-
    set %away.tme $ctime
    set %away.time 0
    set %away.msg.total 0
    inc -c %away.time
    scid -a away $1-
    scid -a amsg 7[14::7AmSg14::7] 14I am now 7[7AFK:14 %away.reason 7]
  }
  else {
    echo -a You are already away!

  }
}
alias bk {
  if (%away.check == on) {
    unset %away.check
    if (%away.reason) {
      scid -a amsg 14I am no longer 7[7AFK:14 %away.reason 7]14 after 7[14 $duration(%away.time) 7]
      if (%away.msg.total == 0) { echo -a There are $chr(2) $+ 0 $+ $chr(2) messages recorded in your away box. }
      else {
        echo -a There are $chr(2) $+ %away.msg.total $+ $chr(2) messages recorded in your away box.
        var %away.x = 1
        while (%away.x <= %away.msg.total) {
          echo -a Message $chr(2) $+ %away.x $+ $chr(2) from $chr(2) $+ $gettok($($+(%,away.msg.,%away.x),2),2,32) $+ $chr(2) in $chr(2) $+ $gettok($($+(%,away.msg.,%away.x),2),1,32) $+ $chr(2) $+ : $gettok($($+(%,away.msg.,%away.x),2),3-,32)
          inc %away.x
        }
        echo -a End of messages.
      }
      unset %away.*
      away
    }
  }
  else {
    echo -a You are not away!
  }
}

on *:TEXT:*:#: {
  if ($me isin $1-) || ($anick isin $1-) || ($mnick isin $1-) {
    if (%away.reason) {
      notice $nick I am away ( $+ %away.reason $+ ). I left $duration($calc($ctime - %away.tme)) ago. This message will be saved for when I come back.
      inc %away.msg.total
      set $+(%,away.msg.,%away.msg.total) $chan $nick $1-
    }
  }
}