[script]
n0=alias F11 {
n1= /unset %awayuser.*
n2= /dialog -m xaway xaway
n3=}
n4=alias F12 {
n5= if ( $away == $true ) {
n6= if (%awaynick.use == on) { /nick %awaynick.old }
n7= /resetidle 0
n8= /away
n9= if (%away.silent != on) { /ame 3» 4i0S8» 4B0a9c8k 12[ 0gone for3 $duration($calc($ctime - %aw.time)) 12] }
n10= /set %way off
n11= /titlebar
n12= }
n13= else { /echo -a $ud 4You Are Not AwAy!!! $ud }
n14=}
n15=on *:text:*:#:{
n16= if ( $me isin $1- ) {
n17= if ( $away == $true ) {
n18= if (%awaylog == on) {
n19= /window @AwayLog
n20= /echo @awaylog 8[12 $+ $time $+ 8]4 < $+ $chan $+ / $+ $nick $+ >11 $1-
n21= }
n22= if ( %awayuser. $+ $nick !== yes ) {
n23= /.notice $nick AwAy: ( %away.reason ) - from $+ $duration($calc($ctime - %aw.time))
n24= /set %awayuser. $+ $nick yes
n25= }
n26= }
n27= }
n28=}
n29=
n30=on *:text:*:?: {
n31= if ($away == $true) {
n32= /.notice $nick 4AwAy 9» 7[0 %away.reason 7] 11- 13FRoM0: $+ $duration($calc($ctime - %aw.time))
n33= if (%awaylog == on) {
n34= /window @AwayLog
n35= /echo @awaylog 8[12 $+ $time $+ 8]4 < $+ $nick $+ >15 $1-
n36= }
n37= }
n38=}
n39=ctcp *:page:?:{
n40= if ($away == $true) {
n41= if ( %awaypage == on ) { /dialog -m paging paging | /beep 10000 1 | /flash AwAy Pager! | /.notice $nick PAGING!... | /echo -s 9<+*+>4 $nick is PAGING you... }
n42= }
n43=}
n44=on *:open:?:{
n45= if ($away == $true) {
n46= if (%awaylog == on) { //.timerclose $+ $nick 1 1 /closemsg $nick }
n47= }
n48=}
n49=
n50=menu menubar,status,channel {
n51= -
n52= Away ( $+ $iif($away == $true,YES,NO) $+ )
n53= .-
n54= .On:/F11
n55= .Off:/F12
n56= .-
n57= .Settings
n58= ..Pager(now| %awaypage $+ )
n59= ...ON:/set %awaypage on
n60= ...OFF:/set %awaypage off
n61= ..Idle(now| %awayidle $+ )
n62= ...ON:/set %awayidle on
n63= ...OFF:/set %awayidle off
n64= ...-
n65= ...Time(now %idletime.min min):{
n66= /set %idletime.min $?="Enter the time in minutes:"
n67= /set %idletime.sec $calc(%idletime.min * 60)
n68= }
n69= ..Log(now| %awaylog $+ )
n70= ...ON:/set %awaylog on
n71= ...OFF:/set %awaylog off
n72= ..Use Nick(now %awaynick.use $+ )
n73= ...ON:/set %awaynick.use on
n74= ...OFF:/set %awaynick.use off
n75= ...-
n76= ...Nick(now %awaynick $+ ):/set %awaynick $?="Enter your away nick:"
n77= ..Silent(now| %away.silent $+ )
n78= ...ON:/set %away.silent on
n79= ...OFF:/set %away.silent off
n80=}
n81=menu @AwAyLog {
n82= Close:/close -@ @AwAyLog
n83=}
n84=dialog paging {
n85= title "PAGING!!!"
n86= size 162 250 193 35
n87= option dbu
n88= button "OK", 10, 27 17 137 11, cancel,
n89= text "Press the OK Button to STOP Beeping!", 20, 6 5 181 6, center,
n90=}
n91=on *:dialog:paging:sclick:*:{
n92= if ( $did == 10 ) { /beep off }
n93=}
n94=alias checkidle {
n95= if (%awayidle == on) {
n96= if ($away == $false) {
n97= if ($idle >= %idletime.sec) {
n98= /unset %awayuser.*
n99= /set %away.reason Autoaway...
n100= /away %away.reason
n101= if (%away.silent != on) { /ame 4i0S 7A3w8a9Y12. 3Reason 4-11 %away.reason (autoaway %idletime.min minuts idle) }
n102= /set %way on
n103= /set %aw.time $ctime
n104= }
n105= }
n106= }
n107=}
n108=dialog xaway {
n109= title "AwAy System"
n110= icon data\away.ico
n111= size -1 -1 175 52
n112= option dbu
n113= text "&Away message:", 202, 5 7 37 7
n114= edit "", 1, 43 5 118 11, autohs
n115= text "0", 4, 163 7 13 7
n116= check "&Pager", 2, 5 21 44 7
n117= check "&Log", 3, 58 21 39 7
n118= button "OK", 101, 5 35 27 12, OK default flat
n119= button "Cancel", 102, 38 35 27 12, cancel flat
n120= check "&Nick:", 103, 75 38 22 7
n121= edit "", 105, 98 36 73 11
n122= check "&Silent", 104, 107 21 60 7
n123=}
n124=on *:dialog:xaway:init:*:{
n125= if (%awaypage == off) { did -u xaway 2 }
n126= if (%awaypage == on) { did -c xaway 2 }
n127= if (%awaylog == off) { did -u xaway 3 }
n128= if (%awaylog == on) { did -c xaway 3 }
n129= if (%awaynick.use == off) { did -u xaway 103 }
n130= if (%awaynick.use == on) { did -c xaway 103 }
n131= if (%away.silent == off) { did -u xaway 104 }
n132= if (%away.silent == on) { did -c xaway 104 }
n133= if (%awaynick !== $null) { did -a xaway 105 %awaynick }
n134=}
n135=on *:dialog:xaway:sclick:*:{
n136= if ($did == 2) {
n137= if (%awaypage == on) { /set %awaypage off }
n138= else { /set %awaypage on }
n139= }
n140= if ($did == 3) {
n141= if (%awaylog == on) { /set %awaylog off }
n142= else { /set %awaylog on }
n143= }
n144= if ($did == 103) {
n145= if (%awaynick.use == on) { /set %awaynick.use off }
n146= else { /set %awaynick.use on }
n147= }
n148= if ($did == 101) {
n149= /set %awaynick $did(105)
n150= if ($did(1) == $null) { /echo -a $ud 4Please enter away reason!!! $ud | halt }
n151= /set %away.reason $did(1)
n152= /away %away.reason
n153= if (%away.silent != on) { /ame is away. Reason - %away.reason }
n154= /set %way on
n155= /set %aw.time $ctime
n156= if (%awaynick.use == on) { /set %awaynick.old $me | /nick %awaynick }
n157= }
n158= if ($did == 104) {
n159= if (%away.silent == on) { /set %away.silent off }
n160= else { /set %away.silent on }
n161= }
n162=}
n163=
n164=on *:DIALOG:xaway:edit:1:{ doeditboxchk }
n165=alias -l doeditboxchk {
n166= if ($len($did(1)) < 100) { did -a $dname 4 $len($did(1)) }
n167= if ($len($did(1)) == 100) { %did1text = $did(1) | did -a $dname 4 Max }
n168= if ($len($did(1)) == 101) { did -ar $dname 1 %did1text | beep 1 | %did1text = $did(1) }
n169=}