Global PosX,PosY,PosZ
Const HealthType=1
Const PlayerType=2
Type Health
        Field HPlus
        Field HMesh
End Type
Collisions PlayerType,HealthType,2,3

...
...
While Not IrgendEineBedingungErfüllt=1

If Irgendeinebedingungerfüllt=1
   CreateHelth(posX,posY,posZ)
EndIf
updateHealth()
UpdateWorld
RenderWorld
Flip
Wend

Function CreateHealth()
H.Health=New health
H\Mesh=LoadMesh(\"DeinHealthMesh.endung\")
H\HPlus=Rand(0,100)
PositionEntity H\Mesh,posX,posY,posZ
End Function

Function UpdateHealth()
            
For H.Helth=Each Health
If EntityCollided(player,1) ;1=siehe oben(const)
PlayerHealth=PlayerHealth+H\HPlus
FreeEntity H\Mesh
Delete H
EndIf
End Function

If eingesammelt = 0 Then DrawImage einsammelobjekt,x,y

If ImagesOverlap(Figur,X,Y,X2,Y2,32,32) Then Gegenstand = 1

If Gegenstand = 0 Then DrawImageRect tiles, X,Y,X2,Y2,32,32
If Gegenstand = 1 Then

DrawImage HGrund, 0,0
DrawImage Figur, X,Y
DrawImage Gegenstand, X2,Y2
If Position(Figur) = Position(Gegenstand) Then
 DrawImage HGrund, 0,0
 DrawImage Figur, X,Y
EndIf

Cls

blablabla...
bild = LoadImage....

;Hauptschleife
Repeat

Cls
If bild_ist_vorhanden = 0 Then DrawImage bild,x,y
;und dann hier: WENN das bild BILD mit der MAUS kollidiert dann ist die variable: bild_ist_vorhanden = 1 - da das bild ja nur noch gezeichnet    wird wenn der wert 0 ist - ist es dann weg sobald du es mit der maus    berührst 

Until KeyHit(1) usw. 

Global PX,PY,posX,posY,PlayerHealth
Type HealthImage
      Field HealthImage
      Field HealthPlus
End Type


Repeat
Cls
PX=MouseX()
PY=MouseY()
If Irgendnebedingungerfüllt=1
DrawHeaalth()
EndIf

...
...
updateHealth()
Flip
Until KeyHit(1)

Function Drawhealth()
H.Health=New Health
H\HealthImage=LoadImage(\"DeinBild.endung\")
H\HealthPlus=Rand(0,100)
End Function

Function updateHealth()
For H.Health=Each Health
DrawImage H\Health,posX,posY
If ImageRectCollide(H\Health,posX,posY,0,PX,PY,0)
PlayerHealth=PlayerHealth+H\HealthPlus
FreeImage H\HealthImage
Delete H
Exit
EndIf
Next
End Function