/ScriptServ

[script]
n0=;;;;;;;;;;( away system );;;;;;;;;;
n1=
n2=dialog away {
n3=  title "matrix away system"
n4=  size -1 -1 192 142
n5=  text "away message: (optional)", 8, 14 10 180 20
n6=  edit "", 1, 10 30 172 22, autohs
n7=  check "pager on", 2, 10 60 65 16
n8=  check "logging on", 3, 10 80 80 16
n9=  check "silent away", 4, 100 60 75 16
n10=  check "away nick", 5, 100 80 100 16
n11=  button "ok", 6, 10 105 80 25, OK default
n12=  button "cancel", 7, 100 105 80 25, cancel
n13=}
n14=on *:dialog:away:edit:1:%away.r = $did(1).text
n15=on *:dialog:away:sclick:2:if ($did(2).state) %away.p = on | else %away.p = off
n16=on *:dialog:away:sclick:3:if ($did(3).state) %away.l = on | else %away.l = off
n17=on *:dialog:away:sclick:4:if ($did(4).state) %away.s = on | else %away.s = off
n18=on *:dialog:away:sclick:5:if ($did(5).state) %away.n = on | else %away.n = off
n19=on *:dialog:away:sclick:6: {
n20=  if ($did(1).text == $null) %away.r = no reason | if ($did(2).state == 0) %away.p = off | if ($did(3).state == 0) %away.l = off
n21=  if ($did(4).state == 0) %away.s = off | if ($did(5).state == 0) %away.n = off | setaway
n22=}
n23=on *:dialog:away:sclick:7:unset %away.*
n24=alias setaway {
n25=  %away.t = $ctime | away %away.r | if (%away.n == on) nick $me $+ -away
n26=  if (%away.s != on) { .timeraway 0 600 awaymsg | if ($chan(0) != 0) amsg 10,1away 14,1:(15,1 $+ %away.r $+ 14,1):(10,1p/15,1 $+ %away.p 10,1l/15,1 $+ %away.l $+ 14,1):(10,1matrix $ver $+ 14,1) }
n27=}
n28=alias awaymsg if ($chan(0) != 0) amsg 10,1away 14,1:(15,1 $+ %away.r $+ 14,1):(10,1gone/15,17 $+ $dur($calc($ctime - %away.t)) $+ 14,1):(10,1p/15,1 $+ %away.p 10,1l/15,1 $+ %away.l $+ 14,1):(10,1matrix $ver $+ 14,1)
n29=alias setback {
n30=  if (%away.s != on) && ($chan(0) != 0) amsg 10,1back 14,1:(15,1 $+ %away.r $+ 14,1):(10,1gone/15,17 $+ $dur($calc($ctime - %away.t)) $+ 14,1):(10,1matrix $ver $+ 14,1)
n31=  away | if (%away.n == on) nick $remove($me,-away) | unset %away.* | .timeraway off
n32=}