None of my mousecommands work?
Well. I have tried these methods:
Code:
HoldMouse(x, y, 1);
Wait(800+random(10));
ReleaseMouse(x, y, 1);
Code:
clickmouse2(mouse_Right);
Wait(500+random(50));
P07_ChooseOptionMulti(['']);
Code:
Mouse(x, y, 4, 4, True);
My problem being... They won't click. They just hover over where they are supposed to click.
My latest "script"
Code:
program Fisher;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
Procedure P07_DeclarePlayer;
begin
P07_PlayerName:='user';
P07_PlayerPass:='pw';
end;
Procedure Fish;
var x, y: integer;
begin
repeat
if P07_FindObj(x, y,'ishing',15518109, 5) then
begin
HoldMouse(x, y, 1);
Wait(800+random(10));
ReleaseMouse(x, y, 1);
end;
repeat
Wait(5000+random(500));
Until not (P07_InvFull);
until(P07_InvFull);
end;
begin
SetupP07Include;
ActivateClient;
P07_DeclarePlayer;
if (Not P07_LoggedIn) Then
P07_LogInPlayer;
Fish;
end.
What am I doing wrong?