.start
.start
; Settings 
Global gross = 100
Global maxx = 640
Global maxy = 480
Graphics maxx, maxy, 32, 2
Global bar
Global ball
Global bg
Global x# = 300.0, y# = 300.0
Global angle# = Rnd(290,330)
Global speed# = 3
Global emy = maxy/2
Global ems# = 3.0
Global wins 
Global lose
Global menu
Global reboot
Global frametimer = CreateTimer (64)
Global font = LoadFont(\"Verdana\", 16,0,0,0)


If menu Or reboot Then Else menu=True

bar = CreateImage(10,100)
ball = CreateImage(10,10)
bg = CreateImage(maxx,maxy)

SetBuffer ImageBuffer(bar)
	Rect startx, starty, 10, 100, 0
SetBuffer ImageBuffer(ball)
	Color 192, 0, 0
	Oval 0, 0, 10, 10, 1
	

SetBuffer BackBuffer()

Function drawplayer(startx, starty)
	DrawBlock bar, startx, starty
End Function

Function drawball(startx, starty)
	DrawImage ball, startx, starty
End Function



Repeat
	Cls
	If menu = True Then
		Color 255,255, 255
		Locate 0, 10
		SetFont font
		Print \"Ich Wünsche Ihnen Viel Spaß beim Spielen.\"
		Print \"Mit 1 können sie das Spiel starten.\"
		Print \"Mit 2 können sie das Spiel neustarten.\"
		Print \"Und mit Esc können sie das Spiel Jederzeit beenden.\"
		Print \"\"
		Print \"\"
		Print \"\"
		Print \"Dieses Spiel wurde von Tim Burkert in BlitzBasic geschrieben.\"
		Flip
		Repeat
			If KeyHit(2) Then menu = False:Exit
			If KeyHit(1) Then End
		Forever
	Else
		mausy = MouseY()
		mausx = MouseX()
		mspeedx = MouseXSpeed()
		mspeedy = MouseYSpeed()
		Color 255,255,255
		mausy = MouseY()
		If mausy > maxy - gross Then mausy = maxy-gross
		If emy > maxy - gross Then emy = maxy-gross
		If emy < 0 Then emy = 0
		If emy+50 < y# Then emy = emy + ems#
		If emy+50 > y# Then emy = emy - ems#
		drawplayer(10, mausy)
		drawplayer(maxx-20, emy)
		
		x# = x# + Cos(angle#) * speed#
	    y# = y# + Sin(angle#) * speed#
	
		If ImagesCollide(ball, x#-10, y#-10, 0, bar, 0, mausy, 0) Then angle# = 180 - angle#:speed# = speed# + 0.2
		If ImagesCollide(ball, x#-10, y#-10, 0, bar, maxx-30, emy, 0) Then angle# = 180 - angle#:speed# = speed# + 0.2
		If speed# > 7 Then speed# = 7:ems# = ems# - 0.02
	
	    If y# > maxy-10 Or y# < 0 Then angle# = 360 - angle#
	   
	    If x# > maxx-10 Or x# < 0 Then angle# = 180 - angle#
	
		drawball(x#,y#)
		If x# > maxx-10 Then wins = wins + 1:Print\"Bitte eine Taste drücken\":WaitKey():reboot = True:Goto start
		If x# < 2 Then lose = lose + 1:Print\"Bitte eine Taste drücken\":WaitKey():reboot = True:Goto start
		Locate 100, 10
		SetFont font
		Print wins + \":\" + lose + \" Speed \" + speed# + \" Feind Speed \" +ems#
		Flip
	End If
	If KeyHit(1) Then End
	If KeyHit(3) Then Goto start
	WaitTimer(frametimer)
Forever