Graphics 1024,768,32,1
SetBuffer BackBuffer()

Local timer = CreateTimer(200)
Global brett1 = LoadImage("brett.bmp")
MidHandle brett1
Global brett2 = LoadImage("brett.bmp")
MidHandle brett2
Global ball   = LoadImage("ball.bmp")
MidHandle ball

Global x1%,y1%,x2%,y2%,xpos%,ypos%


Type Spieler
Field name$
Field leben%
Field Punkte%
End Type

Global Spieler1.Spieler
Global Spieler2.Spieler

Spieler1 = New Spieler
Spieler2 = New Spieler

xpos = 512
ypos = 384
x1=10
y1=350
x2=1000
y2=350

Spieler1\name$ = Input("Spieler1 Name : ")
Spieler2\name$ = Input("Spieler2 Name : ")

Spieler1\leben% = 3
Spieler1\Punkte% = 0
Spieler2\leben% = 3
Spieler2\Punkte% = 0

Repeat
Cls

Text 380,0 ,"Spieler1 Name: " + Spieler1\name$
Text 380,10, "Leben : " + Spieler1\leben%
Text 380,20, "Punkte: " + Spieler1\Punkte%
Text 380,728,"Spieler2 Name: "+ Spieler2\name$
Text 380,748,"Leben : "+ Spieler2\leben%
Text 380,738,"Punkte: " + Spieler2\Punkte%


Steuerung() ;Steuerfunktion für Bretter
Grenze()    ;Grenze für Grafiken
Ballmove()
DrawImage brett1,x1,y1
DrawImage brett2,x2,y2
DrawImage ball,xpos,ypos
Flip

Until KeyDown(1)

End

;Functionen
Function Steuerung()

If KeyDown(17) = 1 Then
   y1 = y1-3
End If
If KeyDown(31) = 1 Then
   y1 = y1+3
End If

If KeyDown(200) = 1 Then
   y2 = y2 -3
End If

If KeyDown(208) = 1 Then
   y2 = y2 +3
End If

End Function

Function Grenze()
If y1 > 726 Then
y1 = 726

End If
If y1 < 42 Then
y1 = 42

End If
If y2 > 726 Then
y2 = 726

End If
If y2 < 42 Then
y2 = 42



End If

End Function

Global iGrenze% = 42

Global xmax=1024,ymax=768
Graphics xmax,ymax,32,1
SetBuffer BackBuffer()

AppTitle "Ping Pong Stani"
Local timer = CreateTimer(200)
Global brett1 = LoadImage("brett.bmp") ;Spieler1brett
MidHandle brett1
Global brett2 = LoadImage("brett.bmp") ;Spieler2brett
MidHandle brett2
Global ball   = LoadImage("ball.bmp")  ;ball
MidHandle ball
Global x1%,y1%,x2%,y2%    ;Die ganzen x,y Koordinaten
Global bg=LoadImage("bg.bmp")

Type Spieler                           ;Erzeuge Spieler
Field name$
Field leben%
Field Punkte%
End Type

Global Spieler1.Spieler                 ;Erzeuge Spieler1,Spieler2
Global Spieler2.Spieler
Global treffer1 =25
Global treffer2 =999


Spieler1 = New Spieler
Spieler2 = New Spieler

x1=10                                  ;Position der Bretter
y1=350
x2=1014
y2=350

Spieler1\name$ = Input("Spieler1 Name : ") ;Namensabfrage
Spieler2\name$ = Input("Spieler2 Name : ")

Spieler1\leben% = 3                         ;Leben und punkte
Spieler1\Punkte% = 0
Spieler2\leben% = 3
Spieler2\Punkte% = 0

Type Balldaten
   Field xpos#   
   Field ypos#
   Field movex#
   Field movey#   
   Field speed#
   End Type




For a=1 To    1   
      balls.Balldaten=New Balldaten   
      balls\xpos#=Rand(600)+12      
      balls\ypos#=Rand(400)+12      
      balls\movex#=Rnd(2)-1            
      balls\movey#=Rnd(2)-1                  
      balls\speed#=Rnd(2)+4         

Next

Repeat            ;Mainloop
Cls

For  balls.Balldaten =Each Balldaten
         balls\xpos#=balls\xpos#+(balls\movex#*balls\speed#)
         balls\ypos#=balls\ypos#+(balls\movey#*balls\speed#)
         ; check for screen limits
         If balls\ypos#<0    Then balls\movey#=1
         If balls\ypos#>768-25 Then balls\movey#=-1
         If balls\xpos#<25     Then balls\movex#=1
         If balls\xpos#>1024-25 Then balls\movex#=-1
         ; check for colisions with other balls
         
         
                  DrawImage ball,balls\xpos#,balls\ypos#,0
         Next
         




