Snippet has been tested. Alias Away & Back + Input Reason. I've added a little code where if someone says your name it messages them with "Shhh, I'm away."
If people usually call you by a shortened version of your nick change "on text: $+ %x $+ :#:" to "on :text:YOUR_SHORTENED_NICK:#:"
Updated: Added rememberal so now all you have to type is /away (reason), and when you get back just type /back.
;Away System Verson 1.2
;By Krobeluskill
/away { set %j $time | set %l $ctime | set %x $me | set %awayr $1- | amsg I am now away (4Away Reason: $1-) (2Time left: %j $+ ) } { nick $me $+ `Away }
on *:text:* $+ %x $+ *:#: if ( $me == %x $+ `Away ) notice $nick Shhh, I'm away.
/back { amsg I am now back (4Away Reason: %awayr $+ ) (2Gone for: $duration($calc($ctime - %l)) $+ ) (3Left at: %j $+ ) } { nick %x | unset %l | unset %x | unset %j | unset %awayr }