need bitmap help

[maxlvs]

1 program new;

 

var

Bmp: TSCARBitmap;

x, y: Integer;

 

 

 

 

10 begin

Bmp := TSCARBitmap.Create('deNpjZGBh6K6ra6+qaq2sNNBnBgAlZwTh');

 

If (FindBitmap(x, y, Bmp, 198, 16, 230, 339))Then

begin

writeln('found bitmap')

movemouse(x,y)

17 else

movemouse(216,102)

clickmouse(216,102)

20 end.

 

debug box says

Type Line File Message

complier error 17 Identifier expected

 

like this makes no sence

[FHannes]

You're missing quite a few identifiers and semicolons there, also, that bitmap string doesn't look right, there shouldn't be any spaces in there. Did you delete part of it?

 

program new;
var
 Bmp: TSCARBitmap;
 x, y: Integer;
begin
 Bmp := TSCARBitmap.Create('deNpjZGBh6K6ra6+qaq2sNNBnBgAlZ wTh');

 if FindBitmap(x, y, Bmp, 198, 16, 230, 339) then
 begin
   WriteLn('found bitmap');
   MoveMouse(x, y);
 end else
 begin
   MoveMouse(216, 102);
   ClickMouse(216, 102, True);
 end;
end.

[maxlvs]

thank you so much iam gonna try it and get back to you

 

- - - Updated - - -

 

oh hot dam all i need was end else on the same line and thanks for reminding me about semicolons and ya lol i deleted some of the bitmap string lmao

 

it works now man thank you i wonder about moving mouse a bit faster but i will figure out that

 

one other question can i put look in [this box] or [this box] or [this box]

Edited November 12, 2013 by maxlvs