Added licensing notices to SplashScreen

Also removed "Kolben Games" branding
This commit is contained in:
nilllzz 2016-09-16 22:26:28 +02:00
parent 29b41e7510
commit e842c39acb
8 changed files with 51 additions and 59050 deletions

View File

@ -36,7 +36,7 @@ Public Class GameController
''' The name of the developer that appears on the title screen. ''' The name of the developer that appears on the title screen.
''' </summary> ''' </summary>
''' <remarks></remarks> ''' <remarks></remarks>
Public Const DEVELOPER_NAME As String = "Kolben Games" Public Const DEVELOPER_NAME As String = "P3D Team"
''' <summary> ''' <summary>
''' If the Debug Mode is active. ''' If the Debug Mode is active.

View File

@ -1,48 +1,59 @@
Public Class SplashScreen Imports System.Threading
Friend Class SplashScreen
Inherits Screen Inherits Screen
Dim StartedLoad As Boolean = False Private Const LICENSE_TEXT As String = """MonoGame"", the MonoGame Logo and source code are copyrights of MonoGame Team (monogame.net)." + vbNewLine +
Dim Texture() As Texture2D "Pokémon 3D is not affiliated with Nintendo, Creatures Inc. or GAME FREAK Inc."
Dim Game As GameController
Dim LoadThread As Threading.Thread
Dim Delay As Single = 7.0F Private ReadOnly _monoGameLogo As Texture2D
Private ReadOnly _licenseFont As SpriteFont
Private ReadOnly _licenseTextSize As Vector2
Private _delay As Single = 7.0F
Private _loadThread As Thread
Private _startedLoad As Boolean
Private _game As GameController
Public Sub New(ByVal GameReference As GameController) Public Sub New(ByVal GameReference As GameController)
Me.Game = GameReference _game = GameReference
Me.CanBePaused = False
Me.CanMuteMusic = False
Me.CanChat = False
Me.CanTakeScreenshot = False
Me.CanDrawDebug = False
Me.MouseVisible = True
Me.CanGoFullscreen = False
Me.Texture = {Nothing, Nothing} CanBePaused = False
Me.Texture(0) = Core.Content.Load(Of Texture2D)("GUI\Logos\KolbenBrand") CanMuteMusic = False
Me.Texture(1) = Core.Content.Load(Of Texture2D)("GUI\Logos\KolbenText") CanChat = False
CanTakeScreenshot = False
CanDrawDebug = False
MouseVisible = True
CanGoFullscreen = False
_monoGameLogo = Core.Content.Load(Of Texture2D)("GUI\Logos\MonoGame")
_licenseFont = Core.Content.Load(Of SpriteFont)("Fonts\BMP\mainFont")
_licenseTextSize = _licenseFont.MeasureString(LICENSE_TEXT)
Me.Identification = Identifications.SplashScreen Me.Identification = Identifications.SplashScreen
End Sub End Sub
Public Overrides Sub Draw() Public Overrides Sub Draw()
Canvas.DrawRectangle(Core.windowSize, New Color(164, 27, 27)) Canvas.DrawRectangle(Core.windowSize, Color.Black)
Core.SpriteBatch.Draw(Me.Texture(0), New Rectangle(CInt(Core.windowSize.Width / 2) - CInt(Me.Texture(0).Width / 2), CInt(Core.windowSize.Height / 2) - CInt(Me.Texture(0).Height), Me.Texture(0).Width, Me.Texture(0).Height), Color.White) Core.SpriteBatch.Draw(_monoGameLogo, New Vector2(CSng(Core.windowSize.Width / 2 - _monoGameLogo.Width / 2),
Core.SpriteBatch.Draw(Me.Texture(1), New Rectangle(CInt(Core.windowSize.Width / 2) - CInt(Me.Texture(1).Width / 2), CInt(Core.windowSize.Height / 2) - CInt(Me.Texture(1).Height / 2) + CInt(Me.Texture(0).Height / 2), Me.Texture(1).Width, Me.Texture(1).Height), Color.White) CSng(Core.windowSize.Height / 2 - _monoGameLogo.Height / 2 - 50)), Color.White)
Core.SpriteBatch.DrawString(_licenseFont, LICENSE_TEXT, New Vector2(CSng(Core.windowSize.Width / 2 - _licenseTextSize.X / 2),
CSng(Core.windowSize.Height - _licenseTextSize.Y - 50)), Color.White)
End Sub End Sub
Public Overrides Sub Update() Public Overrides Sub Update()
If StartedLoad = False Then If _startedLoad = False Then
LoadThread = New Threading.Thread(AddressOf LoadContent) _startedLoad = True
LoadThread.Start()
StartedLoad = True _loadThread = New Thread(AddressOf LoadContent)
_loadThread.Start()
End If End If
If LoadThread.IsAlive = False Then If _loadThread.IsAlive = False Then
If Delay <= 0.0F Or GameController.IS_DEBUG_ACTIVE = True Then If _delay <= 0.0F Or GameController.IS_DEBUG_ACTIVE = True Then
Core.GraphicsManager.ApplyChanges() Core.GraphicsManager.ApplyChanges()
Logger.Debug("---Loading content ready---") Logger.Debug("---Loading content ready---")
@ -56,7 +67,7 @@
End If End If
End If End If
Delay -= 0.1F _delay -= 0.1F
End Sub End Sub
Private Sub LoadContent() Private Sub LoadContent()

File diff suppressed because it is too large Load Diff

View File

@ -10327,30 +10327,6 @@
/processorParam:TextureFormat=Color /processorParam:TextureFormat=Color
/build:Textures/Battle/Fighting/forcepalmparticle.png /build:Textures/Battle/Fighting/forcepalmparticle.png
#begin GUI/Logos/KolbenBrand.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:GUI/Logos/KolbenBrand.png
#begin GUI/Logos/KolbenText.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:GUI/Logos/KolbenText.png
#begin Textures/Battle/StatChange/Heal.png #begin Textures/Battle/StatChange/Heal.png
/importer:TextureImporter /importer:TextureImporter
/processor:TextureProcessor /processor:TextureProcessor
@ -38586,3 +38562,15 @@
/processorParam:TextureFormat=Color /processorParam:TextureFormat=Color
/build:Fonts/BMP/chatFont.png /build:Fonts/BMP/chatFont.png
#begin GUI/Logos/MonoGame.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:GUI/Logos/MonoGame.png

File diff suppressed because it is too large Load Diff

Binary file not shown.

Before

Width:  |  Height:  |  Size: 660 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 30 KiB