simple away system. Type /dialog -m awaysys awaysys to open.
#away.stuff off
on 1:TEXT:*:?: {
if (%away.log == on) { inc %away.log.count | did -ra awaysys 25 %away.log.count | did -a awaysys 27 $chr(91) $+ $asctime(h:nn) $+ $chr(93) < $+ $nick $+ > $1- $+ $crlf | msg $nick I Am Away. I left at %away.left Reason: %away.reason Loging: %away.log Pager: %away.pager | close -m $nick }
if (%away.log == off) { msg $nick I Am Away. I left at %away.left Reason: %away.reason Loging: %away.log Pager: %away.pager %ver | close -m $nick }
}
ctcp 1:page:*: inc %away.pager.count | did -ra awaysys 29 %away.pager.count | did -a awaysys 31 $chr(91) $+ $asctime(h:nn) $+ $chr(93) $chr(60) $+ $nick $+ $chr(62) $1- $+ $crlf }
#away.stuff end
dialog awaysys {
title "Away System"
size -1 -1 163 162
option dbu
tab "Main Options", 21, 1 0 160 159
box "Nick Management", 2, 3 16 156 41, tab 21
check "Change Nick", 3, 5 23 50 10, tab 21
text "Away Nick:", 5, 5 34 27 8, tab 21
text "Back Nick:", 7, 80 34 27 8, tab 21
edit "", 4, 5 41 75 12, tab 21 autohs
edit "", 6, 80 41 75 12, tab 21 autohs
box "Options:", 8, 3 60 156 28, tab 21
combo 14, 6 75 45 30, tab 21 size drop
text "Log:", 15, 7 67 11 8, tab 21
text "Pager:", 16, 55 68 16 8, tab 21
text "Msg Chan Interval:", 18, 103 68 45 8, tab 21
combo 17, 54 75 44 30, tab 21 size drop
combo 19, 102 75 52 60, tab 21 size drop
edit "", 20, 6 98 150 36, tab 21 multi
box "Reason:", 13, 3 89 156 49, tab 21
tab "Logging", 22
text "While you were away, you recieved", 24, 4 18 87 8, tab 22
edit "", 25, 92 16 15 12, tab 22 read
text "messages for people.", 26, 108 18 52 8, tab 22
edit "", 27, 4 29 155 107, tab 22 read multi autovs vsbar
tab "Pages:", 23
text "While you were away, you recieved", 28, 4 18 87 8, tab 23
edit "", 29, 92 16 16 12, tab 23 read
text "pages for people.", 30, 111 18 43 8, tab 23
edit "", 31, 4 29 155 107, tab 23 read multi autovs vsbar
button "Go Away", 32, 3 142 37 12
button "Come Back", 33, 43 142 37 12, ok
button "Cancel", 34, 82 142 37 12, cancel
button "Help!", 35, 122 142 37 12
}
on 1:DIALOG:awaysys:sclick:3: {
if ($did(awaysys,3).state == 0) { did -m $dname 6 | did -m $dname 4 | set %change.nick off }
if ($did(awaysys,3).state == 1) { did -n $dname 6 | did -n $dname 4 | set %change.nick on }
}
on 1:DIALOG:awaysys:sclick:32: {
if ($did(awaysys,14).sel == 1) { set %away.log On }
if ($did(awaysys,14).sel == 2) { set %away.log Off }
if ($did(awaysys,17).sel == 1) { set %away.pager On }
if ($did(awaysys,17).sel == 2) { set %away.pager Off }
if ($did(awaysys,19).sel == 1) { set %away.msg 5 | set %away.timer 300 }
if ($did(awaysys,19).sel == 2) { set %away.msg 10 | set %away.timer 600 }
if ($did(awaysys,19).sel == 3) { set %away.msg 15 | set %away.timer 900 }
if ($did(awaysys,19).sel == 4) { set %away.msg 20 | set %away.timer 1200 }
if ($did(awaysys,19).sel == 5) { set %away.msg 25 | set %away.timer 1500 }
if ($did(awaysys,19).sel == 6) { set %away.msg 30 | set %away.timer 1800 }
if ($did(awaysys,19).sel == 7) { set %away.msg 35 | set %away.timer 2100 }
if ($did(awaysys,19).sel == 8) { set %away.msg 40 | set %away.timer 2500 }
if ($did(awaysys,19).sel == 9) { set %away.msg 45 | set %away.timer 2800 }
if ($did(awaysys,19).sel == 10) { set %away.msg 50 | set %away.timer 3100 }
if (%change.nick == on) { nick $did(awaysys,4) }
enable #away.stuff
set %away.left $asctime(h:nn)
set %away.left2 $ctime
set %away.reason $did(awaysys,20)
ame is Now Away ( Reason: %away.reason ) Loging: %away.log Pager: %away.pager
.timerAWAY 0 %away.timer ame is Away. I Left At %away.left Reason: %away.reason Loging: %away.log Pager: %away.pager %ver }
on 1:DIALOG:awaysys:sclick:33: {
if (%change.nick == on) { nick $did(awaysys,6) }
disable #away.stuff
ame Is Back ( From: %away.reason ) Loging: %away.log Pager: %away.pager Away Time: $duration($calc($ctime - %away.left2))
set %away.log.count 0
set %away.pager.count 0
.timerAWAY off }
on 1:DIALOG:awaysys:sclick:35: { /.join #FullMetalAlchemist }
on 1:DIALOG:awaysys:init:*: {
if (%change.nick == on) { did -c $dname 3 | did -n $dname 6 | did -n $dname 4 }
if (%change.nick == off) { did -u $dname 3 | did -m $dname 6 | did -m $dname 4 }
did -i $dname 14 1 On
did -i $dname 14 2 Off
did -i $dname 17 1 On
did -i $dname 17 2 Off
did -i $dname 19 1 5mins
did -i $dname 19 2 10mins
did -i $dname 19 3 15mins
did -i $dname 19 4 20mins
did -i $dname 19 5 25mins
did -i $dname 19 6 30mins
did -i $dname 19 7 35mins
did -i $dname 19 8 40mins
did -i $dname 19 9 45mins
did -i $dname 19 10 50mins
did -ra $dname 20 Dont Ever Approach The Darkness!
if (%away.log == On) { did -c $dname 14 1 }
if (%away.log == Off) { did -c $dname 14 2 }
if (%away.pager == On) { did -c $dname 17 1 }
if (%away.pager == Off) { did -c $dname 17 2 }
if (%away.msg == 5) { did -c $dname 19 1 }
if (%away.msg == 10) { did -c $dname 19 2 }
if (%away.msg == 15) { did -c $dname 19 3 }
if (%away.msg == 20) { did -c $dname 19 4 }
if (%away.msg == 25) { did -c $dname 19 5 }
if (%away.msg == 30) { did -c $dname 19 6 }
if (%away.msg == 35) { did -c $dname 19 7 }
if (%away.msg == 40) { did -c $dname 19 8 }
if (%away.msg == 45) { did -c $dname 19 9 }
if (%away.msg == 50) { did -c $dname 19 10 }
did -ra $dname 4 $me $+ [DeaD]
did -ra $dname 6 $me
}
if ($did(awaysys,19).sel == 2) { set %away.msg 10 | set %away.timer 600 }
if ($did(awaysys,19).sel == 3) { set %away.msg 15 | set %away.timer 900 }
if ($did(awaysys,19).sel == 4) { set %away.msg 20 | set %away.timer 1200 }
if ($did(awaysys,19).sel == 5) { set %away.msg 25 | set %away.timer 1500 }
if ($did(awaysys,19).sel == 6) { set %away.msg 30 | set %away.timer 1800 }
if ($did(awaysys,19).sel == 7) { set %away.msg 35 | set %away.timer 2100 }
if ($did(awaysys,19).sel == 8) { set %away.msg 40 | set %away.timer 2500 }
if ($did(awaysys,19).sel == 9) { set %away.msg 45 | set %away.timer 2800 }
if ($did(awaysys,19).sel == 10) { set %away.msg 50 | set %away.timer 3100 }
That could simply be
if ($did(awaysys,19).sel isnum 2-10) { set %away.msg $calc($v1 * 5) | set %away.timer $calc($v1 * 300 $iif($v1 isnum 8-10,+ 100)) }