SCAR Code:
{*******************************************************************************
Procedure DoubleMouse(ax,ay,ashx,ashy: Integer; ashe: Boolean);
By: Ashur2Good
Description: Double clicks mouse( You can choose left or right click ).
*******************************************************************************}
Procedure DoubleMouse(ax,ay,ashx,ashy: Integer; ashe: Boolean);
begin
Mouse(ax,ay,ashx,ashy,ashe);
FTWait(2)//To wait for possible lag
Mouse(ax,ay,ashx,ashy,ashe);
end;
SCAR Code:
{*******************************************************************************
Procedure CoolMouse(ux,uy,auhx,auhy: Integer; auhe: Boolean);
By: Ashur2Good
Description: Clicks the mouse, but with anti ban :)
*******************************************************************************}
Procedure CoolMouse(ux,uy,auhx,auhy: Integer; auhe: Boolean);
begin
case random(3) of
1: DoubleMouse(ux,uy,auhx,auhy,auhe);
2: Mouse(ux,uy,auhx,auhy,auhe);
end;
end;
SCAR Code:
program new;
{.include SRL/SRL.scar}
{*******************************************************************************
Procedure DoubleMouse(ax,ay,ashx,ashy: Integer; ashe: Boolean);
By: Ashur2Good
Description: Double clicks mouse.
*******************************************************************************}
Procedure DoubleMouse(ax,ay,ashx,ashy: Integer; ashe: Boolean);
begin
Mouse(ax,ay,ashx,ashy,ashe);
FTWait(2)//To wait for possible lag
Mouse(ax,ay,ashx,ashy,ashe);
end;
{*******************************************************************************
Procedure CoolMouse(ux,uy,auhx,auhy: Integer; auhe: Boolean);
By: Ashur2Good
Description: Clicks the mouse, but with anti ban :)
*******************************************************************************}
Procedure CoolMouse(ux,uy,auhx,auhy: Integer; auhe: Boolean);
begin
case random(3) of
1: DoubleMouse(ux,uy,auhx,auhy,auhe);
2: Mouse(ux,uy,auhx,auhy,auhe);
end;
end;
begin
Mousespeed:=30;
DoubleMouse(34,34,0,0,true);
Wait(1000);
end.