SRL Archive - Other Scripts

Well, here is a mouse locker i invented. It uses forms, and you'll have to read the instructions form before continuing otherwise you'll have no idea how to stop this script.

It will keep moving the mouse (or clicking) at the centre of the screen. You can select different resolutions too, so if you have a resolution of 1024 x 768 pixels (like me) it will move the mouse to the centre of the screen and it will leave it there.

UPDATE TRACKER:
-* Version 1.1[INDENT]- Can now choose clicking functions. Added progress report.[/INDENT]
-* Version 1.2[INDENT]- Can now choose which Function Key to press to stop the script. Now includes a warning for Silent Mouse to be off.[/INDENT]

The script is uploaded so you have to be registered to use and to download it.

Post your progress reports to see how long you ran this script for. Here is the record (By Me):

--------------------------------------------------------------------
You have successfully used this script to lock your mouse.
  Dimensions Set: 1024 x 768
  You had set Clicking the Mouse to: Yes
  This script has been running for 87296 milliseconds.
--------------------------------------------------------------------

Enjoy!

the function sounds cool, but what kind of use does it have?

WOW, I thought it would kinda be like you trying to move the mouse while script running (you could try but wouldn't have too much control) but this is prety nice. I can move the mouse crazzily and I hardly see it move before it goes back to the spot it is locked at. Good work.

rofl, it said to read instructions on form so i ran it got stuck :p so i ctrl + alt + deleted it and used tab and arrow keys to shut it down :p

Lol looks fun, and i like the formy :). Lmao, i locked the mouse and stopped my dad from using the computer, he was so mad lmfao!

You don't see it move because it uses MoveMouse. When you use SCAR, it does extra computer instructions in-between.

From: Dan Cardin
rofl, it said to read instructions on form so i ran it got stuck :p so i ctrl + alt + deleted it and used tab and arrow keys to shut it down :p

Idiot :p

Maybe i better use ClickMouse so you can't deactivate it, only via the Function Key or only by the stop hotkey.

Added update! Now version 1.1 is out, Dowload the new one.

program new;
begin
  repeat
    MoveMouse(529, 346);
  until(False);
end.

I did that and it did the exact same thing. Mouse frozen, had to alt f4 it.

From: richk1693

program new;
begin
  repeat
    MoveMouse(529, 346);
  until(False);
end.

I did that and it did the exact same thing. Mouse frozen, had to alt f4 it.

Yeah, but you have to set those coordinates manually, while this script does it automatically :p

program New;
var x1,y1,x2,y2:integer;
begin
GetSelf.WindowState := wsMinimized;
MoveMouse(-1,-1);
GetMousePos(x1,y1);
MoveMouse(40000,40000);
GetMousePos(x2,y2);
repeat
   MoveMouse((x1+x2)/2,(y1+y2)/2);
   until False;
end.

Mine's automatic-er :p

From: Widget

program New;
var x1,y1,x2,y2:integer;
begin
GetSelf.WindowState := wsMinimized;
MoveMouse(-1,-1);
GetMousePos(x1,y1);
MoveMouse(40000,40000);
GetMousePos(x2,y2);
repeat
   MoveMouse((x1+x2)/2,(y1+y2)/2);
   until False;
end.

Mine's automatic-er :p

Err Hemm - That ^^ did not move my mouse anywhere. Nice try though :p lol. Besides i wanted it to use forms.

Heh instead user have to set resolution you can do this…

GetClientDimensions(x, y);
x:= x div 2;
y:= y div 2;

And now movemouse(x,y) moves it to center :)

But client needs to be desktop…when you open scar it is…

Added Update - Version 1.2 now allows you to choose which function key to quit upon. Download newer one

From: Negaal
Heh instead user have to set resolution you can do this…

GetClientDimensions(x, y);
x:= x div 2;
y:= y div 2;

And now movemouse(x,y) moves it to center :)

But client needs to be desktop…when you open scar it is…

Well, i guess you could do this:

program Locker;

const
  Click = True;  //Use instant clicking to disable task manager (This may
                    // (cause lag).

var
  x, y : integer;

begin
  GetClientDimensions(x, y);
  x:= x div 2;
  y:= y div 2;
  GetSelf.Hide;
    repeat
      if(Click) then ClickMouse(x,y,True) else MoveMouse(x,y);
    Until(IsFKeyDown(3))
  GetSelf.Show;
end.

But i wanted a form style setting. And thanks :) I never knew that there was a GetClientDimensions procedure and i also never knew that the first client upon opening SCAR is your Desktop.

i made on a while ago for my laptop (my dad had a boot disk to crack my password) so i just left a similar one (basic) on, but somthing i never could figure out is how t ototaly make mouse movements opposite, so up would be down etc. or even applying a hook to movement so to move left you would have to start lower or higher that would just piss people off

