Sub Activity_Create(FirstTime As Boolean)
Activity.AddView(MyPan, 0, 0, Activity.Width, Activity.Height) : MyPan.Color = Colors.Black
If FirstTime Then
MyFade.Initialize(Activity, Me, "SplashScreen.png", Gravity.FILL, 10000, 70, "")
End If
MP.Initialize2("MP")
MP.Load(File.DirAssets, "splashscreen.mp3")
MP.Play
Timer1.Initialize("Timer1", 6000)
Timer1.Enabled=True
Pan(0).initialize("")
Pan(1).initialize("")
Pan(2).initialize("")
Pan(3).initialize("")
AdBox.Initialize("Ad", "a15262e11b9a158")
ak.Initialize("ak","83")
ak.Check4AppKey
Activity.AddMenuItem("Unlock Premium Features", "Unlock")
End Sub
Sub Activity_Resume
ak.Check4AppKey
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Ad_FailedToReceiveAd (ErrorCode As String)
Log("failed: " & ErrorCode)
End Sub
Sub Ad_ReceiveAd
Log("received")
End Sub
Sub Ad_AdScreenDismissed
Log("screen dismissed")
End Sub
Sub Timer1_tick
Timer1.Enabled=False
Container.initialize
Pan(0).LoadLayout("main1")
Container.AddPageAt(Pan(0), "Zombies", 0)
Pan(1).LoadLayout("zombies1")
Container.AddPageAt(Pan(1), "Black Ops", 1)
Pan(2).LoadLayout("zombies2")
Container.AddPageAt(Pan(2), "Black Ops2", 2)
Pan(3).LoadLayout("origins")
Container.AddPageAt(Pan(3), "Origins", 3)
Pager.Initialize(Container, "Pager")
Pager.Enabled=True
Tabs.Initialize(Pager)
Tabs.LineHeight = 3dip
Tabs.LineColorCenter = Colors.Gray
Tabs.TextColor = Colors.Gray
Tabs.TextColorCenter = Colors.Red
Tabs.Visible=True
Activity.AddView(Tabs, 0dip, 0dip, 100%x, 100%y)
Dim Col As ColorDrawable
Col.Initialize(Colors.Black, 0)
Line.Initialize("")
Line.Background = Col
Activity.AddView(Line, 0dip, 35dip, Activity.Width, 2dip)
Activity.AddView(Pager, 0dip, 35dip + 2dip, Activity.Width, Activity.height - 35dip - 2dip)
Activity.AddView(AdBox, 0dip, 100%y - 50dip, 320dip, 50dip)
AdBox.LoadAd
AdBox.Visible=True
End Sub