;-=-=-=-=-=-
; DeadLy Script - QUIT
;-=-=-=-=-=-
alias open.quit dialog -m quits quits
dialog quits {
  title Quit Message - $sc
  size -1 -1 250 245
  icon $icons(!)
  box Select Quit Msg, 1001, 5 5 240 190
  list 801, 10 20 230 170, autohs
  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 quit now, 904, 145 220 100 18
}
alias list.q var %pr 1 | while $gettok($hget(reason,quit),%pr,153) != $null { did -a quits 801 +b 1 $gettok($hget(reason,quit),%pr,153) | inc %pr 1 }
alias lr did -r quits 801 | did -r quits 701 | did -c quits 801 1 | list.q
alias dd hadd reason quit $addtok($hget(reason,quit),$$did(quits,701),153) 
alias dl hadd reason quit $remtok($hget(reason,quit),$sl,153)
alias sl return $gettok($did(quits,801).seltext,6-,32)
on 1:dialog:quits:*:*: {
  if ($devent = init) { init4 }
  if ($devent = edit) { if ( $did = 701 ) { set %quit.reason $did(quits,701) | prev.msg quits %quit.reason } }
  if ($devent = sclick) { 
    if $did = 901 { dd | lr }
    if $did = 902 { dl | lr }
    if $did = 903 { dl | dd | lr }
    if ($did = 904) && ($status = connected) { quit $replace(%quit.reason,<ver>,$bersyon,<url>,$urls,<script>,$sc) }
    if $did = 801 { prev.msg quits $sl | did -ra quits 701 $sl | set %quit.reason $sl }
  }
  if ($devent = dclick) { if $did = 801 quit %quit.reason | ndz }
  if ($devent = close) { window -c @msg | ndz }
}
alias ndz unloads quit | bak.rison 
;-=-=-=-=-=-
;-=-=-=-=-=-
