SRL Archive - SRL Archives

As I said on my new GameTab thread, I was bored today :p 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. ;)

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..

{*******************************************************************************
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…

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

Are You Sure???

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,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
Calibrated the Mouse to 300,300..
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
Calibrated the Mouse to 300,300..
300,300 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
Calibrated the Mouse to 300,300..
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
Current one in SRL is crazy, eh? ;O
Successfully executed

Are you sure you did not fake that? :rolleyes: It works exactly fine for me. Just make sure you do not touch your mouse after it moves it. Hit run and make sure your mouse is not being touched/moving at all.

100% Sure It Was Real… :D

What type of mouse do you have? A laser mouse / optical mouse / a ball mouse?

My output doesn't match yours either, Hy:

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,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
Calibrated the Mouse to 300,300..
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
Calibrated the Mouse to 300,300..
300,300 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
Calibrated the Mouse to 300,300..
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
Current one in SRL is crazy, eh? ;O
Successfully executed

My result:

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,300 with default Mouse.
302,300 with default Mouse.
303,300 with default Mouse.
304,300 with default Mouse.
305,300 with default Mouse.
306,300 with default Mouse.
307,300 with default Mouse.
308,300 with default Mouse.
309,300 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,300 with default Mouse.
302,300 with default Mouse.
303,300 with default Mouse.
304,300 with default Mouse.
305,300 with default Mouse.
306,300 with default Mouse.
307,300 with default Mouse.
308,300 with default Mouse.
309,300 with default Mouse.
Current one in SRL is crazy, eh? ;O
Successfully executed

So does it vary on the type of computer or something like that?

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,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
Calibrated the Mouse to 300,300..
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
Calibrated the Mouse to 300,300..
300,300 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
Calibrated the Mouse to 300,300..
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
Current one in SRL is crazy, eh? ;O
Successfully executed

Me thinks Hy faked his. Plus you can't get authentic only moving 1 pixel at a time. You should move it across the the screen several times.

What types of mice do you guys have? I have an optical mouse. And bob, if I faked it (why would I fake something so trivial?? -.-), why did Iron man also get the same result? ;)

You reporting the +1 bug in Mouse would give a new meaning to Epic, my SRL doesn't have the +1 in the HoldMouse, which means it's fixed. Neither A := 0, why did you add that?

Also, no human clicks it directly on the correct point to where you move the mouse to.

My Result:

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,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
Calibrated the Mouse to 300,300..
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
Calibrated the Mouse to 300,300..
300,300 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
300,301 with Hy's Mouse.
Calibrated the Mouse to 300,300..
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
Current one in SRL is crazy, eh? ;O
Successfully executed

Using LapTop TouchPad!

What OS are you using?

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.
299,300 with Hy's Mouse.
298,300 with Hy's Mouse.
297,300 with Hy's Mouse.
296,300 with Hy's Mouse.
295,300 with Hy's Mouse.
295,300 with Hy's Mouse.
295,300 with Hy's Mouse.
295,300 with Hy's Mouse.
295,300 with Hy's Mouse.
Calibrated the Mouse to 300,300..
300,300 with default Mouse.
300,299 with default Mouse.
300,298 with default Mouse.
300,297 with default Mouse.
300,296 with default Mouse.
300,295 with default Mouse.
300,294 with default Mouse.
300,293 with default Mouse.
300,292 with default Mouse.
300,292 with default Mouse.
Calibrated the Mouse to 300,300..
300,300 with Hy's Mouse.
299,300 with Hy's Mouse.
298,300 with Hy's Mouse.
297,300 with Hy's Mouse.
296,300 with Hy's Mouse.
295,300 with Hy's Mouse.
295,300 with Hy's Mouse.
295,300 with Hy's Mouse.
295,300 with Hy's Mouse.
295,300 with Hy's Mouse.
Calibrated the Mouse to 300,300..
300,300 with default Mouse.
300,299 with default Mouse.
300,298 with default Mouse.
300,297 with default Mouse.
300,296 with default Mouse.
300,295 with default Mouse.
300,294 with default Mouse.
300,293 with default Mouse.
300,292 with default Mouse.
300,292 with default Mouse.
Current one in SRL is crazy, eh? ;O
Successfully executed

-.-" i got Razer Diamondback 3G

Optical Mouse for me, please tell me why it would effect the script with what type of mouse are using.

Mouse has been fixed, if I use the fixed mouse as in the Dev SRL:

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.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.
300,300 with default Mouse.

etc.

So I was right, too lazy to test :p

From: Hy71194
Are you sure you did not fake that? :rolleyes: It works exactly fine for me. Just make sure you do not touch your mouse after it moves it. Hit run and make sure your mouse is not being touched/moving at all.

As I already explained in the other topic, ReleaseMouse and HoldMouse have no bugs.

All right, thanks for fixing Markus. Good to know it works fine now, may you post it please?

{*******************************************************************************
procedure Mouse(mousex, mousey, ranx, rany: Integer; left: Boolean);
By: Mutant Squirrle, with a small fix by 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);
  HoldMouse(b, 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;

@Markus: Make the a := a + 1; into an Inc(a) please and I will be happy :D

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,300 with default Mouse.
302,300 with default Mouse.
303,300 with default Mouse.
304,300 with default Mouse.
305,300 with default Mouse.
306,300 with default Mouse.
307,300 with default Mouse.
308,300 with default Mouse.
309,300 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,300 with default Mouse.
302,300 with default Mouse.
303,300 with default Mouse.
304,300 with default Mouse.
305,300 with default Mouse.
306,300 with default Mouse.
307,300 with default Mouse.
308,300 with default Mouse.
309,300 with default Mouse.
Current one in SRL is crazy, eh? ;O
Successfully executed

*whistles* Lazer mousie