Need help finding values

Printable View

Show 40 post(s) from this thread on one page

Here is my script, and I need help finding values for "mistypeprobability" to create more realistic chances to mistype.

SCAR Code:

var keyboard, shiftboard, current: array [0..3] of string;
    mistypeprobability:integer;
    lastletter:string;
    
    { Things that are not finished:
    
             ~Improve mistake probabilities
             ~Mistake fixing with backspace
             
                                                          }

procedure KeyboardVars;
begin
     keyboard[0] := '`1234567890-= ';   shiftboard[0] := '~!@#$%^&*()_+' ;
     keyboard[1] := ' qwertyuiop[]\';   shiftboard[1] := ' QWERTYUIOP{}|';
     keyboard[2] := ' asdfghjkl;''' ;   shiftboard[2] := ' ASDFGHJKL:"'  ;
     keyboard[3] := ' zxcvbnm,./'   ;   shiftboard[3] := ' ZXCVBNM<>?'   ;
end;

procedure Letter(character:char);
var key:byte;
begin
     key := GetKeyCode(character);
     KeyDown(key);
     Wait(25+Random(35));
     KeyUp(key);
end;

procedure PressEnter();
begin
     Letter(Chr(13));
end;

procedure PressBack();
begin
     Letter(Chr(8));
end;

function TypeLetter(character:char; mistake:boolean):boolean;
var normal, shift:string;
    i, position, positioni:integer;
    key:char;
begin
     result := false
     if character = ' ' then
     begin
          Letter(' ');
          Exit;
     end;
     normal := '`1234567890-=qwertyuiop[]\asdfghjkl;''zxcvbnm,./';
     shift  := '~!@#$%^&*()_+QWERTYUIOP}{|ASDFGHJKL:"ZXCVBNM<>?' ;
     if Pos(character, normal) <> 0 then
        current := keyboard;
     if Pos(character, shift) <> 0 then
        current := shiftboard;
     for i := 0 to 3 do
     begin
          if Pos(character, current[i]) <> 0 then
             positioni := i
     end;
     position := Pos(character, current[positioni]);
     key := current[positioni][position];
     if mistake then
     begin
          case (Random(99) + mistypeprobability) of
            0..2: // Longer wait, ex. forget key location or something
            begin
                 Wait(45+Random(200));
                 mistypeprobability := mistypeprobability + 4;
            end;
            3..20: // Shorter wait, ex. small brainfart
            begin
                 Wait(25+Random(50));
                 mistypeprobability := mistypeprobability + 2;
            end;
            21: // No letter typed
            begin
                 Exit;
            end;
            22..25: // Chance to mistype letter on the same row
            begin
                 position := position - 1 + Random(3);
                 if position < 1 then
                    position := 1;
                 if (positioni > 0) and (position < 2) then
                    position := 2;
                 if position > Length(current[positioni]) then
                    position := Length(current[positioni]);
                 key := current[positioni][position];
                 result := true
                 mistypeprobability := mistypeprobability + 40;
            end;
            26: // Mistype the letter upward
            begin
                 positioni := positioni + 1;
                 if positioni > 3 then
                    positioni := 3;
                 key := current[positioni][position];
                 result := true
                 mistypeprobability := mistypeprobability + 10;
            end;
            27: // Mistype the letter downward
            begin
                 positioni := positioni - 1;
                 if positioni < 0 then
                    positioni := 0;
                 key := current[positioni][position];
                 result := true
                 mistypeprobability := mistypeprobability + 10;
            end;
            28..150: // No mistype, increase the chance to mistype for the next letter
            begin
                 mistypeprobability := mistypeprobability - 4;
            end;
          end;
     end;
     Letter(key);
end;

procedure TypeText(text:string; mistake:boolean);
var i:integer;
begin
     i := 1;
     mistypeprobability := 20;
     while (i <= Length(text)) do
     begin
          if TypeLetter(text[i], mistake) then
          Wait(25+Random(25));
          i := i + 1;
     end;
     lastletter := 'none';


 //    Script Load Up
end;

07-04-2009, 04:52 AM
Da 0wner

You can use AddMistake by ZephyrsFury in Text.scar.
07-04-2009, 10:33 AM
Awkwardsaw

