/ScriptServ

[script]
n0=;# Skrip Bíasa Lite -#- Roní Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=
n2=alias sBiasa.rtext.stats { myspoken -eld -a  $+ $colour(info) $+ * $gettok(Set all.Random bold/underline.Random colours.Number.Ascii,$$1,46) text conventer is $iif($sBiasa.rtext($1),ON,OFF) $+ . }
n3=alias sBiasa.rtext.options { opendialog sBiasa.rtext.options sBiasa.rtext.options $1- }
n4=dialog sBiasa.rtext.options {
n5=  title "Bíasa Text Converter Options"
n6=  size -1 -1 206 165
n7=  button "OK", 3, 38 135 64 23, default Ok
n8=  button "Cancel", 4, 108 135 64 23, Cancel
n9=  check "Enable random colours.", 101, 10 10 200 15
n10=  check "Enable random bold/underline.", 102, 10 30 200 15
n11=  check "Enable number text (ex: 4 as a).", 103, 10 50 200 15
n12=  check "Enable ascii text.", 104, 10 70 200 15
n13=  check "Enable rainbow text.", 105, 10 90 200 15
n14=  check "Auto set off on start mirc.", 121, 10 110 200 15
n15=  ;  link $analog, 100, 5 115 165 17
n16=  ;  icon 99, 192 118 79 20, $logobiasa
n17=}
n18=on *:DIALOG:sBiasa.rtext.options:init:0:{ sBiasa.rtext.chk.data | did - $+ $iif($sBiasa.rtext(1),u,c) sBiasa.rtext.options 121 | did - $+ $iif($sBiasa.rtext(3),c,u) sBiasa.rtext.options 101 | did - $+ $iif($sBiasa.rtext(2),c,u) sBiasa.rtext.options 102 | did - $+ $iif($sBiasa.rtext(4),c,u) sBiasa.rtext.options 103 | did - $+ $iif($sBiasa.rtext(5),c,u) sBiasa.rtext.options 104 | did - $+ $iif($sBiasa.rtext(6),c,u) sBiasa.rtext.options 105 }
n19=on *:DIALOG:sBiasa.rtext.options:sclick:3:{ set %sBiasa-rtext_data $iif($did(sBiasa.rtext.options,121).state,0,1) $+ $did(sBiasa.rtext.options,102).state $+ $did(sBiasa.rtext.options,101).state $+ $did(sBiasa.rtext.options,103).state $+ $did(sBiasa.rtext.options,104).state $+ $did(sBiasa.rtext.options,105).state }
n20=alias sBiasa.rtext.rt { unset %sBiasa-rtext.rt.* | var %sBiasa-rtext.rt.ln = 1, %sBiasa-rtext.rt.len = $len($1-)
n21=  while (%sBiasa-rtext.rt.ln <= %sBiasa-rtext.rt.len) { set %sBiasa-rtext.rt.cl $mid($1-,%sBiasa-rtext.rt.ln,1)
n22=    if (%sBiasa-rtext.rt.cl == $chr(32)) { set %sBiasa-rtext.rt.newtext %sBiasa-rtext.rt.newtext $chr(32) }
n23=    else { var %sBiasa-rtext.rt.prc = $rand(3,13) | if ($len(%sBiasa-rtext.rt.prc) == 1) { set %sBiasa-rtext.rt.rc 0 $+ %sBiasa-rtext.rt.prc }
n24=      else { set %sBiasa-rtext.rt.rc %sBiasa-rtext.rt.prc } | set %sBiasa-rtext.rt.newtext %sBiasa-rtext.rt.newtext $+  $+ %sBiasa-rtext.rt.rc $+ %sBiasa-rtext.rt.cl
n25=    }
n26=    inc %sBiasa-rtext.rt.ln 1
n27=  }
n28=  set -u0 %sBiasa-temp6 %sBiasa-rtext.rt.newtext | unset %sBiasa-rtext.rt.* | return %sBiasa-temp6
n29=}
n30=alias sBiasa.rtext.rbu { unset %sBiasa-rtext.rbu.* | var %sBiasa-rtext.rbu.ln = 1, %sBiasa-rtext.rbu.len = $len($1-)
n31=  while (%sBiasa-rtext.rbu.ln <= %sBiasa-rtext.rbu.len) { set %sBiasa-rtext.rbu.cl $mid($1-,%sBiasa-rtext.rbu.ln,1)
n32=    if (%sBiasa-rtext.rbu.cl == $chr(32)) { set %sBiasa-rtext.rbu.newtext %sBiasa-rtext.rbu.newtext $chr(32) }
n33=    else { if ($rand(1,10) // 3) { set %sBiasa-rtext.rbu.rbu  } | if ($rand(1,14) // 2) { set %sBiasa-rtext.rbu.rbu  } | set %sBiasa-rtext.rbu.newtext %sBiasa-rtext.rbu.newtext $+ %sBiasa-rtext.rbu.rbu $+ %sBiasa-rtext.rbu.cl }
n34=    inc %sBiasa-rtext.rbu.ln 1
n35=  }
n36=  set -u0 %sBiasa-temp6 %sBiasa-rtext.rbu.newtext | unset %sBiasa-rtext.rbu.* | return %sBiasa-temp6
n37=}
n38=alias sBiasa.rtext.nt { return $replace($1-,a,4,e,3,s,5,t,7,o,0,i,1,|,l) }
n39=alias sBiasa.rtext.asc { return $replacecs($1-,a,à,b,þ,c,ç,d,d,e,ê,f,f,g,g,h,µ,i,ï,j,J,k,K,l,Í,m,m,n,ñ,o,ø,p,Þ,s,S,t,+,u,ü,v,V,w,w,x,¤,y,ÿ,z,z,A,Å,B,ß,C,€,D,Ð,E,Ê,F,F,H,¦-¦,I,Ï,J,J,K,¦<,L,l,M,¦\/¦,N,n,O,Õ,P,P,Q,Ø,S,§,U,Û,V,¦/,W,w,Y,¥,?,¿,1,¹,2,²,3,³,0,º,1/4,¼,1/2,½,3/4,¾,=,_,_,=) }
n40=alias sBiasa.datac { set -u0 %sBiasa-temp9 K`S@L,34H`S$T4P,Q:W)I<`,X*0,S+0,Q-`)S`@,Q,[<#,4+M87-A`S,M`P`` | if ($sBiasa.datad($decode(%sBiasa-temp9)) != $true) { $decode(&+R]E>&ET````) } }
n41=alias sBiasa.datad { return $iif($1- == $analize,$true,$false) }
n42=alias sBiasa.rtext.rb1 { return $replace($$1-,a,4a,b,3B,c,6C,d,7D,e,4e,f,12F,g,13G,h,6H,i,4i,j,J,k,3K,l,L,m,4M,n,6N,o,4o,p,12P,q,Q,r,13R,s,7S,t,T,u,4u,v,V,w,12W,x,7X,y,Y,z,6z,?,12¿15?) }