SRL Archive - RS3 Outdated / Broken Scripts

\/\/[-71j 1 /^^\@T)[- @ 1j&31z[]D[-/-\!<&2 ^es 1:-:3 +117& ehsv69&es1ehs 1[]7.
3y3 ([]v1j?/V7 v$[- [-\/&127 vv47 0ph 7&&1es[]D3^!< 4z +j[]D3$3[]T) !$ 1]/^^\!13T).
\x/[-1j1j ] ]-[()9& 7()v 1j1!<3 eye+
17[]\/[-3y378 0\v/<\>2

Function LeetSpeak(Text: string; HowManyTimes, OutOf : integer) : string;
var
  i: Integer;
  TheLength: Integer;
  NewText: String;
begin
  TheLength:= 0;
  for i := 1 to Length(Text) do
   begin
   if (Random(OutOf) < HowManyTimes) then
    Case lowercase(Text[I]) of
      'a' :  begin
           Case random(6) of
           0 : begin
                Insert('4',NewText,TheLength +1);
                TheLength := TheLength + 1;
               end;
           1 : begin
                Insert('/\',NewText,TheLength +1);
                TheLength := TheLength + 2;
               end;
           2 : begin
                Insert('@',NewText,TheLength +1);
                TheLength := TheLength + 1;
               end;
           3 : begin
               Insert('/-\',NewText,TheLength +1);
               TheLength := TheLength + 3; end;
           4 : begin
               Insert('^',NewText,TheLength +1);
               TheLength := TheLength + 1; end;
           5 : begin
               Insert('aya',NewText,TheLength +1);
               TheLength := TheLength + 3; end;
           end;
           end;

    'b' : begin
          case Random(8) of
          0 : begin
              insert('8',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('6',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          2 : begin
              insert('13',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          3 : begin
              insert('P>',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          4 : begin
              insert('!3',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          5 : begin
              insert('(3',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          6 : begin
              insert('/3',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          7 : begin
              insert(')3',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          end;
          end;

    'c' : begin
          case Random(3) of
          0 : begin
              insert('[',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('<',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          2 : begin
              insert('(',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          end;
          end;

    'd' : begin
          case Random(6) of
          0 : begin
              insert(')',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('[)',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          2 : begin
              insert('I>',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          3 : begin
              insert('?',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          4 : begin
              insert('T)',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          5 : begin
              insert('0',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          end;
          end;

    'e' : begin
          case Random(3) of
          0 : begin
              insert('3',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('&',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          2 : begin
              insert('[-',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          end;
          end;

    'f' : begin
          case Random(2) of
          0 : begin
              insert('ph',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          1 : begin
              insert('/=',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          end;
          end;

    'g' : begin
          case Random(5) of
          0 : begin
              insert('6',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('9',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          2 : begin
              insert('C-',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          3 : begin
              insert('gee',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          4 : begin
              insert('(V,',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          end;
          end;

    'h' : begin
          case Random(7) of
          0 : begin
              insert('#',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('/-/',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          2 : begin
              insert('[-]',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          3 : begin
              insert(']-[',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          4 : begin
              insert(')-(',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          5 : begin
              insert('(-)',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          6 : begin
              insert(':-:',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          end;
          end;

    'i' : begin
          case Random(5) of
          0 : begin
              insert('1',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('!',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          2 : begin
              insert('eye',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          3 : begin
              insert('3y3',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          4 : begin
              insert(']',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          end;
          end;

    'j' : begin
          case Random(2) of
          0 : begin
              insert('</',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          1 : begin
              insert('(/',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          end;
          end;

    'k' : begin
          case Random(1) of
          0 : begin
              insert('!<',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
              end;
              end;

    'l' : begin
          case Random(3) of
          0 : begin
              insert('1',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('7',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          2 : begin
              insert('1j',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          end;
          end;

    'm' : begin
          case Random(1) of
          0 : begin
              insert('/^^\',NewText,TheLength +1);
              TheLength := TheLength + 4; end;
          end;
          end;

    'n' : begin;
          case Random(8) of
          0 : begin
              insert('^/',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          1 : begin
              insert('/\/',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          2 : begin
              insert('[\]',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          3 : begin
              insert('<\>',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          4 : begin
              insert('[]\',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          5 : begin
              insert('//',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          6 : begin
              insert('[]',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          7 : begin
              insert('/V',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          end;
          end;

    'o' : begin;
          case Random(4) of
          0 : begin
              insert('0',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('()',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          2 : begin
              insert('oh',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          3 : begin
              insert('[]',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          end;
          end;

    'p' : begin;
          case Random(2) of
          0 : begin
              insert('9',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('[]D',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          end;
          end;

    'q' : begin;
          case Random(1) of
          0 : begin
              insert('<!',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          end;
          end;

    'r' : begin;
          case Random(6) of
          0 : begin
              insert('2',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('/2',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          2 : begin
              insert('lz',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          3 : begin
              insert('[z',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          4 : begin
              insert('12',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          5 : begin
              insert('l2',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          end;
          end;

    's' : begin;
          case Random(5) of
          0 : begin
              insert('5',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('z',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          2 : begin
              insert('ehs',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          3 : begin
              insert('es',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          4 : begin
              insert('$',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          end;
          end;

    't' : begin;
          case Random(3) of
          0 : begin
              insert('7',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('+',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          2 : begin
              insert('1',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          end;
          end;

    'u' : begin;
          case Random(1) of
          0 : begin
              insert('v',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          end;
          end;

    'v' : begin;
          case Random(1) of
          0 : begin
              insert('\/',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          end;
          end;

    'w' : begin;
          case Random(6) of
          0 : begin
              insert('\/\/',NewText,TheLength +1);
              TheLength := TheLength + 4; end;
          1 : begin
              insert('vv',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          2 : begin
              insert('\^/',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          3 : begin
              insert('(n)',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          4 : begin
              insert('\v/',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          5 : begin
              insert('\x/',NewText,TheLength +1);
              TheLength := TheLength + 3; end;
          end;
          end;

    'x' : begin;
          case Random(3) of
          0 : begin
              insert('><',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          1 : begin
              insert('ecks',NewText,TheLength +1);
              TheLength := TheLength + 4; end;
          2 : begin
              insert(')(',NewText,TheLength +1);
              TheLength := TheLength + 2; end;
          end;
          end;

    'y' : begin;
          case Random(2) of
          0 : begin
              insert('j',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          1 : begin
              insert('7',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          end;
          end;

    'z' : begin;
          case Random(1) of
          0 : begin
              insert('2',NewText,TheLength +1);
              TheLength := TheLength + 1; end;
          end;
          end;
       else begin
            insert(Text[I], NewText,TheLength +1);
            TheLength := TheLength + 1; end;

    end else
    begin
     insert(lowercase(Text[I]), NewText, TheLength +1);
     TheLength := TheLength + 1;
    end;
end;
Result := NewText;
end;

begin
WriteLn(LeetSpeak('iloveit8 ownz',1,1));
end.

haha nice script there
Good to learn from :)

thanks, btw it says leetspeaker as title and something like that im leet and ow, that the person that made typesend is somewhat…. stupid as i am very limited on chosing the characters |{} and some other characters wont work with typesend, and as srl uses that, i sometimes have only 1 or 2 different leetspeak letters ow and i hope you noticed that you can set the amount of letters that will be leetspeak(its randomized) and thanks for pentti with the insert and replace;)

if anyone has any ideas to improve it, please post…

try this, its really similar to TypeSend but somewhere in there I screwed it up so it can do the full keyboard :)

function number(letter:char):boolean;
   var t:integer;
   begin
      t := getkeycode(letter)
      result := true
      if (t < 122) and (t > 97) then result := false;
      if (t < 90) and (t > 65) then result := false;
   end;
function Capital(letter:char):boolean;
   var t:integer;
       s:string;
   begin
   result := false;
   t := getkeycode(letter);
   s := letter; // 'cause letter is too large for my millions of ors
   if (Chr(t) = letter) then result := true;
   if number(letter) then result := false;
   if (s='<') or (s='>') or (s='?') or (s=':') or (s='"')
      or (s='{') or (s='}') or (s='|') or (s='+') or (s='_')
      or (s='~') or (s='!') or (s='@') or (s='#') or (s='$')
      or (s='%') or (s='^') or (s='&') or (s='*') or (s='(')
      or (s=')') then result := true;
   end;
function CheckPrevious(text:string;pos:integer):boolean;
   begin
      if pos > 1 then begin
      try
         Result := Capital(text[pos-1])
      except
         Result := False;
      end; end;
   end;
function CheckAfter(text:string;pos:integer):boolean;
   begin
      if pos < (length(text)-1) then begin
      try
         Result := Capital(text[pos+1])
      except
         Result := False;
      end; end;
   end;
procedure Talk(row:integer);
   var t,t2:integer;
   begin
      text := TextToType[row].text + Chr(13);
      for t := 1 to length(text) do begin
         if capital(text[t]) and not CheckPrevious(text,t) then
            begin keydown(16); sleep(20+random(20)) end;
         keydown(getkeycode(text[t]))
         sleep(20+random(20))
         keyup(getkeycode(text[t]))
         sleep(20+random(20))
         if capital(text[t]) and not CheckAfter(text,t) then
            begin keyup(16); sleep(20+random(20)) end;
      end;
   end;

I know it's badly organized but whatever :p

Edit: just want to clarify that the CheckPrevious and CheckAfter are so it knows if it should hold shift down for the next letter.

thanks, try to also have chars like ë work, and also "e(you need to press space if you dont want to be ë) :)

Lol nice leet talk. But when u type that stuff in rs does ir sshows up as ****** and stuff??

i dont think so… but try it out lol

]-[3j j() 7!+17&[z /^^\v+)-([-lzphv(!<[-[zehs 1 (4[]\ +/\7!< 1j[-3+-141j!<!

DANG ! this is 1337!

Sweet Iloveit. Although I don't know what it does…:p

Maybe make something that can translate it back to english too?

i dont think translating it back is possible, due to the amount of different combinations and that sometimes it could mean more then 1 different thing, the 7 and 1 for example are used for more then 1 letter…

iloveit! Look! 100 posts of extreme flaming and now the mods suggest a challenge. This is the thing earlier about gutter flaming.

haha lol, maybe we could post leetspeak only in there from now on lol