As I said on my new GameTab thread, I was bored today
So, here is a new Mouse (not much changed... but it is a LOT better!)
Run this script to see how much better the new change is to SRL.
SCAR Code:
program New;
var x,x2,y,y2,SRLs,Hys,Total: integer;
{.include srl/srl.scar}
const timestodo = 2;
{*******************************************************************************
procedure Mouse(mousex, mousey, ranx, rany: Integer; left: Boolean);
By: Mutant Squirrle and Hy71194.
Description: Moves then clicks mouse.
*******************************************************************************}
procedure MouseEx(mousex, mousey, ranx, rany: Integer; left: Boolean);
var
a, b, c: Integer;
begin
MMouse(mousex, mousey, ranx, rany);
Wait(60 + Random(30));
GetMousePos(b, c);
if c mod 2 = 0 then
Inc(c);
HoldMouse(b, c, left);
repeat
Wait(20 + Random(30));
Inc(a);
until (a > 4);
a := 0;
GetMousePos(b, c);
ReleaseMouse(b, c, left);
Wait(100 + Random(100));
end;
// One below is just SRL's, I added it here so if you edited your own SRL's.
procedure MouseSRL(mousex, mousey, ranx, rany: Integer; left: Boolean);
var
a, b, c: Integer;
begin
MMouse(mousex, mousey, ranx, rany);
Wait(60 + Random(30));
GetMousePos(b, c);
HoldMouse(b + 1, c, left);
repeat
Wait(20 + Random(30));
a := a + 1;
until (a > 4);
GetMousePos(b, c);
ReleaseMouse(b, c, left);
Wait(100 + Random(100));
end;
begin
SetupSRL;
ClearDebug;
WriteLn('Watch the mouse. First 10 WriteLn''s is Hy71194''s Mouse, second group is SRL''s Rev 16''s.');
Writeln('SRL''s current jumps around - Hy''s is stable and works well ;D');
mmouse(300,300,0,0);
Wait(500);
repeat
mmouse(300,300,0,0);
WriteLn('Calibrated the Mouse to 300,300..');
repeat
Inc(Hys);
getmousepos(x,y);
mouseex(x,y,0,0,true);
writeln(inttostr(x)+','+inttostr(y)+' with Hy''s Mouse.');
until(Hys >= 10);
Hys := 0;
mmouse(300,300,0,0);
WriteLn('Calibrated the Mouse to 300,300..');
Wait(100);
repeat
Inc(SRLs);
getmousepos(x2,y2);
mousesrl(x2,y2,0,0,true);
writeln(inttostr(x2)+','+inttostr(y2)+' with default Mouse.');
until(SRLs >= 10);
SRLs := 0;
Inc(Total);
until(Total = TimesToDo);
Writeln('Current one in SRL is crazy, eh? ;O');
end.
and implant this into SRL if the script above was enough motivation for you..
SCAR Code:
{*******************************************************************************
procedure Mouse(mousex, mousey, ranx, rany: Integer; left: Boolean);
By: Mutant Squirrle and Hy71194.
Description: Moves then clicks mouse.
*******************************************************************************}
procedure Mouse(mousex, mousey, ranx, rany: Integer; left: Boolean);
var
a, b, c: Integer;
begin
MMouse(mousex, mousey, ranx, rany);
Wait(60 + Random(30));
GetMousePos(b, c);
if c mod 2 = 0 then
Inc(c);
HoldMouse(b, c, left);
repeat
Wait(20 + Random(30));
Inc(a);
until (a > 4);
a := 0;
GetMousePos(b, c);
ReleaseMouse(b, c, left);
Wait(100 + Random(100));
end;
Thanks for reading 
~ Harry
Edit: For those of you without SCAR on your Computer/you are on Linux are are too lazy to start WINE...
SCAR Code:
Watch the mouse. First 10 WriteLn's is Hy71194's Mouse, second group is SRL's Rev 16's.
SRL's current jumps around - Hy's is stable and works well ;D
Calibrated the Mouse to 300,300..
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
Calibrated the Mouse to 300,300..
300,300 with default Mouse.
301,299 with default Mouse.
302,298 with default Mouse.
303,297 with default Mouse.
304,296 with default Mouse.
305,295 with default Mouse.
306,294 with default Mouse.
307,293 with default Mouse.
308,292 with default Mouse.
309,291 with default Mouse.
Calibrated the Mouse to 300,300..
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
300,300 with Hy's Mouse.
Calibrated the Mouse to 300,300..
300,300 with default Mouse.
301,299 with default Mouse.
302,298 with default Mouse.
303,297 with default Mouse.
304,296 with default Mouse.
305,295 with default Mouse.
306,294 with default Mouse.
307,293 with default Mouse.
308,292 with default Mouse.
309,291 with default Mouse.
Current one in SRL is crazy, eh? ;O
Successfully executed