what if he wants to make his own? :P

but i would suggest looking at that function for refference
07-04-2009, 02:48 PM
Feroc1ty

Keep getting your post count up, I'm just hoping someone will eventually look at what I asked for, and give me some suggestions heading toward that direction.

On the other hand, I know this forum is thirsty for post count, so go ahead and quote me, than respond using random offtopic comments that have nothing to do with the thread itself.

EDIT: By the way, to people that are ignorant such as two posters above, the script itself is done, I simply need to adjust the value "mistypeprobability" in the TypeLetter() function (if you really feel like helping you can adjust the case numbers as well, I simply thought they were okay, or even suggest to add other possible things that can happen or mistakes) so it represents a more human-like typing syntax.

i have had a quick look through and this bit has caught my attention
SCAR Code:
for i := 0 to 3 do
     begin
          if Pos(character, current[i]) <> 0 then
             positioni := i
     end;
     position := Pos(character, current[positioni]);
     key := current[positioni][position];
if you do 0 to three then you will come up with an error as yout starting ith string position 0 but strings start at 1
so it would be better to put it as
SCAR Code:
positioni:= Pos(character, current[i]);
instead of
SCAR Code:
begin
          if Pos(character, current[i]) <> 0 then
             positioni := i
     end;
and current is only a array of string so it is only a 1 dimentional array not a 2 dimentional array so you cant have
SCAR Code:
current[positioni][position]
if you use what i said above it would be better to just do
SCAR Code:
current[positioni]
~shut

07-04-2009, 03:23 PM
ian.

Don't flame people when they try to help. Da 0wner told you how to add mistakes (You just edited asking for.. "or even suggest to add other possible things that can happen or mistakes" which he did. Akwardsaw told Da 0wner that you probably wanted to make your own, so neither of there posts were off topic. kthxbai.

SCAR Code:

var keyboard, shiftboard: array [0..3] of string;
current: string;
    mistypeprobability:integer;
    lastletter:string;

    { Things that are not finished:

             ~Improve mistake probabilities
             ~Mistake fixing with backspace

                                                          }

procedure KeyboardVars;
begin
     keyboard[0] := '`1234567890-= ';   shiftboard[0] := '~!@#$%^&*()_+' ;
     keyboard[1] := ' qwertyuiop[]\';   shiftboard[1] := ' QWERTYUIOP{}|';
     keyboard[2] := ' asdfghjkl;''' ;   shiftboard[2] := ' ASDFGHJKL:"'  ;
     keyboard[3] := ' zxcvbnm,./'   ;   shiftboard[3] := ' ZXCVBNM<>?'   ;
end;

procedure Letter(character:char);
var key:byte;
begin
     key := GetKeyCode(character);
     KeyDown(key);
     Wait(25+Random(35));
     KeyUp(key);
end;

procedure PressEnter();
begin
     Letter(Chr(13));
end;

procedure PressBack();
begin
     Letter(Chr(8));
end;

function TypeLetter(character:char; mistake:boolean):boolean;
var normal, shift:string;
    i, position, positioni:integer;
    key:char;
begin
     result := false
     if character = ' ' then
     begin
          Letter(' ');
          Exit;
     end;
     normal := '`1234567890-=qwertyuiop[]\asdfghjkl;''zxcvbnm,./';
     shift  := '~!@#$%^&*()_+QWERTYUIOP}{|ASDFGHJKL:"ZXCVBNM<>?' ;
     if (Pos(character, normal) > 0) then
        current := normal;
     if Pos(character, shift) <> 0 then
        current := shift;
          positioni:= Pos(character, current);
     position := Pos(character, current[positioni]);
     key := current[positioni];
     if mistake then
     begin
          case (Random(99) + mistypeprobability) of
            0..2: // Longer wait, ex. forget key location or something
            begin
                 Wait(45+Random(200));
                 mistypeprobability := mistypeprobability + 4;
            end;
            3..20: // Shorter wait, ex. small brainfart
            begin
                 Wait(25+Random(50));
                 mistypeprobability := mistypeprobability + 2;
            end;
            21: // No letter typed
            begin
                 Exit;
            end;
            22..25: // Chance to mistype letter on the same row
            begin
                 positioni := positioni - 1 + Random(3);
                 key := current[positioni];
                 mistypeprobability := mistypeprobability + 40;
            end;
            26: // Mistype the letter upward
            begin
                 positioni := positioni + 1;
                 key := current[positioni];
                 mistypeprobability := mistypeprobability + 10;
            end;
            27: // Mistype the letter downward
            begin
                 positioni := positioni - 1;
                 if positioni < 0 then
                    positioni := 0;
                 key := current[positioni];
                 mistypeprobability := mistypeprobability + 10;
            end;
            28..150: // No mistype, increase the chance to mistype for the next letter
            begin
                 mistypeprobability := mistypeprobability - 4;
            end;
          end;
     end;
     result := true
     Letter(key);
