hedgewars/uWorld.pas
changeset 5522 5a4bc518c59a
parent 5521 3be9fda5c3c2
child 5523 9ac5acc4f3e5
equal deleted inserted replaced
5521:3be9fda5c3c2 5522:5a4bc518c59a
  1175 procedure MoveCamera;
  1175 procedure MoveCamera;
  1176 var EdgesDist, wdy, shs: LongInt;
  1176 var EdgesDist, wdy, shs: LongInt;
  1177     PrevSentPointTime: LongWord = 0;
  1177     PrevSentPointTime: LongWord = 0;
  1178 begin
  1178 begin
  1179 {$IFNDEF IPHONEOS}
  1179 {$IFNDEF IPHONEOS}
  1180 if (not (CurrentTeam^.ExtDriven and isCursorVisible and not bShowAmmoMenu)) and cHasFocus then
  1180 if (not (CurrentTeam^.ExtDriven and isCursorVisible and not bShowAmmoMenu)) and cHasFocus and (GameState <> gsConfirm) then
  1181     uCursor.updatePosition();
  1181     uCursor.updatePosition();
  1182 {$ENDIF}
  1182 {$ENDIF}
  1183 
  1183 
  1184 if (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then
  1184 if (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then
  1185     if (not autoCameraOn) or (abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y) > 4) then
  1185     if (not autoCameraOn) or (abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y) > 4) then