SRL Archive - MSI Suggestions

{*******************************************************************************
procedure MultiClickMouse(ClickTimes, mousex, mousey, ranx, rany: Integer; left: Boolean);
By: Dynamite
Description: Moves then clicks mouse the amount of (Times)
*******************************************************************************}
procedure MultiClickMouse(ClickTimes, mousex, mousey, ranx, rany: Integer; left: Boolean);
var
  TimeCount:integer;
begin
  TimeCount := 0;
  Repeat
    MMouse(mousex, mousey, ranx, rany);
    Wait(60 + Random(30));
    ClickMouse2(left);
    Wait(50 + Random(50));
    Inc(TimeCount);
  Until TimeCount >= ClickTimes;
end;

I sometimes use it for Antiban.
It just clicks at the co-ords the amount of times set.
I know when I click a rock or a place etc. I sometimes double click or triple click.

-Boom

Imo this is something the scripter should make if he wants to add it to his antiban

To redundant for it to be in the include.

Feedback -> Denied.

Keep trying to help out though Dynamite. :)

No worries :)
And don't worry Nava2 I will

-Boom

for I := 1 to 5 do
  Mouse(x, y, 0, 0, True);

Doesn't need a function of its own :)

From: marpis

for I := 1 to 5 do
  Mouse(x, y, 0, 0, True);

Doesn't need a function of its own :)

True that.

I quite like the concept tho…

Double click on rocks? That sounds so new..

edit: Moved to MSI.

What does everyone think of possibly double clicking objects when it's left click?

eg

Mouse(x, y, 3, 3, true);

if Random(100) <= 10 then 
begin
  wait(100+random(250));
  Mouse(x, y, 0, 0, true);
end;

~RM

From: marpis

for I := 1 to 5 do
  Mouse(x, y, 0, 0, True);

Doesn't need a function of its own :)

Ah, very true.. :redface:

From: Sir R. Magician
True that.

I quite like the concept tho…

Double click on rocks? That sounds so new..

edit: Moved to MSI.

What does everyone think of possibly double clicking objects when it's left click?

eg

Mouse(x, y, 3, 3, true);

if Random(100) <= 10 then 
begin
  wait(100+random(250));
  Mouse(x, y, 0, 0, true);
end;

~RM

I am glad you see a "future" for this :P

-Boom

From: dynamite
ah, very true.. :redface:



I am glad you see a "future" for this :p

-boom

:) - rm

Thing is that you can't wait a long time because you will start moving = coords aren't the same.

From: 3Garrett3
Thing is that you can't wait a long time because you will start moving = coords aren't the same.

Which is why you loop through so it will find colour, click, find colour click.

And risk finding the wrong object? It would be very complex for that wait to work..

From: 3Garrett3
And risk finding the wrong object? It would be very complex for that wait to work..

Ahh, very good point.
Hmm, unless there is no wait in between clicks.

Would it not be easier to do

procedure MultiClickMouse(ClickTimes, mousex, mousey, ranx, rany: Integer; left: Boolean);
var
  TimeCount:integer;
begin
  TimeCount := 0;
  Repeat
    Mouse(mousex, mousey, ranx, rany, True);
    Inc(TimeCount);
    Wait(10+Random(10));
  Until TimeCount >= ClickTimes;
end;

as the wait time is only a maximum of 20 milliseconds, your character won't have moved, or one could be made for people that want a simple autoclicker for something (maybe not rs) that could have another parameter of TimeBetweenClicks. Just a suggestion lol

procedure MultiClickMouse(ClickTimes, TimeBetweenClicks, mousex, mousey, ranx, rany: Integer; left: Boolean);
var
  TimeCount:integer;
begin
  TimeCount := 0;
  Repeat
    Mouse(mousex, mousey, ranx, rany, True);
    Inc(TimeCount);
    Wait(TimeBetweenClicks);
  Until TimeCount >= ClickTimes;
end;