/ScriptServ

alias awaycontrol {
  .awaycheck
  dialog -m awaycontrol awaycontrol
}
dialog awaycontrol {
  title "Away Control Unit"
  size -1 -1 200 48
  option dbu
  text Away Status: %away , 11, 2 3 100 35, ok tab 1
  text Away Reason: %awayreason , 12, 2 11 150 35, ok tab 1
  text Show Replies: %awayreplies , 13, 2 19 100 35, ok tab
  text "ATTENTION: By Turning the away replies to enable, you may get banned from bots or from ops scripts from channels." , 33, 2 33 150 35, ok tab
  button "Away",20, 137 2 30 9, ok tab 1
  button "Back",21, 168 2 30 9, ok tab 1
  button "Change",22, 137 11 30 9, ok tab 1
  button "Clear",23, 168 11 30 9, ok tab 1
  button "Yes",24, 137 20 30 9, ok tab 1
  button "No",25, 168 20 30 9, ok tab 1
  button "X",26, 190 38 9 9, ok tab 1
}
alias awayref {
  .dialog -c awaycontrol awaycontrol
  .awaycontrol
}
on 1:dialog:awaycontrol:sclick:*: {
  if ($did == 20) { .away %awayreason | .set %awayctime $ctime | awaycheck | .timer1231 1 1 /awayref | if (%awayreplies == Enable) { /ame is now Away: ( $+ %awayreason $+ ) } }
  if ($did == 21) { .away | checkawaystatus | awaycheck | .timer1231 1 1 /awayref }
  if ($did == 22) { .set %awayreason $$?="Enter Away Reason" | awaycheck | awayref }
  if ($did == 23) { .set %awayreason Away, No Reason specified. | awaycheck | awayref }
  if ($did == 24) { .set %awayreplies Enable | awayref }
  if ($did == 25) { .set %awayreplies Disable | awayref }
  if ($did == 26) { .dialog -c awaycontrol awaycontrol }
}
alias checkawaystatus { 
  if (%awayreplies == Enable) { /ame Back from Away: ( $+ %awayreason $+ ) Wasted For: ( $+ $duration($calc($ctime - %awayctime)) $+ ) }
  if (%awayreplies == Disable) { . (Private) Back from Away: ( $+ %awayreason $+ ) Wasted For: ( $+ $duration($calc($ctime - %awayctime)) $+ ) }
}
alias awaycheck {
  if ($away == $true) { .set %away Active }
  else { .set %away Disable }
}