nearestPlayerToBall :: [PlayerInfo] -> Ball -> PlayerInfo
nearestPlayerToBall p b = fst $ mapPreserveMin (\x -> vectorLength (diffVector3 (location $ plentity x) (location $ ballentity b))) p
nearestPlayerToBall :: [PlayerInfo] -> Ball -> PlayerInfo
nearestPlayerToBall p b = fst $ mapPreserveMin (\x -> vectorLength (diffVector3 (location $ plentity x) (location $ ballentity b))) p
nearestPlayerToBall p b = fst $ mapPreserveMin (\x -> vectorLength (diffVector3 (location $ plentity x) (location $ ballentity b))) p