Private Sub Application_Start (Nav As NavigationController)
no.RunMethod("setStatusBarHidden:animated:", Array(True, False))
NavControl = Nav
NavControl.NavigationBarVisible=False
NavControl.ToolBarVisible=False
Page1.Initialize("")
Page1.Title = "bionoid"
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
App.IdleTimerDisabled = True
remove_Ads=False
game.Initialize(Page1)
If File.Exists(File.DirDocuments,"e9cf6ec0f976f26fd8a55ef5663ab676678e25883d381f596374be46cb284fc3") Then
remove_Ads=True
game.remove_ads
End If
ad.Initialize("ad","ca-app-pub-whatever")
ad.RequestAd
MyStore.Initialize("MyStore")
If MyStore.CanMakePayments = False Then
CanMakePayments=False
Else
CanMakePayments=True
End If
End Sub
Sub manager_removeads
If CanMakePayments=True Then MyStore.RequestPayment("Binairo_remove_ads")
End Sub
Sub manager_restorePurchases
MyStore.RestoreTransactions
End Sub
Sub MyStore_PurchaseCompleted (Success As Boolean, Product As Purchase)
If Product.IsInitialized Then
If Success And Product.ProductIdentifier="Binairo_remove_ads" Then Purchased_NoAds
End If
End Sub
Sub Purchased_NoAds
game.remove_ads
remove_Ads=True
File.WriteString(File.DirDocuments,"e9cf6ec0f976f26fd8a55ef5663ab676678e25883d381f596374be46cb284fc3","")
End Sub
Sub showInterstitial
If remove_Ads=False And ad.IsReady Then
ad.Show(Page1)
End If
End Sub
Sub loadInterstitial
If ad.IsReady Then Return
ad.RequestAd
End Sub