dialog away {
title Away Settings - Future Script %vr %beta
size -1 -1 180 120
option dbu
box "Defualt nick: ", 1, 5 5 104 24,
edit %away.defaultnick, 2, 7 13 100 10, center,
box "Away nick: ", 3, 5 30 104 24,
edit %away.awaynick, 4, 7 38 100 10, center,
box "Away log/pager: ", 5, 110 5 65 49,
check "Enable away logging", 6, 115 12 57 10,
check "Enable away pager", 7, 115 20 57 10,
box "Miscellaneous", 8, 5 54 170 45,
check "Set away after", 9, 7 62 45 10,
edit %away.awayed, 10, 53 62 20 10, center,
text "minutes of idling", 11, 75 63 50 10,
check "Set away on all servers", 12, 7 72 65 10,
check "Set back on keydown", 13, 7 81 65 10,
radio "Message all channels", 14, 7 90 60 10, group 1,
radio "Message active window", 15, 70 90 65 10,
button "Save settings", 16, 5 100 50 10, ok,
button "Cancel", 17, 126 100 50 10, cancel,
}
on *:dialog:away:sclick:16: {
if ($did($dname, 2) != $null) { set %away.defaultnick $did($dname, 2) }
if ($did($dname, 4) != $null) { set %away.awaynick $did($dname, 4) }
if ($did($dname, 6).state == 1) { set %away.logging 1 }
elseif ($did($dname, 6).state == 0) { set %away.logging 0 }
if ($did($dname, 7).state == 1) { set %away.pager 1 }
elseif ($did($dname, 7).state == 0) { set %away.pager 0 }
if ($did($dname, 9).state == 1) { set %away.awayafter 1 | set %away.awayed $did($dname, 10) }
elseif ($did($dname, 9).state == 0) { set %away.awayafter 0 }
if ($did($dname, 12).state == 1) { set %away.allservers 1 }
elseif ($did($dname, 12).state == 0) { set %away.allservers 0 }
if ($did($dname, 13).state == 1) { set %away.backkey 1 }
elseif ($did($dname, 13).state == 0) { set %away.backkey 0 }
; all channels&servers
if ($did($dname, 14).state == 1) { set %away.msgloc 1 }
; active window
elseif ($did($dname, 15).state == 1) { set %away.msgloc 0 }
}
on *:dialog:away:init:*: {
if (%away.logging == 1) { did -c $dname 6 }
elseif (%away.logging == 0) { did -u $dname 6 }
if (%away.pager == 1) { did -c $dname 7 }
elseif (%away.pager == 0) { did -u $dname 7 }
if (%away.awayafter == 1) { did -c $dname 9 }
elseif (%away.awayafter == 0) { did -u $dname 9 }
if (%away.allservers == 1) { did -c $dname 12 }
elseif (%away.allservers == 0) { did -u $dname 12 }
if (%away.backkey == 1) { did -c $dname 13 }
elseif (%away.backkey == 0) { did -u $dname 13 }
if (%away.msgloc == 1) { did -c $dname 14 }
elseif (%away.msgloc == 0) { did -c $dname 15 }
}
alias setaway { dialog -m away away }
alias away {
; Must fill in
}