Mouse going off window

Hey, i'm trying to make this little paddle mouse controled, and my problem is, the mouse goes off the window to easy, is there any way how i can lock the mouse in the center of the window and still use it to move this paddle around?

heres the code it should work with no media:

;Breakout by Yahfree
;2007-04-4 -> ????-??-(?)?
AppTitle "Breakout by Yahfree","Are you sure?"

HidePointer

;sets the graphics mode, and the setbuffer
Graphics 800,600,32,2
SetBuffer BackBuffer()

;Globalized stuff
Global paddle, paddlex=380, paddley=560
Global ball,ballx=380, bally=580, ballxdir#=0, ballydir=-1, move=1
;Global blope=LoadSound("Beep.wav")

;Constant numbers that never change..
Const ESC=1, RIGHTARR=205, LEFTARR=203, SPACE=57, MOUSE1=1


;Mid handles all of the images and creates a image called paddle.
AutoMidHandle True
   paddle=CreateImage(70,15)
   ball=CreateImage(10,10)

;draws on the empty image container..
SetBuffer ImageBuffer(paddle)
   Rect 0,0,70,15,1
SetBuffer ImageBuffer(ball)
   Oval 0,0,10,10,1
SetBuffer BackBuffer()

;!@!@!@!@!@!@!@!@!@!@!@!@!@!@
;!@!@!@!@ MAIN LOOP !@!@!@!!@
;!@!@!@!@!@!!@!@!@!@!@!@!@!@!
While Not KeyHit(1)
Cls


addplayercontrols()

DrawImage paddle,paddlex,paddley
DrawImage ball,ballx,bally

addcollisions()


;small delay in the loop for less slow down.
;flips, ends the loop and termanates the program..
Delay 5
  Flip
Wend
End

;Include "Functions.bb"

;Player controls
Function addplayercontrols()

;Balls spot if move=1
If move=1 ballx=MouseX()-35
If move=1 And ballx<35 ballx=35
If move=1 bally=paddley-15
If move=1 ballydir=-1 ballxdir=0

;Move=2 if the spacebar is pressed
If KeyHit(SPACE) Or MouseHit(MOUSE1)
   move=2
End If

;Paddle controls
paddlex=MouseX()-35
If paddlex<35 paddlex=35

;calls the moveball function if move=2
If move=2
   moveball()
End If

End Function

;Moving the ball
Function moveball()

bally=bally+ballydir*6
ballx=ballx+ballxdir*6

If bally<0 ballydir=1 ;PlaySound(blope)
If bally>600 move=1 ballydir=-1
If ballx<0 ballxdir=1 ;PlaySound(blope)
If ballx>800 ballxdir=-1 ;PlaySound(blope)

End Function

;All the games collisions..
Function addcollisions()

If ImagesCollide(paddle,paddlex,paddley,0,ball,ballx,bally,0)
ballxdir=(ballx - paddlex)*.025
ballydir=-1
;PlaySound(blope)
End If
End Function

as you can see the mouse can easly run off the screen leavin the player useless untill he gets it back on there, how can i lock it into a place?

MoveMouse to constantly position it in the screen centre?

but then i cant move the paddle, the paddle is based on the x of the mouse (mouse controled)

edit, right idea though, i want the mouse to be locked in like that but i want to still be able to control the paddle with the mouse

Yeah, you place it at the centre then see how far it has moved each frame -- you're after a relative value. I'll post an example if nobody else beats me to it.

Yes, first use x = x + MouseXSpeed() to move the paddle, then use MoveMouse 400, 300 to center the cursor.

Graphics 800,600,0,2
SetBuffer BackBuffer()
HidePointer
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
playerX=GraphicsWidth()/2

While Not KeyHit(1)
	playerX=playerX+MouseXSpeed()
	If playerX>(GraphicsWidth()-50) Then playerX=GraphicsWidth()-50
	If playerX<10 Then playerX=10
	MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
	Text playerX,500,"X---X"
	Flip : Cls
Wend

this doesnt work:

;Player controls
Function addplayercontrols()
MoveMouse 380,280

