SRL Archive - Other Scripts

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..

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

:)

From: MasterKill
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.

Is it really this hard to do?

Does anyone know the font types?