Allows you to mark yourself away on one or more networks from a single dialog. Network names show in one of two lists.

The OK & Cancel buttons aren't really necessary, as the code marks you away (or not away?) upon selection of the network in the dialog.

Just right click anywhere and select Away

Nick change added

dialog Away {
  title "Away"
  size -1 -1 115 85
  option dbu
  text "Away", 10, 60 5 50 10, center
  text "Active", 20, 5 5 50 10, center
  list 30, 5 15 50 50, size
  list 40, 60 15 50 50, size
  button "OK", 50, 5 70 50 10, ok default
  button "Cancel", 60, 60 70 50 10, cancel
}
menu * {
  .Away: .dialog -md Away Away
}
on *:dialog:Away:init:*:{
  var %networks = $scon(0)
  var %a = 1
  while %a <= %networks {
    did -a $dname $iif($scon(%a).away == $false,30,40) $scon(%a).network
    inc %a
  }
}
on *:dialog:Away:sclick:30,40:{
  did -a $dname $iif($did == 30,40,30) $did($dname,$did).seltext
  set %network $did($dname,$did).seltext
  did -d $dname $iif($did == 30,30,40) $did($dname,$did).sel
  var %c = 1 
  while $scon(%c).network { 
    if ($v1 == %network) {
      if $did == 30 {
        .scon %c nick $+($me,|AFK) | away $$?="Away Message"
      }
      else {
        .scon %c nick $left($me,-4) | away
      }
      echo -a $iif($did == 30,Now,No longer) away on $scon(%c).network
      var %c = $scon(0)
    } 
    inc %c 
  }
}