Sub ConsentStateAvailable
Dim consent As ConsentManager = Starter.consent
If consent.ConsentState = consent.STATE_UNKNOWN And consent.IsRequestLocationInEeaOrUnknown Then
'Set last parameter to False if you don't want to show the "pay for ad-free" option.
'Change privacy policy URL.
consent.ShowConsentForm("http://justfunapps.blogspot.com/2014/12/baby-name-simple-privacy-policy.html", True, True, True)
Wait For Consent_FormResult (Success As Boolean, UserPrefersAdFreeOption As Boolean)
If Success Then
If consent.ConsentState = consent.STATE_UNKNOWN And UserPrefersAdFreeOption Then
'in app purchase
If Starter.analytics.IsGooglePlayServicesAvailable Then '<<< Here
manager.RequestPayment("adsfree", "inapp", "consent")
Else
ToastMessageShow("Google Play Services is Missing. Please try again later.",False)
End If
End If
Else
Log($"Error: ${LastException}"$)
End If
End If
LoadAd
End Sub