Hello Doeplidoep,
I use identifiers (i think their called) for mouse clicks:
0 = Right click
1 = Left click
2 = Scroll button click
So it would look like ClickMouse(X, Y, 0); for a right click on points X, Y.
Not 100% if this is the answer to your problem, but it is a nice tip to know.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Now for loading an RSPS client with srl-6, without overriding the ready procedure, you get this error:
Code:
-- setupSRL()
---- Setting up SRL...
---- HINT: You are not using SMART, be sure to use Simba's crosshairs to select the RS client.
---- Waiting up to 5 minutes for RS to load...
and than nothing happens..
Simply put this override function at the top of your script to ready the client automatically:
Code:
//srl-6 override function
function waitClientReady(): boolean;override;begin result:= true;end
Also I saw at the end, "SetupSRL-6();" 99% sure this is not the proper function to use.
Use SetupSRL();
Always remember your semicolons, and code structure.
I suggest reading up on a few more tutorials that can be found in the tutorials section.
After editing your code, this is what I have:
Code:
program CutDiamonds;
{$i SRL-6/SRL.simba}
var
x, y:Integer;
color:= 2968687;
const
bounds:= IntToBox(288, 137, 300, 175);
//srl-6 override function
function waitClientReady(): boolean;override;begin result:= true;end
procedure DiamondCutter;
begin
if FindColorTolerance(x, y, color, bounds, 10) then
begin
MoveMouse(x, y);
Wait(500 + Random(51));
ClickMouse(x, y, 1);
end;
end;
begin
MouseSpeed:= 15;
SetupSRL();
CutDiamonds;
end.
If you have any more questions, feel free to ask.
- Starfox