Someone

menu * { 
  Away Script:/dialog -m Away Away
}

dialog Away {
  title "Bmw's Dialog"
  size -1 -1 120 85
  option dbu
tab "Stuff 1", 9, 0 0 317 235
  text "Made by Bmw13cool", 1, 50 74 100 10, tab 9
  button "Away!", 2, 2 42 30 10, tab 9
  button "Back!", 3, 2 57 30 10, tab 9
  button "Cancel", 4, 2 72 30 10, Cancel, tab 9
  edit "Type your away message here", 5, 34 41 84 30, hsbar, multi, tab 9
  edit "New nick?", 6, 34 27 84 13, tab 9
  check "Check Box", 7, 25 30 7 7, tab 9
  text "Change   nick?", 8, 2 25 18 15, tab 9
  tab "Away Script", 10, 0 0 120 84
  tab "Other tools", 11, 25 0 120 84
 tab "Trace", 12
  text "Sample text", 13, 50 74 100 10, tab 12
}

on *:dialog:Away:sclick:2:{ 
  set %reason $did(5)
  /amsg 10-2=1[10 AMSG1 ]2=10-10 I am now going away. Reason: %reason
  if ($did(7).state) { /nick $did(6) }
  set %wasnick $me
  set %awaytime $ctime
  set %amiaway true
}
on *:dialog:Away:sclick:3:{ 
  /amsg 10-2=1[10 AMSG1 ]2=10-10 I am now  back from: %reason $+ . I have been away for $duration($calc($ctime - %awaytime))
  /nick %wasnick
  set %amiaway false
}
on *:TEXT:*:#:{ 
  if (%amiaway == true) {
    if ($1 == bmw || $1 == bmw13cool) { 
      notice $nick I am currently away. Leave me a query.
    } 
  }
}