;-=-=-=-=-=-
; DeadLy Script - AWAY 
;-=-=-=-=-=-
dialog reason {
  title Away Reason - $sc
  icon $icons(a)
  size -1 -1 250 245
  box Select Away Reason, 1001, 5 5 240 190
  list 801, 10 20 230 170, sort
  edit "", 701, 5 197 240 20, autohs
  button add, 901, 5 220 30 18
  button del, 902, 40 220 30 18
  button update, 903, 80 220 50 18
  button start away, 904, 145 220 100 18, default
}
alias list.a var %pr 1 | while $gettok($hget(reason,away),%pr,164) != $null { did -a reason 801 +b 1 $gettok($hget(reason,away),%pr,164) | inc %pr 1 }
alias clr did -r reason 801 | did -r reason 701 | list.a
alias dels hadd reason away $remtok($hget(reason,away),$sel,164)
alias adds hadd reason away $addtok($hget(reason,away),$$did(reason,701),164)
alias sel return $gettok($did(reason,801).seltext,6-,32)
on 1:dialog:reason:*:*: {
  if ($devent = init) { init3 }
  if ($devent = edit) && ( $did = 701 ) { set %away.reason $did(reason,701) | prev.msg reason %away.reason }
  if ($devent = sclick) { 
    if $did = 901 { adds | clr }
    if $did = 902 { dels | clr }
    if $did = 903 { dels | adds | clr }
    if ($did = 904) && ($status = connected) { start.away | endz }
    if $did = 801 { prev.msg reason $sel | did -ra reason 701 $sel | set %away.reason $sel }
    else window -c @msg
  }
  if ($devent = close) { window -c @msg | endz }
}
alias endz .timerxr 1 3 dialog -x reason reason | bak.rison | .timerua 1 3 unloads areason 

;-=-=-=-=-=-
