Global xmax=1024, ymax=768
Global yy=xmax/2-30,yy2=10
Global xx=xmax/2-30,xx2=758
Global xkugel=xmax/2,ykugel=ymax/2
Global score1=0
Global score2=0
Global winkel=0
Global geschwindigkeit=3
Global w=Rnd(0,360)
Graphics xmax,ymax,32,1
SetBuffer BackBuffer()
Global ball=LoadImage("C:\Users\David\Pictures\ball.bmp")
Global schl=LoadImage("C:\Users\David\Desktop\Ping Pong\gfx\schlaeger.bmp")
Global schlaeger2=LoadImage("C:\Users\David\Desktop\Ping Pong\gfx\schlaeger.bmp")
If Rnd(0,1)=1 Then winkel=Rnd(105,45) Else winkel=Rnd(315,225)

Function geschwindigkeit()
   If KeyHit(2) Then geschwindigkeit=geschwindigkeit+1
   If KeyHit(3) Then geschwindigkeit=geschwindigkeit-1
   If geschwindigkeit>=25 Then geschwindigkeit=25
   If geschwindigkeit<=1 Then geschwindigkeit=1
End Function

Function spieler()
   DrawImage schl,yy,yy2
   DrawImage schlaeger2,xx,xx2
      If KeyDown(203) Then
         yy=yy-3
      EndIf
      If KeyDown(205) Then
         yy=yy+3
      EndIf
      If KeyDown (30) Then
         xx=xx-3
      EndIf
      If KeyDown (32) Then
         xx=xx+3
      EndIf
      If yy<5 Then
         yy=5
      EndIf
      If yy>954 Then
         yy=954
      EndIf
      If xx<5 Then
         xx=5
      EndIf
      If xx>954 Then
         xx=954
      EndIf
End Function


Function ball()
DrawImage ball,xkugel,ykugel
xkugel=xkugel+Cos(w)*geschwindigkeit
ykugel=ykugel-Sin(w)*geschwindigkeit
End Function


Function abprallen()

      If ImagesCollide(schl,yy,yy2,0,ball,xkugel,ykugel,0) Then
         w=w*-1
         abweichung=2*(yy-xkugel)
         w=w-abweichung
      EndIf
      If ImagesCollide(schlaeger2,xx,xx2,0,ball,xkugel,ykugel,0) Then
         w=w*-1
         abweichung=2*(xx-xkugel)
         w=w+abweichung
      EndIf
      If xkugel<=0 Then
         w=180-w
      EndIf
      If xkugel>=1024 Then
         w=180-w
      EndIf

End Function

Function punkte()

      If ykugel<=-6 Then
         score1=score1+1
         xkugel=xmax/2
         ykugel=ymax/2
         If Rnd(0,1)=1 Then w=Rnd(105,45) Else w=Rnd(315,225)
      EndIf
      If ykugel>=774 Then
         xkugel=xmax/2
         ykugel=ymax/2
         score2=score2+1
         If Rand(0,1)=1 Then w=Rnd(105,45) Else w=Rnd(315,225)
      EndIf
Text 400,5  ,(score2+"       :       "+score1)   
End Function

;hauptschleife
While Not KeyDown (1)
geschwindigkeit()
spieler()
ball()
abprallen()
punkte()
If w<=0 Then w=w+360
If w>360 Then w=w-360
Flip
Cls
Wend

End

If ImagesCollide(schl,yy,yy2,0,ball,xkugel,ykugel,0) Then
    w=w*-1
    abweichung=2*(yy-xkugel)
    w=w-abweichung
EndIf