equal
deleted
inserted
replaced
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); |
618 if Health > vobFrameTicks then |
618 if longword(Health) > vobFrameTicks then |
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; |