Sub Activity_Create(FirstTime As Boolean)
'...
'**
jumpb.Initialize("jumpb")
downb.Initialize("downb")
fireb.Initialize("fireb")
' buttonpanel.Initialize("")
' buttonpanel2.Initialize("")
pausebt.Initialize ("pausebt")
backbt.Initialize ("backbt")
contbt.Initialize ("contbt")
pausepanel.Initialize("")
' Activity.AddView(buttonpanel,100%x - 30%x,100%y - 23%y,28%x,20%y)
Activity.AddView (jumpb,100%x - 14%x, 100%y - 24%y,11%x,22%y)
Activity.AddView (downb,100%x - 29%x, 100%y - 24%y,11%x,22%y)
' Activity.AddView(buttonpanel2,3%x,100%y - 18%y,8%x,13%y)
' buttonpanel2.RemoveAllViews
Activity.AddView (fireb,3%x, 100%y - 24%y,11%x,22%y)
' buttonpanel.BringToFront
' buttonpanel2.BringToFront
jumpb.BringToFront
downb.BringToFront
fireb.BringToFront
'pause panel + buttons
Activity.AddView(pausebt,5%x, 5%y, 40dip, 40dip)
Activity.AddView(pausepanel,30%x, 20%y, 40%x, 60%y)
Dim bd As BitmapDrawable
bd.Initialize(LoadBitmap(File.DirAssets , "nss.png"))
bd.Gravity = Gravity.FILL
pausepanel.Background = bd
backbt.Text = "Menu"
backbt.Gravity = Gravity.CENTER
backbt.TextSize = 12
backbt.Color = Colors.Black
backbt.TextColor = Colors.White
SetAlpha(backbt, 150)
contbt.Text = "Continue"
contbt.Gravity = Gravity.CENTER
contbt.TextSize = 12
contbt.Color = Colors.Black
contbt.TextColor = Colors.White
SetAlpha(contbt, 150)
pausepanel.AddView(backbt, 5%x,17.5%y, 30%x, 12%y)
pausepanel.AddView(contbt, 5%x,36%y, 30%x, 12%y)
pausepanel.Visible = False
anim2.InitializeScaleCenter("anim2",0,0,1,1,pausepanel)
anim3.InitializeScaleCenter("anim3",1,1,0,0,pausepanel)
'loading image
Activity.AddView(loadingimg,0,0,100%x,100%y)
loadingimg.SetBackgroundImage(LoadBitmap(File.DirAssets,"loading.png"))
loadingimg.Gravity = Gravity.FILL
loadingimg.BringToFront
#If Free
Try
mwAdInterstitial2.Initialize("mwadi2","pub-8081096xxxxxxxxxxxxxxxxxxx") 'new admob fullscree
mwAdInterstitial2.LoadAd' 'admob
Catch
Log("")
End Try
#End If
change_font
End Sub