If FirstTime Then
primadata=True
manager.Initialize("manager", key)
manager.DebugLogging = True
first1=True
Else
primadata=False
End If
Sub Manager_BillingSupported (Supported As Boolean, Message As String)
If Supported=True Then
'ToastMessageShow("Supported",True)
manager.GetOwnedProducts
End If
End Sub
Sub manager_OwnedProducts (Success As Boolean, purchases As Map)
'ToastMessageShow("ownedProducts:"&Success,True)
If Success Then
For Each pu As Purchase In purchases.Values
' Log(pu.ProductId & ", Purchased? " & (pu.PurchaseState = pu.STATE_PURCHASED))
'ToastMessageShow(pu.ProductId,True)
If pu.ProductId="cote_noads" And pu.PurchaseState=pu.STATE_PURCHASED Then
adon=True
btn_noads.Left=Activity.Width
File.WriteString(File.DirInternal,"ads.txt","ads")
istrial=False
btn_pub.Left=Activity.Width
End If
Next
End If
preview.Color=Colors.Transparent
preview.BringToFront
polartracking=True
btn_ucr.TextColor=guidecolor
End Sub
Sub manager_PurchaseCompleted (Success As Boolean, Product As Purchase)
If Success Then
'user payed to remove ads
adon=True
btn_noads.Left=Activity.Width
istrial=False
File.WriteString(File.DirInternal,"ads.txt","ads")
End If
End Sub