Unnamed

alias awy { 
  /dialog -m awaysys awaysys 
} 
dialog awaysys { 
  title "Ace Away System" 
  size 1 1 400 190 
  text "Ace Away System" 1, 150 3 100 100 
  text "Away Reason:" 2, 1 30 70 25 
  edit "" 3, 1 45 120 20, autohs 
  text "Away Nick:" 4, 1 75 70 25 
  edit "" 5, 1 90 120 20 
  button "Go Away" 6, 90 138 80 20 
  button "Come Back" 7, 200 138 80 20 
  button "Exit" 8, 145 165 80 20, cancel 
  text "Silent Away:" 9, 260 33 80 18 
  text "Yes:" 10, 245 53 20 18 
  radio "" 11, 270 55 10 12, group 
  text "No:" 12, 295 54 15 12 
  radio "" 13, 315 56 10 12 
  text "Change Nick:" 14, 257 80 100 15 
  text "Yes:" 15, 245 100 22 12 
  radio "" 16, 269 102 10 12, group 
  text "No:" 17, 293 101 15 12 
  radio "" 18, 313 103 10 12 
} 
on *:dialog:awaysys:init:0: { 
  did -c awaysys 13 
  did -c awaysys 18 
  did -b awaysys 7 
  did -b awaysys 5 
  set %nick $me 
} 
on 1:dialog:awaysys:sclick:16 { 
  did -e awaysys 5 
} 
on 1:dialog:awaysys:sclick:18 { 
  did -b awaysys 5 
} 
on 1:dialog:awaysys:sclick:6 { 
  set %away $did($dname,3) 
  if ($did($dname,16).state == 1) { set %nick2 $did($dname,5) } 
  if ($did($dname,13).state == 1) { scid -at1 ame is now away: %away | away %away } 
  else { away %away } 
  if ($did($dname,16).state == 1) { scid -at1 !nick %nick2 } 
  did -b awaysys 6 
  did -e awaysys 7 
  did -b awaysys 3 
  did -b awaysys 11 
  did -b awaysys 13 
  did -b awaysys 16 
  did -b awaysys 18 
  did -b awaysys 5 
} 
on 1:dialog:awaysys:sclick:7 { 
  if ($did($dname,16).state == 1) { scid -at1 !nick %nick } 
  if ($did($dname,13).state == 1) { scid -a ame is back from: %away Gone $duration($awaytime) | /away } 
  else { /away } 
  did -e awaysys 6 
  did -b awaysys 7 
  did -e awaysys 11 
  did -e awaysys 13 
  did -e awaysys 16 
  did -e awaysys 18 
  did -e awaysys 3 
  did -e awaysys 5 
  unset %away 
  unset %nick 
  unset %nick2 
}