end;

procedure TypeText(text:string; mistake:boolean);
var i:integer;
begin
     i := 1;
     mistypeprobability := 50;
     while (i <= Length(text)) do
     begin
          if TypeLetter(text[i], mistake) then
          writeln(i);
          Wait(25+Random(25));
          i := i + 1;
     end;
     lastletter := 'none';


 //    Script Load Up
end;

begin
  typetext('hello i am testing this script',true);
end.

that is what i have but it never makes any mistakes

~shut

EDIT: replaced with a working one

It should be making mistakes pretty often in that one, here is a more recent version (which makes even less errors) so you might have trouble testing it unless you type like 20+ letters message.

SCAR Code:

var keyboard, shiftboard, current: array [0..3] of string;
    mistypeprobability:integer;
    lastletter:string;
    
    { Things that are not finished:
    
             ~Improve mistake probabilities
             ~Mistake fixing with backspace
             ~Adding capitalization of letters
             
                                                          }

procedure KeyboardVars;
begin
     keyboard[0] := '`1234567890-= ';   shiftboard[0] := '~!@#$%^&*()_+' ;
     keyboard[1] := ' qwertyuiop[]\';   shiftboard[1] := ' QWERTYUIOP{}|';
     keyboard[2] := ' asdfghjkl;''' ;   shiftboard[2] := ' ASDFGHJKL:"'  ;
     keyboard[3] := ' zxcvbnm,./'   ;   shiftboard[3] := ' ZXCVBNM<>?'   ;
end;

procedure Letter(character:char);
var key:byte;
begin
     key := GetKeyCode(character);
     KeyDown(key);
     Wait(25+Random(35));
     KeyUp(key);
end;

procedure PressEnter();
begin
     Letter(Chr(13));
end;

procedure PressBack();
begin
     Letter(Chr(8));
end;

function TypeLetter(character:char; mistake:boolean):boolean;
var normal, shift:string;
    i, position, positioni:integer;
    key:char;
begin
     result := false
     if character = ' ' then
     begin
          Letter(' ');
          Exit;
     end;
     normal := '`1234567890-=qwertyuiop[]\asdfghjkl;''zxcvbnm,./';
     shift  := '~!@#$%^&*()_+QWERTYUIOP}{|ASDFGHJKL:"ZXCVBNM<>?' ;
     if Pos(character, normal) <> 0 then
        current := keyboard;
     if Pos(character, shift) <> 0 then
        current := shiftboard;
     for i := 0 to 3 do
     begin
          if Pos(character, current[i]) <> 0 then
             positioni := i
     end;
     position := Pos(character, current[positioni]);
     key := current[positioni][position];
     if mistake then
     begin
          case Random(150 + mistypeprobability) of
            0..2: // Longer wait, ex. forget key location or something
            begin
                 Wait(30+Random(100));
                 mistypeprobability := mistypeprobability + 12;
            end;
            3..20: // Shorter wait, ex. small brainfart
            begin
                 Wait(10+Random(20));
                 mistypeprobability := mistypeprobability + 6;
            end;
            21: // No letter typed
            begin
                 Exit;
            end;
            22..25: // Chance to mistype letter on the same row
            begin
                 position := position - 1 + Random(3);
                 if position < 1 then
                    position := 1;
                 if (positioni > 0) and (position < 2) then
                    position := 2;
                 if position > Length(current[positioni]) then
                    position := Length(current[positioni]);
                 key := current[positioni][position];
                 result := true
                 mistypeprobability := mistypeprobability + 40;
            end;
            26: // Mistype the letter upward
            begin
                 positioni := positioni + 1;
                 if positioni > 3 then
                    positioni := 3;
                 key := current[positioni][position];
                 result := true
                 mistypeprobability := mistypeprobability + 40;
            end;
            27: // Mistype the letter downward
            begin
                 positioni := positioni - 1;
                 if positioni < 0 then
                    positioni := 0;
                 key := current[positioni][position];
                 result := true
                 mistypeprobability := mistypeprobability + 40;
            end;
            28..250: // No mistype, increase the chance to mistype for the next letter
            begin
                 mistypeprobability := mistypeprobability - 2;
            end;
          end;
     end;
     Letter(key);
