Yet another segfault (a.k.a. Darkhog is a total noob)

[User137]

Isn't this an infinitely recursive loop? (could be wrong, difficult to trace types without downloading whole project)

function TGameObject.isColliding(Sprite: TSprite): Boolean;
begin
  Result:=false; //setting result, just in case
  case ObjectMode of
    omAnim:   begin
                if Animations.Items[CurrentAnim]<>nil then //safety check so we won't get segfault
                  //setting result
                  Result:=Animations.Items[CurrentAnim].IsColliding(Sprite);
                end;
    omSprite: begin
                if Sprites.Items[CurrentSprite]<>nil then //safety check so we won't get segfault
                  //setting result
                  Result:=Sprites.Items[CurrentSprite].IsColliding(Sprite);
              end;
  end;
end;

Seems that it might not recurse. But in that code you could debug if CurrentAnim could go out of list boundaries.