Text 10,0 ,"Spieler1 Name: " + Spieler1\name$  ;Abfrage
Text 10,10, "Leben : " + Spieler1\leben%
Text 10,20, "Punkte: " + Spieler1\Punkte%
Text 750,728,"Spieler2 Name: "+ Spieler2\name$
Text 750,748,"Leben : "+ Spieler2\leben%
Text 750,738,"Punkte: " + Spieler2\Punkte%


Steuerung() ;Steuerfunktion für Bretter       
Grenzebretter()    ;Grenze für Bretter
Daneben1()
Daneben2()
DrawImage brett1,x1,y1 ;Bilder zeichen
DrawImage brett2,x2,y2


If Spieler1\leben% = 0
Gameover()
If Spieler2\leben% = 0
Gameover()

End If
End If






Flip

Until KeyDown(1)

End

;Functionen
Function Steuerung() ;Steuerfunction

If KeyDown(17) = 1 Then
   y1 = y1-7
End If
If KeyDown(31) = 1 Then
   y1 = y1+7
End If

If KeyDown(200) = 1 Then
   y2 = y2 -7
End If

If KeyDown(208) = 1 Then
   y2 = y2 +7
End If

End Function

Function Grenzebretter() ;Grenze der bretter
If y1 > 726 Then
y1 = 726

End If
If y1 < 42 Then
y1 = 42

End If
If y2 > 726 Then
y2 = 726

End If
If y2 < 42 Then
y2 = 42



End If

End Function


Function Daneben2()

