Moving a sphere with the mouse

[Azan]

3D code

Graphics3D 800,600
SetBuffer BackBuffer()

Global cam = CreateCamera()
	RotateEntity cam,90,0,0
	MoveEntity cam,0,0,-20
	CameraClsColor cam,0,0,0
	
light=CreateLight()
ball=CreateSphere(44)
x#=-405
y#=-405
While Not KeyHit(1)
	mxs#=MouseXSpeed()
	mys#=MouseYSpeed()
	x#=x#+mxs#
	y#=y#+mys#
	MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
	PositionEntity ball,x#/15,0,-y#/15
	RenderWorld
	VWait
	Flip False
Wend
End