/ScriptServ

[script]
n0=;# Skrip Bíasa Lite -#- Roní Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=
n2=on 1:START:{ .remote on | .perform off }
n3=dialog sBiasa.options {
n4=  title "Skrip Bíasa Lite Options"
n5=  size -1 -1 540 399
n6=  button "OK", 3, 176 369 58 25, Ok default
n7=  button "Cancel", 4, 241 369 58 25, Cancel
n8=  button "&Apply", 5, 306 369 58 25
n9=  box "&General", 100, 5 2 530 97
n10=  check "Enable information window on start", 101, 19 25 200 15
n11=  check "Enable sounds effect", 102, 19 46 200 15
n12=  check "Enable colour background", 105, 19 68 149 15
n13=  button "Options...", 106, 193 66 60 18
n14=  check "Open lag monitor on connect", 111, 276 26 162 15
n15=  button "Options...", 112, 450 24 60 18
n16=  check "Enable auto identify nickserv", 121, 276 49 160 15
n17=  button "Password...", 122, 450 47 70 18
n18=  check "Enable auto login undernet", 131, 276 72 151 15
n19=  button "Password...", 132, 450 70 70 18
n20=  box "&Miscelanous", 200, 5 105 530 72
n21=  check "Extended colours nicklistbox", 201, 19 129 160 15
n22=  button "Options...", 202, 193 127 60 18
n23=  check "Enable seen reply on '!seen nick'", 203, 19 150 179 15
n24=  check "Enable nick completer", 204, 276 129 135 15
n25=  button "Options...", 205, 450 127 60 18
n26=  check "Enable ping nick on '!ping nick' request", 206, 276 150 210 15
n27=  box "&Away", 220, 5 183 530 54
n28=  button "Set away", 221, 20 205 72 20
n29=  button "Set back", 222, 101 205 72 20
n30=  check "Auto away", 223, 197 208 70 15
n31=  check "Auto back", 224, 285 208 70 15
n32=  icon 7, 454 373 79 20, $logobiasa
n33=  link $analog, 33, 8 382 105 17
n34=  check "Logging", 225, 371 208 64 15
n35=  button "Dialog...", 226, 450 205 54 20
n36=  box "&Protections", 240, 5 243 530 54
n37=  check "Enable Private Protection", 241, 19 268 143 15
n38=  button "Options...", 242, 193 265 60 20
n39=  check "Enable Channel Protection", 243, 276 268 149 15
n40=  button "Options...", 244, 450 265 60 20
n41=  box "&Entertainment", 251, 5 304 208 56
n42=  button "Mp3 Player options", 252, 19 327 180 22
n43=  box "&Volume", 270, 217 304 318 56, tab 1
n44=  button "select", 271, 234 330 43 17, tab 1
n45=  text "Master: ", 272, 290 332 40 15, tab 1
n46=  text "100 %", 273, 327 332 30 15, right, tab 1
n47=  button "-", 274, 364 331 18 15, tab 1
n48=  button "+", 275, 386 331 18 15, tab 1
n49=  check "mute", 276, 411 330 38 16, group push tab 1
n50=  check "mute all", 277, 469 330 50 16, group push tab 1
n51=}
n52=alias sBiasa.Player.playlist.data.volume.now { if ($gettok($calc($vol(mp3) / 655.35),1,46) isnum 0-100) { cdid -i sBiasa.Player.playlist 852 1 $gettok($calc($vol(mp3) / 655.35),1,46) % | cdid -i sBiasa.Player.playlist.option 127 1 $gettok($calc($vol(mp3) / 655.35),1,46) % }
n53=  if ($vol(mp3).mute) { cdid -c sBiasa.Player.playlist 855 | cdid -c sBiasa.Player.playlist.option 144 }
n54=  else { cdid -u sBiasa.Player.playlist 855 | cdid -u sBiasa.Player.playlist.option 144 }
n55=  if ($vol(master).mute) { cdid -c sBiasa.options 277 }
n56=  else { cdid -u sBiasa.options 277 }
n57=  if ($dialog(sBiasa.options) = sBiasa.options) { cdid -i sBiasa.options 272 1 $sBiasa.volume.now.main.options $+ :
n58=    cdid -i sBiasa.options 273 1 $gettok($calc($vol($sBiasa.volume.now.main.options) / 655.35),1,46) %
n59=    cdid - $+ $iif($vol($sBiasa.volume.now.main.options).mute,c,u) sBiasa.options 276
n60=} }
n61=alias sBiasa.volume.now.main.options.c { set -u0 %sBiasa-volume.now.main.options.c $findtok(Mp3.Wave.Midi.Master,$sBiasa.volume.now.main.options,1,46)
n62=  set -u0 %sBiasa-volume.now.main.options.c - $+ $gettok(p.w.m.v,%sBiasa-volume.now.main.options.c,46)
n63=  if ($1 = +) { if ($vol($sBiasa.volume.now.main.options) > 0) { .vol %sBiasa-volume.now.main.options.c $calc($vol($sBiasa.volume.now.main.options) - 655.35) } }
n64=  elseif ($1 = -) { if ($vol($sBiasa.volume.now.main.options) < 65535) { .vol %sBiasa-volume.now.main.options.c $calc($vol($sBiasa.volume.now.main.options) + 655.35) } }
n65=  elseif ($1 = m) { if ($2 == 1) { set -u0 %sBiasa-volume.now.main.options.c %sBiasa-volume.now.main.options.c $+ u1 }
n66=    else { set -u0 %sBiasa-volume.now.main.options.c %sBiasa-volume.now.main.options.c $+ u2 }
n67=    .vol %sBiasa-volume.now.main.options.c
n68=  }
n69=  unset %sBiasa-volume.now.main.options.c | sBiasa.Player.playlist.data.volume.now
n70=}
n71=alias sBiasa.volume.now.main.options.s { if ($mid(%sBiasa-main_data,12,2) == 10) { set %sBiasa-main_data $left(%sBiasa-main_data,11) $+ 01 }
n72=  elseif ($mid(%sBiasa-main_data,12,2) == 01) { set %sBiasa-main_data $left(%sBiasa-main_data,11) $+ 11 }
n73=  elseif ($mid(%sBiasa-main_data,12,2) == 11) { set %sBiasa-main_data $left(%sBiasa-main_data,11) $+ 00 }
n74=  else { set %sBiasa-main_data $left(%sBiasa-main_data,11) $+ 10 }
n75=}
n76=on *:DIALOG:sBiasa.options:init:0:{ did -b sBiasa.options 5 | sBiasa.options.init | did -f sBiasa.options 101 }
n77=alias sBiasa.options.init { if (%sBiasa-main_data == $null) { set %sBiasa-main_data 010111111110001 }
n78=  elseif ($len(%sBiasa-main_data) < 14) { set %sBiasa-main_data %sBiasa-main_data $+ $str(0,$calc(14 - $len(%sBiasa-main_data))) }
n79=  if (%sBiasa-away_data == $null) { set %sBiasa-away_data 001 }
n80=  elseif ($len(%sBiasa-away_data) < 7) { set %sBiasa-away_data %sBiasa-away_data $+ $str(0,$calc(7 - $len(%sBiasa-away_data))) }
n81=  set %sBiasa-main_data.old %sBiasa-main_data
n82=  did - $+ $iif($sBiasa.main(1),u,c) sBiasa.options 101
n83=  did - $+ $iif($sBiasa.main(2),c,u) sBiasa.options 102
n84=  did - $+ $iif($sBiasa.main(3),c,u) sBiasa.options 105
n85=  did - $+ $iif($sBiasa.main(3),e,b) sBiasa.options 106
n86=  did - $+ $iif($sBiasa.main(14),c,u) sBiasa.options 111
n87=  did - $+ $iif($sBiasa.main(14),e,b) sBiasa.options 112
n88=  did - $+ $iif($sBiasa.main(4),c,u) sBiasa.options 121
n89=  did - $+ $iif($sBiasa.main(4),e,b) sBiasa.options 122
n90=  did - $+ $iif($sBiasa.main(5),c,u) sBiasa.options 131
n91=  did - $+ $iif($sBiasa.main(5),e,b) sBiasa.options 132
n92=  did - $+ $iif($sBiasa.main(6),c,u) sBiasa.options 201
n93=  did - $+ $iif($sBiasa.main(6),e,b) sBiasa.options 202
n94=  did - $+ $iif($sBiasa.main(7),c,u) sBiasa.options 203
n95=  did - $+ $iif($sBiasa.main(8),c,u) sBiasa.options 204
n96=  did - $+ $iif($sBiasa.main(8),e,b) sBiasa.options 205
n97=  did - $+ $iif($sBiasa.main(9),c,u) sBiasa.options 206
n98=  sBiasa.options.check.away
n99=  did - $+ $iif($sBiasa.main(10),c,u) sBiasa.options 241
n100=  did - $+ $iif($sBiasa.main(10),e,b) sBiasa.options 242
n101=  did - $+ $iif($sBiasa.main(11),c,u) sBiasa.options 243
n102=  did - $+ $iif($sBiasa.main(11),e,b) sBiasa.options 244
n103=  sBiasa.Player.playlist.data.volume.now
n104=}
n105=alias sBiasa.options.check.away { if ($away) { cdid -b sBiasa.options 221 | cdid -e sBiasa.options 222 }
n106=  elseif (withsystem isin $gettok(%sBiasa-away.status,1,32)) { cdid -e sBiasa.options 222 | cdid -b sBiasa.options 221 }
n107=  else { cdid -b sBiasa.options 222 | cdid -e sBiasa.options 221 }
n108=  cdid - $+ $iif($sBiasa.away(1),c,u) sBiasa.options 223
n109=  cdid - $+ $iif($sBiasa.away(2),c,u) sBiasa.options 224
n110=  cdid - $+ $iif($sBiasa.away(3),c,u) sBiasa.options 225
n111=}
n112=alias sBiasa.options.apply { if ($1 = 5) { did -b sBiasa.options 5 }
n113=  var %sBiasa-options.apply.bgclr = $mid(%sBiasa-main_data,3,1)
n114=  set %sBiasa-main_data $iif($did(sBiasa.options,101).state,0,1) $+ $did(sBiasa.options,102).state $+ $did(sBiasa.options,105).state $+ $did(sBiasa.options,121).state $+ $did(sBiasa.options,131).state $+ $did(sBiasa.options,201).state $+ $did(sBiasa.options,203).state $+ $did(sBiasa.options,204).state $+ $did(sBiasa.options,206).state $+ $did(sBiasa.options,241).state $+ $did(sBiasa.options,243).state $+ $mid(%sBiasa-main_data,12,2) $+ $did(sBiasa.options,111).state
n115=  set %sBiasa-away_data $did(sBiasa.options,223).state $+ $did(sBiasa.options,224).state $+ $did(sBiasa.options,225).state $+ $mid(%sBiasa-away_data,4,9)
n116=  sBiasa.away.dialogs.init.options | sBiasa.away.dialogs.init.status
n117=  if ($mid(%sBiasa-main_data,3,1) != %sBiasa-options.apply.bgclr) { sBiasa.bgcolours.options.reshow }
n118=  if ($window(@NickCompleter)) { sBiasa.nickcomp.setup -r }
n119=  if ($1 = 5) { sBiasa.options.init } | else { unset %sBiasa-main_data.old }
n120=}
n121=on *:DIALOG:sBiasa.options:sclick:*:{
n122=  if ($did = 3) || ($did == 5) { sBiasa.options.apply $did }
n123=  elseif ($did = 4) { set %sBiasa-main_data %sBiasa-main_data.old | unset %sBiasa-main_data.old }
n124=  elseif ($did = 7) { about -ma }
n125=  elseif ($did = 33) { .run iexplore.exe $analogs }
n126=  elseif ($did = 105) { did - $+ $iif($did(sBiasa.options,105).state,e,b) sBiasa.options 106 }
n127=  elseif ($did = 106) { sBiasa.bgcolours.options }
n128=  elseif ($did = 111) { did - $+ $iif($did(sBiasa.options,111).state,e,b) sBiasa.options 112 }
n129=  elseif ($did = 121) { did - $+ $iif($did(sBiasa.options,121).state,e,b) sBiasa.options 122 }
n130=  elseif ($did = 131) { did - $+ $iif($did(sBiasa.options,131).state,e,b) sBiasa.options 132 }
n131=  elseif ($did = 201) { did - $+ $iif($did(sBiasa.options,201).state,e,b) sBiasa.options 202 }
n132=  elseif ($did = 204) { did - $+ $iif($did(sBiasa.options,204).state,e,b) sBiasa.options 205 }
n133=  elseif ($did = 205) { sBiasa.nickcomp.setup }
n134=  elseif ($did = 241) { did - $+ $iif($did(sBiasa.options,241).state,e,b) sBiasa.options 242 }
n135=  elseif ($did = 243) { did - $+ $iif($did(sBiasa.options,243).state,e,b) sBiasa.options 244 }
n136=  elseif ($did = 112) { opendialog sBiasa.lag.monitor.options sBiasa.lag.monitor.options }
n137=  elseif ($did = 122) { opendialog sBiasa.auto.nickserv.identify sBiasa.auto.nickserv.identify }
n138=  elseif ($did = 132) { opendialog sBiasa.auto.undernet.login sBiasa.auto.undernet.login }
n139=  elseif ($did = 202) { opendialog sBiasa.extnicklist.options sBiasa.extnicklist.options }
n140=  elseif ($did = 221) { opendialog sBiasa.away.dialogs.setaway sBiasa.away.dialogs.setaway }
n141=  elseif ($did = 222) { opendialog sBiasa.away.dialogs.setback sBiasa.away.dialogs.setback }
n142=  elseif ($did = 226) { opendialog sBiasa.away.dialogs sBiasa.away.dialogs }
n143=  elseif ($did = 242) { opendialog sBiasa.prot.pv.options sBiasa.prot.pv.options }
n144=  elseif ($did = 244) { opendialog sBiasa.prot.ch.options sBiasa.prot.ch.options }
n145=  elseif ($did = 252) { opendialog sBiasa.Player.playlist.option sBiasa.Player.playlist.option }
n146=  elseif ($did = 271) { sBiasa.volume.now.main.options.s | sBiasa.volume.now.main.options | sBiasa.Player.playlist.data.volume.now }
n147=  elseif ($did = 274) { sBiasa.volume.now.main.options.c + }
n148=  elseif ($did = 275) { sBiasa.volume.now.main.options.c - }
n149=  elseif ($did = 276) { sBiasa.volume.now.main.options.c m $did(sBiasa.options,276).state }
n150=  elseif ($did = 277) { if ($did(sBiasa.options,277).state) { .vol -vu1 } | else { .vol -vu2 } | sBiasa.Player.playlist.data.volume.now }
n151=  if ($did !isnum 3-5) && ($did != 106) && ($did != 112) && ($did != 122) && ($did != 132) && ($did != 202) && ($did != 205) && ($did !isnum 221-222) && ($did != 226) && ($did != 242) && ($did !isnum 244-277) { did -e sBiasa.options 5 }
n152=}