monkey2/modules/iap/bananas/iaptest.monkey2

#rem

IMPORTANT!

This wont work 'as is'! You'll need to set up a bunch of stuff on GooglePlay/iTunes Connect developer portal such as app/products etc.

#end
Namespace myapp

#Import "<iap>"
#Import "<std>"
#Import "<mojo>"
#Import "<mojox>"

Using iap..
Using std..
Using mojo..
Using mojox..

Class MyWindow Extends Window
	
	Field _purchases:JsonObject
	
	Field _products:Product[]
	
	Field _info:String

	Field _listView:ListView

	Field _iap:IAPStore
	
	Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )

		Super.New( title,width,height,flags )

		Layout="stretch"
		
		'Create our IAP products.
		'
		_products=New Product[](
			New Product( "speed_boost",ProductType.Consumable ),
			New Product( "bullet_boost",ProductType.Consumable ),
			New Product( "ship_upgrade",ProductType.NonConsumable ) )
		
		'Load purchases we've alreday bought.
		'
		LoadPurchases()

		'Create a ListView to fill in with products later...
		'	
		_listView=New ListView
		_listView.Layout="float"
		_listView.Gravity=New Vec2f( .5,.5 )
		
		_listView.ItemClicked=Lambda( item:ListView.Item )
		
			If _iap.Busy Return
			
			Local index:= _listView.IndexOfItem( item )
			
			If index=_products.Length
				
				_iap.GetOwnedProducts()
				
				Return
			
			Endif
			
			Local product:=_products[ index ]
			
			'it's actually harmless to let someone purchase a non consumable again, they'll
			'only be charged for it once, but still...
			If product.Type=ProductType.NonConsumable And _purchases.GetNumber( product.Identifier )>0 Return
		
			_iap.BuyProduct( product )

			_info="Buying product "+product.Identifier
		End
		
		ContentView=_listView
		
		'Create IAPStore and various handlers.
		'
		_iap=New IAPStore
		
		'This isc alled when OpenStore completes.
		'
		_iap.OpenStoreComplete=Lambda( result:Int,interrupted:Product[],owned:Product[] )
		
			Select result
			Case 0

				'Handle interrupted purchases - these are purchases that the user was charged for but your app never
				'got notified about coz it or the OS crashed or something...
				'
				'This array is always empty on ios which apparently handles this edge case better?
				'
				For Local product:=Eachin interrupted
					MakePurchase( product )
				Next
				
				'Handle owned products - these are non-consumables that have been bought by the user. Android tracks these for
				'you (as long as you're logged in anyway) so you don't strictly need to save them, but you do on ios so for the sake of 
				'uniformity we will on android too.
				'
				'On Android, you never really need to use GetOwnProducts() because you are given this array of owned products when the store
				'opens. So in a sense, android automatically 'restores purchases' whenever you open the store.
				'
				'This array is always empty on ios. To restore non-consumables on ios you must call GetOwnedProducts in response to the push
				'of a 'Restore Purchases' button or similar. Apps with IAP but no 'restore purchases' mechanism will be rejected from the 
				'app store. GetOwnedProducts may cause dialogs to appear etc as the user may need to log into itunes, which is why it's not
				'just done by default when the store opens the way it is on android.
				'
				For Local product:=Eachin owned
					MakePurchase( product )
				Next
				
				SavePurchases()
				UpdateListView()
				
				_info="OpenStore successful"
			Default
				_info="OpenStore error:"+result
			End
		
		End
		
		'This is called when BuyProduct completes.
		'
		_iap.BuyProductComplete=Lambda( result:Int,product:Product )
		
			Select result
			Case 0	'success!
				MakePurchase( product )
				SavePurchases()
				UpdateListView()
				_info="BuyProduct successful:"+product.Identifier
			Case 1	'cancelled!
				_info="BuyProduct cancelled:"+product.Identifier
			Default
				_info="BuyProduct error:"+result
			End
				
		End
		
		'This is called when GetOwnProducts completes.
		'
		_iap.GetOwnedProductsComplete=Lambda( result:Int,owned:Product[] )

			Select result
			Case 0	'success!
				
				'Make sure we really own all owned products.
				'
				For Local product:=Eachin owned
					MakePurchase( product )
				Next
				
				SavePurchases()
				UpdateListView()
				_info="GetOwnProducts successful"
			Default
				_info="GetOwnedProducts error:"+result
			End
			
		End
		

		_iap.OpenStore( _products )
		
		_info="Opening store..."
	End
	
	Method MakePurchase( product:Product )
		
		Select product.Type
		Case ProductType.Consumable
			_purchases.SetNumber( product.Identifier,_purchases.GetNumber( product.Identifier )+1 )
		Case ProductType.NonConsumable
			_purchases.SetNumber( product.Identifier,1 )
		End
	End
	
	Method LoadPurchases()
		
		'load purchases file from internal app storage.
		'
		_purchases=JsonObject.Load( "internal::purchases.json" )
		
		'if not found, create new purchases file.
		'
		If Not _purchases
			
			_purchases=New JsonObject
			
			For Local product:=Eachin _products
				_purchases.SetNumber( product.Identifier,0 )
			Next
			
			SavePurchases()
			
		Endif
		
	End
	
	Method SavePurchases()
		
		_purchases.Save( "internal::purchases.json" )
	
	end

	'populate listview with products
	'
	Method UpdateListView()

		_listView.RemoveAllItems()
		
		If _iap.Open
		
			For Local product:=Eachin _products
				
				'products become valid when store is opened.
				'
				'If Not product.Valid Continue
				
				_listView.AddItem( product.Title+" - "+product.Description+" for the low price of "+product.Price+" ("+_purchases.GetNumber( product.Identifier )+")" )
			Next
			
		Endif
			
		_listView.AddItem( "[RESTORE PURCHASES]" )
		
	End
	
	Method OnRender( canvas:Canvas ) Override
		
		App.RequestRender()
		
		canvas.DrawText( "Hello World!",Width/2,Height/2,.5,.5 )
		
		canvas.DrawText( "IAP info:"+_info,0,0 )
	End
	
	Method OnMeasure:Vec2i() Override
		
		Return New Vec2i( 640,360 )
	End
	
End

Function Main()

	New AppInstance
	
	New MyWindow
	
	App.Run()
End