Function CollitestALL()
         for S.Sprite = each Sprite
              TST_COLL( S)
         next

        For E.Enemy = each Enemy
              TST_COLL(E)
       next

    ; etc pp

end function


function TST_COLL(TST)

          ; Teste -TST -auf -Collision-Code
          ; zB TST\POSX...

end Function

Function CollitestALL()
         for S.Sprite = each Sprite
              TST_COLL( S)
         next

        For E.Enemy = each Enemy
              TST_COLL(E)
       next

    ; etc pp

end function


function TST_COLL(TST.enemy)

          ; Teste -TST -auf -Collision-Code
          TST\POSX = 1

end Function

; und nun nochmal ein return

function tst_neu.enemy()
 b.enemy=new enemy
 return b
end function

Function CreateSprite(x1#,y1#)
   l.Sprite=New Sprite
   ...
   Return handle(l)
End Function

Function check(id)
  obj.Sprite=OBJECT.Sprite(id)
 ...
End Function

Function CreateSprite.Sprite(x1#,y1#)
   l.Sprite=New Sprite
   ...
   Return l
End Function

Function check(s.Sprite)
   ...
End Function

Function Test_Colli()
           For S. Sprite = each Sprite
                   ;Kompletten Collisionstest - Code
          next
           For T. Tile = each Tile
                   ;Kompletten Collisionstest - Code
          next

        ; usw
end Function

Function CollitestALL()
         for S.Sprite = each Sprite
              TST_COLL( S)    ; <----- DA KLEMMTS !
         next

        For E.Enemy = each Enemy
              TST_COLL(E)
       next

    ; etc pp

end function


function TST_COLL(TST)   ; <---- HIER KLEMMTS !

          ; Teste -TST -auf -Collision-Code
          ; zB TST\POSX...         <---- HIER KLEMMTS ! TST nicht vorhanden...

end Function

Type Tsprite
   Field image
   Field Col.Tcolbox
End Type

Type TColbox
   Field x
   Field y
   Field w
   Field h
End Type

Function CreateSprite.Tsprite()
   a.tsprite = New tsprite
   a\col = New Tcolbox
   Return a
End Function


Function Collision(col.TColbox,x,y)
   If x >= col\x And x <= col\x + col\w Then
      If y >= col\y And y <= col\y + col\h Then
         Return 1 ;Kollision
      EndIf
   EndIf
   Return 0
End Function

SeedRnd MilliSecs()

a.Tsprite = CreateSprite()

Repeat
a\col\x = Rand (300)
a\col\y = Rand (300)
a\col\w = Rand (300)
a\col\h = Rand (300)
x = Rand (640)
y = Rand (480)

Print "x:"+x+" y:"+y+" ("+a\col\x+"|"+a\col\y+")-("+(a\col\x+a\col\w)+"|"+(a\col\y+a\col\h)+")"
If collision (a\col,x,y) Then Print "Kolli!!!!"
WaitKey()
Until KeyHit(1)