Unnamed

alias away { set %away 1 
  set %left $time
  set %tleft $ctime 
  if ($1-) {
  set %awaymsg $1- }
  if (!$1) { set %awaymsg BBL }
amsg $chr(91) $+ $h(»AWAY«) $+ ] I am now away, $h(%awaymsg) $+ . Left at $h($time) $+ . }

alias back { set %leftedit $replace(%left,$chr(58),$null)
  set %timeaway $duration($calc($ctime - %tleft),3) 
  unset %away 
  amsg $chr(91) $+ $h(»BACK«) $+ ] I am now back from $h(%awaymsg) $+ . Left at $h(%left) $+ , was gone for $h(%timeaway) $+ . 
  unset %left 
  unset %tleft
  unset %awaymsg 
  unset %timeaway 
  unset %leftedit
unset %told* }

on $*:TEXT:/^(.*)(hersh(alersh)?)(.*)/Si:*:{ if (%away == 1) { if (!%told [ $+ [ $nick ] ] ) {
      notice $nick I am away, $h(%awaymsg) $+ . I left at $h(%left) $+ . One time response to highlight. 
      set %told [ $+ [ $nick ] ] 1 
halt } } }