;Bildschirm (Größe, Farbtiefe, Modus)
Graphics 800, 600, 16

;bischen Druck im Hintergrund
;ableton = LoadSound("abletonLive.mp3")
;LoopSound ableton
;PlaySound ableton

;es ist Frühling;-)
;Voegel = LoadSound("Voegel.mp3")
;LoopSound Voegel
;PlaySound Voegel


;ChannelVolume kanal, 0.8

;Feld=LoadImage("ball1feld.bmp")


;Schriftart und Größe
Courier = LoadFont("Courier",15)
SetFont Courier

;Sounds für das Spiel definieren
;Global sndPlayerWSP_HIT
;Global sndPlayerBLIP
;Global sndPlayerklaxon
;Global sndPlayerBIP
;Global sndPlayerflag_won


;sndPlayerWSP_HIT=LoadSound("WSP_HIT.wav")
;sndPlayerBLIP=LoadSound("BLIP.wav")
;sndPlayerklaxon=LoadSound("klaxon.wav")
;sndPlayerBIP=LoadSound("BIP.wav")
;sndPlayerflag_won=LoadSound("flag_won.wav")


Color 0, 20, 300 ;grüner Ball, Schläger und Zähler

FlushMouse()


.start


;Startbild
Repeat

   If KeyHit(1) End
   If MouseHit(1) Or MouseHit(2) Exit
   
      Text 100,100,"PONG- THE CHALLENGE 1.0"
      Text 100,120,"copyright 2007, by C. Sommer"

      
      Text 500,100,"To start press mouse"
      Text 500,120,"To end press ESC"

         ;DrawImage Feld,0,0
      
         Oval 390, 290, 20, 20, 1
      
         Rect 700, MouseY(), 20, 100,1
         c=MouseY()+50

      Flip

Forever


HidePointer; Maus ausblenden




;Variable mit Startwert

x=390
y=290
s=6
z=0
n=1
p=1
Punkte=0


;Hauptschleife
Repeat

   
   
   
   ;Der Schläger und seine Bewegung
   Rect 700, MouseY(), 20, 100,1
   c=MouseY()+50
   
   

   ;Anzeige Punkte
   Text 370,20,Punkte
   Text 300,20,"points:"
   
   
      Flip
   
      
         Cls

            ;der Court
            ;DrawImage Feld,0,0




   ;Ball und Koordinaten des Balls
   x=x+s
   y=y-z
   
   Oval x, y, 20, 20, 1
   
   
            ;wenn Ball Unterkante berührt
            If y>580
               y=580
               z=-z
               ;PlaySound sndPlayerBIP
            EndIf
            
            
            
            ;wenn Ball die Oberkante berührt
            If y<0
               y=0
               z=-z
               ;PlaySound sndPlayerBIP
            EndIf

      
         ;a ist Mitte vom Schläger in der y-Achse
         a=y+10-MouseY()
   
   
            ;wenn Ball den Schläger berührt
            If a>0 And a<100 And x>680
               s=-s
               ;PlaySound sndPlayerBLIP
               Punkte=Punkte+1
                  If Punkte=10*p
                     p=p+1
                     ;PlaySound sndPlayerflag_won;Applaus alle 10 Punkte
                  EndIf
            EndIf
            
                                       
            ;wenn Ball die linke Kante berührt
            If x<0
               s=-s
               ;PlaySound sndPlayerWSP_HIT
               If z=0 And y>290 z=-2;damit es nicht endlos wird ;-)
               If z=0 And y=<290 z=2
            EndIf
            
            
            
            
            ;Alle 5 Punkte erhöht sich die Geschwindigkeit
            If Punkte =5*n And x<0
               s=s+1
               n=n+1
            EndIf
                           
               
            
            ;Abprallwinkel vom Schläger
            If x> 680 z=(50-a)/5
   
   
            ;wenn nicht getroffen
            If x>800
            
               Rect 700, MouseY(), 20, 100,1
               c=MouseY()+50

                  Text 500,100,"Good game!"
                  Text 500,120,Punkte : Text 530,120,"points"
                  
                  Flip
                  
               ;PlaySound sndPlayerklaxon
               Delay 5000
               
               Exit
               
            EndIf
            
            
      ;bei ESC Ende   
      If KeyHit(1) End

Forever

Goto start