dialog ASO {
  title "Away Options"
  size -1 -1 120 55
  option dbu
  button "Set Options", 1, 2 2 116 10
  box "Away Nick Options", 2, 2 12 116 21
  edit "[AFK]", 3, 6 20 108 10, read
  box "Away Message", 4, 2 32 116 21
  edit "", 5, 6 40 108 10
}
on *:dialog:aso:init:*:{
  did -ra ASO 3 %me $+ [AFK]
}
on *:dialog:aso:sclick:1:{
  if (did == 1) {
    if (!$did(3) set %ano  ) 
  }
  else {
    set %ano $did(3)
  }
  if (did == 1) {
    if (!$did(5) set %awaymsg  ) 
  }
  else {
    set %awaymsg $did(5)
  }
  dialog -x aso aso
}
#nick_notify on
on *:TEXT:$($+(*,%me,*)):*:{ .echo $me $nick has said you name on # $nick has said $1- $+ 
  .notice $nick I am [AFK] (For Reason: %awayreasom $+ ) I will get back to you asap.
} 
#nick_notify end 
menu * { 
  Away 
  .Set $me away: set %nick $me | set %Awayreason $$?="Enter Away Reason" | amsg ( $+ %awaymsg $+ ) (for Reason: %awayreason $+ ) | set %me $me | nick $me $+ [AFK] | away %awayreason | set %awaytime $ctime 
  .Set $me Back: amsg (Is Now Back From: %awayReason $+ ) (I Was Gone For: $duration($calc($ctime - %awaytime) $+ ) | nick %nick | away
  .Turn Nick Notify $iif($group(#nick_notify).status == on,Off,On) : $iif($group(#nick_notify).status == on,.dis,.en) $+ able #nick_notify
  .Away Options: dialog -m aso aso 
} 

Commenting Options