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.



Reply With Quote









You gotta give an input to the SCRIPT in order to be a part of the team 

