SRL Archive - SRL Archives

(this was designed to be like the new toshiba flip screen labtop)

//This is for computers with touch screen.
//it instantly moves the mouse close to the spot then humanly ...
  //moves it the rest of the way there.
Procedure PenMouse(XX, YY, RX, RY : Integer; Left : Boolean);
Var
  XA, XB, YA, YB : Integer;

begin
  GetMousePos(XA, YA);
  XB:=XX;
  YB:=YY
  If (XX > XA) and (YY > YA) Then Begin
    XX:= XX - 30 - Random(30);
    YY:= YY - 30 - Random(30);
  end;

  If (XX < XA) and (YY > YA) Then Begin
    XX:= XX + 30 + Random(30);
    YY:= YY - 30 - Random(30);
  end;

  If (XX > XA) and (YY < YA) Then Begin
    XX:= XX - 30 - Random(30);
    YY:= YY + 30 + Random(30);
  end;

  If (XX < XA) and (YY < YA) Then Begin
    XX:= XX + 30 + Random(30);
    YY:= YY + 30 + Random(30);
  end;

  MoveMouse(XX, YY)
  Mouse(XB, YB, RX, RY, Left)
end;

(just got bored and decided to do this.)

//clicks the mouse left or right and waits ..
// as long as you wish .
Procedure ClickWait( Time, RTime : Integer; Left : Boolean );
var
  XX, YY : Integer;
begin
  GetMousePos(XX, YY)
  HoldMouse(XX, YY, Left)
  Wait(Time + Random(RTime) )
  ReleaseMouse(XX, YY, Left)
end;

(this was made after i examined my own mouse movements.)

//HMouse uses mmouse and mouse from SRL.
// this just moves the mouse like mmouse and mouse does..
// but torwards the end it acts more like a human.
// i remeber myself doing this quite frequantly...
// i would mis where the mouse would be then move it...
// to the spot i wanted it to be..

Procedure HMouse(XX, YY, RX, RY : Integer; Left : Boolean);
Var
  A, C, XA, YA : Integer;
begin
  
  Case Random(2) of
  
    0: C:= 0;
    1: C:= 1;
  end;
  
  A:=0;
  repeat
    XA:=Randomize(XX, 50)
    YA:=Randomize(YY, 50)
    MMouse(XA, YA, 10, 10)
    A:= A + 1;
  until(A >= C)
  
  wait(1 + Random(100))
  
  Mouse(XX, YY, RX, RY, Left);
end;

also got some more good ideas on mouse movements to optimize it being human like.


warning:

i do not know how runescape will take penmouse (i am testing on nub ill wait a week and report back) :p

From: Dark_Sniper

i do not know how runescape will take penmouse (i am testing on nub ill wait a week and report back) :p

if u do get banned, just tell them u were using screen thing whatever, should unban u..

Dark, should my lowsy MMouseTPoint and MouseTPoint be posted here? Or want me to send em u?
Or u dont give a —-?