Results 1 to 14 of 14

Thread: 1j&[-7$[]D34!<312

  1. #1
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default 1j&[-7$[]D34!<312

    \/\/[-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

    SCAR Code:
    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.
    Infractions, reputation, reflection, the dark side of scripting, they are.

  2. #2
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    haha nice script there
    Good to learn from

  3. #3
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    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...
    Infractions, reputation, reflection, the dark side of scripting, they are.

  4. #4
    Join Date
    Mar 2007
    Location
    Players[-1].Loc
    Posts
    962
    Mentioned
    4 Post(s)
    Quoted
    5 Post(s)

    Default

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

    SCAR Code:
    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

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

  5. #5
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    thanks, try to also have chars like ë work, and also "e(you need to press space if you dont want to be ë)
    Infractions, reputation, reflection, the dark side of scripting, they are.

  6. #6
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

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

  7. #7
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    i dont think so... but try it out lol
    Infractions, reputation, reflection, the dark side of scripting, they are.

  8. #8
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

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

  9. #9
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    DANG ! this is 1337!

  10. #10
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Sweet Iloveit. Although I don't know what it does...
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  11. #11
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

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

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  12. #12
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    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...
    Infractions, reputation, reflection, the dark side of scripting, they are.

  13. #13
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    iloveit! Look! 100 posts of extreme flaming and now the mods suggest a challenge. This is the thing earlier about gutter flaming.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  14. #14
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    haha lol, maybe we could post leetspeak only in there from now on lol
    Infractions, reputation, reflection, the dark side of scripting, they are.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •