(Skrip)-sBiasa-Lite — File Browser
Skrip-sBiasa-Litev1.01c / Skrip-sBiasa-Litev1.01c / sBiasaLite_Skrip / sbiasa_lite_s_scramble_02.ini
sbiasa_lite_s_scramble_02.ini — 18.22 KB — Download this file
[script]
n0=;# Skrip BÃasa Lite -#- Ronà Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=
n2=dialog sBiasa.scramble {
n3= size -1 -1 345 146
n4= title "BÃasa Scramble"
n5= text "PLaY On ChanneL:", 101, 7 7 95 15
n6= edit "#Picauly", 1, 105 3 170 22, read autohs limit 49
n7= text "&WorD:", 2, 7 36 35 15
n8= edit "", 3, 44 31 234 23, autohs limit 100
n9= text "&HinT:", 4, 7 63 35 15
n10= edit "", 5, 44 58 234 23, autohs limit 100
n11= button "&Start Game", 6, 9 89 78 23
n12= button "Sto&p Game", 7, 92 89 78 23
n13= button "&Tell Answer", 8, 175 89 78 23
n14= button "&Reset Score", 9, 258 89 78 23
n15= button "C&hange", 10, 282 3 58 21
n16= button "&Clear", 12, 285 45 55 23
n17= button "Close", 11, 139 119 70 23, Ok
n18= button "C", 13, 250 119 20 18, Cancel, hide
n19= check "Always on top.", 801, 9 126 94 15, Ok
n20=}
n21=on *:DIALOG:sBiasa.scramble:init:0:{ cdialog - $+ $iif($mid(%sBiasa-scramble_data,1,1),o,n) sBiasa.scramble
n22= cdid - $+ $iif($mid(%sBiasa-scramble_data,1,1),c,u) sBiasa.scramble 801
n23= if ($gettok(%sBiasa-scramble_data,3,58) != $null) { cdialog -s sBiasa.scramble $gettok(%sBiasa-scramble_data,2,58) $gettok(%sBiasa-scramble_data,3,58) 345 146 }
n24= cdid -o sBiasa.scramble 1 1 $gettok(%sBiasa-scramble.stats,3,32)
n25= did -f sBiasa.scramble 3
n26=}
n27=on *:DIALOG:sBiasa.scramble:edit:*:{ if (Scramble isin $dialog(sBiasa.scramble).title) { closedialog sBiasa.dialog.info.small sBiasa.dialog.info.small } }
n28=on *:DIALOG:sBiasa.scramble:sclick:*:{ if ($did == 6) {
n29= if ($server == $null) { sBiasa.dialog.info.small Scramble error:Cannot start the scramble, not connected to server. }
n30= elseif ($did(3) == $null) || ($did(4) == $null) { sBiasa.dialog.info.small Scramble error:Cannot start the scramble, please write completely the scramble word and hint. }
n31= elseif ($me !ison $sBiasa.scramble.chan) { sBiasa.dialog.info.small Scramble error:Cannot start the scramble, you're not in channel $sBiasa.scramble.chan $+ . }
n32= else { set %sBiasa-scramble.forword $did(3) | set %sBiasa-scramble.forhint $did(5) | sbiasa.scramble.enter }
n33= }
n34= elseif ($did == 7) { if ($server) && ($me ison $sBiasa.scramble.chan) { /msg $sBiasa.scramble.chan $analizing $+ 1,10 Scramble has been stopped. }
n35= .timerscramble5 off | .timerscramble1 off | .timerscramble2 off
n36= unset %sBiasa-scramble.* | did -ra sBiasa.scramble 1 $sBiasa.scramble.chan
n37= }
n38= elseif ($did == 8) { if ($server == $null) { sBiasa.dialog.info.small Scramble error:Cannot tell the scramble answer, not connected to server. }
n39= elseif ($me !ison $sBiasa.scramble.chan) { sBiasa.dialog.info.small Scramble error:Cannot tell the scramble answer, you're not in channel $sBiasa.scramble.chan $+ . }
n40= else { /msg $sBiasa.scramble.chan 3The CorrecT AnsweR is 4 $+ %sBiasa-scramble.forword $+ 3.
n41= unset %sBiasa-scramble.forword %sBiasa-scramble.forhint | cdid -ra sBiasa.scramble 3,5
n42= } }
n43= elseif ($did == 9) { unset %sBiasa-scramble.gscore.* }
n44= elseif ($did == 10) { did -ra sBiasa.scramble 1 $sBiasa.scramble.chan | cdid -ra sBiasa.vip 1 $sBiasa.scramble.chan | sbiasa.scramble.g.chan }
n45= elseif ($did == 11) || ($did == 13) { if (%sBiasa-scramble.forword == $null) {
n46= if ($server) && ($me ison $sBiasa.scramble.chan) { /msg $sBiasa.scramble.chan $analizing $+ 1,10 Scramble has been stopped. }
n47= .timerscramble* off | unset %sBiasa-scramble.*
n48= }
n49= set %sBiasa-scramble_data $did(sBiasa.scramble,801).state $+ $mid(%sBiasa-scramble_data,2,4) $+ : $+ $dialog(sBiasa.scramble).x $+ : $+ $dialog(sBiasa.scramble).y
n50= }
n51= elseif ($did == 12) { if ($did(3)) || ($did(5)) { set %sBiasa-scramble.old $iif($did(3),$did(3),$chr(160)) $iif($did(5),$did(5),$chr(160)) | did -ra sBiasa.scramble 3,5 }
n52= elseif ($did(3) == $null) && ($did(5) == $null) { did -o sBiasa.scramble 3 1 $iif($gettok(%sBiasa-scramble.old,1,32) != $chr(160), $gettok(%sBiasa-scramble.old,1,32)) | did -o sBiasa.scramble 5 1 $iif($gettok(%sBiasa-scramble.old,2,32) != $chr(160), $gettok(%sBiasa-scramble.old,2,32)) }
n53= else { did -ra sBiasa.scramble 3,5 }
n54= }
n55= elseif ($did == 801) { cdialog - $+ $iif($did(sBiasa.scramble,801).state,o,n) sBiasa.scramble | set %sBiasa-scramble_data $did(sBiasa.scramble,801).state $+ $mid(%sBiasa-scramble_data,2,4) $+ : $+ $dialog(sBiasa.scramble).x $+ : $+ $dialog(sBiasa.scramble).y }
n56= if ($dialog(sBiasa.scramble).focus != 5) && ($did != 10) { cdid -f sBiasa.scramble 3 }
n57=}
n58=alias sBiasa.scramble.enter { if ($me !ison $sBiasa.scramble.chan) { .join $sBiasa.scramble.chan }
n59= .timerscramble4 off | .timerscramble6 off
n60= .timerscramblegiveup off | .timerscramblehint? off
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 %sBiasa-scramble.time
n66= /msg $sBiasa.scramble.chan $analizing $+ 1,10 Scramble 15,6 !hint 8or 15!giveup
n67= /msg $sBiasa.scramble.chan 2,8[4Scramble2]4,15 %sBiasa-scramble.sranword
n68= /msg $sBiasa.scramble.chan 2,8[8 $+ $str($chr(160),2) $+ 13Hint8 $+ $str($chr(160),2) $+ 2]13,15 %sBiasa-scramble.forhint
n69= .timerscramble5 1 150 { sBiasa.scramble.enter1 }
n70= .timerscramble2 1 40 { myspoken -md $sBiasa.scramble.chan 6Type 4!question 6to repeat question or 4!help 6for commands help. }
n71= .timerscramblet 13 5 { inc %sBiasa-scramble.time 5 }
n72=}
n73=dialog sBiasa.aq {
n74= title "BÃasa Automatic Scramble Editor"
n75= size -1 -1 400 295
n76= button "Close", 23, 158 268 79 23, Ok default
n77= box "Info", 100, 2 0 395 87
n78= text "Total Question(s):", 101, 12 20 86 15
n79= edit "", 1, 101 16 37 22, read autohs
n80= text "No:", 2, 12 42 22 15
n81= text "Hint:", 3, 55 42 32 15
n82= text "Word:", 4, 231 42 32 15
n83= edit "", 11, 11 56 37 22, autohs
n84= edit "", 12, 54 56 170 22, autohs
n85= edit "", 13, 230 56 158 22, autohs
n86=
n87= box "Editor", 200, 2 91 395 76
n88= text "&Hint:", 5, 12 112 35 15
n89= text "&Word:", 6, 12 139 35 15
n90= edit "", 14, 47 108 341 23, autohs limit 100
n91= edit "", 15, 47 135 341 23, autohs limit 100
n92=
n93= box "Search", 300, 2 171 395 44
n94= button "&Add", 17, 107 187 56 21
n95= button "C&hange", 18, 169 187 56 21
n96= button "&Del", 19, 231 187 56 21
n97=
n98= box "Confirm", 400, 2 219 395 44
n99= button "&OK", 21, 130 235 64 21
n100= button "&Cancel", 22, 200 235 64 21
n101=
n102= button "«", 16, 68 187 33 19
n103= button "»", 20, 294 187 33 19
n104= button "««", 431, 30 187 33 19
n105= button "»»", 432, 333 187 33 19
n106=}
n107=on *:DIALOG:sBiasa.aq:init:0:{ unset %sBiasa-scramble.dnr.* | sBiasa.massdid -m sBiasa.aq 11-15 | sBiasa.massdid -b sBiasa.aq 21-22
n108= if ($lines($filescramble) !isnum 1-99999) { return }
n109= else { set %sBiasa-scramble.dnr.a $read -l1 $filescramble
n110= did -ra sBiasa.aq 11 1 | did -ra sBiasa.aq 12 $gettok(%sBiasa-scramble.dnr.a,1,42)
n111= did -ra sBiasa.aq 13 $gettok(%sBiasa-scramble.dnr.a,2,42) | did -ra sBiasa.aq 1 $lines($filescramble)
n112= unset %sBiasa-scramble.dnr.a
n113=} }
n114=on *:DIALOG:sBiasa.aq:sclick:*:{ if ($did = 16) { if ($did(11) = 1) || ($did(11) = $null) { return }
n115= else { var %sBiasa-scramble.dnr.c = $calc($calc($did(11) - 1))
n116= set %sBiasa-scramble.dnr $read -l [ $+ [ %sBiasa-scramble.dnr.c ] ] $filescramble
n117= did -ra sBiasa.aq 11 %sBiasa-scramble.dnr.c
n118= did -ra sBiasa.aq 12 $gettok(%sBiasa-scramble.dnr,1,42)
n119= did -ra sBiasa.aq 13 $gettok(%sBiasa-scramble.dnr,2,42)
n120= unset %sBiasa-scramble.dnr
n121= } }
n122= elseif ($did = 20) { var %sBiasa-scramble.total.dnr = $lines($filescramble)
n123= if ($did(11) = %sBiasa-scramble.total.dnr) || ($lines($filescramble) = 0 ) { return }
n124= else { var %sBiasa-scramble.dnr.c = $calc($calc($did(11) + 1))
n125= set %sBiasa-scramble.dnr $read -l [ $+ [ %sBiasa-scramble.dnr.c ] ] $filescramble
n126= did -ra sBiasa.aq 11 %sBiasa-scramble.dnr.c
n127= did -ra sBiasa.aq 12 $gettok(%sBiasa-scramble.dnr,1,42)
n128= did -ra sBiasa.aq 13 $gettok(%sBiasa-scramble.dnr,2,42)
n129= unset %sBiasa-scramble.dnr
n130= } }
n131= elseif ($did = 431) { if ($did(11) = 1) || ($did(11) = $null) { return }
n132= else { var %sBiasa-scramble.dnr.c = $calc($calc($did(11) - 10))
n133= if (%sBiasa-scramble.dnr.c <= 0) { var %sBiasa-scramble.dnr.c = 1 }
n134= set %sBiasa-scramble.dnr $read -l [ $+ [ %sBiasa-scramble.dnr.c ] ] $filescramble
n135= did -ra sBiasa.aq 11 %sBiasa-scramble.dnr.c
n136= did -ra sBiasa.aq 12 $gettok(%sBiasa-scramble.dnr,1,42)
n137= did -ra sBiasa.aq 13 $gettok(%sBiasa-scramble.dnr,2,42)
n138= unset %sBiasa-scramble.dnr
n139= } }
n140= elseif ($did = 432) { var %sBiasa-scramble.total.dnr = $lines($filescramble)
n141= if ($did(11) = %sBiasa-scramble.total.dnr) || ($lines($filescramble) = 0 ) { return }
n142= else { var %sBiasa-scramble.dnr.c = $calc($calc($did(11) + 10))
n143= if (%sBiasa-scramble.dnr.c > %sBiasa-scramble.total.dnr) { var %sBiasa-scramble.dnr.c = %sBiasa-scramble.total.dnr }
n144= set %sBiasa-scramble.dnr $read -l [ $+ [ %sBiasa-scramble.dnr.c ] ] $filescramble
n145= did -ra sBiasa.aq 11 %sBiasa-scramble.dnr.c
n146= did -ra sBiasa.aq 12 $gettok(%sBiasa-scramble.dnr,1,42)
n147= did -ra sBiasa.aq 13 $gettok(%sBiasa-scramble.dnr,2,42)
n148= unset %sBiasa-scramble.dnr
n149= } }
n150= elseif ($did = 17) { sBiasa.massdid -b sBiasa.aq 16-20 | sBiasa.massdid -b sBiasa.aq 431-432
n151= sBiasa.massdid -n sBiasa.aq 14-15 | sBiasa.massdid -e sBiasa.aq 21-22
n152= set %sBiasa-scramble.dnr.y add | did -f sBiasa.aq 14
n153= }
n154= elseif ($did = 18) { sBiasa.massdid -b sBiasa.aq 16-20 | sBiasa.massdid -b sBiasa.aq 431-432
n155= sBiasa.massdid -n sBiasa.aq 14-15 | sBiasa.massdid -e sBiasa.aq 21-22
n156= set %sBiasa-scramble.dnr $read -l [ $+ [ $did(11) ] ] $filescramble
n157= did -ra sBiasa.aq 14 $gettok(%sBiasa-scramble.dnr,1,42)
n158= did -ra sBiasa.aq 15 $gettok(%sBiasa-scramble.dnr,2,42)
n159= unset %sBiasa-scramble.dnr | set %sBiasa-scramble.dnr.y change | did -f sBiasa.aq 14
n160= }
n161= elseif ($did = 19) { if ($lines($filescramble) = 0) { return }
n162= .write -dl [ $+ [ $did(11) ] ] $filescramble
n163= var %sBiasa-scramble.dnr.e = $lines($filescramble), %sBiasa-scramble.dnr.b = $did(11)
n164= if (%dnr.e = 0) { sBiasa.massdid -r sBiasa.aq 11-13 | did -ra sBiasa.aq 1 $lines($filescramble) | return }
n165= var %sBiasa-scramble.dnr.r = $calc($did(11) + 1), %sBiasa-scramble.dnr.f = $did(11), %sBiasa-scramble.dnr.t = $calc($did(11) - 1)
n166= set %sBiasa-scramble.dnr.s $read -l $+ %sBiasa-scramble.dnr.t $filescramble
n167= set %sBiasa-scramble.dnr.o $read -l $+ %sBiasa-scramble.dnr.f $filescramble
n168= set %sBiasa-scramble.dnr.n $read -l $+ %sBiasa-scramble.dnr.r $filescramble
n169= if (%sBiasa-scramble.dnr.n = $null) && (%sBiasa-scramble.dnr.o = $null) {
n170= did -ra sBiasa.aq 11 %sBiasa-scramble.dnr.t
n171= did -ra sBiasa.aq 12 $gettok(%sBiasa-scramble.dnr.s,1,42)
n172= did -ra sBiasa.aq 13 $gettok(%sBiasa-scramble.dnr.s,2,42)
n173= did -ra sBiasa.aq 1 $lines($filescramble)
n174= }
n175= else { set %sBiasa-scramble.dnr.d $read -l [ $+ [ %sBiasa-scramble.dnr.b ] ] $filescramble
n176= did -ra sBiasa.aq 12 $gettok(%sBiasa-scramble.dnr.d,1,42)
n177= did -ra sBiasa.aq 13 $gettok(%sBiasa-scramble.dnr.d,2,42)
n178= did -ra sBiasa.aq 1 $lines($filescramble)
n179= }
n180= unset %sBiasa-scramble.dnr.s %sBiasa-scramble.dnr.o %sBiasa-scramble.dnr.n %sBiasa-scramble.dnr.d
n181= }
n182= elseif ($did = 21) { if ($did(14) = $null) || ($did(15) = $null) { return }
n183= else { sBiasa.massdid -b sBiasa.aq 21-22 | sBiasa.massdid -m sBiasa.aq 14-15
n184= sBiasa.massdid -e sBiasa.aq 16-20 | sBiasa.massdid -e sBiasa.aq 431-432
n185= set %sBiasa-scramble.dnr.z $did(14) $+ * $+ $did(15)
n186= if (%sBiasa-scramble.dnr.y = add) { .write $filescramble %sBiasa-scramble.dnr.z
n187= var %sBiasa-scramble.dnr.total = $lines($filescramble)
n188= set %sBiasa-scramble.dnr.d $read -l [ $+ [ %sBiasa-scramble.dnr.total ] ] $filescramble
n189= did -ra sBiasa.aq 11 %sBiasa-scramble.dnr.total
n190= did -ra sBiasa.aq 12 $gettok(%sBiasa-scramble.dnr.d,1,42)
n191= did -ra sBiasa.aq 13 $gettok(%sBiasa-scramble.dnr.d,2,42)
n192= }
n193= elseif (%sBiasa-scramble.dnr.y = change) { .write -l [ $+ [ $did(11) ] ] $filescramble %sBiasa-scramble.dnr.z
n194= var %sBiasa-scramble.dnr.total = $did(11)
n195= set %sBiasa-scramble.dnr.d $read -l [ $+ [ %sBiasa-scramble.dnr.total ] ] $filescramble
n196= did -ra sBiasa.aq 11 %sBiasa-scramble.dnr.total
n197= did -ra sBiasa.aq 12 $gettok(%sBiasa-scramble.dnr.d,1,42)
n198= did -ra sBiasa.aq 13 $gettok(%sBiasa-scramble.dnr.d,2,42)
n199= }
n200= sBiasa.massdid -r sBiasa.aq 14-15 | unset %sBiasa-scramble.dnr.z %sBiasa-scramble.dnr.d %sBiasa-scramble.dnr.y
n201= did -ra sBiasa.aq 1 $lines($filescramble)
n202= } }
n203= elseif ($did = 22) { sBiasa.massdid -b sBiasa.aq 21-22 | sBiasa.massdid -m sBiasa.aq 14-15 | sBiasa.massdid -e sBiasa.aq 16-20 | sBiasa.massdid -e sBiasa.aq 431-432 | sBiasa.massdid -r sBiasa.aq 14-15 | unset %sBiasa-scramble.dnr.y }
n204= elseif ($did = 23) { unset %sBiasa-scramble.dnr.* }
n205=}
n206=on 100:TEXT:!halt:$sBiasa.scramble.chan:{ .timerscramble5 off | .timerscramble1 off | .timerscramble2 off
n207= /msg $sBiasa.scramble.chan $analizing $+ 1,10 Scramble has been halted.
n208= .disable #usercom
n209=}
n210=on 100:TEXT:!begin:$sBiasa.scramble.chan:{ unset %sBiasa-scramble.halt | .enable #usercom | /sbiasa.scramble.enter }
n211=dialog sBiasa.cc {
n212= title "BÃasa Scramble Change Channel"
n213= size -1 -1 160 78
n214= text "EnTeR a NeW &ChanneL:", 1, 7 5 130 15
n215= edit "", 2, 5 20 150 23, autohs limit 30
n216= button "OK", 3, 20 50 56 23, Ok default
n217= button "Cancel", 4, 82 50 56 23, Cancel
n218=}
n219=on *:DIALOG:sBiasa.cc:init:0:{ did -f sBiasa.cc 2 }
n220=on *:DIALOG:sBiasa.cc:sclick:3:{ if ($did(2) != $null) { if ($left($did(2),1) != $chr(35)) { set %sBiasa-scramble.ch $chr(35) $+ $gettok($did(2),1,32) } | else { set %sBiasa-scramble.ch $gettok($did(2),1,32) }
n221= if ($server == $null) { closedialog sBiasa.cc sBiasa.cc | sBiasa.dialog.info.small Scramble Change Channel error: Please wait until connected to server. }
n222= elseif ($me !ison %sBiasa-scramble.ch) { closedialog sBiasa.cc sBiasa.cc | sBiasa.dialog.info.small Scramble Change Channel error: You're not in %sBiasa-scramble.ch $+ . }
n223= else { set %sBiasa-scramble.stats $gettok(%sBiasa-scramble.stats,1-2,32) %sBiasa-scramble.ch | cdid -ra sBiasa.scramble 1 $sBiasa.scramble.chan | cdid -ra sBiasa.vip 1 $sBiasa.scramble.chan }
n224= unset %sBiasa-scramble.ch
n225=} }
n226=#uncontinue off
n227=on 1:TEXT:%sBiasa-scramble.forword:$sBiasa.scramble.chan:{
n228= .timerscramblegiveup off | .timerscramblehint? off | .timerscramble6 off
n229= if (%sBiasa-scramble.vhint = ON) { inc %sBiasa-scramble.gscore. [ $+ [ $nick ] ] 2
n230= /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. }
n231= elseif ($len(%sBiasa-scramble.forword) <= 4) { inc %sBiasa-scramble.gscore. [ $+ [ $nick ] ] 2
n232= /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. }
n233= elseif ($len(%sBiasa-scramble.forword) = 5) { inc %sBiasa-scramble.gscore. [ $+ [ $nick ] ] 3
n234= /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. }
n235= elseif ($len(%sBiasa-scramble.forword) = 6) { inc %sBiasa-scramble.gscore. [ $+ [ $nick ] ] 4
n236= /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. }
n237= elseif ($len(%sBiasa-scramble.forword) >= 7) { inc %sBiasa-scramble.gscore. [ $+ [ $nick ] ] $len(%sBiasa-scramble.forword)
n238= /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. }
n239= unset %sBiasa-scramble.forword | .timerscramble5 off | .timerscramble1 off | .timerscramble2 off
n240= set %sBiasa-scramble.next = ON
n241= unset %sBiasa-scramble.vhint %sBiasa-scramble.fhint
n242= /msg $sBiasa.scramble.chan 12Type 4!next12 to continue or 3!score12 to see your totalscore.
n243=}
n244=on 1:TEXT:!next:$sBiasa.scramble.chan: {
n245= if (%sBiasa-scramble.next == $null) { myspoken -md $sBiasa.scramble.chan Sorry $nick $+ , question 4still no answer yet 7=). }
n246= else { if ($gettok(%sBiasa-scramble.stats,1,32) = ON) { cdid -ra sBiasa.scramble 3 | cdid -ra sBiasa.scramble 5 }
n247= if (auto isin %sBiasa-scramble.stats) { inc %sBiasa-scramble.gh
n248= var %sBiasa-scramble.gg = $lines($filescramble)
n249= if (%sBiasa-scramble.gh > %sBiasa-scramble.gg) {
n250= var %sBiasa-scramble.gh = $rand(1,%sBiasa-scramble.gg)
n251= if (%sBiasa-scramble.gg <= 2) { return }
n252= set %sBiasa-scramble.nu.t $read -l [ $+ [ %sBiasa-scramble.gh ] ] $filescramble
n253= set %sBiasa-scramble.forword $gettok(%sBiasa-scramble.nu.t,2,42)
n254= set %sBiasa-scramble.forhint $gettok(%sBiasa-scramble.nu.t,1,42)
n255= }
n256= else { set %sBiasa-scramble.nu.t $read -l [ $+ [ %sBiasa-scramble.gh ] ] $filescramble
n257= set %sBiasa-scramble.forword $gettok(%sBiasa-scramble.nu.t,2,42)
n258= set %sBiasa-scramble.forhint $gettok(%sBiasa-scramble.nu.t,1,42)
n259= }
n260= unset %sBiasa-scramble.nu.t | .timerscramble3 off
n261= .timerscramble5 1 5 { /sbiasa.scramble.enter }
n262=} } }
n263=#uncontinue end