If Not ImagesOverlap(brett1,x2,y2,ball,xpos#,ypos#) And  xpos# = treffer2 =1 Then  ;Wenn Spieler2 den ball durchlässt
Spieler1 \Punkte% = Spieler1\Punkte% +2
Spieler2\leben% = Spieler2\leben% -1
End If

End Function

Function Daneben1()

If Not ImagesOverlap(ball,xpos#,ypos#,brett1,x1,y1)  And  xpos# =treffer1 =1 Then ;Wenn Spieler1 den ball durchlässt
Spieler1\leben% = Spieler1\leben% -1
Spieler2\Punkte% = Spieler2\Punkte% + 2
End If

End Function

Function Gameover()
Text xmax/2,ymax/2, " Das Spiel ist vorbei"

End

End Function
   

   
         
       
      

Const xmax=1024,ymax=768 ; Können Konstant sein, werden im weiteren Programmverlauf nicht mehr verändert

Graphics xmax,ymax,32,2 ; 1
SetBuffer BackBuffer()

AppTitle "Ping Pong Stani"
Local timer = CreateTimer(60);(200) 60 reicht aus, da der Bildschirm im Normalfall eh nur 60 Bilder/sec anzeigt

Global brett1 = LoadImage("brett.bmp") ;Spieler1brett
MidHandle brett1
Global brett2 = brett1 ;Spieler2brett ist das selbe bild, wie Spieler1brett.
;Beide variablen verweisen nun auf das selbe bild im Speicher

Global ball   = LoadImage("ball.bmp")  ;ball
MidHandle ball

Global bg=LoadImage("bg.bmp")

Global spielerbreite=ImageWidth(brett1) ; Spielerbreite ermitteln für späteren Gebrauch

 ;Erzeuge Spieler
Global Spieler1.Spieler = New Spieler  ;Erzeuge Spieler1
Global Spieler2.Spieler = New Spieler  ;Erzeuge Spieler2

Spieler1\x=spielerbreite/2                                  ;Die Positionen kann man mit in den Type nehmen
Spieler1\y=ymax/2
Spieler2\x=ymax-spielerbreite/2
Spieler2\y=ymax/2

Spieler1\name$ = Input("Spieler1 Name : ") ;Namensabfrage
Spieler2\name$ = Input("Spieler2 Name : ")

Spieler1\leben% = 3                         ;Leben und punkte
Spieler1\Punkte% = 0
Spieler2\leben% = 3
Spieler2\Punkte% = 0

For a=1 To 1   
   balls.Balldaten=New Balldaten   
   balls\xpos#=Rand(600)+12     
   balls\ypos#=Rand(400)+12     
   balls\movex=Rand(1)*2-1 ; So ist es entweder 1 oder -1           
   balls\movey=Rand(1)*2-1                 
   balls\speed#=Rand(2)+4         
Next

Repeat            ;Mainloop
   Cls
   
   DrawBlock bg, 0,0 ; Ich nehme an, dass bg der Hintergrund sein soll
   
   For  balls.Balldaten =Each Balldaten
      balls\xpos#=balls\xpos#+(balls\movex*balls\speed#)
      balls\ypos#=balls\ypos#+(balls\movey*balls\speed#)
         ; check for screen limits
      If balls\ypos#<25    Then balls\movey=1
      If balls\ypos#>768-25 Then balls\movey=-1
      
      If balls\ypos#>Spieler1\y-42 And balls\ypos#<Spieler1\y+42 ; Prüfen ob der Ball auf der Höhe des Spieler 1 ist
         If balls\xpos#<25+spielerbreite Then balls\movex=1 ; Wenn ja prallt wer ab
      EndIf
      If balls\ypos#>Spieler2\y-42 And balls\ypos#<Spieler2\y+42 ; Das gleiche nochmal mit der anderen Seite
         If balls\xpos#>1024-25-spielerbreite Then balls\movex=-1
      EndIf
      
      ; check for colisions with other balls
      
      DrawImage ball,balls\xpos#,balls\ypos#,0
      
   Next
   
   Text 10,0 ,"Spieler1 Name: " + Spieler1\name$  ;Abfrage
   Text 10,10, "Leben : " + Spieler1\leben%
   Text 10,20, "Punkte: " + Spieler1\Punkte%
   Text 750,728,"Spieler2 Name: "+ Spieler2\name$
   Text 750,748,"Leben : "+ Spieler2\leben%
   Text 750,738,"Punkte: " + Spieler2\Punkte%
   
   
   
   Steuerung() ;Steuerfunktion für Bretter       
   Grenzebretter()    ;Grenze für Bretter
   Daneben() ;Prüffunktion ob Ball aus dem Bildschirm geflogen ist
   
   DrawImage brett1,Spieler1\x,Spieler1\y ;Bilder zeichen
   DrawImage brett2,Spieler2\x,Spieler2\y
   
;   So wird Spieler2\leben nur abgefragt, wenn Spieler1\leben auch 0 ist.
;   If Spieler1\leben = 0
;      Gameover()
;      If Spieler2\leben% = 0
;         Gameover()
;         
;      End If
;   End If
   
   ; Spieler Leben abfragen
   If Spieler1\leben = 0
      Gameover()
   End If
   If Spieler2\leben = 0
      Gameover()
   End If
      
   
   WaitTimer timer ; Ohne Waittimer bringt dir der timer nichts
   Flip 0 ; 0, damit Flip nicht das warten übernimmt.
   
Until KeyDown(1)

End

; Die Types kannst du überall hinschreiben. Ich hab sie mal hierhin getan.

Type Spieler                         
   Field name$
   Field leben%
   Field Punkte%
   Field x, y
End Type

Type Balldaten
   Field xpos#   
   Field ypos#
   Field movex;# Da hier nur +1 und -1 reinkommt, braucht man keine Floats
   Field movey;#
   Field speed#
End Type

;Functionen
Function Steuerung() ;Steuerfunction
   
   If KeyDown(17) = 1 Then
      Spieler1\y = Spieler1\y-7
   End If
   If KeyDown(31) = 1 Then
      Spieler1\y = Spieler1\y+7
   End If
   
   If KeyDown(200) = 1 Then
      Spieler2\y = Spieler2\y -7
   End If
   
   If KeyDown(208) = 1 Then
      Spieler2\y = Spieler2\y +7
   End If
   
End Function


Function Grenzebretter() ;Grenze der bretter
   If Spieler1\y > ymax-42 Then
      Spieler1\y = ymax-42
   End If
   If Spieler1\y < 42 Then
      Spieler1\y = 42
   End If
   If Spieler2\y > ymax-42  Then
      Spieler2\y = ymax-42
   End If
   If Spieler2\y < 42 Then
      Spieler2\y = 42
   End If
End Function

Function Daneben()
   For  balls.Balldaten =Each Balldaten
      If balls\xpos < -25 ; Ball ist links aus dem Bild geflogen
         Spieler1\leben=Spieler1\leben-1 ; Leben abziehen
         ; Ball reinitialisieren
         balls\xpos#=Rand(600)+12     
         balls\ypos#=Rand(400)+12     
         balls\movex=Rand(1)*2-1   
         balls\movey=Rand(1)*2-1                 
         balls\speed#=Rand(2)+4   
      EndIf
      If balls\xpos > 1024+25 ; Ball ist rechts aus dem Bild geflogen
         Spieler2\leben=Spieler2\leben-1 ; Leben abziehen
         ; Ball reinitialisieren
         balls\xpos#=Rand(600)+12     
         balls\ypos#=Rand(400)+12     
         balls\movex=Rand(1)*2-1   
         balls\movey=Rand(1)*2-1                 
         balls\speed#=Rand(2)+4   
      EndIf
   Next
End Function

Function Gameover()
   Cls
   FlushKeys() ; Damit vorherige Tastendrücke nicht mehr von Waitkey() registriert werden
   Text xmax/2,ymax/2, " Das Spiel ist vorbei", 1, 1 ; 1,1 um den text zu zentrieren
   Flip ; Damit man den text auch sieht
   WaitKey() ; Auf Tastendruck warten; Wenn das Programm direkt dannach zuende ist, sieht man ihn nicht mehr.
   
   End
   
End Function