;Balls spot if move=1
If move=1 ballx=ballx+MouseXSpeed()
If move=1 And ballx<35 ballx=35
If move=1 bally=paddley-15
If move=1 ballydir=-1 ballxdir=0

;Move=2 if the spacebar is pressed
If KeyHit(SPACE) Or MouseHit(MOUSE1)
   move=2
End If

;Paddle controls
paddlex=paddlex+MouseXSpeed()
If paddlex<35 paddlex=35

;calls the moveball function if move=2
If move=2
   moveball()
End If

End Function

notice: paddlex=paddlex+MouseXSpeed()
and: If move=1 ballx=ballx+MouseXSpeed()
and: MoveMouse 380,280

Try:

;Breakout by Yahfree
;2007-04-4 -> ????-??-(?)?
AppTitle "Breakout by Yahfree","Are you sure?"

HidePointer

;sets the graphics mode, and the setbuffer
Graphics 800,600,32,2
SetBuffer BackBuffer()

;Globalized stuff
Global paddle, paddlex=380, paddley=560
Global ball,ballx=380, bally=580, ballxdir#=0, ballydir=-1, move=1
;Global blope=LoadSound("Beep.wav")

;Constant numbers that never change..
Const ESC=1, RIGHTARR=205, LEFTARR=203, SPACE=57, MOUSE1=1


;Mid handles all of the images and creates a image called paddle.
AutoMidHandle True
   paddle=CreateImage(70,15)
   ball=CreateImage(10,10)

;draws on the empty image container..
SetBuffer ImageBuffer(paddle)
   Rect 0,0,70,15,1
SetBuffer ImageBuffer(ball)
   Oval 0,0,10,10,1
SetBuffer BackBuffer()

;!@!@!@!@!@!@!@!@!@!@!@!@!@!@
;!@!@!@!@ MAIN LOOP !@!@!@!!@
;!@!@!@!@!@!!@!@!@!@!@!@!@!@!
While Not KeyHit(1)
Cls


addplayercontrols()

DrawImage paddle,paddlex,paddley
DrawImage ball,ballx,bally

addcollisions()


;small delay in the loop for less slow down.
;flips, ends the loop and termanates the program..
Delay 5
  Flip
Wend
End

;Include "Functions.bb"

;Player controls
Function addplayercontrols()

;Balls spot if move=1
If move=1 ballx=paddlex; NEW !!!!!!!!!!!!!!!!!!!!!!!
If move=1 And ballx<35 ballx=35
If move=1 bally=paddley-15
If move=1 ballydir=-1 ballxdir=0

;Move=2 if the spacebar is pressed
If KeyHit(SPACE) Or MouseHit(MOUSE1)
   move=2
End If

;Paddle controls
paddlex=paddlex+MouseXSpeed(); NEW !!!!!!!!!!!!!!!!!
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
If paddlex<35 paddlex=35

;calls the moveball function if move=2
If move=2
   moveball()
End If

End Function

;Moving the ball
Function moveball()

bally=bally+ballydir*6
ballx=ballx+ballxdir*6

If bally<0 ballydir=1 ;PlaySound(blope)
If bally>600 move=1 ballydir=-1
If ballx<0 ballxdir=1 ;PlaySound(blope)
If ballx>800 ballxdir=-1 ;PlaySound(blope)

End Function

;All the games collisions..
Function addcollisions()

If ImagesCollide(paddle,paddlex,paddley,0,ball,ballx,bally,0)
ballxdir=(ballx - paddlex)*.025
ballydir=-1
;PlaySound(blope)
End If
End Function

Ok, i see what i did wrong, thanks, one more thing, how do i get it so it doesnt keep going right, it doesnt stop..

edit, also the ball looks delayed on its position, it laggs behind when moving with the paddle

ok i fixed the first problem, still cant figure out why its delaying...

It's delaying because you are updating the ball's position before updating the paddle's position, making it lag a frame behind.

;Breakout by Yahfree
;2007-04-4 -> ????-??-(?)?
AppTitle "Breakout by Yahfree","Are you sure?"

