Function Kisten_Gravity ()
    For Kiste.KistenTyp = Each KistenTyp
        For Kiste2.KistenTyp = Each KistenTyp
            If Kiste <> Kiste2
                If Kiste\X > Kiste2\X-32 And Kiste\X < Kiste2\X+32 Then;prüfen ob X Koordinate stimmt
                    If Kiste2\Y > Kiste\Y And Kiste2\Y < Kiste\Y+32 Then
                        Kiste\Gravity = False
                        If Kiste\Y+32 > Kiste2\Y Then Kiste\Y = Kiste2\Y-32
                    End If
                End If
            End If
        Next

        If Kiste\Gravity = True And Kiste\Y < (550-32)
            Kiste\Y = Kiste\Y *Kiste\Gravity_Speed
            If Kiste\Y > (550-32)
                Kiste\Y = (550-32)
            End If
        End If
    Next
End Function