if you could make the mouse movement completely backwards then all they'd have to do is turn the screen upside down, which i think is like alt+crtl+uparrow?

maybe not :( i dont know how to do iton this computer but i did it on my school comp :). (a backwards mousemover would be way cooler..cuz u can really do anything with this other than not move the mouse :p)

From: Dan Cardin
if you could make the mouse movement completely backwards then all they'd have to do is turn the screen upside down, which i think is like alt+crtl+uparrow?

maybe not :( i dont know how to do iton this computer but i did it on my school comp :). (a backwards mousemover would be way cooler..cuz u can really do anything with this other than not move the mouse :p)

you can rotate your windows? :O

anyways: Nice forms ;) keep up the good work! :)

EDIT: I tryed to make a upside down program, it didnt work…

program New;
var x1, y1, x2, y2 : Integer;
begin
  wait(1000);
  GetMousePos(x1, y1)
  repeat
  wait(10)
  GetMousePos(x2, y2)
  if (x1 > x2) then
  begin
    movemouse(x2 - 2, y2);
  end;
  if (x2 > x1) then
  begin
    movemouse(x2 - 2, y2);
  end;
  if (y1 > y2) then
  begin
    movemouse(x2, y2 - 2);
  end;
  if (y2 > y1) then
  begin
    movemouse(x2, y2 - 2);
  end;
  until(false)
end.

Opposite mouse movements are way better ;)

Program Oppomouse;
  
Procedure Main;
Var
  x,x1,x2,y,y1,y2,a,b: Integer;
  
Begin
  GetClientDimensions(a,b);
  Repeat
    GetMousePos(x1,y1);
    Wait(1);
    GetMousePos(x2,y2);
    x:=x1+(x2-x1)*-1;
    If(x=0) Then x:=1;
    If(x=a-1) Then x:=a-2;
    y:=y1+(y2-y1)*-1;
    If(y=0) Then y:=1;
    If(y=b-1) Then y:=b-2;

    MoveMouse(x,y);
  Until(IsFKeyDown(7))
End;
Begin
  Main;
End.

(press f7 if you can't stop it)
Just gets the difference between the place where a mouse has been then times' it by -1 so it goes the other way. Also has built in support in case you get stuck on the edges.

From: mixster05
Opposite mouse movements are way better ;)

Program Oppomouse;
  
Procedure Main;
Var
  x,x1,x2,y,y1,y2,a,b: Integer;
  
Begin
  GetClientDimensions(a,b);
  Repeat
    GetMousePos(x1,y1);
    Wait(1);
    GetMousePos(x2,y2);
    x:=x1+(x2-x1)*-1;
    If(x=0) Then x:=1;
    If(x=a-1) Then x:=a-2;
    y:=y1+(y2-y1)*-1;
    If(y=0) Then y:=1;
    If(y=b-1) Then y:=b-2;

    MoveMouse(x,y);
  Until(IsFKeyDown(7))
End;
Begin
  Main;
End.

(press f7 if you can't stop it)
Just gets the difference between the place where a mouse has been then times' it by -1 so it goes the other way. Also has built in support in case you get stuck on the edges.

Now that is good ^^.

P.S. Mixter05, have you had previous experience in Pascal language or any other harder/similar language? Because i have noticed and you're good for a new-comer.

try this, it's slightly funny :) minimize scar and no one but you will be able to get on the comp unless the know they special key :p

program GetAwayFromMyComp;
begin
  repeat
    MoveMouse(Random(500), Random(500));
    SendArrow(Random(4));
  until(IsFKeyDown(12))
end.

~RM<3

A password system would be cool. Harder to "break" than just hitting the correct F-key.. A raged nub can easily manage to accidentally do that while bashing the keyboard.

From: Dan Cardin
if you could make the mouse movement completely backwards then all they'd have to do is turn the screen upside down, which i think is like alt+crtl+uparrow?

right Alt key + arrow key down.
Nice mouse Locker :) after i stopped my comp was still clicking :p

If you did want it to have a password protection to stop it, I believe there is a built in one called Ctr+Alt+S, otherwise you could just add a couple more 'IsKeyDown()' or 'IsFKeyDown()' into the until and it would be nearly impossible for them to end by randomly hitting the keyboard (Just assuming your script uses a repeat until(IsFkeyDown(keychosen))).

[Off topic]

From: IP-Drowner
P.S. Mixter05, have you had previous experience in Pascal language or any other harder/similar language? Because i have noticed and you're good for a new-comer.

I've only got basic knowledge of php and html outside of scar. I just learn things quickly ;)
[/Off topic]