/ScriptServ

[script]
n0=;# Skrip Bíasa Lite -#- Roní Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=;-----Skrip Bíasa Lite ver 1.01c-----
n2=;-----Suatu saran dapat dikirimkan ke : saran@skripbiasa2000.com----
n3=;-----Atau, join #Picauly DALnet (/server irc.dal.net 6667)----
n4=;-----Tinggalkanlah Chatting----
n5=;-----Mohon maaf dan terima kasih----
n6=;-----Tobatlah...!-----
n7=;-----Rajin-rajinlah kuliah khususnya untuk anak USU (Universitas Sumatera Utara)-----
n8=
n9=dialog sBiasa.lag.monitor.options {
n10=  title "Bíasa Lag Monitor Options"
n11=  size -1 -1 181 137
n12=  button "OK", 3, 27 107 60 23, default Ok
n13=  button "Cancel", 4, 95 107 60 23, Cancel
n14=  check "Always on &top.", 101, 11 10 100 15
n15=  check "Hide the &buttons (dec height).", 102, 11 31 190 15
n16=  check "Show average time.", 103, 11 52 190 15
n17=  text "&Check every:", 111, 12 78 68 15
n18=  combo 112, 82 75 65 68, drop
n19=  ;  link $analog, 100, 5 115 165 17
n20=  ;  icon 99, 192 118 79 20, $logobiasa
n21=}
n22=on *:DIALOG:sBiasa.lag.monitor.options:init:0:{ didtok sBiasa.lag.monitor.options 112 46 no delay.1 sec.2 secs.3 secs.5 secs.15 secs.30 secs.45 secs.1 min.2 mins.5 mins.10 mins.15 mins.20 mins.30 mins.45 mins.1 hour.2 hours | sBiasa.lag.monitor.init | did - $+ $iif($sBiasa.lag.mon(2),c,u) sBiasa.lag.monitor.options 102 | did - $+ $iif($sBiasa.lag.mon(5),c,u) sBiasa.lag.monitor.options 103 | did -kc sBiasa.lag.monitor.options 112 $calc(1 + $mid(%sBiasa-lag.monitor_data,3,2)) | did -f sBiasa.lag.monitor.options 101 }
n23=on *:DIALOG:sBiasa.lag.monitor.options:sclick:3:{ if ($dialog(sBiasa.lag.monitor)) { set %sBiasa-lag.monitor_data $did(sBiasa.lag.monitor.options,101).state $+ $did(sBiasa.lag.monitor.options,102).state $+ $iif($did(sBiasa.lag.monitor.options,112).sel isnum 1-10, 0) $+ $calc($did(sBiasa.lag.monitor.options,112).sel - 1) $+ $did(sBiasa.lag.monitor.options,103).state $+ : $+ $dialog(sBiasa.lag.monitor).x $+ : $+ $dialog(sBiasa.lag.monitor).y } | else { set %sBiasa-lag.monitor_data $did(sBiasa.lag.monitor.options,101).state $+ $did(sBiasa.lag.monitor.options,102).state $+ $iif($did(sBiasa.lag.monitor.options,112).sel isnum 1-10, 0) $+ $calc($did(sBiasa.lag.monitor.options,112).sel - 1) $+ : $+ $gettok(%sBiasa-lag.monitor_data,2,58) $+ : $+ $gettok(%sBiasa-lag.monitor_data,3,58) } | sBiasa.lag.monitor.init | sBiasa.lag.monitor.init2 }
n24=on *:DIALOG:sBiasa.lag.monitor.options:sclick:5:{ if ($server) { sBiasa.lag.monitor.check } }
n25=dialog sBiasa.lag.monitor {
n26=  title "Bíasa Lag Monitor"
n27=  size -1 -1 246 101
n28=  button "Close", 3, 37 76 54 21, default Ok
n29=  button "Cn", 4, 5 76 20 21, Cancel, hide
n30=  button "&Check", 5, 98 76 54 21
n31=  button "&Option", 7, 159 76 54 21
n32=  text "&Server:", 11, 8 8 35 15
n33=  edit "picauly.st.ns.lag.net", 12, 56 4 185 22, read autohs
n34=  text "&Lag time:", 16, 8 33 46 15
n35=  edit "waiting...", 17, 56 29 185 22, read autohs
n36=  check "Always on &top.", 21, 8 57 93 15
n37=  ;  link $analog, 100, 5 115 165 17
n38=  ;  icon 99, 192 118 79 20, $logobiasa
n39=}
n40=on *:DIALOG:sBiasa.lag.monitor:init:0:{ if ($server) { did -o sBiasa.lag.monitor 12 1 $server | did -o sBiasa.lag.monitor 17 1 waiting... | sBiasa.lag.monitor.check } | else { did -o sBiasa.lag.monitor 12 1 (no connection) | did -o sBiasa.lag.monitor 17 1 n/a } | sBiasa.lag.monitor.init | sBiasa.lag.monitor.init2 }
n41=on *:DIALOG:sBiasa.lag.monitor:sclick:*:{ if ($did == 3) || ($did == 4) { set %sBiasa-lag.monitor_data $did(sBiasa.lag.monitor,21).state $+ $mid(%sBiasa-lag.monitor_data,2,3) $+ : $+ $dialog(sBiasa.lag.monitor).x $+ : $+ $dialog(sBiasa.lag.monitor).y } | elseif ($did == 7) { openclosedialog sBiasa.lag.monitor.options sBiasa.lag.monitor.options -ma } | elseif ($did == 21) { set %sBiasa-lag.monitor_data $did(sBiasa.lag.monitor,21).state $+ $mid(%sBiasa-lag.monitor_data,2,3) $+ : $+ $gettok(%sBiasa-lag.monitor_data,2,58) $+ : $+ $gettok(%sBiasa-lag.monitor_data,3,58) | sBiasa.lag.monitor.ontop } | elseif ($did == 5) { sBiasa.lag.monitor.check $did } }
n42=alias sBiasa.lag.monitor.small { cdid -h sBiasa.lag.monitor 3,5,7,21 | cdialog -s sBiasa.lag.monitor $gettok(%sBiasa-lag.monitor_data,2,58) $gettok(%sBiasa-lag.monitor_data,3,58) 246 55 | cdid -f sBiasa.lag.monitor 11 }
n43=alias sBiasa.lag.monitor.normal { cdid -v sBiasa.lag.monitor 3,5,7,21 | cdialog -s sBiasa.lag.monitor $gettok(%sBiasa-lag.monitor_data,2,58) $gettok(%sBiasa-lag.monitor_data,3,58) 246 101 }
n44=alias sBiasa.lag.monitor.ontop { cdid - $+ $iif($sBiasa.lag.mon(1),c,u) sBiasa.lag.monitor 21 | cdialog - $+ $iif($sBiasa.lag.mon(1),o,n) sBiasa.lag.monitor 21 | cdid - $+ $iif($sBiasa.lag.mon(1),c,u) sBiasa.lag.monitor.options 101 }
n45=alias sBiasa.lag.monitor.init { if (%sBiasa-lag.monitor_data == $null) { set %sBiasa-lag.monitor_data 00121:23:82 } | sBiasa.lag.monitor.ontop }
n46=alias sBiasa.lag.monitor.init2 { if ($sBiasa.lag.mon(2)) { sBiasa.lag.monitor.small } | else { sBiasa.lag.monitor.normal } }
n47=alias sBiasa.lag.monitor.timer { if ($1 = off) { .timerlagmonitor off } | elseif ($timer(lagmonitor) == $null) || ($timer(lagmonitor).secs != $sBiasa.lag.mon.length) { .timerlagmonitor 0 $sBiasa.lag.mon.length { sBiasa.lag.monitor.check } } }
n48=alias sBiasa.lag.monitor.check { if ($dialog(sBiasa.lag.monitor)) && ($server) { myspoken -c $me PING } }
n49=alias sBiasa.lag.monitor.connect { if ($server) { opendialog sBiasa.lag.monitor sBiasa.lag.monitor -md } }
n50=
n51=#sBiasa.auto_join on
n52=;-----Make it: #sBiasa-auto_join off -> to turn off (disabling) the auto join.-----
n53=;-----Usage: /sBiasa.auto_join <on/off>-----
n54=#sBiasa.auto_join end
n55=
n56=alias sBiasa.auto_join {
n57=  if ($1 = on) || ($1 = enable) { .enable #sBiasa.auto_join }
n58=  elseif ($1 = off) || ($1 = disable) || ($1 = stop) { .disable #sBiasa.auto_join }
n59=  myspoken -eld -s  $+ $colour(Info2) $+ *** Auto Join: #Jalanan on DALnet or #Medan on Undernet is $iif($upper($group(#sBiasa.auto_join)) != $null, $upper($group(#sBiasa.auto_join)), error!) $+ .
n60=}
n61=dialog sBiasa.about {
n62=  title "About..."
n63=  size -1 -1 322 232
n64=  button "&Yo - I - dech", 3, 221 195 88 27, Ok default
n65=  icon 7, 15 15 79 20, $logobiasa
n66=  icon 8, 15 95 179 120, $sBiasadir.arts(null.bmp)
n67=  icon 9, 15 152 179 120, $sBiasadir.arts(null.bmp)
n68=  text $system, 30, 110 13 190 15
n69=  text $systemscript, 31, 110 26 190 15
n70=  text $systeminfo, 32, 110 44 210 15
n71=  text "All rights reserved.", 34, 110 57 200 15
n72=  text "mIRC is a trademark of mIRC Co. Ltd.", 35, 110 94 200 15
n73=  text "Windows is a trademark of Microsoft Corp.", 36, 110 151 200 15
n74=  link $analog, 99, 17 206 145 17
n75=}
n76=on *:DIALOG:sBiasa.about:init:0:{ if ($isfile(C:\Windows\Media\The Microsoft Sound.wav)) { if (%sBiasa-about.vol == $null) { set %sBiasa-about.vol $vol(wave) $vol(wave).mute | .vol -w $calc($gettok(%sBiasa-about.vol,1,32) - $gettok(%sBiasa-about.vol,1,32) / 3) | .vol -wu2 | .splay -w "C:\Windows\Media\The Microsoft Sound.wav" | if ($gettok(%sBiasa-about.vol,2,32) == $true) {
n77=  .timersbiasa.about.1 -o 1 6 { .vol -wu1 } } | .timersbiasa.about.2 -o 1 6 { .vol -w $calc($gettok(%sBiasa-about.vol,1,32) - $gettok(%sBiasa-about.vol,1,32) / 5) } | .timersbiasa.about.3 -o 1 7 { .vol -w $calc($gettok(%sBiasa-about.vol,1,32) - $gettok(%sBiasa-about.vol,1,32) / 10) } | .timersbiasa.about.4 -o 1 8 { .vol -w $gettok(%sBiasa-about.vol,1,32) } | .timersbiasa.about.5 -o 1 9 { unset %sBiasa-about.vol } } }
n78=cdid -gv sBiasa.about 8 $sBiasa.isfile($mircdirmirc32.exe,$replacecs($findfile($mircdir,*.exe,1),$chr(32),*),$replacecs($findfile($mircdir,*.exe,2),$chr(32),*),$sBiasadir $+ null.bmp) | cdid -gv sBiasa.about 9 C:\Windows\logow.sys C:\Win98\logow.sys C:\Win95\logow.sys C:\Win\logow.sys }
n79=on *:DIALOG:sBiasa.about:sclick:9:{ .run iexplore.exe $analogs }