Sorry your browser is not supported!

`  Project: Keep Mouse In Area
`  Created: 30/08/2005 18:53:45
`  Author: CodemanV with a little help from TDK_Man :)
`
` A basic demonstration on how to keep the mouse cursor in the screen
`
` Might be handy for running windowed apps or for zooming in on a control panel
` or something

` !!! KNOWN BUG !!!
` the cursor starts skipping and sometimes escapes detection
` Too tired to sort it out now, just a few more checks should fix it

`  ***** Main Source File *****

` Initialize some default variables and settings
SYNC ON

backcolor = RGB(0,0,0)
BACKDROP ON
COLOR BACKDROP backcolor

CLS
` Boolean values for quitting game
FALSE = 0
TRUE = 1

` Sets the detection range for edge of screen
   ScreenEdge = 5
`This gives the detection sub-routine in the program a bit of warning that the cursor
`is about to leave the area and act on it before the cursor actually leaves the screen.
`5 pixels is nothing really but just enough to help the detection process work more efficiently.

` Set the acceptable ranges for mouse cursor coordinates
` Sets Left
   MinX = ScreenEdge
` Sets Right
   MaxX = Screen Width() - ScreenEdge
` Sets Top
   MinY = ScreenEdge
` Sets Bottom
   MaxY = Screen Height() - ScreenEdge

`Make sure the program isn't set to quit
QUIT = FALSE

` Repeat main program loop until ESCAPE is pressed
REPEAT
   GOSUB KeepMouseCursorInArea
   GOSUB DisplayMouseValues
`FASTSYNC seems to work better than SYNC for this example
   FASTSYNC
   QUIT = ESCAPEKEY()
UNTIL QUIT=TRUE
END

KeepMouseCursorInArea:
` Check if cursor is going too far left
   If (MouseX() < MinX) Then Position Mouse MinX, MouseY()
` Check if cursor is going too far right
   If (MouseX() > MaxX) Then Position Mouse MaxX, MouseY()
` Check if cursor is going too far up
   If (MouseY() < MinY) Then Position Mouse MouseX(), MinY
` Check if cursor is going too far down
   If (MouseY() > MaxY) Then Position Mouse MouseX(), MaxY
RETURN

DisplayMouseValues:
` This is how I like to organise and display data on screen
` By using variables as opposed to actual values I personally find
` that editing and debugging is a lot easier

`Center of screen value
   textX = Screen Width() / 2
`Vertical spacing for text display
   textY = 14

` Store the text displays in an array so we can use a loop to display them all
   DIM DisplayText$(6)

   DisplayText$(0) = "MouseX = " + STR$( MouseX() )
   DisplayText$(1) = "MouseY = " + STR$( MouseY() )

` Could set these before start of main program loop
` but this way allows you to change the range
` so a player can click on a control panel and
` keep cursor in that area until ` the panel exit button is clicked
` the following arrays would then be variable values not static values
   DisplayText$(2) = "MinX = " + STR$(MinX)
   DisplayText$(3) = "MinY = " + STR$(MinY)
   DisplayText$(4) = "MaxX = " + STR$(MaxX)
   DisplayText$(5) = "MaxY = " + STR$(MaxY)

` Loop through all the display values and neatly display them
   FOR lwp1 = 0 to 5
      CENTER TEXT textX, CalcY(lwp1), DisplayText$(lwp1)
   NEXT lwp1
RETURN

`CalcY takes the loop counter (lwp1) and converts it into
`a Y-coordinate value which evenly spaces out the text vertically
FUNCTION CalcY(index)
   CalcY = (Screen Height() / 3) + (index * 14)
ENDFUNCTION CalcY

` This method isn't really necessary for a small example like this but
` using these principles in small projects helps implementing them into bigger projects
` Also I think local variables should be used more in local loops
` "This is a local loop in a local subroutine - we'll have no globals here!"