start:
GraphicsWindow.Show()
x1 = GraphicsWindow.MouseX
y1 = GraphicsWindow.MouseY
Program.Delay(10)
x2 = GraphicsWindow.MouseX
y2 = GraphicsWindow.MouseY
if x1 <> x2 and y1 <> y2 Then
TextWindow.WriteLine("mouse is moving")
Else
TextWindow.WriteLine("mouse is still")
EndIf
Goto start
GraphicsWindow.Show()
x1 = GraphicsWindow.MouseX
y1 = GraphicsWindow.MouseY
Program.Delay(10)
x2 = GraphicsWindow.MouseX
y2 = GraphicsWindow.MouseY
if x1 <> x2 and y1 <> y2 Then
TextWindow.WriteLine("mouse is moving")
Else
TextWindow.WriteLine("mouse is still")
EndIf
Goto start
No comments:
Post a Comment