Graphics 800, 600, 0, 2

SetBuffer BackBuffer(  )

Global x# = 300.0, y# = 300.0
Global player1y = 300
Global player2y = 300
Global winkel# = Rnd( 0, 359 )
Global speed# = 10
Global player = LoadImage("player.png")
Global player2 = LoadImage("player2.png")
Global ball = LoadImage("ball.png")
Global start = 0

While Not KeyHit( 1 )
   
    Cls
   
   If KeyHit(57) Then
      start = 1
      x# = 300.0
      y# = 300.0
      
   End If
   
   DrawImage player,0,player1y
   DrawImage player2,790,player2y
   DrawImage ball,x#-5, y#-5
   
   If start = 1 Then
   
    x# = x# + Cos( winkel# ) * speed#
    y# = y# + Sin( winkel# ) * speed#
   
    If y# > 600 Or y# < 0
      
        winkel = 360 - winkel#
      
    EndIf
   
   If x# > 800 Or x# < 0 Then
      ; start = 0
   End If
   
   If KeyDown(17) And player1y > 0 Then player1y = player1y - 5
   If KeyDown(31) And player1y < 500 Then player1y = player1y + 5
   If KeyDown(200) And player2y > 0 Then player2y = player2y - 5
   If KeyDown(208) And player2y < 500 Then player2y = player2y + 5
   
    If ImagesCollide(player,0,player1y,frame1,ball,x#-5,y#-5,frame2) Or ImagesCollide(player,780,player2y,frame1,ball,x#-5,y#-5,frame2) Then
      
        winkel# = 180 - winkel#
      
    EndIf
   
   
End If
   
    Flip
   
Wend

If ImagesCollide(player,0,player1y,frame1,ball,x#-5,y#-5,frame2) Or ImagesCollide(player,780,player2y,frame1,ball,x#-5,y#-5,frame2) Then