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

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

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

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

   615             end;

   615             end;

   616 

   616 

   617         inc(Health, 8);

   617         inc(Health, 8);

   619             begin

   619             begin

   620             dec(Health, vobFrameTicks);

   620             dec(Health, vobFrameTicks);

   621             inc(Timer);

   621             inc(Timer);

   622             if Timer = vobFramesCount then Timer:= 0

   622             if Timer = vobFramesCount then Timer:= 0

   623             end;

   623             end;