end;

procedure TypeText(text:string; mistake:boolean);
var i:integer;
begin
     i := 1;
     mistypeprobability := 20;
     while (i <= Length(text)) do
     begin
          TypeLetter(text[i], mistake);
          Wait(15+Random(15));
          i := i + 1;
     end;
     lastletter := 'none';


 //    Script Load Up
end;

here

SCAR Code:

var keyboard, shiftboard, current: array [0..3] of string;
    mistypeprobability:integer;
    lastletter:string;

    { Things that are not finished:

             ~Improve mistake probabilities
             ~Mistake fixing with backspace
             ~Adding capitalization of letters

                                                          }

procedure KeyboardVars;
begin
     keyboard[0] := '`1234567890-= ';   shiftboard[0] := '~!@#$%^&*()_+' ;
     keyboard[1] := ' qwertyuiop[]\';   shiftboard[1] := ' QWERTYUIOP{}|';
     keyboard[2] := ' asdfghjkl;''' ;   shiftboard[2] := ' ASDFGHJKL:"'  ;
     keyboard[3] := ' zxcvbnm,./'   ;   shiftboard[3] := ' ZXCVBNM<>?'   ;
end;

procedure Letter(character:char);
var key:byte;
begin
     key := GetKeyCode(character);
     KeyDown(key);
     Wait(25+Random(35));
     KeyUp(key);
end;

procedure PressEnter();
begin
     Letter(Chr(13));
end;

procedure PressBack();
begin
     Letter(Chr(8));
end;

function TypeLetter(character:char; mistake:boolean):boolean;
var normal, shift:string;
    i, position, positioni:integer;
    key:char;
begin
     result := false
     if character = ' ' then
     begin
          Letter(' ');
          Exit;
     end;
     normal := '`1234567890-=qwertyuiop[]\asdfghjkl;''zxcvbnm,./';
     shift  := '~!@#$%^&*()_+QWERTYUIOP}{|ASDFGHJKL:"ZXCVBNM<>?' ;
     if Pos(character, normal) <> 0 then
        current := keyboard;
     if Pos(character, shift) <> 0 then
        current := shiftboard;
     for i := 0 to 3 do
     begin
          if Pos(character, current[i]) <> 0 then
             positioni := i
     end;
     position := Pos(character, current[positioni]);
     key := current[positioni][position];
     if mistake then
     begin
          case Random(150 + mistypeprobability) of
            0..2: // Longer wait, ex. forget key location or something
            begin
                 Wait(30+Random(100));
                 mistypeprobability := mistypeprobability + 12;
            end;
            3..20: // Shorter wait, ex. small brainfart
            begin
                 Wait(10+Random(20));
                 mistypeprobability := mistypeprobability + 6;
            end;
            21: // No letter typed
            begin
                 Exit;
            end;
            22..25: // Chance to mistype letter on the same row
            begin
                 position := position - 1 + Random(3);
                 if position < 1 then
                    position := 1;
                 if (positioni > 0) and (position < 2) then
                    position := 2;
                 if position > Length(current[positioni]) then
                    position := Length(current[positioni]);
                 key := current[positioni][position];
                 result := true
                 mistypeprobability := mistypeprobability + 40;
            end;
            26: // Mistype the letter upward
            begin
                 positioni := positioni + 1;
                 if positioni > 3 then
                    positioni := 3;
                 key := current[positioni][position];
                 result := true
                 mistypeprobability := mistypeprobability + 40;
            end;
            27: // Mistype the letter downward
            begin
                 positioni := positioni - 1;
                 if positioni < 0 then
                    positioni := 0;
                 key := current[positioni][position];
                 result := true
                 mistypeprobability := mistypeprobability + 40;
            end;
            28..250: // No mistype, increase the chance to mistype for the next letter
            begin
                 mistypeprobability := mistypeprobability - 2;
            end;
          end;
     end;
     Letter(key);