HidePointer

;sets the graphics mode, and the setbuffer
Graphics 800,600,32,2
SetBuffer BackBuffer()

;Globalized stuff
Global paddle, paddlex=380, paddley=560
Global ball,ballx=380, bally=580, ballxdir#=0, ballydir=-1, move=1
;Global blope=LoadSound("Beep.wav")

;Constant numbers that never change..
Const ESC=1, RIGHTARR=205, LEFTARR=203, SPACE=57, MOUSE1=1


;Mid handles all of the images and creates a image called paddle.
AutoMidHandle True
   paddle=CreateImage(70,15)
   ball=CreateImage(10,10)

;draws on the empty image container..
SetBuffer ImageBuffer(paddle)
   Rect 0,0,70,15,1
SetBuffer ImageBuffer(ball)
   Oval 0,0,10,10,1
SetBuffer BackBuffer()

;!@!@!@!@!@!@!@!@!@!@!@!@!@!@
;!@!@!@!@ MAIN LOOP !@!@!@!!@
;!@!@!@!@!@!!@!@!@!@!@!@!@!@!
While Not KeyHit(1)
Cls


addplayercontrols()

DrawImage paddle,paddlex,paddley
DrawImage ball,ballx,bally

addcollisions()


;small delay in the loop for less slow down.
;flips, ends the loop and termanates the program..
Delay 5
  Flip
Wend
End

;Include "Functions.bb"

;Player controls
Function addplayercontrols()

;Paddle controls
paddlex=paddlex+MouseXSpeed()
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
If paddlex<35 paddlex=35
If paddlex>760 Then paddlex=760;NEW!!!!!!!!!!!!!!!!!!!!!!!

;MOVED-------------------------\/
;Balls spot if move=1             
If move=1 ballx=paddlex
If move=1 bally=paddley-15
If move=1 ballydir=-1 ballxdir=0
;------------------------------/\

;Move=2 if the spacebar is pressed
If KeyHit(SPACE) Or MouseHit(MOUSE1)
   move=2
End If



;calls the moveball function if move=2
If move=2
   moveball()
End If

End Function

;Moving the ball
Function moveball()

bally=bally+ballydir*6
ballx=ballx+ballxdir*6

If bally<0 ballydir=1 ;PlaySound(blope)
If bally>600 move=1 ballydir=-1
If ballx<0 ballxdir=1 ;PlaySound(blope)
If ballx>800 ballxdir=-1 ;PlaySound(blope)

End Function

;All the games collisions..
Function addcollisions()

If ImagesCollide(paddle,paddlex,paddley,0,ball,ballx,bally,0)
ballxdir=(ballx - paddlex)*.025
ballydir=-1
;PlaySound(blope)
End If
End Function

Thanks, it works perfectly now... thanks for the quick responce..

edit: last question, how do you make the code box on the forums scroll?

use: codebox /codebox instead of code /code

Hmmmm... everything works great but there is a small problem more like a inconvinice, even if the program is minimized or your not playing it, it likes to lock the mouse to the center of the screen.. any way to make it so it only locks the mouse down if the program is in use?

Ok, i found a quick fix for that problem, now i'm stumped, why is the mouse image lagging behind the mouse? on the "Imagescollide" example it follows the image perfectly.. this is my code for a main menu:

Function Mainmenu()
Graphics 800,600,32,2

selection=1

mainimage=LoadImage("mainmenu.png")
continue=LoadImage("Playbutton.png")
mouse=LoadImage("mouse.png")
MaskImage mouse,255,0,255



While selection=1
mouse_x=MouseX()
mouse_y=MouseY()
Cls


DrawImage mainimage,0,0
DrawImage continue,100,400
DrawImage mouse,mouse_x,mouse_y

If ImageRectCollide(continue,100,400,0,MouseX(),MouseY(),5,5) And MouseHit(1)
selection=2
End If

If KeyHit(1)
End
End If

Delay 5
Wend

EDIT: and yes i did try to take out the delay it doesnt change it