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.
EDIT: increased the sloppiness.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: i find a sloppiness of 20 to be very realistic while fast tiping.
