2addicted (easy request)

[ZaSz]

I just need a script that when it sees the letters on the screen, it will type them correctly.

Website url: http://www.2addicted.com/letters

[JuKKa]

If u make a PERFECT bitmapmask black back ground white letters ill make this.. Im currently trying to find out what font that is..

Program Addicting;

Var
  Chars: Integer;
  
function FindText(var cx, cy: Integer; txt: string; font, xs, ys, xe, ye:
  Integer): Boolean; //by Stupid3ooo
var
  S: Integer;
begin
  S := CreateBitmapMaskFromText(txt, font);
  if xs <= 0 then xs := 0;
  if ys <= 0 then ys := 0;
  Result := FindBitmapMaskTolerance(S, cx, cy, xs, ys, xe, ye, 70, 70);
  FreeBitmap(S);
end;

Procedure FindLetters;
Var
  Text: String;
  X, Y, I: Integer;
Begin
  For I:= 1 To 26 Do
  Begin
      Case I Of
       1 : Text := 'A';
       2 : Text := 'B';
       3 : Text := 'C';
       4 : Text := 'D';
       5 : Text := 'E';
       6 : Text := 'F';
       7 : Text := 'G';
       8 : Text := 'H';
       9 : Text := 'I';
       10: Text := 'J';
       11: Text := 'K';
       12: Text := 'L';
       13: Text := 'M';
       14: Text := 'N';
       15: Text := 'O';
       16: Text := 'P';
       17: Text := 'Q';
       18: Text := 'R';
       19: Text := 'S';
       20: Text := 'T';
       21: Text := 'U';
       22: Text := 'V';
       23: Text := 'W';
       24: Text := 'X';
       25: Text := 'Y';
       26: Text := 'Z';
      End
    X := 260;
    Y :=  91;
    If(FindColorSpiral(X, Y, 0, 0, 0, 727, 204))Then
      If(FindText(X, Y, Text, Chars, X-40, Y-40, X+40, Y+40))Then
      Begin
        Writeln('Found '+Text);
        SendKeys(Text);
        Wait(100+Random(50));
        Break;
      End Else Status('Didnt Find: '+Text);
  End;
End;

Begin
  Writeln('Starting script in 1000ms');
  Wait(1000);
  Writeln('Loading Chars...');
  Chars := LoadCharsFromFont2('Frutiger SAIN Rm v.1', 18, False, False, False, False);
  If(Chars = 0)Then TerminateScript;
  Writeln('Chars Loaded!');
  Wait(150);
  Writeln('Finding Letters!');
  Repeat
    FindLetters;
    Wait(10);
  Until(False);
End.

Tried with alot of different fonts and changing tolerance .. If someone knows what font that is ... please pm me

[MasterKill]

wooow nice game,

but you can't cheat it couse there other letters all the time crossing them, maybe maybe maybe with DTMS

[JuKKa]

wooow nice game,

but you can't cheat it couse there other letters all the time crossing them, maybe maybe maybe with DTMS

They have different speed so they will come avaiable sooner or later.

[ZaSz]

Is it really this hard to do?

[ZaSz]

Does anyone know the font types?