Sub Globals
Private ad As JavaObject
Private ctxt As JavaObject
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
ctxt.InitializeContext
End Sub
'Possible values: DEFAULT, HOME_SCREEN, STARTUP, PAUSE, EXIT, LEVEL_START, LEVEL_COMPLETE, ACHIEVEMENTS, LEADERBOARDS, STORE
Sub CreateAd (AdUnitId As String) As JavaObject
Dim AdId As JavaObject
AdId.InitializeStatic("com.appbrain.AdId")
Dim builder As JavaObject
builder = builder.InitializeStatic("com.appbrain.InterstitialBuilder").RunMethod("create", Null)
builder.RunMethod("setAdId", Array(AdId.GetField(AdUnitId)))
Dim listener As Object = builder.CreateEventFromUI("com.appbrain.InterstitialListener", "listener", Null)
builder.RunMethod("setListener", Array(listener))
builder.RunMethod("preload", Array(ctxt))
Return builder
End Sub
Sub Listener_Event (MethodName As String, Args() As Object) As Object
If Args <> Null Then
Dim largs As List = Args
Log(MethodName & ": " & largs)
Else
Log(MethodName)
End If
Return Null
End Sub
Sub Activity_Resume
ad = CreateAd("DEFAULT")
End Sub
Sub Activity_Click
ad.RunMethod("show", Array(ctxt)) 'show it
End Sub
