(Skrip)-sBiasa-Lite — File Browser
Skrip-sBiasa-Litev1.01c / Skrip-sBiasa-Litev1.01c / sBiasaLite_Skrip / sbiasa_lite_s_scramble_01.ini
sbiasa_lite_s_scramble_01.ini — 17.75 KB — Download this file
[script]
n0=;# Skrip BÃasa Lite -#- Ronà Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=
n2=dialog sBiasa.vip {
n3= size -1 -1 346 140
n4= title "BÃasa Scramble Auto Mode"
n5= text "PLaY On ChanneL:", 101, 7 8 95 15
n6= edit "#Picauly", 1, 105 4 170 22, read autohs limit 49
n7= button "&Start Game", 6, 9 82 78 23
n8= button "Sto&p Game", 7, 92 82 78 23
n9= button "&Tell Answer", 8, 175 82 78 23
n10= button "&Reset Score", 9, 258 82 78 23
n11= button "C&hange", 10, 282 4 58 21
n12= box "Auto game mode:",4, 16 31 181 42
n13= radio "!&next mode", 13, 24 49 78 15, group
n14= radio "Continue mode", 14, 100 49 94 15
n15= button "Tell &Question Again", 15, 215 45 111 23
n16= button "Close", 11, 103 112 66 23, Ok
n17= button "&Editor...", 12, 176 112 66 23
n18= button "C", 16, 250 119 20 18, Cancel, hide
n19= check "Always on top.", 801, 7 120 94 15, Ok
n20=}
n21=on *:DIALOG:sBiasa.vip:init:0:{ cdialog - $+ $iif($mid(%sBiasa-scramble_data,2,1),o,n) sBiasa.vip
n22= cdid - $+ $iif($mid(%sBiasa-scramble_data,2,1),c,u) sBiasa.vip 801
n23= cdid -o sBiasa.vip 1 1 $gettok(%sBiasa-scramble.stats,3,32)
n24= if ($group(#uncontinue) = on) { did -u sBiasa.vip 14 | did -c sBiasa.vip 13 | .disable #continue }
n25= else { did -u sBiasa.vip 13 | did -c sBiasa.vip 14 | .disable #uncontinue | .enable #continue }
n26= did -f sBiasa.vip 13
n27=}
n28=on *:DIALOG:sBiasa.vip:sclick:*:{ if ($did = 6) { if ($server == $null) { sBiasa.dialog.info.small Scramble Auto Mode error:Cannot start the scramble (auto mode), not connected to server. }
n29= elseif ($me !ison $sBiasa.scramble.chan) { .join $sBiasa.scramble.chan | sBiasa.dialog.info.small Scramble Auto Mode error:Cannot start the scramble (auto mode), you're not in channel $sBiasa.scramble.chan $+ . Please wait until you joining the channel. }
n30= else { .enable #usercom | var %sBiasa-scramble.gg = $lines($filescramble) | set %sBiasa-scramble.nu $rand(1,%sBiasa-scramble.gg)
n31= if (%sBiasa-scramble.nu > $lines($filescramble)) { set %sBiasa-scramble.nu $rand(1,%sBiasa-scramble.gg) }
n32= if ($lines($filescramble) = 2) { return }
n33= set %sBiasa-scramble.nu.t $read -l $+ %sBiasa-scramble.nu $filescramble
n34= set %sBiasa-scramble.forword $gettok(%sBiasa-scramble.nu.t,2,42)
n35= set %sBiasa-scramble.forhint $gettok(%sBiasa-scramble.nu.t,1,42)
n36= unset %sBiasa-scramble.nu.t | sBiasa.scramble.enter
n37= } }
n38= elseif ($did == 7) { .disable #usercom | /sBiasa.scramble.stop }
n39= elseif ($did == 8) { if ($server == $null) { sBiasa.dialog.info.small Scramble Auto Mode error:Cannot tell the scramble answer (auto mode), not connected to server. }
n40= elseif ($me !ison $sBiasa.scramble.chan) { .join $sBiasa.scramble.chan | sBiasa.dialog.info.small Scramble Auto Mode error:Cannot tell the scramble answer (auto mode), you're not in channel $sBiasa.scramble.chan $+ . Please wait until you joining the channel. }
n41= else { /msg $sBiasa.scramble.chan 2,8The correcT answer is 12 $+ %sBiasa-scramble.forword $+ 2,8.
n42= unset %sBiasa-scramble.forword %sBiasa-scramble.forhint
n43= inc %sBiasa-scramble.nu 1
n44= if (%sBiasa-scramble.nu > $lines($filescramble)) { set %sBiasa-scramble.nu $rand(1,%sBiasa-scramble.gg) }
n45= set %sBiasa-scramble.nu.t $read -l $+ %sBiasa-scramble.nu $filescramble
n46= set %sBiasa-scramble.forword $gettok(%sBiasa-scramble.nu.t,2,42)
n47= set %sBiasa-scramble.forhint $gettok(%sBiasa-scramble.nu.t,1,42)
n48= unset %sBiasa-scramble.nu.t | sBiasa.scramble.enter
n49= } }
n50= elseif ($did == 9) { unset %sBiasa-scramble.gscore.* | if ($server) && ($me ison $sBiasa.scramble.chan) { /msg $sBiasa.scramble.chan 4,8All scores have been reset. } }
n51= elseif ($did == 10) { did -ra sBiasa.vip 1 $sBiasa.scramble.chan | sBiasa.scramble.g.chan }
n52= elseif ($did == 11) { if ($gettok(%sBiasa-scramble.stats,1,32) = on) { sbiasa.scramble.stop } | unset %sBiasa-scramble.* | .timerscramble* off }
n53= elseif ($did == 12) { sBiasa.scramble.quest -ma }
n54= elseif ($did == 13) { .disable #continue | .enable #uncontinue | if ($server) && ($me ison $sBiasa.scramble.chan) { /msg $sBiasa.scramble.chan $analizing $+ 1,10 Scramble is now !next triggered. } }
n55= elseif ($did == 14) { .disable #uncontinue | .enable #continue | if ($server) && && ($me ison $sBiasa.scramble.chan) { /msg $sBiasa.scramble.chan $analizing $+ 1,10 Scramble is now in Continue mode. } }
n56= elseif ($did == 15) { if (%sBiasa-scramble.forword == $null) { sBiasa.dialog.info.small Scramble Auto Mode error:You haven't started the Scramble yet! } | else { /sBiasa.scramble.enter } }
n57= elseif ($did == 801) { cdialog - $+ $iif($did(801).state,o,n) sBiasa.vip | set %sBiasa-scramble_data $left(%sBiasa-scramble_data,1) $+ $did(sBiasa.vip,801).state $+ $mid(%sBiasa-scramble_data,2,2) $+ : $+ $gettok(%sBiasa-scramble_data,2,58) $+ : $+ $gettok(%sBiasa-scramble_data,3,58) }
n58= if ($did = 11) || ($did = 16) { set %sBiasa-scramble_data $left(%sBiasa-scramble_data,1) $+ $did(sBiasa.vip,801).state $+ $mid(%sBiasa-scramble_data,2,2) $+ : $+ $gettok(%sBiasa-scramble_data,2,58) $+ : $+ $gettok(%sBiasa-scramble_data,3,58) }
n59=}
n60=alias sBiasa.scramble.enter1 {
n61= set %sBiasa-scramble.forword $lower(%sBiasa-scramble.forword)
n62= set %sBiasa-scramble.sranword $scram(%sBiasa-scramble.forword)
n63= set %sBiasa-scramble.hintword $hint(%sBiasa-scramble.forword)
n64= set %sBiasa-scramble.fhint ON
n65= unset %sBiasa-scramble.vhint %sBiasa-scramble.next
n66= myspoken -md $sBiasa.scramble.chan $analizing $+ 1,10 Scramble 15,6 !hint 8or 15!giveup
n67= myspoken -md $sBiasa.scramble.chan 2,8[4Scramble2]4,15 %sBiasa-scramble.sranword
n68= myspoken -md $sBiasa.scramble.chan 2,8[8 $+ $str($chr(160),2) $+ 13Hint8 $+ $str($chr(160),2) $+ 2]13,15 %sBiasa-scramble.forhint
n69= .timerscramble1 1 70 { sBiasa.scramble.timesup }
n70=}
n71=alias sBiasa.scramble.enter2 {
n72= myspoken -md $sBiasa.scramble.chan $analizing $+ 1,10 Scramble 15,6 !hint 8or 15!giveup
n73= myspoken -md $sBiasa.scramble.chan 2,8[4Scramble2]4,15 %sBiasa-scramble.sranword
n74= myspoken -md $sBiasa.scramble.chan 2,8[8 $+ $str($chr(160),2) $+ 13Hint8 $+ $str($chr(160),2) $+ 2]13,15 %sBiasa-scramble.forhint
n75=}
n76=#continue on
n77=on 1:TEXT:%sBiasa-scramble.forword:$sBiasa.scramble.chan:{
n78= .timerscramblegiveup off | .timerscramblehint? off | .timerscramble6 off
n79= if (%sBiasa-scramble.vhint = ON) { inc %sBiasa-scramble.gscore. [ $+ [ $nick ] ] 2
n80= /msg $sBiasa.scramble.chan 8,2 Good $nick $+ ! The answer is13 %sBiasa-scramble.forword $+ 15,2, score +27 (for !hint)8. Type 4!score8 to see your score. }
n81= elseif ($len(%sBiasa-scramble.forword) <= 4) { inc %sBiasa-scramble.gscore. [ $+ [ $nick ] ] 2
n82= /msg $sBiasa.scramble.chan 8,2 Good $nick $+ ! The answer is13 %sBiasa-scramble.forword $+ 15,2, score +28. Type 7!score8 to see your score. }
n83= elseif ($len(%sBiasa-scramble.forword) = 5) { inc %sBiasa-scramble.gscore. [ $+ [ $nick ] ] 3
n84= /msg $sBiasa.scramble.chan 8,2 Good $nick $+ !! The answer is13 %sBiasa-scramble.forword $+ 15,2, score +38. Type 7!score8 to see your score. }
n85= elseif ($len(%sBiasa-scramble.forword) = 6) { inc %sBiasa-scramble.gscore. [ $+ [ $nick ] ] 4
n86= /msg $sBiasa.scramble.chan 8,2 Good $nick $+ !! The answer is13 %sBiasa-scramble.forword $+ 15,2, score +48. Type 7!score8 to see your score. }
n87= elseif ($len(%sBiasa-scramble.forword) >= 7) { inc %sBiasa-scramble.gscore. [ $+ [ $nick ] ] $len(%sBiasa-scramble.forword)
n88= /msg $sBiasa.scramble.chan 8,2 Good $nick $+ !! The answer is13 %sBiasa-scramble.forword $+ 15,2, score + $+ $len(%sBiasa-scramble.forword) $+ 8. Type 7!score8 to see your score. }
n89= .timerscramble5 off | .timerscramble1 off | .timerscramble2 off
n90= unset %sBiasa-scramble.forword %sBiasa-scramble.vhint %sBiasa-scramble.fhint
n91= set %sBiasa-scramble.next ON | .timerscramble3 1 2 { /sBiasa.scramble.next }
n92=}
n93=alias sBiasa.scramble.next {
n94= if ($gettok(%sBiasa-scramble.stats,1,32) = ON) { cdid -ra sBiasa.scramble 3,5 }
n95= if (auto isin %sBiasa-scramble.stats) {
n96= inc %sBiasa-scramble.gh | var %sBiasa-scramble.gg = $lines($filescramble)
n97= if (%sBiasa-scramble.gh > %sBiasa-scramble.gg) {
n98= var %sBiasa-scramble.gh = $rand(1,%sBiasa-scramble.gg)
n99= if (%sBiasa-scramble.gg <= 2) { return }
n100= set %sBiasa-scramble.nu.t $read -l [ $+ [ %sBiasa-scramble.gh ] ] $filescramble
n101= set %sBiasa-scramble.forword $gettok(%sBiasa-scramble.nu.t,2,42)
n102= set %sBiasa-scramble.forhint $gettok(%sBiasa-scramble.nu.t,1,42)
n103= }
n104= else { set %sBiasa-scramble.nu.t $read -l [ $+ [ %sBiasa-scramble.gh ] ] $filescramble
n105= set %sBiasa-scramble.forword $gettok(%sBiasa-scramble.nu.t,2,42)
n106= set %sBiasa-scramble.forhint $gettok(%sBiasa-scramble.nu.t,1,42)
n107= }
n108= unset %sBiasa-scramble.nu.t | .timerscramble3 off
n109= .timerscramble5 1 3 { /sBiasa.scramble.enter }
n110=} }
n111=#continue end
n112=#usercom off
n113=on 1:TEXT:!giveup:$sBiasa.scramble.chan:{
n114= if (%sBiasa-scramble.time >= 30) {
n115= /msg $sBiasa.scramble.chan 2,8The correct answer is 12 $+ %sBiasa-scramble.forword $+ 2,8.
n116= unset %sBiasa-scramble.forword %sBiasa-scramble.forhint | inc %sBiasa-scramble.gh
n117= var %sBiasa-scramble.gg = $lines($filescramble)
n118= if (%sBiasa-scramble.gh > %sBiasa-scramble.gg) {
n119= var %sBiasa-scramble.gh = $rand(1,%sBiasa-scramble.gg)
n120= if (%sBiasa-scramble.gg <= 2) { return }
n121= set %sBiasa-scramble.nu.t $read -l [ $+ [ %sBiasa-scramble.gh ] ] $filescramble
n122= set %sBiasa-scramble.forword $gettok(%sBiasa-scramble.nu.t,2,42)
n123= set %sBiasa-scramble.forhint $gettok(%sBiasa-scramble.nu.t,1,42)
n124= }
n125= else { set %sBiasa-scramble.nu.t $read -l [ $+ [ %sBiasa-scramble.gh ] ] $filescramble
n126= set %sBiasa-scramble.forword $gettok(%sBiasa-scramble.nu.t,2,42)
n127= set %sBiasa-scramble.forhint $gettok(%sBiasa-scramble.nu.t,1,42)
n128= }
n129= unset %sBiasa-scramble.nu.t | .timerscramble3 off
n130= .timerscramble5 1 3 { sBiasa.scramble.enter }
n131= }
n132= else { .timerscramblegiveup -m 1 100 { myspoken -md $sBiasa.scramble.chan 12Sorry $nick $+ , cannot give the scramble answer until the question played more than 30 seconds. }
n133=} }
n134=on 1:TEXT:!hint:$sBiasa.scramble.chan:{ if (%sBiasa-scramble.fhint == $null) { myspoken -md $sBiasa.scramble.chan 6Hint not available right now. }
n135= elseif (%sBiasa-scramble.time >= 10) { .timerscramblehint1 -m 1 100 { myspoken -md $sBiasa.scramble.chan [12Scramble] 4 $+ %sBiasa-scramble.sranword }
n136= .timerscramblehint2 -m 1 100 { myspoken -md $sBiasa.scramble.chan [0 $+ $str($chr(160),2) $+ 12Hint0 $+ $str($chr(160),2) $+ ] 13 $+ %sBiasa-scramble.forhint }
n137= .timerscramblehint3 -m 1 100 { myspoken -md $sBiasa.scramble.chan [7The Clue] 7 $+ %sBiasa-scramble.hintword }
n138= set %sBiasa-scramble.vhint ON
n139= }
n140= else { .timerscramblehint0 -m 1 100 { myspoken -md $sBiasa.scramble.chan Sorry $nick $+ , cannot give the scramble 6Hint until the question played more than 10 seconds. }
n141=} }
n142=on 1:TEXT:!question:$sBiasa.scramble.chan:{ if (%sBiasa-scramble.forword == $null) { myspoken -nl $nick $analizing $+ 1,10 Scramble hasn't started yet. } | else { .timerscramble6 1 5 { /sbiasa.scramble.enter2 } } }
n143=on 1:TEXT:!score*:$sBiasa.scramble.chan:{
n144= if ($2 ison $sBiasa.scramble.chan) { if (%sBiasa-scramble.gscore. [ $+ [ $2 ] ] == $null) { myspoken -md $sBiasa.scramble.chan $nick $+ ,12 $2 4doesn't have any points yet. }
n145= else { myspoken -md $sBiasa.scramble.chan $nick $+ ,12 $2 have4 $+ %sBiasa-scramble.gscore. [ $+ [ $2 ] ] 4point(s). }
n146= }
n147= elseif ($2 == $null) { if (%sBiasa-scramble.gscore. [ $+ [ $nick ] ] == $null ) { /msg $sBiasa.scramble.chan 12 $+ $nick you 4don't have any points yet. }
n148= else { myspoken -md $sBiasa.scramble.chan 12 $nick You have4 $+ %sBiasa-scramble.gscore. [ $+ [ $nick ] ] 4point(s). }
n149=} }
n150=on 1:TEXT:!help:$sBiasa.scramble.chan:{
n151= myspoken -nl $nick Type the following commands on the channel:
n152= myspoken -nl $nick 12!question 4to repeat current question, 7!hint 4to get another clue for hard question (10 seconds after started).
n153= myspoken -nl $nick 4!giveup 4to skip current question (30 seconds after started), 12!next 4to go to next question (if mode is available).
n154= myspoken -nl $nick 3!score 4to see your own score or 5!score <your friend nick> 4to see your friend's score.
n155=}
n156=#usercom end
n157=alias sBiasa.scramble.stop { if ($server) && ($me ison $sBiasa.scramble.chan) { /msg $sBiasa.scramble.chan $analizing $+ 1,10 Scramble has been stopped. } | unset %sBiasa-scramble.* | .timerscramble* off }
n158=alias sBiasa.scramble.stop2 { if ($server) && ($me ison $sBiasa.scramble.chan) { /msg $sBiasa.scramble.chan 6Wait for more question!! $analizing $+ 1,10 Scramble has been 4stopped. } | unset %sBiasa-scramble.* | .timerscramble* off }
n159=alias sBiasa.scramble.timesup { /msg $sBiasa.scramble.chan 8,4Times is UP!2,8 The correct answer is 12 $+ %sBiasa-scramble.forword $+ 2,8.
n160= .timerscramble5 off | .timerscramble1 off | .timerscramble2 off
n161= unset %sBiasa-scramble.forword %sBiasa-scramble.forhint
n162= inc %sBiasa-scramble.gh | var %sBiasa-scramble.gg = $lines($filescramble)
n163= if (%sBiasa-scramble.gh > %sBiasa-scramble.gg) {
n164= %sBiasa-scramble.gh = $rand(1,%sBiasa-scramble.gg)
n165= if (%sBiasa-scramble.gg <= 2) { return }
n166= set %sBiasa-scramble.nu.t $read -l [ $+ [ %sBiasa-scramble.gh ] ] $filescramble
n167= set %sBiasa-scramble.forword $gettok(%sBiasa-scramble.nu.t,2,42)
n168= set %sBiasa-scramble.forhint $gettok(%sBiasa-scramble.nu.t,1,42)
n169= }
n170= else { set %sBiasa-scramble.nu.t $read -l [ $+ [ %sBiasa-scramble.gh ] ] $filescramble
n171= set %sBiasa-scramble.forword $gettok(%sBiasa-scramble.nu.t,2,42)
n172= set %sBiasa-scramble.forhint $gettok(%sBiasa-scramble.nu.t,1,42)
n173= }
n174= unset %sBiasa-scramble.nu.t | .timerscramble3 off
n175= .timerscramble5 1 5 /sBiasa.scramble.enter
n176=}
n177=alias scram { unset %sBiasa-scramble.a4.* | var %sBiasa-scramble.a4.w = 1
n178= :1
n179= inc %sBiasa-scramble.a4.i
n180= if (%sBiasa-scramble.a4.i > $len($gettok($1-,%sBiasa-scramble.a4.w,32))) { goto 2 }
n181= %sBiasa-scramble.a4.ls = %sBiasa-scramble.a4.ls $mid($gettok($1-,%sBiasa-scramble.a4.w,32),%sBiasa-scramble.a4.i,1)
n182= goto 1
n183= :2
n184= %sBiasa-scramble.a4.l = $r(1,$gettok(%sBiasa-scramble.a4.ls,0,32))
n185= if (%sBiasa-scramble.a4.i) { %sBiasa-scramble.a4.wrd = %sBiasa-scramble.a4.wrd $gettok(%sBiasa-scramble.a4.ls,%sBiasa-scramble.a4.l,32) | unset %sBiasa-scramble.a4.i }
n186= else { %sBiasa-scramble.a4.wrd = %sBiasa-scramble.a4.wrd $+ $gettok(%sBiasa-scramble.a4.ls,%sBiasa-scramble.a4.l,32) }
n187= if ($len($gettok(%sBiasa-scramble.a4.wrd,%sBiasa-scramble.a4.w,32)) == $len($gettok($1-,%sBiasa-scramble.a4.w,32))) {
n188= if ($len(%sBiasa-scramble.a4.wrd) == $len($1-)) { set %sBiasa-temp4 %sBiasa-scramble.a4.wrd | unset %sBiasa-scramble.a4.* | return %sBiasa-temp4 }
n189= inc %sBiasa-scramble.a4.w | %sBiasa-scramble.a4.ls = ""
n190= goto 1
n191= }
n192= %sBiasa-scramble.a4.ls = $deltok(%sBiasa-scramble.a4.ls,%sBiasa-scramble.a4.l,32)
n193= goto 2
n194=}
n195=alias hint { unset %sBiasa-scramble.ad.* | var %sBiasa-scramble.ad.w = 1
n196= :1
n197= inc %sBiasa-scramble.ad.i | inc %sBiasa-scramble.ad.o 1 | inc %sBiasa-scramble.ad.p 2 | inc %sBiasa-scramble.ad.q 3
n198= if (%sBiasa-scramble.ad.i > $len($gettok($1-,%sBiasa-scramble.ad.w,32))) goto 2
n199= %sBiasa-scramble.ad.ls = %sBiasa-scramble.ad.ls $mid($gettok($1-,%sBiasa-scramble.ad.w,32),%sBiasa-scramble.ad.i,1)
n200= %sBiasa-scramble.ad.li = %sBiasa-scramble.ad.ls $mid($gettok($1-,%sBiasa-scramble.ad.w,32),%sBiasa-scramble.ad.o,1)
n201= %sBiasa-scramble.ad.lu = %sBiasa-scramble.ad.ls $mid($gettok($1-,%sBiasa-scramble.ad.w,32),%sBiasa-scramble.ad.p,1)
n202= %sBiasa-scramble.ad.lj = %sBiasa-scramble.ad.ls $mid($gettok($1-,%sBiasa-scramble.ad.w,32),%sBiasa-scramble.ad.q,1)
n203= goto 1
n204= :2
n205= %sBiasa-scramble.ad.l = $r(1,$gettok(%sBiasa-scramble.ad.ls,0,32))
n206= %sBiasa-scramble.ad.r = 7 | %sBiasa-scramble.ad.s = 1 | %sBiasa-scramble.ad.t = 2
n207= if (%sBiasa-scramble.ad.i) { %sBiasa-scramble.ad.wrd = %sBiasa-scramble.ad.wrd $replace($1-,$gettok(%sBiasa-scramble.ad.ls,%sBiasa-scramble.ad.l,32),?,$gettok(%sBiasa-scramble.ad.li,%sBiasa-scramble.ad.r,32),?,$gettok(%sBiasa-scramble.ad.lu,%sBiasa-scramble.ad.s,32),?,$gettok(%sBiasa-scramble.ad.lj,%sBiasa-scramble.ad.t,32),?)
n208= unset %sBiasa-scramble.ad.i | unset %sBiasa-scramble.ad.o | unset %sBiasa-scramble.ad.p | unset %sBiasa-scramble.ad.q
n209= }
n210= else %sBiasa-scramble.ad.wrd = %sBiasa-scramble.ad.wrd $replace($1-,$gettok(%sBiasa-scramble.ad.ls,%sBiasa-scramble.ad.l,32),?,$gettok(%sBiasa-scramble.ad.li,%sBiasa-scramble.ad.r,32),?,$gettok(%sBiasa-scramble.ad.lu,%sBiasa-scramble.ad.s,32),?,$gettok(%sBiasa-scramble.ad.lj,%sBiasa-scramble.ad.t,32),?)
n211= if ($len($gettok(%sBiasa-scramble.ad.wrd,%sBiasa-scramble.ad.w,32)) == $len($gettok($1-,%sBiasa-scramble.ad.w,32))) {
n212= if ($len(%sBiasa-scramble.ad.wrd) == $len($1-)) { set %sBiasa-temp4 %sBiasa-scramble.ad.wrd | unset %sBiasa-scramble.ad.* | return %sBiasa-temp4 }
n213= inc %sBiasa-scramble.ad.w | %sBiasa-scramble.ad.ls = ""
n214= goto 1
n215= }
n216= %sBiasa-scramble.ad.ls = $deltok(%sBiasa-scramble.ad.ls,%sBiasa-scramble.ad.l,32)
n217= goto 2
n218=}