From: Flight
I don't see why not. Post your issues / questions here and we'll try to lend a hand.
Thank you very much.
So here it goes.
This is the script I have right now :
program Addpoints;
Var
x, y: Integer;
Picture1: Integer;
Picture2: Integer;
PictureSubmit: Integer;
procedure LoadPicture1;
Begin
Picture1 := BitmapFromString(7, 7, 'meJzjXl/JjYF41xRjIv6VeUAUeWQW' +
'hAFEJttaBJZlLrl39NrHJ8WnlwHZUYemA9lCi1PMNtacfHMHyO65v' +
'AVIAtkiC+KBKGBnB5ALEnl922J9udjcKAiK29O76eEpveXZQDYATv' +
'JMaA==');
end;
Procedure LoadPicture2;
Begin
Picture2 := BitmapFromString(17, 16, 'meJxzMJV3IBHZm1AHhftYTu6qSY' +
'5wwyprZ4wF/f/55fj+LUAyKcINU9YWGwIqzor3ntFf/+zBTSwKjOT' +
'QkKed9tf3L4FagOjN03uhXhZoCmwwUE5y8M1LJyFagAwgF12NITqq' +
'yE+4cGI/3JYQLws0BdaoKD7M7fKZI63VWXC/WGOoQVN/7fyx4oxQi' +
'BV7t65auXAapjIrA1kIyk4KQlYPcVV5XgJcARxZgpGrjRYwYGuKEu' +
'DqgWygiCVMAQrSB6H+9mp4KEHQ6kVTDu7cAJFFQxZg9Oz+zYUzupC' +
'1AD0CFDx7bB8aunn5tIWe7OzJHY/vXEFWD0H9raWYCGh7U1UuMK4h' +
'oUokAgDsEwsq');
end;
Procedure LoadPictureSubmit;
Begin
PictureSubmit := BitmapFromString(10, 14, 'meJxrlNnSiA9tohWS3YgXrUVD/2' +
'8/+A8DjbKrkNH/2/fP34YK7gCRy+DovOyy7/8/Nta/QBJcDEc7ZBf' +
'///ACrBcuOB8ZnZed////B4il9z/8b5SbjRWdl5v9///7RrlpeNEk' +
'OHq9atJroC/kriEJ9sHRDrm+/x8ega3bDxEBAC7Xz98=');
end;
Procedure ClickPic1;
begin
If (FindBitmap(Picture1, x, y)) Then
begin
Writeln('Found Picture1');
MoveMouse(x, y);
ClickMouse(x, y,mouse_Left);
Wait(1000);
MoveMouse(400, 890);
ClickMouse(400,890,mouse_Left); // This makes the mouse click back into Simba (Only way this worked for Picture1)
Wait(1000);
end Else
begin
Writeln('Picture1 NOT Found');
Wait(1000);
end;
end;
Procedure ClickPicSubmit;
begin
If (FindBitmap(PictureSubmit, x, y)) Then
begin
Writeln('Found PictureSubmit');
MoveMouse(x, y);
Wait(1000);
MoveMouse(x - 120,y - 35);
Wait(1000);
ClickMouse(x,y,mouse_Left);
Wait(1000);
MoveMouse(x,y);
Wait(1000);
ClickMouse(x,y,mouse_left);
Wait(1000);
end Else
begin
Writeln('PictureSubmit NOT Found');
Wait(1000);
end;
end
Procedure ClickPic2;
begin
If (FindBitmap(Picture2, x, y)) Then
begin
Writeln('Found Picture2');
MoveMouse(x, y);
ClickMouse(x, y,mouse_Left);
Wait(2000);
MoveMouse(1600,800);
ClickMouse(1600, 800, mouse_Left);
Wait(1000);
ClickPicSubmit;
Wait(1000);
MoveMouse(550,300);
ClickMouse(550,300, mouse_Left);
Wait(1000);
MoveMouse(1600,200);
ClickMouse(6100,200, mouse_Left);
Wait(1000);
MoveMouse(650,460);
ClickMouse(650, 460,mouse_Left);
Wait(2000);
end Else
begin
Writeln('Picture2 NOT Found');
Wait(1000);
end;
end;
Procedure FreeBmps;
begin
FreeBitmap(Picture1);
FreeBitmap(Picture2);
FreeBitmap(PictureSubmit);
end;
begin
ClearDebug;
MoveMouse (650,460);
ClickMouse(650,460,mouse_Left);
repeat
LoadPicture1;
LoadPicture2;
LoadPictureSubmit;
ClickMouse(370 ,580, mouse_Left);
ClickPic1;
ClickPic2;
FreeBmps;
until(false);
end.
and it is supposed to :
Look for picture 1
continue looking for picture one until it finds Picture 2
When picture 2 comes along we look for Picture Sumbit.
if it does not find picture submit, it has to continue, BUT
and the problem lies here,
If it finds Picture Submit he has to look again to find picture submit until it does not find it….
Can anyone help me to obtain this please?
Hope I have explained myself good enough and thank you in advance.