Function is_rect_kollision_bob#(id)
    If id=0 Then Return
    bob.bob=Object.bob(id)
    If bob.bob=Null Return

    ;punkt 0 x,y Kordinaten übergeben

    X#=VertexX (bob\Surface,bob\v[0])
    y#=Abs(VertexY (bob\Surface,bob\v[0]))

    ;punkt 1 x,y Kordinaten übergeben

    X1#=VertexX (bob\Surface,bob\v[1])
    y1#=Abs(VertexY (bob\Surface,bob\v[1]))

    ;punkt 2 x,y Kordinaten übergeben

    X2#=VertexX (bob\Surface,bob\v[2])
    y2#=Abs(VertexY (bob\Surface,bob\v[2]))

    ;punkt 3 x,y Kordinaten übergeben

    X3#=VertexX (bob\Surface,bob\v[3])
    y3#=Abs(VertexY (bob\Surface,bob\v[3]))
     
    ; alle weiteren Bob´s überprüfen ob einen Kollision stattgefunden hat
   
    For bob.bob=Each bob
        ;punkt 0 x,y Kordinaten übergeben

        Xx#=VertexX (bob\Surface,bob\v[0])
        yy#=Abs(VertexY (bob\Surface,bob\v[0]))

        ;punkt 1 x,y Kordinaten übergeben 
 
        Xx1#=VertexX (bob\Surface,bob\v[1])
        yy1#=Abs(VertexY (bob\Surface,bob\v[1]))

        ;punkt 2 x,y Kordinaten übergeben
   
        Xx2#=VertexX (bob\Surface,bob\v[2])
        yy2#=Abs(VertexY (bob\Surface,bob\v[2]))

        ;punkt 2 x,y Kordinaten übergeben

        Xx3#=VertexX (bob\Surface,bob\v[3])
        yy3#=Abs(VertexY (bob\Surface,bob\v[3]))

        ;abfragen aller Vertex ob sie sich überschneiden

        ;punkt 0
        If x>xx And x<xx1
            If y>yy And y<yy2
                Return 1
            EndIf
        EndIf

        ;punkt 1
        If x1>xx And x1<xx3
            If y1>yy And y1<yy3
                Return 1
            EndIf
        EndIf

        ;punkt 2
        If x2>xx And x2<xx1
            If y2>yy And y2<yy2
                Return 1
            EndIf
        EndIf

        ;punkt 3
        If x3>xx And x3<xx3
            If y3>yy And y3<yy3
                Return 1
            EndIf
        EndIf             
    Next
End Function