equal
deleted
inserted
replaced
1005 |
1005 |
1006 procedure MoveCamera; |
1006 procedure MoveCamera; |
1007 const PrevSentPointTime: LongWord = 0; |
1007 const PrevSentPointTime: LongWord = 0; |
1008 var EdgesDist, wdy: LongInt; |
1008 var EdgesDist, wdy: LongInt; |
1009 begin |
1009 begin |
|
1010 {$IFNDEF IPHONEOS} |
1010 if (not (CurrentTeam^.ExtDriven and isCursorVisible and not bShowAmmoMenu)) and cHasFocus then |
1011 if (not (CurrentTeam^.ExtDriven and isCursorVisible and not bShowAmmoMenu)) and cHasFocus then |
1011 begin |
1012 begin |
1012 SDL_GetMouseState(@CursorPoint.X, @CursorPoint.Y); |
1013 SDL_GetMouseState(@CursorPoint.X, @CursorPoint.Y); |
1013 CursorPoint.X:= CursorPoint.X - (cScreenWidth shr 1); |
1014 CursorPoint.X:= CursorPoint.X - (cScreenWidth shr 1); |
1014 CursorPoint.Y:= cScreenHeight - CursorPoint.Y; |
1015 CursorPoint.Y:= cScreenHeight - CursorPoint.Y; |
1015 end; |
1016 end; |
|
1017 {$ENDIF} |
1016 |
1018 |
1017 if (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then |
1019 if (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then |
1018 if abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y) > 4 then |
1020 if abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y) > 4 then |
1019 begin |
1021 begin |
1020 FollowGear:= nil; |
1022 FollowGear:= nil; |