ChatterBox

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Mortifer Nex

Open in online IDE

Graphics 800,600,0,1
AppTitle "Crosshair"
While Not KeyDown(1)
Color 255,255,255
Text 1,1, "Hold down the two mouse buttons and space and move the mouse around."
While MouseDown(1) And MouseDown(2) And KeyDown(57)
Cls
Color 255,0,0
Line MouseX(),0,MouseX(),600
Color 0,0,255
Line 0,MouseY(),800,MouseY()
Color 0,255,0
Text 500,25, "Mouse Position: x:" + MouseX() + " y:" + MouseY()
Delay 25
Cls
Wend
Wend
End