------------------------------------------------------------------------------
Function UpdateGame()
   For m.balltype=Each balltype
      UpdateBall(m)
   Next
End Function


Function CreateBall.balltype()
   ball=CreateSphere(20)
   ScaleEntity ball,1,1,1
   EntityColor ball,10,1,0
   EntityShininess ball,1
   EntityType ball,BALLS

   m.balltype=New balltype
   balllife#=300
   m\life=balllife
   m\obj=CopyEntity(ball,anhang)
   TranslateEntity m\obj,0,2,-4
   EntityParent m\obj,0   
   Return m
End Function


Function UpdateBall( m.balltype )
   If EntityCollided(m\obj,BODY)<>0  ;er findet m\obj nicht
      dmg=dmg-1
      FreeEntity m\obj
      Delete m
      Return
   EndIf      
   TranslateEntity m\obj,0,GRAVITY*20,0
   EntityRadius m\obj,.1
   If m\life<0
      FreeEntity m\obj
      Delete m
      Else m\life=m\life-1
   EndIf
End Function