Imports System
Imports System.IO
Imports System.Drawing
Imports System.Windows.Forms
Imports FRB
Imports FRB.GUI
Imports FRB.Text
Imports FRB.Audio
Imports FRB.Collections
Imports FRB.Instructions
Imports Microsoft.DirectX.DirectInput

#Region "Changes"
'Changes: These are the problems I had running this 'as is' with the current FRB.dll in VS2K5
'
' "Found conflicts between different versions of same dependent assembly."
'  Fix: Visual Studio added binding redirect reccords in app.config.
'  Comment: I'm not exactly sure what this means.
'
'sprMan = New SpriteManager(sms, sr, Me) "Argument not specified for 'defaultTextLocation'
'  Fix: Added a path string ... again, I'm not totally sure how this works, but I have an idea, I'm guessing that
'       this is the default path for sprite image rescources.
'
'guiMan = New GuiManager(sprMan, textMan, inpMan, camera, "genGfx/guiTex.png")
'  The GuiResult paramater is missing, I don't know what it does, but the documatation says it's use is not reccomended
'  Fix: I'll use guiResult ... and hope it does whatever it's supposed to do.
'
'sms.numOfUnordered = 10
'  FRB doesn't seem to implement this property of the SpriteManagerSettings class anymore
'  Fix: I'll comment out the line, for now.
'
'guiMan.Control(guiResult)
'  This method of the GuiManager class doesn't take an argument anymore
'  Fix: I'll remove the guiResult refrence.
'
'guiMan.Draw(guiResult)
'  This method is now a private member of the GuiManager class ... I'm going to assume that this is due to
'  the fact that guiResult is no longer used as it used to
'  Fix: I'll comment out the line
'
'Conclusion: It runs now, I hope that I haven't missed anything that I didn't understand that will 
'end up biting me later.
'
' Thanks goes to whoever origially wrote this template for VB.net ... I did not write this,
'I just modifed a little bit of it so that it would work for me. --C4Cypher  c4cypher56@hotmail.com


#End Region




Namespace GameName

    Public Class GameForm
        Inherits Form
        Public Shared sprMan As SpriteManager
        Public Shared inpMan As InputManager
        Public Shared textMan As TextManager
        Public Shared guiMan As GuiManager
        Public Shared myCursor As FRB.Cursor
        Public Shared camera As Camera
        Public Shared random As Random = New Random
        Public Shared gameData As GameData
        Public Shared sms As SpriteManagerSettings
        Public Shared guiResult As GuiResult = New GuiResult

        Public Sub New(ByVal sms As SpriteManagerSettings)
            Dim sr As StreamWriter = New StreamWriter("initlog.txt")
            If File.Exists("settings/displaySettings.txt") Then
                Dim tr As TextReader = New StreamReader("settings/displaySettings.txt")
                Dim buffer As String = tr.ReadToEnd
                If CommonFunctions.GetCharAfter("Fullscreen: ", buffer) = "f"c Then
                    sms.fullScreen = True
                Else
                    sms.fullScreen = False
                End If
                If CommonFunctions.GetCharAfter("Filtering: ", buffer) = "p"c Then
                    sms.filtering = False
                Else
                    sms.filtering = True
                End If
                If sms.fullScreen AndAlso Not Single.IsNaN(CommonFunctions.GetFloatAfter("Height in pixels: ", buffer)) Then
                    sms.screenHeight = CType((CommonFunctions.GetFloatAfter("Height in pixels: ", buffer)), Integer)
                End If
                If sms.fullScreen AndAlso Not Single.IsNaN(CommonFunctions.GetFloatAfter("Width in pixels: ", buffer)) Then
                    sms.screenWidth = CType((CommonFunctions.GetFloatAfter("Width in pixels: ", buffer)), Integer)
                End If
            End If
            Dim tempSize As Size = SystemInformation.PrimaryMonitorSize
            If sms.screenHeight = 0 Then
                sms.screenHeight = tempSize.Height
            End If
            If sms.screenWidth = 0 Then
                sms.screenWidth = tempSize.Width
            End If
            Me.ClientSize = New System.Drawing.Size(sms.screenWidth, sms.screenHeight)
            System.Windows.Forms.Cursor.Hide()
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
            Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
            Me.Text = "FRB Template " + Application.ProductVersion
            TimeManager.Initialize()
            inpMan = New InputManager(Me, sr)
            sprMan = New SpriteManager(sms, sr, Me, "..\Media")
            textMan = sprMan.textMan
            camera = sprMan.ca(0)
            guiMan = New GuiManager(sprMan, textMan, inpMan, camera, "genGfx/guiTex.png", guiResult)
            myCursor = guiMan.cursor
            gameData = New GameData
            TimeManager.Update()
            gameData.Initialize(Me)
            gameData.guiData.Initialize(Me)
            gameData.guiData.messages.Initialize()
            sr.WriteLine("Everything seemed to initialize fine.  Starting the game.")
            sr.Close()
        End Sub

        Protected Overloads Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
            If (e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Escape)) Then
                ExitGame(Me)
            End If
        End Sub

        Protected Overloads Overrides Sub OnResize(ByVal e As System.EventArgs)
        End Sub

        Public Shared Sub ExitGame(ByVal form As GameForm)
            System.Windows.Forms.Cursor.Show()
            form.Dispose()
        End Sub

        Shared Sub Main()
            sms = New SpriteManagerSettings
            'sms.numOfUnordered = 10
            sms.maxNumOfParticles = 3000
            sms.fullScreen = False
            sms.filtering = True
            sms.animateUnorderedSprites = False
            sms.screenHeight = 0
            sms.screenWidth = 0
            Dim frm As GameForm = New GameForm(sms)
            frm.Show()
            While frm.Created
                TimeManager.Update()
                inpMan.GetInputState(guiResult)
                guiMan.Control()
                sprMan.ExecuteInstructions()
                sprMan.Move()
                textMan.Move()
                sprMan.Animate()
                guiMan.Animate(sprMan)
                gameData.Activity()
                sprMan.UpdateDependencies()
                textMan.UpdateDependencies()
                sprMan.CallCustomFunctions()
                sprMan.Sort()
                sprMan.BeginDrawing()
                sprMan.Draw(sprMan.ca(0))
                'guiMan.Draw(guiResult)
                gameData.AfterFrameActivity()
                sprMan.EndDrawing()
                Application.DoEvents()
            End While
        End Sub
    End Class
End Namespace