;Diese krumme Auflösung wird von den meißten Graka´s nicht unterstüzt
; besser 1024x768; 800x600; 1280x1024; usw..
Graphics 1280 ,1024,32,1
SetBuffer BackBuffer ()
Global player = Image (100 ,20, $ff0000) ; Aternatives Bild erstellen
;Global player = LoadAnimImage("player.bmp",200,180,0,3)
;MaskImage player,255,0,255
Global ball1 = Image (20 ,20, $00ff00) ; Aternatives Bild erstellen
;Global ball1 = LoadImage ("level1_testfigure.bmp")
;MaskImage ball1,255,0,255
Global player_pos_x = 0
Global player_pos_y = 860
Global Start
Global score 
;das ist auch über , da du ja types benutzt
;Global ball1_pos_x = Rnd(0,1200) ; Für die Zwei soll ja son Type entstehen
;Global ball1_pos_y = 0
; so ungefähr oder?
Type images
    Field x
    Field y#
    ;Braucht du wenn es mehr bilder werden
    ;denn dann kannst du das Handle des Bildes kopieren
    Field image; = ;was kommt hier hin?
    Field Speed
    ;
End Type
MakeBall () ;neue Bälle erstellen 10 Stück
Global frame = 0
; Hauptschleife
Repeat
    Cls
    Moveplayer ()
    Drawplayer ()
    Drawthings_level1 ()
    Drop ()
	Kollision()
	Checkpoints()
    If First images = Null Then Makeball ; keine mehr da dann neue
    Flip
Until KeyHit (1)
End

Function Moveplayer ()
    player_pos_x = MouseX ()
    ;
    If player_pos_x > 1200 Then player_pos_x = 1200
End Function

Function Drawplayer ()
    DrawImage player,player_pos_x,player_pos_y,frame
End Function

Function drawthings_level1 ()
    For TypeHandle.images = Each images ; alle durchgehen und zeichnen
        DrawImage TypeHandle\image,TypeHandle\x,TypeHandle\y
    Next
    ;DrawImage ball1,ball1_pos_x, ball1_pos_y ; bis jetzt hab ich nur einen ball der nach unten fliegt - Kollisionen kann ich ja erst nachdem ich types gemacht habe wenn ich deleten kann
End Function

Function Drop () ; das hier ist etwas komplex ????
    If MouseHit (1) Then START = 1
    If START = 1 Then ; erst weitersetzt wenn gestartet wurde
        For TypeHandle.images = Each images ; auch alle durchgehen und weitersetzten
            TypeHandle\y = TypeHandle\y + TypeHandle\Speed
            If TypeHandle\y > 1000 Then Delete TypeHandle ; ggf löschen
        Next
    End If
End Function

;neue Bälle erstellen 10 Stück

Function MakeBall ()
    For t = 1 To 10
        TypeHandle.images = New images ; Hier wird ein neues Type erstellt
        ; und hier die Werte eingegeben
        TypeHandle\x = Rand (0 ,1200) ; Rnd normal nur für Floats(Kommazahlen)
        TypeHandle\y = 0 ; ich denke das hier ein auch ein Zufallswert im Minus Bereich rein soll
        TypeHandle\Image = ball1
        TypeHandle\Speed = Rnd (1 ,2)
    Next
End Function

Function Kollision ()
    For TypeHandle.images = Each images
        If ImagesCollide (TypeHandle\image,TypeHandle\x, TypeHandle\y,0, player,player_pos_x,player_pos_y,frame) Then
            Delete  TypeHandle
			score= score +10
		End If 
	Next
End Function
Function Checkpoints()
   Text 10,10,"Punkte: "
   Text 70,10, score
End Function
	
; damit keine Bilder geladen werden müssen    
Function Image (x,y,f) ; Erstellt Pseudo grafiken
	img = CreateImage (x,y)
	SetBuffer ImageBuffer (img)
	Color 0 ,0,f
	Rect 0 ,0,x,y,1
	SetBuffer BackBuffer ()
	Color 255 ,255,255
	Return img
End Function