572         Y:= Y + dY + cGravity * vobFallSpeed * 8;  // using same value as flakes to try and get similar results

   572         Y:= Y + dY + cGravity * vobFallSpeed * 8;  // using same value as flakes to try and get similar results

   573         xx:= hwRound(X);

   573         xx:= hwRound(X);

   574         yy:= hwRound(Y);

   574         yy:= hwRound(Y);

   575         if vobVelocity <> 0 then

   575         if vobVelocity <> 0 then

   576             begin

   576             begin

   578             if DirAngle < 0 then DirAngle := DirAngle + 360

   578             if DirAngle < 0 then DirAngle := DirAngle + 360

   579             else if 360 < DirAngle then DirAngle := DirAngle - 360;

   579             else if 360 < DirAngle then DirAngle := DirAngle - 360;

   580             end;

   580             end;

   581 

   581 

   582         inc(Health, 8);

   582         inc(Health, 8);