Mouse

Mouse routines.

WindMouse

procedure WindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);

Note

by Benland100

Example:

MMouse

procedure MMouse(x, y, rx, ry: integer);

Moves the mouse.

Note

by Benland100, laptop mouse by Hobbit (and nielsie95)

Example:

MouseAction

function MouseAction(left: boolean): integer;

Converts the (SCAR) boolean for mouse button the the Simba integer for the button

Note

by Simba development

Note

This should probably be removed.

Example:

ClickMouse2

procedure ClickMouse2(left : boolean);

Clicks the mouse in a human way on the current mouse spot.

Note

by SRL Community

Example:

Mouse

procedure Mouse(mousex, mousey, ranx, rany: Integer; left: Boolean);

Moves then clicks mouse.

Note

by Mutant Squirrle, with a small fix by hy71194

Example:

SleepAndMoveMouse

procedure SleepAndMoveMouse(Time: Integer);

Waits for specified time and moves mouse around like bored human would.

Note

by RsN

Example:

IdleTime

procedure IdleTime(Time, Rand: integer; Gravity: extended);

Randomly moves the mouse (Rand, and Gravity) for Time milliseconds

Note

by BenLand100

Example:

SpiralMouseMulti

function SpiralMouseMulti(var fx, fy: Integer; x1, y1, x2, y2: Integer; UpText: TStringArray; PpC, aInc: Integer): Boolean;

Spirals the mouse in a circle from the center of the defined box. It will continue to spiral until it finds a spiral completely outside the box, always skipping points outside. Returns the occurance of the first occurance of UpText into fx, fy. Takes multiple UpTexts as a TStringArray. PpC: The number of pixels to increase per spiral. aInc: The number of stops to make around each spiral. Takes some testing to get the right combination of PpC and aInc.

Note

by Nava2

Example:

SpiralMouse

function SpiralMouse(var fx, fy: Integer; x1, y1, x2, y2: Integer; UpText: String; PpC, aInc: Integer): Boolean;

Spirals the mouse in a circle from the center of the defined box. It will continue to spiral until it finds a spiral completely outside the box, always skipping points outside. Returns the occurance of the UpText into fx, fy. PpC: The number of pixels to increase per spiral. aInc: The number of stops to make around each spiral. Takes some testing to get the right combination of PpC and aInc.

Note

by Nava2

Example:

DidClick

function DidClick(Red: Boolean; Time: integer): boolean;

Checks for the X after a click, Times Out after Time.

Note

by Rasta Magician

Example:

DidRedClick

function DidRedClick: Boolean;

Checks for the Yellow X after a Click, Times out after 500 ms

Note

by Rasta Magician

Example:

DidYellowClick

function DidYellowClick: Boolean;

Checks for the Yellow X after a Click, Times out after 500 ms

Note

by Rasta Magician

Example:

MouseOval

procedure MouseOval(cx, cy, mx, my, clickType: Integer);

Clicks a random point within an oval shape. The size of the oval is defined by cx, cy, mx and my and clickType takes same parameters as MouseBox.

Note

by mixster

Example:

MouseCircle

procedure MouseCircle(MidX, MidY, Radius, clickType: Integer);

Same as MouseOval, but clicks within a circle instead.

Note

by mixster

Example:

MouseBoxEx

procedure MouseBoxEx(x1, y1, x2, y2: Integer; Dist,ClickType: Integer);

Does mouse stuff (ClickType), and uses a point that is within Dist from the closest point between mouse and the box.

Note

by Raymond

Example:

DragMouse

procedure DragMouse(StartX, StartY, SRandX, SRandY, EndX, EndY, ERandX, ERandY: Integer);

Leftclicks StartX, StartY and drags mouse to EndX, EndY.

Note

by NaumanAkhlaQ

Example: