alias pmc1 {
if ( %away.total.pages > 0 ) {
echo -a $chr(35) of CTCP pages received: %away.total.pages $+ .
set %away.total.pages 0
}
else echo -a No CTCP pages were received.
}
alias repeataway {
if (%away.rep) .timerblah 0 %away.rep. rep2
}
alias rep2 {
if (%away.rep. < 600) set %away.rep. 3600
if ($chan(0)) ame Is Still Away [ $+ %away.reason $+ ] [ $+ $a.cp $+ ] Gone: $duration($calc($ctime - %away.time)) %snafy
else return
}
alias cdate1 { return $date(dd/mmm/yy) : $time(HH:nn) }
alias away.logo { return 1Away System %snafy }
alias sback {
if ( $away == $true ) && ( %away.q.mode != on ) {
Set %away.status off
away
if ( %away.nick == on ) {
nick %away.oldnick
unset %away.oldnick
unset %away.newnick
set %away.back $ctime
.timerblah off
if ( $chan(0) > 0 ) { ame Is Back Reason:[ $+ %away.reason $+ ] Gone: $duration($calc(%away.back - %away.time)) %snafy }
resetidle
else { echo -a You have returned from %away.reason $+ . You were gone for $duration($calc(%away.back - %away.time)) $+ . %snafy }
unset %away.back
unset %away.time
}
else {
set %away.back $ctime
if ( $chan(0) > 0 ) && (%away.time != $null) { ame Is Back Reason:[ $+ %away.reason $+ ] Gone: $duration($calc(%away.back - %away.time)) %snafy }
else { echo -a You have returned from %away.reason $+ . You were gone for $duration($calc($ctime - %away.back)) $+ . }
resetidle
aacheck
.timerBlah off
.unset %away.back
.unset %away.time
.unset %away.oldnick
.unset %away.newnick
}
}
elseif (%away.q.mode == on ) { qsback }
else Echo -a You're not away.
}
alias saway {
if (%away.status == on) && ($away) echo -a You're already away.
else {
unset %away.reason
set %away.reason $$?="Away reason?"
away %away.reason
repeataway
set %away.time $ctime
set %away.stamp $time
set %away.q.mode off
if ($chan(0)) { ame Is Away Reason:[ $+ %away.reason $+ ] [ $+ $a.cp $+ ] %snafy }
else echo -a You are away. reason: %away.reason $+ . Pager %away.pager $+ . Log: %away.log $+ .
set %away.time $ctime
awaycompare
}
}
alias testpage {
if ( %away.pager.wav == on ) && ( %away.pager.sound != empty ) splay %away.pager.sound
else beep 10 100
}
alias qsaway {
away %away.reason
set %away.q.mode on
unset %away.total.pages
if ($1 != r) set %away.reason $$?="Away reason?"
set %away.status on
set %away.time $ctime
echo -a Pager is %away.pager $+ .
echo -a Message logger is %away.log $+ .
set %away.st.1 »» Away
awaycompare
echo -a You are away. reason: %away.reason $+ .
}
alias qsback {
if ($away) && ( %away.q.mode == on ) {
set %away.back $ctime
echo -a You have returned from %away.reason $+ . You were gone for $duration($calc(%away.back - %away.time)) $+ . %snafy
away
if ( %away.nick == on ) {
nick %away.oldnick
unset %away.oldnick
unset %away.newnick
}
pmc1
set %away.q.mode off
unset %away.time
unset %away.back
}
else echo -a You're not away or you're not in quiet mode.
}
on *:start: {
unset %away.total.pages
if (%away.pager.clear == on) echo -a CTCP Pager log cleared. | write -c pager.log
set %away.total.pages 0
if ( %predef.1 == $null ) set %predef.1 Empty
if ( %predef.2 == $null ) set %predef.2 Empty
if ( %predef.3 == $null ) set %predef.3 Empty
if ( %predef.4 == $null ) set %predef.4 Empty
if ( %predef.5 == $null ) set %predef.5 Empty
}
alias awaycompare {
if ( %away.nick == on ) && ( %away.nick.1 != $null ) {
set %away.oldnick $me
set %away.newnick $me $+ %away.nick.1
nick %away.newnick
}
}
alias predefaway {
unset %away.total.pages
if ( %away.status == on ) && ( $away == $true ) echo -a You're already away.
else {
if ( %away.q.mode == on ) { set %away.q.mode off }
away %away.reason
set %away.status on
set %away.st.1 »» Away
if ($chan(0)) { ame Is Away Reason:[ $+ %away.reason $+ ] [ $+ $a.cp $+ ] %snafy }
else { echo -a You are away. reason: %away.reason $+ . Pager %away.pager $+ . Log: %away.log $+ . }
set %away.time $ctime
awaycompare
}
}
alias idelest { if ( $idle > %auto.away.secs ) autoaway }
alias aacheck {
if ( %auto.away == on ) {
echo -a Auto-Away checker started.
.timerIdling 0 1 idelest
}
; else halt
}
alias autoaway {
.TimerIdling Off
unset %away.total.pages
if ($away) echo -a You're already away.
else {
.away %away.reason
set %away.st.1 »» Away
set %away.reason auto-away after $duration($idle)
set %away.status on
.set %away.time $ctime
.set %away.stamp $time
set %away.oldnick $me
awaycompare
if ($chan(0)) { ame Is Away Reason:[ $+ %away.reason $+ ] [ $+ $a.cp $+ ] %snafy }
else echo -a You are away - %away.reason $+ .
}
}
on *:connect: { aacheck }
on *:text:*:?: {
if ($away) && ( %away.log == on ) {
msg $nick I'm away, reason: %away.reason %snafy
write msg.log 15,1(0 $+ $nick $+ 15)15 $+ : $1-
closemsg $nick
}
}
alias maway {
if ($away) sback
else saway
}
alias maway2 { ; if $1 == r there is a reason, we don't need to request it from the user!
if ($away) qsback
else qsaway $1-
}
ctcp *:PAGE:*: {
if ($away) && ( %away.pager == on ) {
haltdef
write pager.log Page received at $cdate $+ , from $nick $+ . message: $$2-
echo -a 15,1››› 0,1Page From 15,1(0 $+ $nick $+ 15)15 $+ : $$2-
inc %away.total.pages
testpage
}
else return
}
alias ANOn {
set %away.nick on
echo -a Away nick enabled
set %away.nick.1 $$?="Enter away nick - e.g. : -Gone, |Brb, {A}"
if ( %away.nick.1 == $null ) { set %away.nick.1 {Away} }
else echo -a Away nickname set to %away.nick.1 $+ .
if ($away) nick %away.nick.1
}
Alias ANOff set %away.nick off | echo -a Away nick disabled
menu menubar,channel,status {
-
نظام الاوي
.&AwaySystem : open.AwaySysDialog
}
alias open.AwaySysDialog {
if ($dialog(AwaySysDialog) != $null) { dialog -v AwaySysDialog AwaySysDialog }
else { dialog -m AwaySysDialog AwaySysDialog }
}
Dialog AwaySysDialog {
title "SnaFy SySTeM"
size -1 -1 0 0
box "Away Options", 1, 10 10 370 235
text "&Now you are:", 2, 20 30 63 15
radio "Away" ,3, 110 30 45 15, group
radio "Not away" ,4, 181 30 70 15
text "&When away is on:" ,5, 20 50 85 15
radio "Stay quiet" , 6, 110 50 66 15, group
radio "Send to all the channels the reason" ,7, 181 50 185 15
text "&The reason message:", 40, 20 72 102 15
combo 8, 139 70 120 150 , edit drop
text "&Use away-nick when away:" ,9, 20 95 130 15
radio "Yes", 10, 155 95 37 15, group
radio "No", 11, 197 95 35 15
text "A&dd to nick when away:", 12, 20 117 114 15
combo 13, 139 113 120 90 , edit drop
text "&Pager:", 14, 20 145 30 15
radio "ON", 15, 78 145 33 15, group
radio "OFF", 16, 116 145 45 15
button "&View Log...", 17, 155 140 90 20
button "C&lear Log...", 18, 255 140 90 20
button "!", 19.1, 355 140 15 20
text "Lo&g:", 49, 20 170 20 15
radio "ON", 20, 78 170 33 15, group
radio "OFF", 21, 116 170 45 15
button "V&iew Log...", 22, 155 165 90 20
button "Cl&ear Log...", 23, 255 165 90 20
text "Auto awa&y:", 24, 20 195 53 15
radio "ON", 25, 78 195 33 15, group
radio "OFF", 26, 116 195 45 15
button "&Set Time...", 27, 155 190 90 20
text "Define shortcut keys:", 28, 20 220 100 15
text "Away (/a&me):", 29, 125 220 63 15
edit "", 30, 193 217 30 20
text "Away (&Quiet):", 31, 228 220 63 15
edit "", 32, 296 217 30 20
button "&OK", 35, 70 255 90 25, ok
button "&Cancel", 36, 220 255 90 25, cancel
}
on 1:dialog:AwaySysDialog:init:0: {
%.anim._i = 0 | .timer_anim -m 0 1 mutubanprot3.anim
;if (%away.st.1 == »» Not away) did -cf AwaySysDialog 4
;else { did -cf AwaySysDialog 3 }
if ($away) { did -cf AwaySysDialog 3 | set %away.st.1 »» Away | set %away.status on }
else { did -cf AwaySysDialog 4 | set %away.st.1 »» Not away | set %away.status off }
if (%away.nick == on) did -c AwaySysDialog 10
else { did -c AwaySysDialog 11 | did -b AwaySysDialog 12,13 }
if (%away.pager == on) did -c AwaySysDialog 15
else did -c AwaySysDialog 16
if (%away.log == on) did -c AwaySysDialog 20
else did -c AwaySysDialog 21
did -c AwaySysDialog 7
if (%auto.away == on) did -c AwaySysDialog 25
else did -c AwaySysDialog 26
did -a AwaySysDialog 30 %away.sc.a
did -a AwaySysDialog 32 %away.sc.b
if (%away.nick.1 != $null) { did -a AwaySysDialog 13 %away.nick.1 }
if (%away.nick.1 != {Away} ) did -a AwaySysDialog 13 {Away}
if (%away.nick.1 != -Gone ) did -a AwaySysDialog 13 -Gone
if (%away.nick.1 != |Brb ) did -a AwaySysDialog 13 |Brb
did -c AwaySysDialog 13 1
did -a AwaySysDialog 8 Be Back Later.
did -a AwaySysDialog 8 SleepzzZ.
did -a AwaySysDialog 8 Surfing The Web
did -a AwaySysDialog 8 Not Here.
did -a AwaySysDialog 8 Out 4 a Smoke.
did -a AwaySysDialog 8 Coffee Break.
if (%predef.1 != Empty) did -a AwaySysDialog 8 %predef.1
if (%predef.2 != Empty) did -a AwaySysDialog 8 %predef.2
if (%predef.3 != Empty) did -a AwaySysDialog 8 %predef.3
if (%predef.4 != Empty) did -a AwaySysDialog 8 %predef.4
if (%predef.5 != Empty) did -a AwaySysDialog 8 %predef.5
}
on 1:dialog:AwaySysDialog:sclick:35: {
; add the reason to the list if there is an empty place and it not of the default reasons
if ($did(8) == $null) goto continue
if ($did(8) == Be Back Later.) || ($did(8) == SleepzzZ.) || ($did(8) == Surfing The Web) || ($did(8) == Not Here.) || ($did(8) == Out 4 a Smoke) || ($did(8) == Coffee Break) { goto continue }
if (($did(8) == %predef.1) || ($did(8) == %predef.2) || ($did(8) == %predef.3) || ($did(8) == %predef.4) || ($did(8) == %predef.5)) && $did(8) != Empty { goto continue }
if ($did(8) == Empty) { goto continue }
if (%predef.1 == Empty) { set %predef.1 $did(8) | goto continue }
if (%predef.2 == Empty) { set %predef.2 $did(8) | goto continue }
if (%predef.3 == Empty) { set %predef.3 $did(8) | goto continue }
if (%predef.4 == Empty) { set %predef.4 $did(8) | goto continue }
if (%predef.5 == Empty) { set %predef.5 $did(8) | goto continue }
:continue
; auto away
if ($did(25).state == 1) set %auto.away on
else set %auto.away off
; pager
if ($did(15).state == 1) set %away.pager on
else set %away.pager off
; log
if ($did(20).state == 1) set %away.log on
else set %away.log off
; shortcut keys
if ($did(30) != %away.sc.a) {
alias %away.sc.a
set %away.sc.a $did(30)
alias %away.sc.a maway
}
if ($did(32) != %away.sc.b) {
alias %away.sc.b
set %away.sc.b $did(32)
alias %away.sc.b maway2
}
; use away nick
if ($did(13) == $null) set %away.nick.1 {Away}
set %away.nick.1 $did(13)
if ($did(10).state == 1) {
set %away.nick on
}
else set %away.nick off
; Going away now
if ($did(3).state == 1 && %away.status == off) {
if ($did(6).state == 1) {
if ($did(8) == $null) set %away.reason No reason
else set %away.reason $did(8)
maway2 r
}
else {
if ($did(8) == $null) set %away.reason No reason
else set %away.reason $did(8)
predefaway
}
}
if ($did(4).state == 1 && %away.status == on) {
if (did(6).state == 1) maway2
else maway
}
}
on 1:dialog:AwaySysDialog:sclick:11: {
did -b AwaySysDialog 12,13
}
on 1:dialog:AwaySysDialog:sclick:10: {
did -e AwaySysDialog 12,13
}
on 1:dialog:AwaySysDialog:sclick:26: {
did -b AwaySysDialog 27
}
on 1:dialog:AwaySysDialog:sclick:25: {
did -e AwaySysDialog 27
}
on 1:dialog:AwaySysDialog:sclick:17: {
window -ak @PagerLog -0 -0
if ( $exists(pager.log)) { loadbuf @PagerLog pager.log }
else {
write pager.log $away.logo
loadbuf @PagerLog pager.log
}
}
alias ClearPagerLog {
if ( $$?!="Are you sure?" == $true ) { write -c pager.log | write pager.log $away.logo | echo -a 4 CTCP pager log cleared. %snafy }
}
on 1:dialog:AwaySysDialog:sclick:18: .timer 1 0 ClearPagerLog
on 1:dialog:AwaySysDialog:sclick:22: {
window -ak @MSGLog -0 -0
if ( $exists(msg.log)) { loadbuf @MSGLog msg.log }
else {
write msg.log $away.logo
loadbuf @MSGLog msg.log
}
}
alias ClearMsgLog {
if ( $$?!="Are you sure?" == $true ) { write -c msg.log | write msg.log $away.logo | echo -a 15,1›››0 MSG Log cleared. %snafy } | else halt
}
on 1:dialog:AwaySysDialog:sclick:23: .timer 1 0 ClearMsgLog
alias SetTime {
set %auto.away.etp $$?="Enter number of seconds:"
if (%auto.away.etp isnum ) && ( %auto.away.etp > 0 ) set %auto.away.secs %auto.away.etp | Echo -a 15,1›››0 Auto Away Set To %auto.away.etp Seconds. %snafy | .unset %auto.away.etp | aacheck
}
on 1:dialog:AwaySysDialog:sclick:27: .timer 1 0 SetTime
alias SetPagerSound {
set %away.pager.wav on
if ( $$?!="Would you CrAzIeSt to use a WAV file for the pager sound?" == $true ) set %away.pager.sound $dir[="Choose WAV file to play when Pager comes"] *.wav
else { set %away.pager.sound empty | set %away.pager.wav off }
}
on 1:dialog:AwaySysDialog:sclick:19: .timer 1 0 SetPagerSound
on 1:dialog:AwaySysDialog:sclick:37: open.AboutASDialog
alias a.cp {
if (%away.pager == on) && (%away.log == on) return Pager : ON . Log : ON
elseif (%away.pager == on) && (%away.log == off) return Pager ON . Log : OFF
elseif (%away.pager == off) && (%away.log == off) return Pager OFF . Log : OFF
elseif (%away.pager == off) && (%away.log == on) return Pager : OFF . Log : ON
}
alias mutubanprot3.anim {
if (($dialog(AwaySysDialog) == $null) || (%.anim._i > 390)) { .timer_anim off | unset %.anim.tmp* %.anim._i | return }
:1 | %.anim.tmpx = $calc(($window(-1).w / 1.28) - %.anim._i) | %.anim.tmpy = $calc(($window(-1).h / 1.05) - %.anim._i) | %.anim.tmpw = $calc(%.anim._i * 1) | %.anim.tmph = $calc(%.anim._i * .74)
dialog -s AwaySysDialog %.anim.tmpx %.anim.tmpy %.anim.tmpw %.anim.tmph | inc %.anim._i 4
}
menu Channel {
if ( %away.total.pages > 0 ) {
echo -a $chr(35) of CTCP pages received: %away.total.pages $+ .
set %away.total.pages 0
}
else echo -a No CTCP pages were received.
}
alias repeataway {
if (%away.rep) .timerblah 0 %away.rep. rep2
}
alias rep2 {
if (%away.rep. < 600) set %away.rep. 3600
if ($chan(0)) ame Is Still Away [ $+ %away.reason $+ ] [ $+ $a.cp $+ ] Gone: $duration($calc($ctime - %away.time)) %snafy
else return
}
alias cdate1 { return $date(dd/mmm/yy) : $time(HH:nn) }
alias away.logo { return 1Away System %snafy }
alias sback {
if ( $away == $true ) && ( %away.q.mode != on ) {
Set %away.status off
away
if ( %away.nick == on ) {
nick %away.oldnick
unset %away.oldnick
unset %away.newnick
set %away.back $ctime
.timerblah off
if ( $chan(0) > 0 ) { ame Is Back Reason:[ $+ %away.reason $+ ] Gone: $duration($calc(%away.back - %away.time)) %snafy }
resetidle
else { echo -a You have returned from %away.reason $+ . You were gone for $duration($calc(%away.back - %away.time)) $+ . %snafy }
unset %away.back
unset %away.time
}
else {
set %away.back $ctime
if ( $chan(0) > 0 ) && (%away.time != $null) { ame Is Back Reason:[ $+ %away.reason $+ ] Gone: $duration($calc(%away.back - %away.time)) %snafy }
else { echo -a You have returned from %away.reason $+ . You were gone for $duration($calc($ctime - %away.back)) $+ . }
resetidle
aacheck
.timerBlah off
.unset %away.back
.unset %away.time
.unset %away.oldnick
.unset %away.newnick
}
}
elseif (%away.q.mode == on ) { qsback }
else Echo -a You're not away.
}
alias saway {
if (%away.status == on) && ($away) echo -a You're already away.
else {
unset %away.reason
set %away.reason $$?="Away reason?"
away %away.reason
repeataway
set %away.time $ctime
set %away.stamp $time
set %away.q.mode off
if ($chan(0)) { ame Is Away Reason:[ $+ %away.reason $+ ] [ $+ $a.cp $+ ] %snafy }
else echo -a You are away. reason: %away.reason $+ . Pager %away.pager $+ . Log: %away.log $+ .
set %away.time $ctime
awaycompare
}
}
alias testpage {
if ( %away.pager.wav == on ) && ( %away.pager.sound != empty ) splay %away.pager.sound
else beep 10 100
}
alias qsaway {
away %away.reason
set %away.q.mode on
unset %away.total.pages
if ($1 != r) set %away.reason $$?="Away reason?"
set %away.status on
set %away.time $ctime
echo -a Pager is %away.pager $+ .
echo -a Message logger is %away.log $+ .
set %away.st.1 »» Away
awaycompare
echo -a You are away. reason: %away.reason $+ .
}
alias qsback {
if ($away) && ( %away.q.mode == on ) {
set %away.back $ctime
echo -a You have returned from %away.reason $+ . You were gone for $duration($calc(%away.back - %away.time)) $+ . %snafy
away
if ( %away.nick == on ) {
nick %away.oldnick
unset %away.oldnick
unset %away.newnick
}
pmc1
set %away.q.mode off
unset %away.time
unset %away.back
}
else echo -a You're not away or you're not in quiet mode.
}
on *:start: {
unset %away.total.pages
if (%away.pager.clear == on) echo -a CTCP Pager log cleared. | write -c pager.log
set %away.total.pages 0
if ( %predef.1 == $null ) set %predef.1 Empty
if ( %predef.2 == $null ) set %predef.2 Empty
if ( %predef.3 == $null ) set %predef.3 Empty
if ( %predef.4 == $null ) set %predef.4 Empty
if ( %predef.5 == $null ) set %predef.5 Empty
}
alias awaycompare {
if ( %away.nick == on ) && ( %away.nick.1 != $null ) {
set %away.oldnick $me
set %away.newnick $me $+ %away.nick.1
nick %away.newnick
}
}
alias predefaway {
unset %away.total.pages
if ( %away.status == on ) && ( $away == $true ) echo -a You're already away.
else {
if ( %away.q.mode == on ) { set %away.q.mode off }
away %away.reason
set %away.status on
set %away.st.1 »» Away
if ($chan(0)) { ame Is Away Reason:[ $+ %away.reason $+ ] [ $+ $a.cp $+ ] %snafy }
else { echo -a You are away. reason: %away.reason $+ . Pager %away.pager $+ . Log: %away.log $+ . }
set %away.time $ctime
awaycompare
}
}
alias idelest { if ( $idle > %auto.away.secs ) autoaway }
alias aacheck {
if ( %auto.away == on ) {
echo -a Auto-Away checker started.
.timerIdling 0 1 idelest
}
; else halt
}
alias autoaway {
.TimerIdling Off
unset %away.total.pages
if ($away) echo -a You're already away.
else {
.away %away.reason
set %away.st.1 »» Away
set %away.reason auto-away after $duration($idle)
set %away.status on
.set %away.time $ctime
.set %away.stamp $time
set %away.oldnick $me
awaycompare
if ($chan(0)) { ame Is Away Reason:[ $+ %away.reason $+ ] [ $+ $a.cp $+ ] %snafy }
else echo -a You are away - %away.reason $+ .
}
}
on *:connect: { aacheck }
on *:text:*:?: {
if ($away) && ( %away.log == on ) {
msg $nick I'm away, reason: %away.reason %snafy
write msg.log 15,1(0 $+ $nick $+ 15)15 $+ : $1-
closemsg $nick
}
}
alias maway {
if ($away) sback
else saway
}
alias maway2 { ; if $1 == r there is a reason, we don't need to request it from the user!
if ($away) qsback
else qsaway $1-
}
ctcp *:PAGE:*: {
if ($away) && ( %away.pager == on ) {
haltdef
write pager.log Page received at $cdate $+ , from $nick $+ . message: $$2-
echo -a 15,1››› 0,1Page From 15,1(0 $+ $nick $+ 15)15 $+ : $$2-
inc %away.total.pages
testpage
}
else return
}
alias ANOn {
set %away.nick on
echo -a Away nick enabled
set %away.nick.1 $$?="Enter away nick - e.g. : -Gone, |Brb, {A}"
if ( %away.nick.1 == $null ) { set %away.nick.1 {Away} }
else echo -a Away nickname set to %away.nick.1 $+ .
if ($away) nick %away.nick.1
}
Alias ANOff set %away.nick off | echo -a Away nick disabled
menu menubar,channel,status {
-
نظام الاوي
.&AwaySystem : open.AwaySysDialog
}
alias open.AwaySysDialog {
if ($dialog(AwaySysDialog) != $null) { dialog -v AwaySysDialog AwaySysDialog }
else { dialog -m AwaySysDialog AwaySysDialog }
}
Dialog AwaySysDialog {
title "SnaFy SySTeM"
size -1 -1 0 0
box "Away Options", 1, 10 10 370 235
text "&Now you are:", 2, 20 30 63 15
radio "Away" ,3, 110 30 45 15, group
radio "Not away" ,4, 181 30 70 15
text "&When away is on:" ,5, 20 50 85 15
radio "Stay quiet" , 6, 110 50 66 15, group
radio "Send to all the channels the reason" ,7, 181 50 185 15
text "&The reason message:", 40, 20 72 102 15
combo 8, 139 70 120 150 , edit drop
text "&Use away-nick when away:" ,9, 20 95 130 15
radio "Yes", 10, 155 95 37 15, group
radio "No", 11, 197 95 35 15
text "A&dd to nick when away:", 12, 20 117 114 15
combo 13, 139 113 120 90 , edit drop
text "&Pager:", 14, 20 145 30 15
radio "ON", 15, 78 145 33 15, group
radio "OFF", 16, 116 145 45 15
button "&View Log...", 17, 155 140 90 20
button "C&lear Log...", 18, 255 140 90 20
button "!", 19.1, 355 140 15 20
text "Lo&g:", 49, 20 170 20 15
radio "ON", 20, 78 170 33 15, group
radio "OFF", 21, 116 170 45 15
button "V&iew Log...", 22, 155 165 90 20
button "Cl&ear Log...", 23, 255 165 90 20
text "Auto awa&y:", 24, 20 195 53 15
radio "ON", 25, 78 195 33 15, group
radio "OFF", 26, 116 195 45 15
button "&Set Time...", 27, 155 190 90 20
text "Define shortcut keys:", 28, 20 220 100 15
text "Away (/a&me):", 29, 125 220 63 15
edit "", 30, 193 217 30 20
text "Away (&Quiet):", 31, 228 220 63 15
edit "", 32, 296 217 30 20
button "&OK", 35, 70 255 90 25, ok
button "&Cancel", 36, 220 255 90 25, cancel
}
on 1:dialog:AwaySysDialog:init:0: {
%.anim._i = 0 | .timer_anim -m 0 1 mutubanprot3.anim
;if (%away.st.1 == »» Not away) did -cf AwaySysDialog 4
;else { did -cf AwaySysDialog 3 }
if ($away) { did -cf AwaySysDialog 3 | set %away.st.1 »» Away | set %away.status on }
else { did -cf AwaySysDialog 4 | set %away.st.1 »» Not away | set %away.status off }
if (%away.nick == on) did -c AwaySysDialog 10
else { did -c AwaySysDialog 11 | did -b AwaySysDialog 12,13 }
if (%away.pager == on) did -c AwaySysDialog 15
else did -c AwaySysDialog 16
if (%away.log == on) did -c AwaySysDialog 20
else did -c AwaySysDialog 21
did -c AwaySysDialog 7
if (%auto.away == on) did -c AwaySysDialog 25
else did -c AwaySysDialog 26
did -a AwaySysDialog 30 %away.sc.a
did -a AwaySysDialog 32 %away.sc.b
if (%away.nick.1 != $null) { did -a AwaySysDialog 13 %away.nick.1 }
if (%away.nick.1 != {Away} ) did -a AwaySysDialog 13 {Away}
if (%away.nick.1 != -Gone ) did -a AwaySysDialog 13 -Gone
if (%away.nick.1 != |Brb ) did -a AwaySysDialog 13 |Brb
did -c AwaySysDialog 13 1
did -a AwaySysDialog 8 Be Back Later.
did -a AwaySysDialog 8 SleepzzZ.
did -a AwaySysDialog 8 Surfing The Web
did -a AwaySysDialog 8 Not Here.
did -a AwaySysDialog 8 Out 4 a Smoke.
did -a AwaySysDialog 8 Coffee Break.
if (%predef.1 != Empty) did -a AwaySysDialog 8 %predef.1
if (%predef.2 != Empty) did -a AwaySysDialog 8 %predef.2
if (%predef.3 != Empty) did -a AwaySysDialog 8 %predef.3
if (%predef.4 != Empty) did -a AwaySysDialog 8 %predef.4
if (%predef.5 != Empty) did -a AwaySysDialog 8 %predef.5
}
on 1:dialog:AwaySysDialog:sclick:35: {
; add the reason to the list if there is an empty place and it not of the default reasons
if ($did(8) == $null) goto continue
if ($did(8) == Be Back Later.) || ($did(8) == SleepzzZ.) || ($did(8) == Surfing The Web) || ($did(8) == Not Here.) || ($did(8) == Out 4 a Smoke) || ($did(8) == Coffee Break) { goto continue }
if (($did(8) == %predef.1) || ($did(8) == %predef.2) || ($did(8) == %predef.3) || ($did(8) == %predef.4) || ($did(8) == %predef.5)) && $did(8) != Empty { goto continue }
if ($did(8) == Empty) { goto continue }
if (%predef.1 == Empty) { set %predef.1 $did(8) | goto continue }
if (%predef.2 == Empty) { set %predef.2 $did(8) | goto continue }
if (%predef.3 == Empty) { set %predef.3 $did(8) | goto continue }
if (%predef.4 == Empty) { set %predef.4 $did(8) | goto continue }
if (%predef.5 == Empty) { set %predef.5 $did(8) | goto continue }
:continue
; auto away
if ($did(25).state == 1) set %auto.away on
else set %auto.away off
; pager
if ($did(15).state == 1) set %away.pager on
else set %away.pager off
; log
if ($did(20).state == 1) set %away.log on
else set %away.log off
; shortcut keys
if ($did(30) != %away.sc.a) {
alias %away.sc.a
set %away.sc.a $did(30)
alias %away.sc.a maway
}
if ($did(32) != %away.sc.b) {
alias %away.sc.b
set %away.sc.b $did(32)
alias %away.sc.b maway2
}
; use away nick
if ($did(13) == $null) set %away.nick.1 {Away}
set %away.nick.1 $did(13)
if ($did(10).state == 1) {
set %away.nick on
}
else set %away.nick off
; Going away now
if ($did(3).state == 1 && %away.status == off) {
if ($did(6).state == 1) {
if ($did(8) == $null) set %away.reason No reason
else set %away.reason $did(8)
maway2 r
}
else {
if ($did(8) == $null) set %away.reason No reason
else set %away.reason $did(8)
predefaway
}
}
if ($did(4).state == 1 && %away.status == on) {
if (did(6).state == 1) maway2
else maway
}
}
on 1:dialog:AwaySysDialog:sclick:11: {
did -b AwaySysDialog 12,13
}
on 1:dialog:AwaySysDialog:sclick:10: {
did -e AwaySysDialog 12,13
}
on 1:dialog:AwaySysDialog:sclick:26: {
did -b AwaySysDialog 27
}
on 1:dialog:AwaySysDialog:sclick:25: {
did -e AwaySysDialog 27
}
on 1:dialog:AwaySysDialog:sclick:17: {
window -ak @PagerLog -0 -0
if ( $exists(pager.log)) { loadbuf @PagerLog pager.log }
else {
write pager.log $away.logo
loadbuf @PagerLog pager.log
}
}
alias ClearPagerLog {
if ( $$?!="Are you sure?" == $true ) { write -c pager.log | write pager.log $away.logo | echo -a 4 CTCP pager log cleared. %snafy }
}
on 1:dialog:AwaySysDialog:sclick:18: .timer 1 0 ClearPagerLog
on 1:dialog:AwaySysDialog:sclick:22: {
window -ak @MSGLog -0 -0
if ( $exists(msg.log)) { loadbuf @MSGLog msg.log }
else {
write msg.log $away.logo
loadbuf @MSGLog msg.log
}
}
alias ClearMsgLog {
if ( $$?!="Are you sure?" == $true ) { write -c msg.log | write msg.log $away.logo | echo -a 15,1›››0 MSG Log cleared. %snafy } | else halt
}
on 1:dialog:AwaySysDialog:sclick:23: .timer 1 0 ClearMsgLog
alias SetTime {
set %auto.away.etp $$?="Enter number of seconds:"
if (%auto.away.etp isnum ) && ( %auto.away.etp > 0 ) set %auto.away.secs %auto.away.etp | Echo -a 15,1›››0 Auto Away Set To %auto.away.etp Seconds. %snafy | .unset %auto.away.etp | aacheck
}
on 1:dialog:AwaySysDialog:sclick:27: .timer 1 0 SetTime
alias SetPagerSound {
set %away.pager.wav on
if ( $$?!="Would you CrAzIeSt to use a WAV file for the pager sound?" == $true ) set %away.pager.sound $dir[="Choose WAV file to play when Pager comes"] *.wav
else { set %away.pager.sound empty | set %away.pager.wav off }
}
on 1:dialog:AwaySysDialog:sclick:19: .timer 1 0 SetPagerSound
on 1:dialog:AwaySysDialog:sclick:37: open.AboutASDialog
alias a.cp {
if (%away.pager == on) && (%away.log == on) return Pager : ON . Log : ON
elseif (%away.pager == on) && (%away.log == off) return Pager ON . Log : OFF
elseif (%away.pager == off) && (%away.log == off) return Pager OFF . Log : OFF
elseif (%away.pager == off) && (%away.log == on) return Pager : OFF . Log : ON
}
alias mutubanprot3.anim {
if (($dialog(AwaySysDialog) == $null) || (%.anim._i > 390)) { .timer_anim off | unset %.anim.tmp* %.anim._i | return }
:1 | %.anim.tmpx = $calc(($window(-1).w / 1.28) - %.anim._i) | %.anim.tmpy = $calc(($window(-1).h / 1.05) - %.anim._i) | %.anim.tmpw = $calc(%.anim._i * 1) | %.anim.tmph = $calc(%.anim._i * .74)
dialog -s AwaySysDialog %.anim.tmpx %.anim.tmpy %.anim.tmpw %.anim.tmph | inc %.anim._i 4
}
menu Channel {
تعليق