SRL Archive - SRL Archives

First one is:

procedure CompassMMouse(Dx, Dy, RandX, RandY, Degrees, Direction, LowHigh: Integer);
var I, Cx, V, Cy, DirAdj, VertAdj, CMark: Integer;
  Path: TPointArray;
begin
  GetMousePos(Cx, Cy);
  Path := MakeMouseSplinePath(Cx, Cy, Dx, Dy, 7, 50, 40);
  repeat
    for I := 0 to Degrees / 10 do
    begin
      DirAdj := Direction;
      VertAdj := LowHigh;
      case DirAdj of
        1: begin
            case VertAdj of
              1: begin
                  KeyDown(VK_LEFT);
                  Wait(1 + random(1));
                  KeyDown(VK_UP);
                  Wait(10 + random(5));
                  KeyUp(VK_UP);
                  KeyUP(VK_LEFT);
                end;
              2: begin
                  KeyDown(VK_LEFT);
                  Wait(1 + random(1));
                  KeyDown(VK_DOWN);
                  Wait(10 + random(5));
                  KeyUp(VK_DOWN);
                  KeyUP(VK_LEFT);
                end;
            end;
          end;
        2: begin
            case VertAdj of
              1: begin
                  KeyDown(VK_RIGHT);
                  Wait(1 + random(1));
                  KeyDown(VK_UP);
                  Wait(10 + random(5));
                  KeyUp(VK_UP);
                  KeyUP(VK_RIGHT);
                end;
              2: begin
                  KeyDown(VK_RIGHT);
                  Wait(1 + random(1));
                  KeyDown(VK_DOWN);
                  Wait(10 + random(5));
                  KeyUp(VK_DOWN);
                  KeyUP(VK_RIGHT);
                end;
            end;
          end;
      end;
      MarkTime(CMark);
      while (TimeFromMark(CMark) < 10) do
      begin
        MMouse(Path[V].x, Path[V].y, RandX, RandY);
        V := V + 1;
      end;
    end;
  until (V = GetArrayLength(Path));
end;

As amazing as it sounds, it moves the mouse same time while rotating the compass!

Usage : CompassMMouse(1 + Random(550), 1 + Random(550), 200, 200, 180, Random(2), Random(2));

Next one iiiz :

procedure ImpatiencyEruption(Ms: Integer);
var FL: array[1..12] of Integer;
  KMark, F: Integer;
begin
  FL[1] := 112;
  FL[2] := 113;
  FL[3] := 114;
  FL[4] := 115;
  FL[5] := 116;
  FL[6] := 117;
  FL[7] := 118;
  FL[8] := 119;
  FL[9] := 120;
  FL[1] := 121
  FL[11] := 122;
  FL[12] := 123;
  MarkTime(KMark);
  while TimeFromMark(KMark) < MS do
  begin
    try
      F := Random(12);
      KeyDown(FL[F]);
      Wait(50 + Random(20));
      KeyUp(FL[F]);
      Wait(100 + Random(25));
    except
      F := Random(10);
    end;
  end;
end;

Usage : ImpatiencyEruption(1 + Random(5000));
Its good to use with totally random amount of time.

Third and the last one:

procedure HumanTab2(Tabs, LastTab: Integer);
var RealMouseSpeed, I: Integer;
begin
  RealMouseSpeed := MouseSpeed;
  MouseSpeed := (7 + Random(3));
  for i := 1 to Tabs do
  begin
    GameTab(1 + random(13));
  end;
  GameTab(LastTab);
  MouseSpeed := RealMouseSpeed;
end;

Usage: HumanTab2(1 + Random(13), 1 + Random(13));


Enjoy and comment! Try the first one, it looks kinda scary when compass and mouse move same time.

Wow this is nice…very nice. However, the name of the thread is a bit annoying :p

Thx, and it was ment to be annoying.

You're obsessed with 1337 talk today. Firstly this, then some other thread where you say: Gosh, I'm so st00pid..or something of the sort :p

Somedays it feels like u have to :D

I love the compass mouse that you made at my request :D. Thanks for doing that one. It really is helpful.

I love the compass mouse that you made at my request . Thanks for doing that one. It really is helpful.

Glad to hear :)