end;

procedure TypeText(text:string; mistake:boolean);
var i:integer;
begin
     KeyboardVars;
     i := 1;
     mistypeprobability := 20;
     while (i <= Length(text)) do
     begin
          TypeLetter(text[i], mistake);
          Wait(15+Random(15));
          i := i + 1;
     end;
     lastletter := 'none';


 //    Script Load Up
end;

begin
  typetext('hello i am testing this script',true);
end.

:)

~shut

07-04-2009, 04:05 PM
Feroc1ty

Do you not understand what I requested? I made the script, I know how to use it and what it does, I'm posting here to adjust the random values so the output text is similar to what it would be when a human typed it, including human dumbness.
07-04-2009, 04:06 PM
Shuttleu

i think it is fine how it is
if you dont then i dont know what to do

~shut
07-04-2009, 04:11 PM
Feroc1ty

Well, I did what I could think of at the time, I'm thinking of somehow adding a letter swap, and than improving the random values, but I really don't know how to improve them, unless I get suggestions as to make this happen more/less often etc...
07-04-2009, 05:18 PM
Rich

Feroc1ty, why do you have to be so ignorant about it? Da Owner and arkwardsaw were trying to help, and you call them ignorant.

Quote:

Do you not understand what I requested? I made the script, I know how to use it

Seriously, with that attitude I wouldn't even bother to help you. Da Owner, awkwardsaw, and Shut have all tried to help you, and you act like their idiots.

And if you know how it works, then why not fix it yourself?
07-04-2009, 06:37 PM
Feroc1ty

I'm not asking you to fix it, as a matter of fact I'm not asking you a single thing, I'm asking those who care to help adjust probability rates, can you not read?

Bolded the important parts of the sentence so you can comprehend it, since I'm not quite fond of your intelligence level. If you need help understanding any of those words please Google the word with "define:" in front of it.

I'm glad you took the opportunity for the +1 thought, keep at it, 237(this number may change) more to go till 1K!

:cartman:
07-04-2009, 06:56 PM
Shuttleu

Quote:

Originally Posted by Feroc1ty

I'm not asking you to fix it, as a matter of fact I'm not asking you a single thing, I'm asking those who care to help adjust probability rates, can you not read?

Bolded the important parts of the sentence so you can comprehend it, since I'm not quite fond of your intelligence level. If you need help understanding any of those words please Google the word with "define:" in front of it.

I'm glad you took the opportunity for the +1 thought, keep at it, 237(this number may change) more to go till 1K!

:cartman:

i really dont like your attitude
i wont bother helping you anymore
you speak to us like we are a lower life form and that we dont know how to read
we do know how to read and by looking at our ranks im sure you will be able to see that we can do more in scar than you otherwise you would be a member

quite frankly if your going to continue like this then you WILL NOT get far in srl

have fun trying to make friends with an attitude like that
because i am most certainly not your friend

good bye

~shut
07-04-2009, 08:30 PM
Rich

Quote:

Originally Posted by Feroc1ty

I'm not asking you to fix it, as a matter of fact I'm not asking you a single thing, I'm asking those who care to help adjust probability rates, can you not read?

Bolded the important parts of the sentence so you can comprehend it, since I'm not quite fond of your intelligence level. If you need help understanding any of those words please Google the word with "define:" in front of it.

I'm glad you took the opportunity for the +1 thought, keep at it, 237(this number may change) more to go till 1K!

:cartman:

Just one more thing to say before I never post in this thread again. I have just gone 14 years old. I am the cleverest person out of 3 years at my school, with a level 8 in Maths, 7 in Science, English, History, Geography, and a level 6 in RE. I now know why you're not fond of my intelligence level; it's because you will never be as clever as me.

Quote:

Originally Posted by Shuttleu

