44 lines
1.3 KiB
VB.net
44 lines
1.3 KiB
VB.net
|
#If WINDOWS Or XBOX Then
|
||
|
|
|
||
|
|
Module Program
|
||
|
|
|
||
|
|
Private _gameCrashed As Boolean = False
|
||
|
|
|
||
|
|
''' <summary>
|
||
|
|
''' The main entry point for the application.
|
||
|
|
''' </summary>
|
||
|
|
Sub Main(ByVal args As String())
|
||
|
|
Debug.Print(" ")
|
||
|
|
Debug.Print("PROGRAM EXECUTION STARTED")
|
||
|
|
Debug.Print("STACK TRACE ENTRY | MESSAGE")
|
||
|
|
Debug.Print("------------------------------------|------------------------------------")
|
||
|
|
|
||
|
|
CommandLineArgHandler.Initialize(args)
|
||
|
|
|
||
|
|
Logger.Debug("---Start game---")
|
||
|
|
|
||
|
|
Using Game As New GameController()
|
||
|
If GameController.IS_DEBUG_ACTIVE And Debugger.IsAttached Then
|
||
|
|
Game.Run()
|
||
|
|
Else
|
||
|
|
Try
|
||
|
|
Game.Run()
|
||
|
|
Catch ex As Exception
|
||
|
|
_gameCrashed = True
|
||
|
|
Dim informationItem As New Logger.ErrorInformation(ex)
|
||
|
|
Logger.LogCrash(ex)
|
||
|
|
Logger.Log(Logger.LogTypes.ErrorMessage, "The game crashed with error ID: " & informationItem.ErrorIDString & " (" & ex.Message & ")")
|
||
|
|
End Try
|
||
|
|
End If
|
||
|
|
End Using
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Public ReadOnly Property GameCrashed() As Boolean
|
||
|
|
Get
|
||
|
|
Return _gameCrashed
|
||
|
|
End Get
|
||
|
|
End Property
|
||
|
|
|
||
|
|
End Module
|
||
|
|
|
||
|
|
#End If
|