Sub Restore_Click
isBuying = False
If(MyStore.CanMakePayments)Then
MyStore.RestoreTransactions
'This will fire PurchaseCompleted or/and TransactionRestored
Else
Dim hd As HUD
hd.ToastMessageShow(Main.t.Trans("Unavailable on this device"),True)
End If
End Sub
Sub MyStore_TransactionsRestored (Success As Boolean)
Log("Transaction Restored:"&Success)
If(Success)Then
Msgbox2("RestoredTrans","Transaction Restored","Membership",Array("OK"))
Main.isMember = True
'Change to my server the value of membership for this user
Else
Msgbox2("RestoredTrans2","No Membership Purchased","Membership",Array("OK"))
End If
End Sub