equal
deleted
inserted
replaced
1218 procedure MoveCamera; |
1218 procedure MoveCamera; |
1219 var EdgesDist, wdy, shs,z: LongInt; |
1219 var EdgesDist, wdy, shs,z: LongInt; |
1220 PrevSentPointTime: LongWord = 0; |
1220 PrevSentPointTime: LongWord = 0; |
1221 begin |
1221 begin |
1222 {$IFNDEF MOBILE} |
1222 {$IFNDEF MOBILE} |
1223 if (not (CurrentTeam^.ExtDriven and isCursorVisible and not bShowAmmoMenu)) and cHasFocus and (GameState <> gsConfirm) then |
1223 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu))) and cHasFocus and (GameState <> gsConfirm) then |
1224 uCursor.updatePosition(); |
1224 uCursor.updatePosition(); |
1225 {$ENDIF} |
1225 {$ENDIF} |
1226 z:= round(200/zoom); |
1226 z:= round(200/zoom); |
1227 if not PlacingHogs and (FollowGear <> nil) and not isCursorVisible and not bShowAmmoMenu and not fastUntilLag then |
1227 if not PlacingHogs and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) then |
1228 if (not autoCameraOn) or ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then |
1228 if (not autoCameraOn) or ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then |
1229 begin |
1229 begin |
1230 FollowGear:= nil; |
1230 FollowGear:= nil; |
1231 prevPoint:= CursorPoint; |
1231 prevPoint:= CursorPoint; |
1232 exit |
1232 exit |