45 lines
1.2 KiB
VB.net
45 lines
1.2 KiB
VB.net
|
Module CommandLineArgHandler
|
|||
|
|
|
|||
|
|
Private _forceGraphics As Boolean = False
|
|||
|
Private _nosplash As Boolean = False
|
|||
|
|
|
|||
|
|
Public Sub Initialize(ByVal args() As String)
|
|||
|
|
If args.Length > 0 Then
|
|||
|
|
If args.Any(Function(arg As String)
|
|||
|
|
Return arg = "-forcegraphics"
|
|||
|
|
End Function) Then
|
|||
|
|
_forceGraphics = True
|
|||
|
|
End If
|
|||
|
|
If args.Any(Function(arg As String)
|
|||
|
|
Return arg = "-nosplash"
|
|||
|
|
End Function) Then
|
|||
|
|
_nosplash = True
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
For Each arg As String In args
|
|||
|
|
If arg.Contains(":") = True Then
|
|||
|
|
Dim identifier As String = arg.Remove(arg.IndexOf(":"))
|
|||
|
|
Dim value As String = arg.Remove(0, arg.IndexOf(":") + 1)
|
|||
|
|
|
|||
|
|
Select Case identifier
|
|||
|
|
Case "MAP"
|
|||
|
|
MapPreviewScreen.DetectMapPath(value)
|
|||
|
|
End Select
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public ReadOnly Property ForceGraphics() As Boolean
|
|||
|
|
Get
|
|||
|
|
Return _forceGraphics
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
Public ReadOnly Property NoSplash() As Boolean
|
|||
|
|
Get
|
|||
|
|
Return _nosplash
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
End Module
|