Untitled

dialog back {
  title "Back"
  size -1 -1 65 50
  option dbu
  button "Return", 1, 13 19 37 12
}
dialog away {
  title "Away System"
  size -1 -1 120 70
  option dbu
  edit "", 1, 7 20 105 43, autovs return
  button "Set Away", 2, 72 5 37 13
  check "Leave this open?", 3, 8 8 50 10, push
  box "", 4, 4 0 112 68
}
on $*:dialog:away:sclick:2:{
  if ($away == $false) {
    set %away $did(1)
    set %time $ctime
    set %time2 $time(hh:nn:ss TT)
    /smsg 7[AWAY] 15Reason: 7 $+ %away 15Time left at: $+ 7 $time(hh:nn:ss TT)
    /nick Runey|Away
    /away %away
    if ($did(3).state == 1) {
      /dialog -x away away
      /dialog -m back back
    }
    elseif ($did(3).state != 1) {
      /dialog -x away away
    }
  }
}
on $*:dialog:back:sclick:1:{
  if ($away == $true) {
    /smsg 15Back from: 7 $+ $awaymsg 15 Away for $+ 7 $duration($calc($ctime - %time))
    /nick Runey676
    /away
    unset %away %time %time2
    /dialog -x back back
  }
}
menu * {
-
  .Set Away:/dialog -m away away
  .Return:/dialog -m back back
-
}
alias smsg {
  var %x = 1
  while (%x <= $chan(0)) {
    $iif($chan(%x) != #idlers,msg $chan(%x) $1-)
    inc %x
  }
}