Mouse movement woes

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.

TomToad

Are you trying to do something like this?

Graphics 800,600

Type TOval
 Field X:Float
 Field Y:Float

 Method Move()
  X :+ .01*(MouseX() - 400)
  If X < 0 Then X = 0
  If X > 799 Then X = 799
  Y :+ .01*(MouseY() - 300)
  If Y < 0 Then Y = 0
  If Y > 599 Then Y = 599
 End Method

 Method Draw()
  DrawOval x-10,y-10,20,20
 End Method
End Type

Local Oval:TOval = New TOval

While Not KeyHit(KEY_ESCAPE)
 Cls
 Oval.Move()
 Oval.Draw()
 Flip 1
Wend