on :TEXT::?: {
if ($me == %nick $+ |afk) {
msg $nick 9H3ello4 %nick $+ 3. 9I3 9A3m 9C3urrently 9A3way. 9I 9W3ill 9R3espond 9T3o 9Y3ou 9A3s 9S3oon 9A3s 9P3ossible. 9R3eason:4 %afk
}
}

Aliases

alias afk {
set %nick $me
set %away on
/nick %nick $+ |afk
/set -n %afk $?="Enter reason for being AFK"
/away %afk
/amsg 11 $+ %nick is AFK. Reason:4 %afk $+ 11.
}
alias back {
set %away off
/nick %nick
/away
/amsg 11 $+ %nick is back from:4 %afk $+ 11.
}

menu channel,query,status,nicklist,menubar {

Away:
.Away: /afk
.Back: /back

}