;grafik optionen
Global Screen_x = 960
Global Screen_y = 640

Graphics Screen_x, Screen_y, 0, 0
SetBuffer BackBuffer()
frametimer = CreateTimer(30)


Global pickups = LoadImage ("C:\Program Files\Blitz2DDemo\help\resources\samples\Graphics\pickups.bmp")
MaskImage pickups, 255, 0, 255


Type pickup
   Field pickup_x
   Field pickup_y
   Field start_x
   Field start_y
   Field hoehe
   Field breite
End Type

Restore pickups_level1
Read anzahl                     ;der erste Wert in der Dataschleife gibt die Anzahl der Pickups an
For i = 1 To anzahl               ;Zählt durch die einzelnen Einträge 
   info.pickup = New pickup      ;Neue Pickups erstellen
   Read x, y, s_x, s_y, h, b      ;Koordinaten lesen
   info\pickup_x = x            ;x und y Werte an dem Typ übergeben
   info\pickup_Y = y            ;ausserdem die start parameter weil es nur ein ausschnitt ist
   info\start_x = s_x            ;sowie die höhe und die breite
   info\start_y = s_y
   info\hoehe = h
   info\breite = b
Next       


Repeat
Cls

PickupsZeichnen
PickupKollision

Flip
Until KeyHit(1)


; Die pickups malen
Function PickupsZeichnen()
   For info.pickup = Each pickup               ; Alle pickups abfragen
      DrawImageRect pickups, info\pickup_x, info\pickup_y, info\start_x, info\start_y, info\hoehe, info\breite   ;Pickups malen
   Next
End Function

Function PickupKollision()
   For info.pickup = Each pickup   ;Alle Pickups abfragen
      If ImagesCollide (pickups, info\pickup_x, info\pickup_y, 0, player, spieler\x, spieler\y, 0) Then ;Sobald eine Kollision auftritt
         Delete info.pickup   ; Pickup löschen
      EndIf
   Next
End Function

.pickups_level1
Data 25
Data 32,64,204,0,42,33
Data 64,64,204,0,42,33
Data 96,64,204,0,42,33
Data 128,64,204,0,42,33
Data 160,64,204,0,42,33
Data 448,64,204,0,42,33
Data 480,64,204,0,42,33
Data 512,64,204,0,42,33
Data 544,64,204,0,42,33
Data 576,64,204,0,42,33
Data 224,192,204,0,42,33
Data 256,192,204,0,42,33
Data 288,192,204,0,42,33
Data 320,192,204,0,42,33
Data 352,192,204,0,42,33
Data 32,320,204,0,42,33
Data 64,320,204,0,42,33
Data 96,320,204,0,42,33
Data 128,320,204,0,42,33
Data 160,320,204,0,42,33
Data 448,320,204,0,42,33
Data 480,320,204,0,42,33
Data 512,320,204,0,42,33
Data 544,320,204,0,42,33
Data 576,320,204,0,42,33

Function PickupKollision ( )

   For info.pickup = Each pickup

      If .... <- an dieser Stelle eine einfache Distanzabfrage oder Rechteck-Kollision prüfen!

         Delete info.pickup

      EndIf

   Next

End Function

Sqr ( ( Pickup_Mittelpunkt_x - Player_Mittelpunkt_x ) ^ 2 + ( Pickup_Mittelpunkt_y - Player_Mittelpunkt_y ) ^ 2 <= ( Pickup_Radius + Player_Radius )