equal
deleted
inserted
replaced
1755 |
1755 |
1756 var PrevSentPointTime: LongWord = 0; |
1756 var PrevSentPointTime: LongWord = 0; |
1757 |
1757 |
1758 procedure MoveCamera; |
1758 procedure MoveCamera; |
1759 var EdgesDist, wdy, shs,z, amNumOffsetX, amNumOffsetY: LongInt; |
1759 var EdgesDist, wdy, shs,z, amNumOffsetX, amNumOffsetY: LongInt; |
|
1760 inbtwnTrgtAttks: Boolean; |
1760 begin |
1761 begin |
1761 {$IFNDEF MOBILE} |
1762 {$IFNDEF MOBILE} |
1762 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu) and autoCameraOn)) and cHasFocus and (GameState <> gsConfirm) then |
1763 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu) and autoCameraOn)) and cHasFocus and (GameState <> gsConfirm) then |
1763 uCursor.updatePosition(); |
1764 uCursor.updatePosition(); |
1764 {$ENDIF} |
1765 {$ENDIF} |
1765 z:= round(200/zoom); |
1766 z:= round(200/zoom); |
1766 if not PlacingHogs and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) and autoCameraOn then |
1767 inbtwnTrgtAttks := (CurrentHedgehog <> nil) and ((Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) <> 0) and ((GameFlags and gfInfAttack) <> 0); |
|
1768 if autoCameraOn and not PlacingHogs and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) and not inbtwnTrgtAttks then |
1767 if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then |
1769 if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then |
1768 begin |
1770 begin |
1769 FollowGear:= nil; |
1771 FollowGear:= nil; |
1770 prevPoint:= CursorPoint; |
1772 prevPoint:= CursorPoint; |
1771 exit |
1773 exit |