(Skrip)-sBiasa-Lite — File Browser

Skrip-sBiasa-Litev1.01c / Skrip-sBiasa-Litev1.01c / sBiasaLite_Skrip / sbiasa_lite_s_away.ini

sbiasa_lite_s_away.ini — 21.93 KB — Download this file 

[script]
n0=;# Skrip BĂ­asa Lite -#- RonĂ­ Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=
n2=dialog sBiasa.away.dialogs {
n3=  title "BĂ­asa Away Dialog"
n4=  size -1 -1 547 371
n5=  button "OK", 3, 6 237 82 26, default Ok
n6=  button "Cancel", 4, 6 268 82 26, Cancel
n7=  button "&Apply", 5, 6 301 82 26
n8=  box "", 100, 5 0 84 75
n9=  radio "Away", 101, 15 13 64 25, group push
n10=  radio "Back", 102, 15 44 64 25, push
n11=  box "Options", 120, 5 95 84 119
n12=  check "Logging", 121, 13 117 68 25, push
n13=  check "Auto Away", 122, 13 147 68 25, push
n14=  check "Auto Back", 123, 13 177 68 25, push
n15=  box "Logging", 200, 107 0 424 122
n16=  combo 201, 121 22 121 102, drop
n17=  button "Check Message", 202, 145 52 96 23
n18=  button "Delete", 203, 191 80 50 23
n19=  button "Clear All", 204, 129 80 57 23
n20=  radio "Close query (msg) window after:", 211, 277 33 172 15, group
n21=  combo 212, 450 30 64 102, drop
n22=  radio "Close query directly.", 213, 277 58 172 15
n23=  radio "Don't close.", 214, 277 83 172 15
n24=  box "Auto away after idle time", 300, 107 114 424 64
n25=  radio "1 min", 311, 122 142 50 15, group
n26=  radio "2 mins", 312, 185 142 50 15
n27=  radio "5 mins", 313, 248 142 50 15
n28=  radio "15 mins", 314, 311 142 55 15
n29=  radio "30 mins", 315, 379 142 55 15
n30=  radio "1 hour", 316, 447 142 50 15
n31=  box "Auto back after send message", 400, 107 170 424 60
n32=  radio "1 line", 411, 122 198 50 15, group
n33=  radio "2 lines", 412, 185 198 50 15
n34=  radio "5 lines", 413, 248 198 50 15
n35=  radio "10 lines", 414, 311 198 55 15
n36=  check "Reset every 15 secs.", 441, 390 194 125 22
n37=  box "Reason for away", 500, 107 243 424 84
n38=  radio "Busy", 511, 122 267 50 15, group
n39=  radio "Sleeping", 512, 177 267 60 15
n40=  radio "Work", 513, 248 267 50 15
n41=  radio "Eatting", 514, 305 267 60 15
n42=  radio "Studying", 515, 369 267 63 15
n43=  radio "Out place", 516, 440 267 66 15
n44=  radio "&Other:", 551, 122 293 52 15
n45=  edit "No reason specified.", 552, 178 288 337 25, autohs
n46=  edit "There's no information.", 801, 147 340 346 24, center read autohs
n47=  ;  link $analog, 100, 5 115 165 17
n48=  icon 99, 6 342 79 20, $logobiasa
n49=}
n50=on *:DIALOG:sBiasa.away.dialogs:init:0:{ sBiasa.away.dialogs.init | did -f sBiasa.away.dialogs 101 | did -b sBiasa.away.dialogs 5 }
n51=on *:DIALOG:sBiasa.away.dialogs:sclick:*:{ if ($did == 3) || ($did == 5) { sBiasa.away.dialogs.apply $did } | elseif ($did == 99) { about }
n52=  elseif ($did = 121) { did - $+ $iif($did(sBiasa.away.dialogs,121).state,e,b) sBiasa.away.dialogs 211,212,213,214 }
n53=  elseif ($did = 122) { did - $+ $iif($did(sBiasa.away.dialogs,122).state,e,b) sBiasa.away.dialogs 311,312,313,314,315,316 | cdid - $+ $iif($did(sBiasa.away.dialogs,122).state,c,u) sBiasa.away.dialogs.setback 101 }
n54=  elseif ($did = 123) { did - $+ $iif($did(sBiasa.away.dialogs,123).state,e,b) sBiasa.away.dialogs 411,412,413,414,441 | cdid - $+ $iif($did(sBiasa.away.dialogs,123).state,c,u) sBiasa.away.dialogs.setaway 102 }
n55=  elseif ($did = 511) || ($did = 512) || ($did = 513) || ($did = 514) || ($did = 515) || ($did = 516) { did -o sBiasa.away.dialogs 552 1 $sBiasa.away.reason.o($calc($did - 510)) | did -b sBiasa.away.dialogs 552 }
n56=  elseif ($did = 551) { did -e sBiasa.away.dialogs 552 }
n57=  elseif ($did = 211) { did -e sBiasa.away.dialogs 212 }
n58=  elseif ($did = 213) || ($did = 214) { did -b sBiasa.away.dialogs 212 }
n59=  elseif ($did = 213) || ($did = 214) { did -b sBiasa.away.dialogs 212 }
n60=  elseif ($did = 202) { unset %sBiasa-away.dialogs.sclick.log %sBiasa-away.dialogs.sclick.data %sBiasa-away.dialogs.sclick.data.x
n61=    if ($did(sBiasa.away.dialogs,201).lines !isnum 1-9999) { sBiasa.dialog.info.small Away Logging Viewer error...:There's no message to be viewed. }
n62=    elseif ($did(sBiasa.away.dialogs,201).seltext) { if ($window(@Logging) == $null) { .window -dak0 @Logging -1 -1 350 250 } | else { .clear @Logging | .window -ra @Logging }
n63=      var %sBiasa-away.dialogs.sclick.i = 0, %sBiasa-away.dialogs.sclick.j = $ini($filelogging,$did(sBiasa.away.dialogs,201).seltext,0)
n64=      set %sBiasa-away.dialogs.sclick.data $readini $filelogging $did(sBiasa.away.dialogs,201).seltext n0
n65=      set %sBiasa-away.dialogs.sclick.data.x $readini $filelogging $did(sBiasa.away.dialogs,201).seltext n [ $+ [ $calc(%sBiasa-away.dialogs.sclick.j - 1) ] ]
n66=      .aline -p @Logging Start at $asctime($gettok(%sBiasa-away.dialogs.sclick.data,1,32)) $+ . | linesep @Logging
n67=      .titlebar @Logging - $chr(91) $+ Message from $did(sBiasa.away.dialogs,201).seltext ( $+ $gettok(%sBiasa-away.dialogs.sclick.data,2,32) $+ ) - Start at $asctime($gettok(%sBiasa-away.dialogs.sclick.data,1,32)) - End at $asctime($gettok(%sBiasa-away.dialogs.sclick.data.x,1,32)) $+ $chr(93)
n68=      while (%sBiasa-away.dialogs.sclick.i < %sBiasa-away.dialogs.sclick.j) {
n69=        set %sBiasa-away.dialogs.sclick.log $readini $filelogging $did(sBiasa.away.dialogs,201).seltext n [ $+ [ %sBiasa-away.dialogs.sclick.i ] ]
n70=        if ($len($gettok(%sBiasa-away.dialogs.sclick.log,3-,32)) >= 1) { .aline -p @Logging $gettok(%sBiasa-away.dialogs.sclick.log,3-,32) }
n71=        inc %sBiasa-away.dialogs.sclick.i 1
n72=      }
n73=      linesep @Logging | .aline -p @Logging * End at $asctime($gettok(%sBiasa-away.dialogs.sclick.data.x,1,32)) $+ .
n74=    }
n75=    else { sBiasa.dialog.info.small Away Logging Viewer error...:You must select one first. }
n76=    unset %sBiasa-away.dialogs.sclick.log %sBiasa-away.dialogs.sclick.data %sBiasa-away.dialogs.sclick.data.x
n77=  }
n78=  elseif ($did = 203) { if ($did(sBiasa.away.dialogs,201).lines !isnum 1-9999) { sBiasa.dialog.info.small Away Logging Delete error...:There's no message to be deleted. }
n79=    elseif ($did(sBiasa.away.dialogs,201).seltext) { .remini $filelogging $did(sBiasa.away.dialogs,201).seltext }
n80=    else { sBiasa.dialog.info.small Away Logging Delete error...:You must select one first. }
n81=    sBiasa.away.dialogs.init.logging
n82=  }
n83=  elseif ($did = 204) { if ($did(sBiasa.away.dialogs,201).lines isnum 1-9999) && ($isfile($filelogging)) { opendialog sBiasa.away.confirm.clearlog sBiasa.away.confirm.clearlog -ma }
n84=    else { sBiasa.dialog.info.small Away Clear Logging error...:There's no message to be cleared. }
n85=    sBiasa.away.dialogs.init.logging   
n86=  }
n87=  if ($did = 3) || ($did = 4) || ($did = 5) || ($did = 99) || ($did = 200) || ($did = 201) || ($did = 202) || ($did = 203) || ($did = 204) {   }
n88=  else { cdid -e sBiasa.away.dialogs 5 }
n89=}
n90=menu @Logging {
n91=  Ma&ximize:.window -x @Logging
n92=  Mi&nimize:.window -n @Logging
n93=  &Restore:.window -r @Logging
n94=  -
n95=  &Close:.window -c @Logging
n96=}
n97=alias sBiasa.away.dialogs.init.options {
n98=  cdid - $+ $iif($mid(%sBiasa-away_data,1,1),c,u) sBiasa.away.dialogs 122
n99=  cdid - $+ $iif($mid(%sBiasa-away_data,1,1),e,b) sBiasa.away.dialogs 311,312,313,314,315,316
n100=  cdid - $+ $iif($mid(%sBiasa-away_data,2,1),c,u) sBiasa.away.dialogs 123
n101=  cdid - $+ $iif($mid(%sBiasa-away_data,2,1),e,b) sBiasa.away.dialogs 411,412,413,414,441
n102=  cdid - $+ $iif($mid(%sBiasa-away_data,3,1),c,u) sBiasa.away.dialogs 121
n103=  cdid - $+ $iif($mid(%sBiasa-away_data,3,1),e,b) sBiasa.away.dialogs 211,212,213,214
n104=}
n105=alias sBiasa.away.dialogs.init.status {
n106=  if ($dialog(sBiasa.away.dialogs) = sBiasa.away.dialogs) {
n107=    if ($away) || (withsystem isin $gettok(%sBiasa-away.status,1,32)) { did -u sBiasa.away.dialogs 102 | did -c sBiasa.away.dialogs 101 }
n108=    else { did -u sBiasa.away.dialogs 101 | did -c sBiasa.away.dialogs 102 }
n109=    if ($away) { if (withsystem isin $gettok(%sBiasa-away.status,1,32)) { set -u0 %sBiasa-away.dialogs.init.info away with this away system }
n110=      else { set -u0 %sBiasa-away.dialogs.init.info away without this away system }
n111=    }
n112=    else { set -u0 %sBiasa-away.dialogs.init.info not away }
n113=    if ($server == $null) { if (withsystem isin $gettok(%sBiasa-away.status,1,32)) { did -o sBiasa.away.dialogs 801 1 (Offline) not connected to server. Will set away on connect. }
n114=      else { did -o sBiasa.away.dialogs 801 1 (Offline) Not connected to server. }
n115=    }
n116=    else { did -o sBiasa.away.dialogs 801 1 You are %sBiasa-away.dialogs.init.info $+ . (online) }
n117=    unset %sBiasa-away.dialogs.init.info
n118=} }
n119=alias sBiasa.away.dialogs.init { did -b sBiasa.away.dialogs 5
n120=  if (%sBiasa-away_data == $null) { set %sBiasa-away_data 001000007410 }
n121=  elseif ($len(%sBiasa-away_data) < 12) { set %sBiasa-away_data %sBiasa-away_data $+ $str(0,$calc(12 - $len(%sBiasa-away_data))) }
n122=  sBiasa.away.dialogs.init.options
n123=  if ($mid(%sBiasa-away_data,4,2) == 11) { did -c sBiasa.away.dialogs 213 | did -b sBiasa.away.dialogs 212 }
n124=  elseif ($mid(%sBiasa-away_data,4,1)) { did -c sBiasa.away.dialogs 214 | did -b sBiasa.away.dialogs 212 }
n125=  else { did -c sBiasa.away.dialogs 211 | did -e sBiasa.away.dialogs 212 }
n126=  did - $+ $iif($mid(%sBiasa-away_data,6,1),c,u) sBiasa.away.dialogs 441
n127=  did - $+ $iif($mid(%sBiasa-away_data,7,1),c,u) sBiasa.away.dialogs 551
n128=  if ($mid(%sBiasa-away_data,7,1)) { did -u sBiasa.away.dialogs 511,512,513,514,515,516 }
n129=  else { did -c sBiasa.away.dialogs $calc(511 + $mid(%sBiasa-away_data,12,1)) }
n130=  did -o sBiasa.away.dialogs 552 1 $sBiasa.away.reason
n131=  did - $+ $iif($mid(%sBiasa-away_data,7,1),e,b) sBiasa.away.dialogs 552
n132=  unset %sBiasa-away.dialogs.init.info | did -r sBiasa.away.dialogs 212
n133=  didtok sBiasa.away.dialogs 212 44 1 sec,2 secs,3 secs,5 secs,10 secs,15 secs,20 secs,25 secs,30 secs,45 secs,1 min,2 mins,3 mins,5 mins,10 mins,15 mins,30 mins,45 mins,1 hour,2 hours
n134=  did -kc sBiasa.away.dialogs 212 $calc(1 + $mid(%sBiasa-away_data,8,2))
n135=  did -c sBiasa.away.dialogs $calc(311 + $mid(%sBiasa-away_data,10,1))
n136=  did -c sBiasa.away.dialogs $calc(411 + $mid(%sBiasa-away_data,11,1))
n137=  sBiasa.away.dialogs.init.logging | sBiasa.away.dialogs.init.status
n138=}
n139=alias sBiasa.away.dialogs.init.logging { cdid -r sBiasa.away.dialogs 201 | var %sBiasa-away.logging.i = 1, %sBiasa-away.logging.j = $ini($filelogging,0) | if (%sBiasa-away.logging.j >= 1) { while (%sBiasa-away.logging.i <= %sBiasa-away.logging.j) { cdid -i sBiasa.away.dialogs 201 %sBiasa-away.logging.i $ini($filelogging,%sBiasa-away.logging.i) | inc %sBiasa-away.logging.i 1 } } }
n140=alias sBiasa.away.dialogs.apply { did -b sBiasa.away.dialogs 5
n141=  if ($did(sBiasa.away.dialogs,213).state) { set %sBiasa-away.temp.apply 11 }
n142=  elseif ($did(sBiasa.away.dialogs,214).state) { set %sBiasa-away.temp.apply 10 }
n143=  else { set %sBiasa-away.temp.apply 00 }
n144=  set %sBiasa-away_data $did(sBiasa.away.dialogs,122).state $+ $did(sBiasa.away.dialogs,123).state $+ $did(sBiasa.away.dialogs,121).state $+ %sBiasa-away.temp.apply $+ $did(sBiasa.away.dialogs,441).state $+ $did(sBiasa.away.dialogs,551).state $+ $iif($calc($did(sBiasa.away.dialogs,212).sel - 1) <= 9, 0) $+ $+ $calc($did(sBiasa.away.dialogs,212).sel - 1) $+ $mid(%sBiasa-away_data,10,3)
n145=  unset %sBiasa-away.temp.apply
n146=  var %sBiasa-away.dialogs.apply.i = 0
n147=  while (%sBiasa-away.dialogs.apply.i < 6) { if ($did(sBiasa.away.dialogs,$calc(311 + %sBiasa-away.dialogs.apply.i)).state) { set %sBiasa-away_data $left(%sBiasa-away_data,9) $+ %sBiasa-away.dialogs.apply.i $+ $mid(%sBiasa-away_data,11,2) | break } | inc %sBiasa-away.dialogs.apply.i 1 }
n148=  var %sBiasa-away.dialogs.apply.i = 0
n149=  while (%sBiasa-away.dialogs.apply.i < 4) { if ($did(sBiasa.away.dialogs,$calc(411 + %sBiasa-away.dialogs.apply.i)).state) { set %sBiasa-away_data $left(%sBiasa-away_data,10) $+ %sBiasa-away.dialogs.apply.i $+ $mid(%sBiasa-away_data,12,1) | break } | inc %sBiasa-away.dialogs.apply.i 1 }
n150=  var %sBiasa-away.dialogs.apply.i = 0
n151=  while (%sBiasa-away.dialogs.apply.i < 6) { if ($did(sBiasa.away.dialogs,$calc(511 + %sBiasa-away.dialogs.apply.i)).state) { set %sBiasa-away_data $left(%sBiasa-away_data,11) $+ %sBiasa-away.dialogs.apply.i | break } | inc %sBiasa-away.dialogs.apply.i 1 }
n152=  if ($did(sBiasa.away.dialogs,551).state) && ($did(sBiasa.away.dialogs,552)) { set %sBiasa-away.reason $did(sBiasa.away.dialogs,552) }
n153=  else { unset %sBiasa-away.reason }
n154=  unset %sBiasa-away.temp.apply
n155=  if ($did(sBiasa.away.dialogs,101).state) { if (($sBiasa.away.reason.d != $sBiasa.away.reason)) || (($away != $true) && (withsystem !isin $gettok(%sBiasa-away.status,1,32))) {
n156=      if ($server) { if ($away) { .away -ext -reaway $sBiasa.away.reason.d } | else { .away -ext $sBiasa.away.reason.d } }
n157=      else { set %sBiasa-away.status withsystem $iif($gettok(%sBiasa-away.status,2,32), $gettok(%sBiasa-away.status,2,32), $ctime) $iif($sBiasa.away.reason.d, $sBiasa.away.reason.d, no reason specified)
n158=      if ($1 == 3) { closedialog sBiasa.away.dialogs sBiasa.away.dialogs } | sBiasa.dialog.info.small Away System:You will sets away when connecting to server. }
n159=  } }
n160=  elseif ($did(sBiasa.away.dialogs,102).state) { if ($away) || (withsystem isin $gettok(%sBiasa-away.status,1,32)) { if ($server) { .away -ext } | else { sBiasa.away.dialogs.setback.manual } } }
n161=  if ($1 == 5) { sBiasa.away.dialogs.init }
n162=  sBiasa.options.check.away
n163=  cdid - $+ $iif($sBiasa.away(1),c,u) sBiasa.options 223 | cdid - $+ $iif($sBiasa.away(2),c,u) sBiasa.options 224 | cdid - $+ $iif($sBiasa.away(3),c,u) sBiasa.options 225
n164=}
n165=alias sBiasa.away.dialogs.setback.manual { if (%sBiasa-away.status) { ecinfo Away Set back from ' $+ $gettok(%sBiasa-away.status,3-,32) $+ ' (offline), about $seen.when.time($gettok(%sBiasa-away.status,2,32) - $ctime) times. } | unset %sBiasa-away.status }
n166=alias sBiasa.away.dialogs.setaway.manual { if ($3 != $null) { ecinfo Away Set away, reason ' $+ $3- $+ ' (offline). $strip($analizing,c) $+ $chr(91) $+ log: $+ $iif($sBiasa.away(3), on, off) $+ /start: $+ $lower($asctime($2)) $+ $chr(93). | set %sBiasa-away.status $1- } }
n167=on *:DIALOG:sBiasa.away.confirm.clearlog:sclick:3:{ if ($isfile($filelogging)) { .remove $filelogging | sBiasa.away.dialogs.init.logging | closedialog sBiasa.away.confirm.clearlog sBiasa.away.confirm.clearlog | sBiasa.dialog.info.small Away Clear Logging:All message are cleared. | ecinfo Options Succesful clearing Away Logging. } }
n168=dialog sBiasa.away.confirm.clearlog {
n169=  title "BĂ­asa Away Clear Logging Confirm"
n170=  size -1 -1 184 83
n171=  button "&Yes", 3, 24 51 66 23, default Ok
n172=  button "&No", 4, 96 51 66 23, Cancel
n173=  text "Are you sure you want to clearing all the message log?", 11, 14 10 157 40
n174=  ;  link $analog, 100, 5 115 165 17
n175=  ;  icon 99, 192 118 79 20, $logobiasa
n176=}
n177=alias sBiasa.away.dialogs.setaway { opendialog sBiasa.away.dialogs.setaway sBiasa.away.dialogs.setaway -ma }
n178=alias sBiasa.away.dialogs.setback { if ($server == $null) { if (withsystem isin $gettok(%sBiasa-away.status,1,32)) { opendialog sBiasa.away.dialogs.setback sBiasa.away.dialogs.setback -ma }
n179=    else { sBiasa.dialog.info.small Set Back error...:Can't set back from away when not connected to server or you're not using away system. When you get disconnected from server, you are no longer being away. If you set away with away system, it will reaway on connect to server. If you was sets away without away system, you don't need to set back if you get disconnected from server. }
n180=  }
n181=  else { opendialog sBiasa.away.dialogs.setback sBiasa.away.dialogs.setback -ma }
n182=}
n183=dialog sBiasa.away.dialogs.setaway {
n184=  title "BĂ­asa Set Away"
n185=  size -1 -1 327 109
n186=  button "OK", 3, 104 79 57 24, default Ok
n187=  button "Cancel", 4, 168 79 56 24, Cancel
n188=  button "Open &Dialog", 7, 239 79 79 24
n189=  check "Auto &back", 102, 181 55 71 15
n190=  check "&Logging", 103, 261 55 62 15
n191=  text "Enter your away &message:", 11, 10 8 200 15
n192=  edit "", 12, 9 25 310 24, autohs limit 200
n193=  ;  link $analog, 100, 5 115 165 17
n194=  ;  icon 99, 192 118 79 20, $logobiasa
n195=}
n196=on *:DIALOG:sBiasa.away.dialogs.setaway:init:0:{ if ($gettok(%sBiasa-away.status,3-,32)) { did -o sBiasa.away.dialogs.setaway 12 1 $gettok(%sBiasa-away.status,3-,32) } | did -f sBiasa.away.dialogs.setaway 12 | did - $+ $iif($sBiasa.away(2),c,u) sBiasa.away.dialogs.setaway 102 | did - $+ $iif($sBiasa.away(3),c,u) sBiasa.away.dialogs.setaway 103 }
n197=on *:DIALOG:sBiasa.away.dialogs.setaway:sclick:*:{ if ($did = 7) { closedialog sBiasa.away.dialogs.setaway sBiasa.away.dialogs.setaway | opendialog sBiasa.away.dialogs sBiasa.away.dialogs -ma }
n198=  elseif ($did = 3) { set %sBiasa-away_data $left(%sBiasa-away_data,1) $+ $did(sBiasa.away.dialogs.setaway,102).state $+ $did(sBiasa.away.dialogs.setaway,103).state $+ $mid(%sBiasa-away_data,4,9)
n199=    if ($did(sBiasa.away.dialogs.setaway,12)) { if ($server) { if ($away) { .away -ext -reaway $did(sBiasa.away.dialogs.setaway,12) } | else { .away -ext $did(sBiasa.away.dialogs.setaway,12) } }
n200=    else { sBiasa.away.dialogs.setaway.manual withsystem $iif($gettok(%sBiasa-away.status,2,32), $gettok(%sBiasa-away.status,2,32), $ctime) $did(sBiasa.away.dialogs.setaway,12) } }
n201=    else { if ($server) { if ($away) { .away -ext -reaway $sBiasa.away.reason } | else { .away -ext $sBiasa.away.reason } }
n202=    else { sBiasa.away.dialogs.setaway.manual withsystem $iif($gettok(%sBiasa-away.status,2,32), $gettok(%sBiasa-away.status,2,32), $ctime) $iif($sBiasa.away.reason, $sBiasa.away.reason, no reason specified) } }
n203=    if ($server == $null) { closedialog sBiasa.away.dialogs.setaway sBiasa.away.dialogs.setaway | sBiasa.dialog.info.small Away System:You will sets away when connected to server. }
n204=    cdid -o sBiasa.away.dialogs 552 1 $sBiasa.away.reason | sBiasa.away.dialogs.init.options | sBiasa.options.check.away | sBiasa.away.dialogs.init.status
n205=  }
n206=  ;  elseif ($did = 102) { set %sBiasa-away_data $left(%sBiasa-away_data,1) $+ $did(sBiasa.away.dialogs.setaway,102).state $+ $mid(%sBiasa-away_data,3,10) | sBiasa.away.dialogs.init.options }
n207=  ;  elseif ($did = 103) { set %sBiasa-away_data $left(%sBiasa-away_data,2) $+ $did(sBiasa.away.dialogs.setaway,103).state $+ $mid(%sBiasa-away_data,4,9) | sBiasa.away.dialogs.init.options }
n208=}
n209=dialog sBiasa.away.dialogs.setback {
n210=  title "BĂ­asa Set Back Confirm"
n211=  size -1 -1 327 101
n212=  button "&Yes", 3, 103 37 60 26, default Ok
n213=  button "&No", 4, 172 37 60 26, Cancel
n214=  button "Open &Dialog", 7, 240 74 79 22
n215=  check "Auto &away", 101, 88 79 71 15
n216=  check "&Logging", 103, 170 79 62 15
n217=  text "Are you sure you want set back from away?", 11, 11 10 306 15
n218=  ;  link $analog, 100, 5 115 165 17
n219=  ;  icon 99, 192 118 79 20, $logobiasa
n220=}
n221=on *:DIALOG:sBiasa.away.dialogs.setback:init:0:{ did - $+ $iif($sBiasa.away(1),c,u) sBiasa.away.dialogs.setback 101 | did - $+ $iif($sBiasa.away(3),c,u) sBiasa.away.dialogs.setback 103 }
n222=on *:DIALOG:sBiasa.away.dialogs.setback:sclick:*:{ if ($did = 7) { closedialog sBiasa.away.dialogs.setback sBiasa.away.dialogs.setback | opendialog sBiasa.away.dialogs sBiasa.away.dialogs -ma }
n223=  elseif ($did = 3) { set %sBiasa-away_data $did(sBiasa.away.dialogs.setback,101).state $+ $mid(%sBiasa-away_data,2,1) $+ $did(sBiasa.away.dialogs.setback,103).state $+ $mid(%sBiasa-away_data,4,9)
n224=    if ($server) { .away } | else { sBiasa.away.dialogs.setback.manual }
n225=    sBiasa.away.dialogs.init.options | sBiasa.options.check.away | sBiasa.away.dialogs.init.status
n226=  }
n227=  ;  elseif ($did = 101) { set %sBiasa-away_data $did(sBiasa.away.dialogs.setback,101).state $+ $mid(%sBiasa-away_data,2,11) | sBiasa.away.dialogs.init.options }
n228=  ;  elseif ($did = 103) { set %sBiasa-away_data $left(%sBiasa-away_data,2) $+ $did(sBiasa.away.dialogs.setback,103).state $+ $mid(%sBiasa-away_data,4,9) | sBiasa.away.dialogs.init.options }
n229=}
n230=on me:1:PART:#:{ if ($chan(0) !isnum 1-99) { .timerawaytext off } }
n231=alias sBiasa.away.log.update { if ($1 != $null) { if ($dialog(sBiasa.away.dialogs)) { unset %sBiasa-away.log.ud. [ $+ [ $1 ] ]
n232=      var %sBiasa-away.log.update.i = 1, %sBiasa-away.log.update.x = $did(sBiasa.away.dialogs,201).lines
n233=      while (%sBiasa-away.log.update.i <= %sBiasa-away.log.update.x) {
n234=        if ($did(sBiasa.away.dialogs,201,%sBiasa-away.log.update.i) = $1) { set -u0 %sBiasa-away.log.ud. [ $+ [ $1 ] ] $1 | break }
n235=        else { unset %sBiasa-away.log.ud. [ $+ [ $1 ] ] }
n236=        inc %sBiasa-away.log.update.i 1
n237=      }
n238=      if (%sBiasa-away.log.ud. [ $+ [ $1 ] ] == $null) { cdid -a sBiasa.away.dialogs 201 $1 }
n239=} } }
n240=alias sBiasa.away.autoback.timer { if ($timer(autobackcounts) == $null) && ($sBiasa.away(2)) { .timerautobackcounts -o 0 15 { unset %sBiasa-away.autoback.count } } }
n241=alias sBiasa.away.autoaway.timer { if ($timer(autoawaycounts) == $null) && ($sBiasa.away(1)) { .timerautoawaycounts -o 0 60 { sBiasa.away.autoaway.count } } }
n242=alias sBiasa.away.autoback.timer.off { if ($timer(autobackcounts)) { .timerautobackcounts off } }
n243=alias sBiasa.away.autoaway.timer.off { if ($timer(autoawaycounts)) { .timerautoawaycounts off } }
n244=alias sBiasa.away.autoback.count { inc %sBiasa-away.autoback.count 1
n245=  if (%sBiasa-away.autoback.count >= $sBiasa.away.back) { .away
n246=    myspoken -eld -a Perform auto back from ' $+ $sBiasa.away.reason $+ '. | ecinfo Away Perform auto back from ' $+ $sBiasa.away.reason $+ '.
n247=} }
n248=alias sBiasa.away.autoaway.count { inc %sBiasa-away.autoaway.count 1 | if ($calc(%sBiasa-away.autoaway.count * 60) >= $sBiasa.away.auto) {
n249=    if ($away != $true) { myspoken -eld -a * Perform auto away, reason 'away from keyboard...'. | ecinfo Away Perform auto away, reason 'away from keyboard...'. $strip($analizing,c) $+ $chr(91) $+ log: $+ $iif($sBiasa.away(3), on, off) $+ /start: $+ $lower($asctime($gettok(%sBiasa-away.status,2,32))) $+ $chr(93) | .away -ext Away from keyboard... }
n250=} }