i really dont like your attitude
i wont bother helping you anymore
you speak to us like we are a lower life form and that we dont know how to read
we do know how to read and by looking at our ranks im sure you will be able to see that we can do more in scar than you otherwise you would be a member

quite frankly if your going to continue like this then you WILL NOT get far in srl

have fun trying to make friends with an attitude like that
because i am most certainly not your friend

good bye

~shut

Well said Shut.

Richard.
07-04-2009, 09:46 PM
ZephyrsFury

Careful there Feroc1ty, your attitude isn't welcome here... You asked for help, yet you insult people when they try to help you. It's not like they're obliged to help. I'm sure all of them would much rather watch you struggle with your problems than watch you attack them.

Like Shuttleu said, unless you change this attitude problem of yours you will not get very far at all in this community. Let me remind you that it is these people here who will be voting on your SRL members application and let me warn you they do not take attitude kindly...
07-04-2009, 10:53 PM
Awkwardsaw

well, so far every thing has been said about his attidude, so i wont repeat others.

and to help you out, i honestly dont know how you can make it "better". i still recommend looking through the srl function addmistakes. its in the text section of the includes. its a pretty awesome function if i do say so my self ;)
07-05-2009, 01:37 AM
Feroc1ty

Quote:

Originally Posted by ZephyrsFury

Careful there Feroc1ty, your attitude isn't welcome here... You asked for help, yet you insult people when they try to help you. It's not like they're obliged to help. I'm sure all of them would much rather watch you struggle with your problems than watch you attack them.

Like Shuttleu said, unless you change this attitude problem of yours you will not get very far at all in this community. Let me remind you that it is these people here who will be voting on your SRL members application and let me warn you they do not take attitude kindly...

R1ch:
I am deeply hurt by what you have said. I will think before I say stuff toward you. I am apologizing to you. I hope that we can be friends. [/endsarcasm] Yeah, you're clever brah, good luck with your Math8, hoping you don't get those pesky division problems, hardest thing ever at that knowledge level eh?

Zephyr:
Didn't seem to get the part where anyone tried to help me, except for Shuttleu, other posters simply posted their general nonsense that doesn't relate to what I asked for in any shape or form; I still don't comprehend how will looking at a function in SRL help me, due to my function being done and me only needing to adjust specific probability values.

By the way, as you mentioned, no one is obligated to post, so why post nonsense on threads instead of simply letting helpful people post who can actually read and comprehend what the topic is all about. I guess it's the need for +1...
07-05-2009, 01:48 AM
Awkwardsaw

Quote:

Originally Posted by akwardsaw

well, so far every thing has been said about his attidude, so i wont repeat others.

and to help you out, i honestly dont know how you can make it "better". i still recommend looking through the srl function addmistakes. its in the text section of the includes. its a pretty awesome function if i do say so my self ;)

if thats not help than i dont know what is. would you like me to post the procedure for you?
07-05-2009, 01:48 AM
Jackrawl

What do you mean by probability rates? Are you having problems because your indexers need to be integers, or are you looking for a survey to base the probabilities of mistakes off of?

Edit:
I don't think he's coming back.
07-05-2009, 01:50 AM
ZephyrsFury

Maybe you should get off your high cloud and realise that the "nonsense" you were referring to might help you. AddMistakes does something similar to what you're trying to create. It never crossed your mind that you could look at the mistype probabilities from there?

here, take a look at this.

SCAR Code:

{*******************************************************************************
function AddMistakes(Orig: string; Chance: Integer): string;
By: ZephyrsFury
Description: Adds human mistakes to Orig such as mistypes, missing letters,
  wrong cases. Probability that a character is typed wrong is 1 / Chance. ie.
  Higher 'Chance' = less mistakes (I know thats stupid but oh well...).
  Probability is the chance that an individual character is typed incorrectly.
  That is if you have more characters in a string you will get more mistakes overall.
    20 - 30 is usually good but it varies depending on your string so experiment!
Use: TypeSend(AddMistakes('Hello', 20));
*******************************************************************************}
function AddMistakes(Orig: string; Chance: Integer): string;
var
  Line1, Line2, Line: array [0..3] of string;
  i, j, TPos, Prob, Mist, L: Integer;
  Norm, Caps, Excp, TLine, NewKey: string;
