BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Updating mouse coordinates when mouse leaves window", by cyberseth

With the help of a userlib, shows how to continue checking for mouse position even when mouse has gone outside of the window area. Important for windowed games!

Code

; ADD THIS TO A USERLIB CALLED "user32.decls" AND PLACE IT IN YOUR
; BLITZ "USERLIBS" FOLDER...
;
; .lib "user32.dll"
; GetCursorPos(pt*)

Global mx, my, oldmx, oldmy, oldptx, oldpty
Type point
    Field x
     Field y
End Type

Graphics 640,480,0,2  ; windowed mode
SetBuffer BackBuffer()

While KeyHit(1)=0
     GetMouseCoords()
     ; mx,my are your new mouse coordinates
     Cls
     Text 10,10, mx + " , " + my
     If mx<0 Or my<0 Or mx>=GraphicsWidth() Or my>=GraphicsHeight() Then Text 10,25,"MOUSE OUTSIDE SCREEN!"
     Flip
Wend

Function GetMouseCoords()
     Local locmx, locmy, ptx, pty
     pt.point = New point
     locmx = MouseX()
     locmy = MouseY()
     GetCursorPos(pt)    ;<-- screen mouse coordinates

If locmx<>oldmx Or locmy<>oldmy Then
          ; MouseX(),MouseY() changed, so we've moved the mouse inside
          ; the window area.
          mx = locmx
          my = locmy
     Else
          ; MouseX(),MouseY() haven't changed, so let's see if ptx,pty
          ; have changed (the "GLOBAL" mouse coordinates)
          mx = mx + pt\x - oldptx
          my = my + pt\y - oldpty
    EndIf
    
    ; Update "old positions" for next time round
    oldmx  = locmx
    oldmy  = locmy
    oldptx = pt\x
    oldpty = pt\y

Delete pt  ; tidy up
    Return
End Function

Code software created by Krylar's Kreations