45 lines
1.0 KiB
VB.net
45 lines
1.0 KiB
VB.net
Public Class SecretBaseScreen
|
|
|
|
Inherits Screen
|
|
|
|
Public SavedOverworld As OverworldStorage
|
|
Public SecretBase As SecretBase
|
|
|
|
Dim ParticlesTexture As Texture2D
|
|
|
|
Public Sub New()
|
|
Me.Identification = Identifications.SecretBaseScreen
|
|
Me.CanBePaused = True
|
|
|
|
Me.SavedOverworld = New OverworldStorage()
|
|
Me.SavedOverworld.SetToCurrentEnvironment()
|
|
|
|
Me.SecretBase = New SecretBase()
|
|
|
|
Effect = New BasicEffect(Core.GraphicsDevice)
|
|
|
|
Camera = New SecretBaseCamera()
|
|
Level = New Level()
|
|
Level.Load("|")
|
|
|
|
Me.SecretBase.LoadSecretBaseFromStore(Screen.Level)
|
|
MusicManager.Play(Level.MusicLoop, True)
|
|
End Sub
|
|
|
|
Public Overrides Sub Update()
|
|
'Lighting.UpdateLighting(Screen.Effect)
|
|
|
|
Camera.Update()
|
|
Level.Update()
|
|
End Sub
|
|
|
|
Public Overrides Sub Draw()
|
|
TextBox.Draw()
|
|
If Me.IsCurrentScreen() = True Then
|
|
ChooseBox.Draw()
|
|
End If
|
|
|
|
Level.Draw()
|
|
End Sub
|
|
|
|
End Class |