SRL Archive - Test corner

Well, I kinda redid it. Idk how close it is to the other one because i didn't even look at it but here it is, see how you like it.

procedure PickupMouse2;
var
  P: TPointArray;
  I, lX, X, Y, l: Integer;
  Increase: boolean;
begin
  GetMousePos(X, Y);
  lX:= X;
  if (random(10) < 4)then Increase:= true;
  if (Increase)then
  begin
    for I:= Y downto Round(Abs(Y - random(225)))-210 do
    begin
      if (Random(6) < 4)then continue;
      SetArraylength(P, Length(P)+1);
      P[High(P)].x:= Round(Abs(lX+random(4)-random(4)));
      P[High(P)].y:= I;
      lX:= P[High(P)].x;
    end;
  end else
  begin
  for I:= Y to Round(Abs(Y + random(225)))+210 do
    begin
      if (Random(6) < 4)then continue;
      SetArraylength(P, Length(P)+1);
      P[High(P)].x:= Round(Abs(lX+random(4)-random(4)));
      P[High(P)].y:= I;
      lX:= P[High(P)].x;
    end;
  end;
  for I:= 0 to High(P) do
  begin
    MoveMouse(P[i].x, P[i].y);
    if(random(2) = 1)then continue;
    wait(1);
  end;
  MMouse(x, y, 0, 0);
end;

Pretty nice…tested…I think mouse won't move that much but oke…

1337'st PickUpMouse would be:

Getmousepos(x,y)
mmouse(x,y-15,5,5);
mmouse(x,y+5,5,5);

Lolz, something like that…:D

Kidding…

I think the mouse wouldn't move that much…

but gj anyway

Lol. Make it click left as it moves up or something :p

Well when i made pickupmouse a year or so ago…. I did a little bit of testing of how long the mouse stays up and when it sets down… all of that…

{*******************************************************************************
procedure PickUpMouse;
By: dark_sniper
Description: Acts just like you picked your mouse off the pad...
then sets it back down.
*******************************************************************************}

procedure PickUpMouse;
var
  cx, cy, XX, YY: Integer;
begin
  GetMousePos(cx, cy);
  XX := cx;
  YY := cy;
  case Random(2) of
    0: MMouse(cx - 3 - Random(5), cy - 8 - Random(17), 0, 0);
    1: MMouse(cx + 3 + Random(5), cy - 8 - Random(17), 0, 0);
  end;
  Wait(1131 + Random(358));
  case Random(2) of
    0: MMouse(XX + 3 + Random(5), YY + 8 + Random(9), 0, 0);
    1: MMouse(XX - 3 - Random(5), YY + 8 + Random(9), 0, 0);
  end;
end;

not near as complicated.. but then again it don't need to be :p

Can Java detect hardware? Laser mice move more sharply and more when picked up.

yeah i have a laser mouse thats why. It should be called slide mouse i guess cause you slide it whenever you pick up.

jagex cant detect your hardware so it doesent matter. i think it is possible to do so but i think it classes as a breach of our personal privacy imo so i doubt they can