menu channel {
  .Default Settings:/default
  .Set Away:/a $$?="Enter an away reason:"
  .Set Back:/back
  .Auto-reply On:/set %nickmsg on
  .Auto-reply Off:/set %nickmsg off
  .Away Tag:/set %tag $$?="Enter your away tag:"
}

alias default {
  set %a off
  set %tag [A]
  set %nickmsg on
  set %name $me
  echo -ta Settings has been set to default!
}

alias a {
  away $1-
  set %a on
  ame is now away! Reason: $1-
  nick $me $+ %tag
}

alias back {
  away
  set %a off
  nick $remove($me,%tag)
  ame is no longer away! Away Time: $duration($awaytime,23)
}

on *:TEXT:%name:#: {
  if ( %a == on ) && ( %nickmsg == on ) && ( %chan.flood != 1 ) {
    set -u90 %chan.flood 1
    msg $chan I'm currently away from IRC. Awaymsg: $awaymsg
  }
  elseif ( %nickmsg == off ) { halt }
  else { halt }
}

on *:TEXT:*:?: {
  if ( %a == on ) && ( %nickmsg == on ) && ( %query.flood != 1 ) {
    set -u60 %query.flood 1
    msg $nick I'm currently away from IRC. Awaymsg: $awaymsg
  }
  elseif ( %nickmsg == off ) { halt }
  else { halt }
}