dialog away {
title Slayer Script 1.2 Away Script
size -1 -1 200 132
option dbu
tab "Away Info:", 1, 1 1 198 130
box "Away:", 5, 5 17 190 100, tab 1
edit %away.nick, 6, 9 25 50 12, tab 1
text "(Away Nick)", 7, 60 27 50 12, tab 1
edit %away.returnnick, 8, 9 37 50 12, tab 1
text "(Return Nick)", 9, 60 39 50 12, tab 1
text "Away Reason:", 10, 9 49 50 12, tab 1
edit %away.reason, 11, 9 57 181 45, tab 1
combo 119, 125 25 50 40, left, tab 1 size drop
button "Away", 12, 9 102 50 12, tab 1
button "Return", 13, 140 102 50 12, tab 1
button "Help", 14, 75 102 50 12, tab 1
tab "Options:", 2
box "Timers:", 15, 5 17 150 22, tab 2
combo 16, 9 25 52 60, tab 2 size drop
button "Set Timer", 17, 65 24 40 12, tab 2
box "Letter Colors:", 18, 5 40 150 22, tab 2
combo 19, 9 48 52 60, tab 2 size drop
button "Set Color", 20, 65 47 40 12, tab 2
box "Background Color:", 21, 5 63 150 22, tab 2
combo 22, 9 71 52 60, tab 2 size drop
button "Set Color", 23, 65 70 40 12, tab 2
box "Left Divider:", 24, 5 86 150 22, tab 2
edit %away.leftdiv, 25, 9 94 52 11, tab 2
button "Set Divider", 26, 65 93 40 12, tab 2
tab Options 2:, 3,
box "Right Divider:", 27, 5 17 150 22, tab 3
edit %away.rightdiv, 28, 9 25 52 11, tab 3
button "Set Divider", 29, 65 24 40 12, tab 3
box "Divider:", 30, 5 40 150 22, tab 3
edit %away.div, 31, 9 48 52 11, tab 3
button "Set Divider", 32, 65 47 40 12, tab 3
button "Save All & Exit", 33, 140 118 50 12, ok cancel
button "Preveiw", 34, 8 118 50 12
button "Ok", 35, 75 118 50 12, ok
}
on *:DIALOG:away:sclick:20: {
if ($did(22).text == Black) { set %away.lcolors 1 }
if ($did(22).text == Dark Blue) { set %away.lcolors 2 }
if ($did(22).text == Green) { set %away.lcolors 3 }
if ($did(22).text == Red) { set %away.lcolors 4 }
if ($did(22).text == Dark Red) { set %away.lcolors 5 }
if ($did(22).text == Purple) { set %away.lcolors 6 }
if ($did(22).text == Orange) { set %away.lcolors 7 }
if ($did(22).text == Yellow) { set %away.lcolors 8 }
if ($did(22).text == Neon Green) { set %away.lcolors 9 }
if ($did(22).text == Ocean Blue) { set %away.lcolors 10 }
if ($did(22).text == Turquoise) { set %away.lcolors 11 }
if ($did(22).text == Blue) { set %away.lcolors 12 }
if ($did(22).text == Light Purple) { set %away.lcolors 13 }
if ($did(22).text == Dark Grey) { set %away.lcolors 14 }
if ($did(22).text == Light Grey) { set %away.lcolors 15 }
if ($did(22).text == White) { set %away.lcolors 0 }
.echo ID# %away.lcolors
}
on *:DIALOG:away:sclick:33: {
if ($did(22).text == Black) { set %away.lcolors 1 }
if ($did(22).text == Dark Blue) { set %away.lcolors 2 }
if ($did(22).text == Green) { set %away.lcolors 3 }
if ($did(22).text == Red) { set %away.lcolors 4 }
if ($did(22).text == Dark Red) { set %away.lcolors 5 }
if ($did(22).text == Purple) { set %away.lcolors 6 }
if ($did(22).text == Orange) { set %away.lcolors 7 }
if ($did(22).text == Yellow) { set %away.lcolors 8 }
if ($did(22).text == Neon Green) { set %away.lcolors 9 }
if ($did(22).text == Ocean Blue) { set %away.lcolors 10 }
if ($did(22).text == Turquoise) { set %away.lcolors 11 }
if ($did(22).text == Blue) { set %away.lcolors 12 }
if ($did(22).text == Light Purple) { set %away.lcolors 13 }
if ($did(22).text == Dark Grey) { set %away.lcolors 14 }
if ($did(22).text == Light Grey) { set %away.lcolors 15 }
if ($did(22).text == White) { set %away.lcolors 0 }
.set %away.reason $did(away,11)
.set %away.nick $did(away,6)
.set %away.returnnick $did(away,8)
.set %away.pager $did(away,119)
.set %away.timer $did(away,16)
.set %away.leftdiv $did(away,25)
.set %away.rightdiv $did(away,28)
.set %away.div $did(away,31)
}
on *:DIALOG:away:slick:12: {
if ($did(22).text == Black) { set %away.lcolors 1 }
if ($did(22).text == Dark Blue) { set %away.lcolors 2 }
if ($did(22).text == Green) { set %away.lcolors 3 }
if ($did(22).text == Red) { set %away.lcolors 4 }
if ($did(22).text == Dark Red) { set %away.lcolors 5 }
if ($did(22).text == Purple) { set %away.lcolors 6 }
if ($did(22).text == Orange) { set %away.lcolors 7 }
if ($did(22).text == Yellow) { set %away.lcolors 8 }
if ($did(22).text == Neon Green) { set %away.lcolors 9 }
if ($did(22).text == Ocean Blue) { set %away.lcolors 10 }
if ($did(22).text == Turquoise) { set %away.lcolors 11 }
if ($did(22).text == Blue) { set %away.lcolors 12 }
if ($did(22).text == Light Purple) { set %away.lcolors 13 }
if ($did(22).text == Dark Grey) { set %away.lcolors 14 }
if ($did(22).text == Light Grey) { set %away.lcolors 15 }
if ($did(22).text == White) { set %away.lcolors 0 }
.set %away.reason $did(away,11)
.set %away.nick $did(away,6)
.set %away.returnnick $did(away,8)
.set %away.pager $did(away,119)
.set %away.timer $did(away,16)
.set %away.leftdiv $did(away,25)
.set %away.rightdiv $did(away,28)
.set %away.div $did(away,31)
.tnick %away.nick
.ame is away, $+ $+ %lcolors $+ , $+ %bgcolors %away.leftdiv $+ %away.reason $+ %away.rightdiv %away.div %away.leftdiv $+ Pager: %away.pager $+ %away.rightdiv %away.div %away.leftdiv $+ To conntact me type /ctcp page %away.nick <message> $+ %away.rightdiv
}
on *:DIALOG:away:init:*: {
if (%away.pager == Pager On) { did -ic $dname 119 1 Pager Off | did -ic $dname 119 2 Pager On }
if (%away.pager == Pager Off) { did -ic $dname 119 1 Pager On | did -ic $dname 119 2 Pager Off }
did -ic $dname 16 1 5mins
did -ic $dname 16 2 10mins
did -ic $dname 16 3 15mins
did -ic $dname 16 4 20mins
did -ic $dname 16 5 25mins
did -ic $dname 16 6 30mins
did -ic $dname 16 7 35mins
did -ic $dname 16 8 40mins
did -ic $dname 16 9 45mins
did -ic $dname 16 10 50mins
did -ic $dname 19 1 Black
did -ic $dname 19 2 Dark Blue
did -ic $dname 19 3 Green
did -ic $dname 19 4 Red
did -ic $dname 19 5 Dark Red
did -ic $dname 19 6 Purple
did -ic $dname 19 7 Orange
did -ic $dname 19 8 Yellow
did -ic $dname 19 9 Neon Green
did -ic $dname 19 10 Ocean Blue
did -ic $dname 19 11 Turquoise
did -ic $dname 19 12 Blue
did -ic $dname 19 13 Light Purple
did -ic $dname 19 14 Dark Grey
did -ic $dname 19 15 White
did -ic $dname 22 1 Black
did -ic $dname 22 2 Dark Blue
did -ic $dname 22 3 Green
did -ic $dname 22 4 Red
did -ic $dname 22 5 Dark Red
did -ic $dname 22 6 Purple
did -ic $dname 22 7 Orange
did -ic $dname 22 8 Yellow
did -ic $dname 22 9 Neon Green
did -ic $dname 22 10 Ocean Blue
did -ic $dname 22 11 Turquoise
did -ic $dname 22 12 Blue
did -ic $dname 22 13 Light Purple
did -ic $dname 22 14 Dark Grey
did -ic $dname 22 15 White
}
#awaystuff
#awaypager
ctcp *:page:{
if ($nick != $me) {
.ctcpreply $nick PAGE Your page has been logged!
if ($window(@Away_Pager) == $null) { window -ng2 @Away_Pager }
aline -hp @Away_Pager $time(HH:nn:ss) $date(mm/dd/yyyy) $+ $colour(CTCP) $+ Page:12 $nick $+ : $2-
}
}
#awaypager
on *:TEXT:?: {
if ($nick != $me) {
.msg $nick (Auto) I am not here at the moment thank you.
}
}
#awaystuff
alias /away2 { /dialog -md away away }