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.
''' </summary>
''' <remarks></remarks>
Public Const DEVELOPER_NAME As String = "Kolben Games"
Public Const DEVELOPER_NAME As String = "P3D Team"
''' <summary>
''' If the Debug Mode is active.

View File

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

File diff suppressed because it is too large Load Diff

View File

@ -10327,30 +10327,6 @@
/processorParam:TextureFormat=Color
/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
/importer:TextureImporter
/processor:TextureProcessor
@ -38586,3 +38562,15 @@
/processorParam:TextureFormat=Color
/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