SCAR Code:
program PowerWoodcutter;
var
Oak: Integer;
x,y: Integer;
const
OakColour = 4559234;
procedure LoadBmps;
begin
Oak := BitmapFromString(23, 14, 'beNrVkTEKwCAQBIUU2qn/f5FYx' +
'E79TTbZIEEJJGeaLFPsITeFp9R/42siswZvlhiAwOBq2vEGYJR5YM' +
'AWDeOI5LKCUhMRS2IMwDrNIpbAANivr28lrX8iYe/SLtJd6pTkR5L' +
'mGQ2Mtbot8nNub32sj4apbO5fg8Y=');
end;
procedure UseBitmap;
begin
if(FindBitmapIn(Oak,x,y,0,0,250,30)) then
begin
Wait(1000+random(200));
ClickMouse(x,y,true);
end else
if(FindColor(x,y,OakColour,0,0,514,335)) then
begin
MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20); // <- USE MMOUSE
Wait(100+random(10));
ClickMouse(x,y,true); <- USE MOUSE
end;
end;
begin;
wait(1000)
end.
Okay, there is your correct code... More or less.
DO NOT USE MOVEMOUSE OR CLICKMOUSE! USE MOUSE AND MMOUSE!
SCAR's original procedures are completely detectable. DO NOT use them.
Also, instead of the bitmap you should just use SRL's function:
SCAR Code:
IsUpText(UpText: String): Boolean
Works like a dream, and makes it so you don't have to make a bitmap for every text you need.
Finally, watch your standards. Make sure you read the guide on standards in the Beginners Tutorial section. The Sticky one.
Anyways, good luck with your script, if you need more help. Add my msn, or pm me.
*Edit: Your issue was, you had a ; after end else its not needed. Also, you had one after the begin on the line after that.
Nava2