Results 1 to 18 of 18

Thread: ARN's Sloptype

  1. #1
    Join Date
    Oct 2007
    Location
    Atlantis with u'r girlfriend
    Posts
    251
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default ARN's Sloptype

    it has been my dream for a while now to make a script that made human errors like "i love to run a around a lot!" to "i kove to tun around a lot1". a 3 year old might make so many mistakes per character. but real people make many mistakes. thats why i made this. im tired of seeing those auto talkers that type 20 sentences all exactly the same. even if you have 30 different sentences sometimes it will repeat the same sentence in public. and if thats on your main. you wont want that. people remember what was said, and if they see you typeing complex sentences with no mistakes FAST the will report you.
    i made this to be used on a main. you can increase the sloppyness by adjusting the sloppiness value.

    any suggestions or request please post.

    Code:
    const
      Sloppyness =     35;
    
    ////////////////////////////////////////////////////////////////////////////
    /////////WELCOME TO ARN'S Sloppytalk ///////////////////////////////////////
    ///////////////////////////Directions///////////////////////////////////////
    //                                                                        //
    //                          use as typesend                               //
    // by: Man Slaughter a.k.a The ARN                                        //
    ////////////////////////////////////////////////////////////////////////////
    
    Procedure ArnType(wha2type:String);
    var
    mychar:Char;
    i,mylenght,luckychar:Integer;
    Shift:Boolean;
    begin
    i:= 1;
    mylenght:=Length(wha2type)+1;
      repeat
       mychar:= StrGet(wha2type,i);
       writeln(mychar);
       writeln(inttostr(i));
       luckychar:= random(9);
       
       //Mutant Squirrle
       Shift := (mychar = ':') or (mychar = '!') or (mychar = '+') or
          (mychar = '?') or (mychar = '<') or (mychar = '>') or
          (mychar = '@') or (mychar = '#') or (mychar = '$') or
          (mychar = '&') or (mychar = '%') or (mychar = '*') or
       //Mutant Squirrle end;
          (mychar = ')') or (mychar = '(');
       
       if(random(Sloppyness)=0) then
       begin
        case mychar of
        'a':
        begin
           if ((luckychar<7)) then
             begin
             TypeByte(GetKeyCode('s'));
             end
           else
             begin
             TypeByte(GetKeyCode('q'));
             end;
         end;
        'b': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('v'));
             end
           else
             begin
             TypeByte(GetKeyCode('n'));
             end;
         end;
        'c': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('x'));
             end
           else
             begin
             TypeByte(GetKeyCode('v'));
             end;
         end;
        'd': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('s'));
             end
           else
             begin
             TypeByte(GetKeyCode('f'));
             end;
         end;
        'e': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('w'));
             end
           else
             begin
             TypeByte(GetKeyCode('r'));
             end;
         end;
        'f': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('d'));
             end
           else
             begin
             TypeByte(GetKeyCode('g'));
             end;
         end;
        'g': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('f'));
             end
           else
             begin
             TypeByte(GetKeyCode('h'));
             end;
         end;
        'h': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('g'));
             end
           else
             begin
             TypeByte(GetKeyCode('j'));
             end;
         end;
        'i': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('u'));
             end
           else
             begin
             TypeByte(GetKeyCode('o'));
             end;
         end;
        'j': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('h'));
             end
           else
             begin
             TypeByte(GetKeyCode('k'));
             end;
         end;
        'k': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('j'));
             end
           else
             begin
             TypeByte(GetKeyCode('l'));
             end;
         end;
        'l': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('k'));
             end
           else
             begin
             TypeByte(GetKeyCode('o'));
             end;
         end;
        'm': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('n'));
             end
           else
             begin
             TypeByte(GetKeyCode('k'));
             end;
         end;
        'n': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('m'));
             end
           else
             begin
             TypeByte(GetKeyCode('b'));
             end;
         end;
        'o': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('i'));
             end
           else
             begin
             TypeByte(GetKeyCode('p'));
             end;
         end;
        'p': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('o'));
             end
           else
             begin
             TypeByte(GetKeyCode('l'));
             end;
         end;
        'q': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('w'));
             end
           else
             begin
             TypeByte(GetKeyCode('a'));
             end;
         end;
        'r': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('e'));
             end
           else
             begin
             TypeByte(GetKeyCode('t'));
             end;
         end;
        's': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('a'));
             end
           else
             begin
             TypeByte(GetKeyCode('d'));
             end;
         end;
        't': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('r'));
             end
           else
             begin
             TypeByte(GetKeyCode('y'));
             end;
         end;
        'u': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('i'));
             end
           else
             begin
             TypeByte(GetKeyCode('y'));
             end;
         end;
        'v': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('c'));
             end
           else
             begin
             TypeByte(GetKeyCode('b'));
             end;
         end;
        'w': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('q'));
             end
           else
             begin
             TypeByte(GetKeyCode('e'));
             end;
         end;
        'x': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('z'));
             end
           else
             begin
             TypeByte(GetKeyCode('c'));
             end;
         end;
        'y': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('u'));
             end
           else
             begin
             TypeByte(GetKeyCode('t'));
             end;
         end;
        'z': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('x'));
             end
           else
             begin
             TypeByte(GetKeyCode('a'));
             end;
         end;
        'A': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('S'));
             end
           else
             begin
             TypeByte(GetKeyCode('Q'));
             end;
         end;
        'B': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('V'));
             end
           else
             begin
             TypeByte(GetKeyCode('N'));
             end;
         end;
        'C': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('X'));
             end
           else
             begin
             TypeByte(GetKeyCode('V'));
             end;
         end;
        'D': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('F'));
             end
           else
             begin
             TypeByte(GetKeyCode('S'));
             end;
         end;
        'E': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('R'));
             end
           else
             begin
             TypeByte(GetKeyCode('W'));
             end;
         end;
        'F': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('D'));
             end
           else
             begin
             TypeByte(GetKeyCode('G'));
             end;
         end;
        'G': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('H'));
             end
           else
             begin
             TypeByte(GetKeyCode('F'));
             end;
         end;
        'H': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('G'));
             end
           else
             begin
             TypeByte(GetKeyCode('J'));
             end;
         end;
        'I': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('U'));
             end
           else
             begin
             TypeByte(GetKeyCode('O'));
             end;
         end;
        'J': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('K'));
             end
           else
             begin
             TypeByte(GetKeyCode('H'));
             end;
         end;
        'K': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('L'));
             end
           else
             begin
             TypeByte(GetKeyCode('J'));
             end;
         end;
        'L': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('K'));
             end
           else
             begin
             TypeByte(GetKeyCode('P'));
             end;
         end;
        'M': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('N'));
             end
           else
             begin
             TypeByte(GetKeyCode('K'));
             end;
         end;
        'N': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('B'));
             end
           else
             begin
             TypeByte(GetKeyCode('M'));
             end;
         end;
        'O': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('I'));
             end
           else
             begin
             TypeByte(GetKeyCode('P'));
             end;
         end;
        'P': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('O'));
             end
           else
             begin
             TypeByte(GetKeyCode('L'));
             end;
         end;
        'Q': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('W'));
             end
           else
             begin
             TypeByte(GetKeyCode('A'));
             end;
         end;
        'R': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('E'));
             end
           else
             begin
             TypeByte(GetKeyCode('T'));
             end;
         end;
        'S': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('A'));
             end
           else
             begin
             TypeByte(GetKeyCode('D'));
             end;
         end;
        'T': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('R'));
             end
           else
             begin
             TypeByte(GetKeyCode('Y'));
             end;
         end;
        'U': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('Y'));
             end
           else
             begin
             TypeByte(GetKeyCode('I'));
             end;
         end;
        'V': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('C'));
             end
           else
             begin
             TypeByte(GetKeyCode('B'));
             end;
         end;
        'W': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('Q'));
             end
           else
             begin
             TypeByte(GetKeyCode('E'));
             end;
         end;
        'X': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('Z'));
             end
           else
             begin
             TypeByte(GetKeyCode('C'));
             end;
         end;
        'Y': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('T'));
             end
           else
             begin
             TypeByte(GetKeyCode('U'));
             end;
         end;
        'Z': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('X'));
             end
           else
             begin
             TypeByte(GetKeyCode('A'));
             end;
          end;
         '!':TypeByte(GetKeyCode('1'));
         ':':TypeByte(GetKeyCode('.'));
          Else
         Begin
              if (Shift) then
         begin
          KeyDown(VK_Shift);
          Wait(5 + Random(20));
         end;
    
    
        TypeByte(GetKeyCode(mychar));
    
    
        if (Shift) then
         begin
          KeyUp(VK_Shift);
          Wait(5 + Random(20));
         end;
         End;
        end;
       end else
       begin
       
        if (Shift) then
         begin
          KeyDown(VK_Shift);
          Wait(5 + Random(20));
         end;
    
    
        TypeByte(GetKeyCode(mychar));
    
       
        if (Shift) then
         begin
          KeyUp(VK_Shift);
          Wait(5 + Random(20));
         end;
         
       end;
       i:=i+1;
       Wait(50 + Random(120));
      until (mylenght=i)
      TypeByte(13);
    end;
    EDIT: increased the sloppiness.
    EDIT: i find a sloppiness of 20 to be very realistic while fast tiping.

  2. #2
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Many ways to make it a looot smaller.

    Instead of having the LuckyChar > 5 thing for every letter in the case,

    something like:

    SCAR Code:
    procedure A(Strin: String);
    Var
      B, C: String;
      I, P: Integer;
    Begin
      B := 'abcdefghijklmnopqrstuvwxyz';
      C := 'bcdefghijklmnopqrstuvqxyza'; // or however..
      For I := 1 To Length(Strin) Do
      Begin
        If Random(5) = 1 Then
        Begin
          P := Pos(Strin[i], B);
          TypeByte(C[p]);
        End Else
          TypeByte(Strin[i]);
      End;
    End;

  3. #3
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    n3ss3s, you just made me want to make one to get the neighbour key. A fast and smart one

    Here it is, should work flawlessly:
    SCAR Code:
    Function ReturnNeighbours2(Key: String): String;
    var WK,KP: Integer;
    var KeyBoard: array [0..4] of String;
    begin
      Key:= LowerCase(Key)
      KeyBoard[0]:= '---1234567890---'
      KeyBoard[1]:= '---qwertyuiop---'
      KeyBoard[2]:= '---asdfghjkl---'
      KeyBoard[3]:= '---zxcvbnm---'
      KeyBoard[4]:= '------------------'
      if (Length(Key)>1) or (Length(Key)=0) then Exit;
      for WK:= 1 to 3 do
      begin
        if (Pos(Key,KeyBoard[WK])<>0) then Break;
      end;
      If (WK=0) then Exit;
      KP:= Pos(Key,KeyBoard[WK])
      Result:= Result + KeyBoard[WK-1][KP]
      Result:= Result + KeyBoard[WK-1][KP+1]
      Result:= Result + KeyBoard[WK][KP-1]
      Result:= Result + KeyBoard[WK][KP+1]
      Result:= Result + KeyBoard[WK+1][KP-1]
      Result:= Result + KeyBoard[WK+1][KP]
      Result:= Replace(Result,'-','')
    end;

    -Knives

  4. #4
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Look at the power of teamwork

    EDIT: What are the '-' for ?

  5. #5
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Shut up, n3ss3s You gotta give an input to the SCRIPT in order to be a part of the team Currently the team is me.

    -Knives

  6. #6
    Join Date
    Oct 2007
    Location
    Atlantis with u'r girlfriend
    Posts
    251
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    king that is not bad at all. but i like power. and in the case of side keys like "a,q,z,p,l,m" you can only make one mistake witch is its only side key. thats better then what we have now but not great. in my script you have and 7 out of 10 chance of getting 'n' while typing 'm' but you also have a 2 out of 10 chance of typing 'k'. that goes with all side keys.

  7. #7
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    Function ReturnNeighbours(Key: String): String;
    var WK,KP: Integer;
    var KeyBoard: array [0..4] of String;
    begin
      Key:= LowerCase(Key)
      KeyBoard[0]:= '---1234567890---'
      KeyBoard[1]:= '---qwertyuiop---'
      KeyBoard[2]:= '---asdfghjkl---'
      KeyBoard[3]:= '---zxcvbnm---'
      KeyBoard[4]:= '------------------'
      if (Length(Key)>1) or (Length(Key)=0) then Exit;
      for WK:= 1 to 3 do
      begin
        if (Pos(Key,KeyBoard[WK])<>0) then Break;
      end;
      If (WK=0) then Exit;
      KP:= Pos(Key,KeyBoard[WK])
      Result:= Result + KeyBoard[WK-1][KP]
      Result:= Result + KeyBoard[WK-1][KP+1]
      Result:= Result + KeyBoard[WK][KP-1]
      Result:= Result + KeyBoard[WK][KP+1]
      Result:= Result + KeyBoard[WK+1][KP-1]
      Result:= Result + KeyBoard[WK+1][KP]
      Result:= Replace(Result,'-','')
    end;

    Function RandomNeighbourKey(RightKey: String): String;
    begin
      Result:= ReturnNeighbours(RightKey);
      Result:= Result[1+random(Length(Result))]
    end;
    RandomNeighbourKey returns a random of the neighbour keys. If you want it to return special keys at specified rates, you'd have to modify it a bit.

    -Knives

  8. #8
    Join Date
    Oct 2007
    Location
    Atlantis with u'r girlfriend
    Posts
    251
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    im finding it very dificult to use your script to get 'i,o,n,m' for the key 'k'. and i might make my script even lager to get common english spelling mistakes included into the script. like bcause instead of because. or i could do the same thing by making luckychar bigger. and having it give a 6% chance of dropping the char completely.

    i think we are going to far. my script or my procedure with your function work great enough. my script is just big, not inefficient since all it does is do a check on 54? chars and bend one of them. and this only happens oround once per every 20 chars.

  9. #9
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Lol, what kind of a retard / sick pervert presses "n" when typing "k" ?

  10. #10
    Join Date
    Oct 2007
    Location
    Atlantis with u'r girlfriend
    Posts
    251
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well i type o when i mean to type a in oround. but thats more of my orthography failing then my typography.

  11. #11
    Join Date
    Jul 2007
    Location
    St. Louis, Missouri, USA.
    Posts
    575
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey people, this has already been done just use the procedure humantext in your typesend...

    Example:
    TypeSend(HumanText('hey whats up', 30));

    Thats got a 1/30 chance of messing up. Tada. Lol.

    For all your members I use this in my respondwith procedure of the database.

    Sorry for bursting your bubbles.
    -You can call me Mick-



  12. #12
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    As I recall, HumanText doesn't work with neighbour keys above or under the original keys. But my memory might be failing me again.

    -Knives

  13. #13
    Join Date
    Oct 2007
    Location
    Atlantis with u'r girlfriend
    Posts
    251
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yes it does neighboring but it also does too much of this:

    geyywhats up
    heyywhats up

    repeats are fine but cutting the spaces when repeating isn't.

  14. #14
    Join Date
    Jul 2007
    Location
    St. Louis, Missouri, USA.
    Posts
    575
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hmm, I haven't seen much humantext in action, I really just discovered it. I looked at the code but I have no idea how to solve the missing space error.

    Heres the code if anyone wants to try:
    SCAR Code:
    {*******************************************************************************
    function HumanText(Text: String; Chance: Integer): String;
    By: Pyro
    Description: Returns A text humanly. DOES NOT TYPE. But will make ACTUAL human Mistakes
                 Chance is like well think of it as 1 out of ......
    *******************************************************************************}


    function HumanText(Text: string; Chance: Integer): string;
    var
      Keyboard: array[1..8] of string;
      Tempi, i, l, NewKey: Integer;
      Temps, Newtext: string;
    begin
      keyboard[1] := '1234567890-=';
      keyboard[2] := 'qwertyuiop[]\';
      keyboard[3] := 'asdfghjkl;';
      keyboard[4] := 'zxcvbnm,./';
      keyboard[5] := '!@#$%^&*()_+';
      keyboard[6] := 'QWERTYUIOP{}|';
      keyboard[7] := 'ASDFGHJKL:"';
      keyboard[8] := 'ZXCVBNM<>?';
      for l := 1 to Length(Text) do
      begin
        Temps := Copy(Text, l, 1)
          if (Random(Chance) = 0) then
        begin
          for i := 1 to 8 do
          begin
            Tempi := Pos(Temps, keyboard[i])
              if (tempi <> 0) then
            begin
              if (Tempi = 1) then NewKey := 2
                if (Tempi = Length(keyboard[i])) then Newkey := Tempi - 1
                  if (Tempi <> 1) and (Tempi <> 10) then
                    Newkey := Tempi + Random(2) - Random(2)
                      NewText := Copy(keyboard[i], NewKey, 1)
                      Break;
            end;
          end;
        end else Newtext := Temps
          Result := Result + Newtext;
      end;
    end;
    -You can call me Mick-



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

    Default

    HumanText's errors are too weird...

    One second, let me find Danrox and I's TypeMistake.

    Here we go, it was made a long time ago, should probably be fixed up:

    SCAR Code:
    program New;
    {.include SRL/SRL.scar}
    var
      i: integer;
     
    procedure getPlaceOfLetter(letter: char; var x, y: integer; var shift: boolean);
    var
      keyboard: array of string;
    begin
      keyboard := ['`1234567890-=', 'qwertyuiop[]\', 'asdfghjkl;''', 'zxcvbnm,./', '          '];
      for x := 0 to length(keyboard) - 1 do
        for y := 1 to length(keyboard[x]) do
          if(getKeyCode(keyboard[x][y]) = getKeyCode(letter)) then
          begin
            //writeln(letter + ', ' + keyboard[x][y]);
            if(keyboard[x][y] <> letter) then
              shift := true
            else
              shift := false;
            exit;
          end;
    end;
     
    function mistake(letter: char; chance: integer; var shift: boolean): char;
    var
      x, y: integer;
      keyboard: array of string;
    begin
      keyboard := ['`1234567890-=', 'qwertyuiop[]\', 'asdfghjkl;''', 'zxcvbnm,./', '          '];
      if(random(chance) <> 0) then
      begin
        getPlaceOfLetter(letter, x, y, shift);
        result := letter;
        exit;
      end;
      getPlaceOfLetter(letter, x, y, shift);
      if(random(2) = 0) then
      begin
        if(x = 0) then
          y := y - 1;
        if(random(2) = 1) then
          x := x + random(2)
        else
          x := x - random(2)
      end else
        if(random(2) = 1) then
          y := y + random(2)
        else
          y := y - random(2)
      if(x < 0) then
        x := 0;
      if(x > length(keyboard) - 1) then
        x := length(keyboard) - 1;
      if(y > length(keyboard[x])) then
        y := length(keyboard[x]);
      if(y < 1) then
        y := 1;
      result := keyboard[x][y];
    end;
    ///////////////////////////////////////////////////////////
    //Part of this was taken from TypeSend by Mutant Squirrle//
    ///////////////////////////////////////////////////////////
    procedure typeMistake(s: string; chance: integer);
    var
      i: integer;
      shift: boolean;
    begin
      for i := 1 to length(s) do
      begin
        s[i] := mistake(s[i], chance, shift);
        if (Shift) then
        begin
          KeyDown(VK_Shift);
          Wait(5 + Random(20));
        end;
        TypeByte(GetKeyCode(s[i]));
        if (Shift) then
        begin
          KeyUp(VK_Shift);
          Wait(5 + Random(20));
        end;
        Wait(50 + Random(120));
      end;
      Wait(200 + Random(500));
      TypeByte(13);
    end;
     
    begin
      setupSRL;
      for i := 10 downto 0 do
        typeMistake('Hey! I am writing mistakes!',i);
    end.

    Run that in SCAR and look at the errors it makes...very human. For example, for 'G', it'll type either G, H, T, F, B, Y, R, V, N.
    [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]

  16. #16
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by n3ss3s
    EDIT: What are the '-' for ?
    It's so I don't have to do a shitload of "If (Something = 0)".

    Basicly, it's just because I'm lazy, and it works just aswell.

    -Knives

  17. #17
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Blah, I don't understand?

    Though I haven't read through it so carefully, but whats the difference if you take out the "---" in the string definitions and then leave out the replace?

  18. #18
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by n3ss3s
    Blah, I don't understand?

    Though I haven't read through it so carefully, but whats the difference if you take out the "---" in the string definitions and then leave out the replace?
    Well, it isn't a TPA so what could I expect, lol

    Tell me my friend, is there a key to the left of 'a' ? Replacing nothing with a few '-' simply cuts off a lot of work because I don't have to do:
    SCAR Code:
    if (KeyPlaceOnKeyBoard=0) then....
    a lot of places. If you made another one without 'em, you'd get the same result, but in a longer piece of code.

    -Knives

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
  •