begin
  Norm := '`1234567890-=qwertyuiop[]\asdfghjkl;''zxcvbnm,./';
  Caps := '~!@#$%^&*()_+QWERTYUIOP{}|ASDFGHJKL:"ZXCVBNM<>?';
  Excp := '`1234567890-=[]\;'',./~!@#$%^&*()_+{}|:"<>?';

  Line1[0] := '`1234567890-= ';     Line2[0] := '~!@#$%^&*()_+ ';
  Line1[1] := ' qwertyuiop[]\';     Line2[1] := ' QWERTYUIOP{}|';
  Line1[2] := ' asdfghjkl;''  ';    Line2[2] := ' ASDFGHJKL:"  ';
  Line1[3] := ' zxcvbnm,./   ';     Line2[3] := ' ZXCVBNM<>?   ';

  L := Length(Orig);
  for i := 1 to L do
  begin
    Prob := Chance;
    Prob := Prob + Mist;     //More mistakes = less chance of another mistake
    if (Pos(Orig[i], Excp) <> 0) then Prob := Prob - 2;  //If char is hard to type (numbers/symbols) - more chance
    if (i = 1) then Prob := Prob + 5; //The first letter - less chance

    if (Orig[i] <> ' ') and (Random(Max(Prob, 0)) = 0) then
    begin
      if (Pos(Orig[i], Norm) <> 0) then
        Line := Line1
      else
      if (Pos(Orig[i], Caps) <> 0) then
        Line := Line2;

      for j := 0 to 3 do
      begin
        TPos := Pos(Orig[i], Line[j]);
        if (TPos <> 0) then
          case Random(19) of
            0..5:                              //Same line
            begin
              TLine := Line[j];
              try
                NewKey := TLine[TPos - 1 + Random(3)];
              except end;
              if (NewKey = '') or (NewKey = ' ') then
                NewKey := TLine[TPos];
            end;
            6..8:                                        //Line above
            begin
              TLine := Line[Max(j - 1, 0)]
              try
                NewKey := Line[j - 1][TPos + Random(2)];
              except end;
              if (NewKey = '') or (NewKey = ' ') then
                NewKey := TLine[TPos];
            end;
            9..11:                                      //Line below
            begin
              TLine := Line[Min(j + 1, High(Line))]
              try
                NewKey := TLine[TPos - 1 + Random(2)];     //Wrong case
              except end;
              if (NewKey = '') or (NewKey = ' ') then
                NewKey := TLine[TPos];
            end;
            12..16:
            begin
              if (i - 1 >= 1) then
              begin
                if (Pos(Orig[i - 1], Caps) <> 0) then
                  NewKey := Line2[j][TPos]
                else
                if (Pos(Orig[i - 1], Norm) <> 0) then
                  NewKey := Line1[j][TPos]
              end else
              if (i + 1 <= Length(Orig)) then
              begin
                if (Pos(Orig[i + 1], Caps) <> 0) then
                  NewKey := Line2[j][TPos]
                else
                if (Pos(Orig[i + 1], Norm) <> 0) then
                  NewKey := Line1[j][TPos];
              end;
            end;
            17, 18: if (i <> 1) then NewKey := '';         //Missing letters
          end;
      end;
    end else
      NewKey := Orig[i];
    if (NewKey <> Orig[i]) then Inc(Mist);
    Result := Result + NewKey;
  end;
end;

how you use it is writeln(addmistakes('text', 20));

20 is the chance of making a mistake, as in it has a 1 in twentieth chance. look through the code your self and see how it works

07-05-2009, 02:00 AM
Feroc1ty

Quote:

Originally Posted by ZephyrsFury

Maybe you should get off your high cloud and realise that the "nonsense" you were referring to might help you. AddMistakes does something similar to what you're trying to create. It never crossed your mind that you could look at the mistype probabilities from there?

Maybe you should realize the fact that the function you're giving me takes user input which is the probability of making a mistake.
07-05-2009, 02:21 AM
Awkwardsaw

whats the difference? if you dont want people to give user input then set it your self. although the more user input the more diverse, and less detectable

Show 40 post(s) from this thread on one page