Mouse bouncer (Just made for fun)

[Acuena]

Hi!
Havent been active for a while.
Just made a useless script that bounses the mouse around.
Not tested on multiple monitors.
It's commented so it should be quite easy to se what evrything does

Important: You stop and exit the script by pressing s
Here is the code:

Spoiler

Code: Select all

#Persistent ;Prevent script from closing
CoordMode, Mouse, Screen ;Set the mouse coordmode to screen
WinGetPos,,, desk_width, desk_height, Program Manager ;Get the screen size
setTimer, mousemove , 1 ;Set a timer, with one miliscond delay
Random, dir, 1,4 ;Randomize the dir variable
spd = 1 ;Beginning speed 
return

mousemove:
{
	MouseGetPos, xpos, ypos ;Get current mouse posistion
	;Top side bounce
	if (dir = 1 and ypos = 0) ;Check if the mouse is moving up and to the left and hits the top of the screen
	{
		dir = 4 ;Change direction to Down and to the left
	}

	if (dir = 2 and ypos = 0)  ;Check if the mouse is moving up and to the right and hits the top of the screen
	{
		dir = 3 ;Change the direction to Down and to the right
	}

	;Left side
	if (dir = 1 and xpos = 0) ;Check if the mouse if moving up and to the left and hits the left side of the screen
	{
		dir = 2 ;Change direction to Up and to the right
	}
	 
	if (dir = 4 and xpos = 0) ;Check if the mouse is moving down and to the left and hits the left side of the screen
	{
		dir = 3 ;Change the direction to Down and to the right
	}

	; Right side bounces
	if (dir = 2 and xpos = desk_width - 1)  ;Check if the mouse is moving up and to the right and hits the right side of the screen
	{
		dir = 1 ;Change the direction to Up and to the left
	}
	 
	if (dir = 3 and xpos = desk_width - 1) ;Check if the mouse is moving Down and to the right and hits the right side of the screen
	{
		dir = 4 ;Change direction to Down and to the left
	}

	;Bottom side
	if (dir = 3 and ypos = desk_height - 1) ;Check if the mouse is moving Down and to the right and hits the bottom of the screen
	{
		dir = 2 ;Change direction to Up and to the right
	}
	 
	if (dir = 4 and ypos = desk_height - 1) ;Check if the mouse is moving Down and to the left and hits the bottom of the screen
	{
		dir = 1 ;Change the direction to Up and to the left
	}

	;Move the mouse
	if (dir = 1) ;Check if the mouse should move up and to the left
		{
			mousemove, -spd,-spd,1, R ;Move the mouse, relative to current location, up and to the left, with the speed indicated by the variable spd
		}

	if (dir = 2)
		{
			mousemove, spd,-spd,1, R ;Move the mouse, relative to current location, up and to the right, with the speed indicated by the variable spd
		}

	if (dir = 3)
		{
			mousemove, spd,spd,1, R ;Move the mouse, relative to current location, down and to the right, with the speed indicated by the variable spd
		}

	if (dir = 4)
		{
			mousemove, -spd,spd,1, R ;Move the mouse, relative to current location, down and to the left, with the speed indicated by the variable spd
		}
	spd++ ;Increese the speed each time the timer is run, comment this line to keep speed constant
}
s::exitapp ;Exit the script and stop moving the mouse

[geek]

Had to modify it a little bit to work in WINE on Linux (substituted A_ScreenWidth/height for the WinGet) and gave it a run.

http://i.imgur.com/IePpXRz.gifv

[metacognition]

Real life applications haha!

Nice little code

Also nice to see others dabble in porting scripts to wine... Several of my scripts have a wine version and a windows version...

[Acuena]

Hi!

I made some changes to the code, I don't know if it will work in WINE, I do not have it available here at the computer I am at now.
The changes are the following:

• Changed "WinGetPos,,, desk_width, desk_height, Program Manager ;Get the screen size" to:

  Code: Select all

  desk_width := A_ScreenWidth
  desk_height := A_ScreenHeight

  Added:

  Code: Select all

  k::Random, dir, 1,4 ;Randomize the dir variable
  

  Now you can press k to change the direction of the mouse by random the dir variable
  Added:

  Code: Select all

  numpadAdd::spd++ ;Increese the spd variable
  numpadSub::spd-- ;Decreese the spd variable
  

  Now you can press numpadadd and numpadsub to increese and decreese the movemnt speed.

[Acuena]

Added some more.

• Added a new key, t

  Code: Select all

  t::
  GetKeyState, state, LButton  ; Right mouse button.
  if state = D
  {
  	send, {lbutton up}
  }
  else
  {
  	send, {lbutton down}
  	}
  return
  

  It toggles the left mouse key, usefull if you want to draw some lines in a painting program.
  
  I also added this to the s key, making it check if the left mouse key is pressed and if it is, release it.

  Code: Select all

  GetKeyState, state, LButton  ; Right mouse button.
  if state = D
  {
  send, {LButton up}
  }
  

  /