Forums Scripts & Popups multiserver away

alias maway {
  var %away = $input(Enter Excuse for not $+ $crlf being here to talk to me,e)
  scon -as away %away
}

alias away.on {
  if (%as6away != on) {
    tnick $me $+ - $+ %as6awaysuffix    
    set %as6away on
    echo 5 -a Away is on.
    set %as6chan 1
    set %as6cnum $chan(0)      
    while (%as6chan <= %as6cnum) {
      .timer 1 1 notice $chan(%as6chan) $mnick is %as6awaymessage $+ ; to page me type !page $!me     
      inc %as6chan      
    }      
  }      
  else {
    echo 5 -a Away is already on.   
  }
}    

.timer 1 1 ame $mnick is %as6awaymessage $+ ; to page me type !page $!me  

 .scon -at1 away.on 

 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) {
      .scon %c away $iif($did == 30,away message)
      echo -a $iif($did == 30,Now,No longer) away on $scon(%c).network
      var %c = $scon(0)
    } 
    inc %c 
  }
}