here is what you need
SCAR Code:
program W00T;
var across,down,bbback,x,y,a,b:integer;
//found:boolean;
procedure click;
begin
//if (found:= false) then
// clickbottom;
//end;
repeat //this hole section is just clicking across the screen
repeat
repeat
clickmouse(x+27,y,true)
wait(50)
x:=x+27
across:=across+1
until(across=12)
x:=268
y:=y+27
across:=1
down:=down+1
until(down=15)
down:= 1
across:= 1
y:=30
x:=268
until(false)
end;
//down to here---I have no trouble with that
procedure clickbottom; //this procedure doesn't seem to star/work or whatever
begin
repeat
clickmouse(200,650, true)
wait(50)
until (not(findbitmapin(bbback,a,b,260,0,600,130))) //is this not right?? what is going on ...the area is correct...it is bigger than it needs to be.
end;
Procedure LoadBitmaps; //this loads the bitmaps so they can be used later in the script.
begin
bbback := BitmapFromString(54, 1, 'z78DA737343000324E0862' +
'16EEA626A62624E6B715CA41BDDDD096113A30B008C164C9F');
end;
begin
LoadBitMaps;
repeat
x:=268
y:=30
across:=1
down:=1 //just declaring everything to start
repeat //repeats clicking in case it didnt get everything
click;
until (findbitmapin(bbback,a,b,260,0,600,130)) //until it finds a certain bitmap at the top the game,it will then click the bottom bar to add more balls-this game is like one where you click on balls that are 3 or more colors together- you get points...click on the bottom bar and you add more balls---this is where i am having trouble...is it not finding the bitmap??
FreeBitmap(bbback)
clickbottom;//procedure to click on bottom to add balls
until (false) //repeats the entire sequence FOREVEA!!!
end.


