/ScriptServ

;====================================================================================
;                                                                 NetLand §¢®Ipt V2.0
;                                                                       ßÿ GoodNews 
;                                           We made everything here and it is professional
;                                          so you dont need to touch or change  anything 
;                                     cause it can cause a malfunction to the script .Thx !!!!!!
;                                                               Long Live #NetLand
;=====================================================================================
dialog away1 {
  title "Away Setup" 
  size -1 -1 250 270
  button "&Close",1, 40 230 60 25, OK
  button "&Apply",2, 140 230 60 25
  text "Idle Away Time:",3, 20 60 100 20
  edit "",4, 122 58 60 20,autohs
  text "Away Ad Length:",5, 20 110 100 20
  edit "",6, 122 108 60 20
  button "Read Messages",7, 20 142 100 20
  button "Read Pages",8, 122 142 100 20
  button "Clear Messages",9, 74 172 100 20
  box "Setup",10, 12 40 220 170
  button "Away/Back",11, 74 15 100 20
}
on *:dialog:away1:sclick:1: { 
  set %away.idle $did(away1,4),text | set %away.adtime $did(away1,6),text
}
on *:dialog:away1:sclick:2: { 
  set %away.idle $did(away1,4),text | set %away.adtime $did(away1,6),text
}
on 1:dialog:away1:init:0: {
  did -a away1 4 %away.idle
  did -a away1 6 %away.adtime
}
on *:dialog:away1:sclick:7:/awayread messages
on *:dialog:away1:sclick:8:/awayread pages
on *:dialog:away1:sclick:9: .timer60 1 0 awayclear
on *:dialog:away1:sclick:11: .timer67 1 0 xaway

alias awys dialog -m away away
dialog away {
  title  "Away Control"
  size   234 155 292 111
  button "Away",1,6 8 67 24,ok
  button "Back",2,6 38 67 24,ok
  edit %away.reason ,3,96 23 180 20,autohs
  box    "Away Reason",4,79 4 211 58
  button "Ok",5,52 77 79 27,ok
  button "Cancel",6,139 77 79 27,cancel
}
on *:dialog:away:*:*:{
  if ($did == 1) { /away } 
  if ($did == 2) { /cback }
  if ($did == 3) { /set %away.reason $did(3).text }
}