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
Printable View
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
If u make a PERFECT bitmapmask black back ground white letters ill make this.. Im currently trying to find out what font that is..
SCAR Code: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
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.Quote:
Originally Posted by MasterKill
Is it really this hard to do?
Does anyone know the font types?