192 lines
9.5 KiB
VB.net
192 lines
9.5 KiB
VB.net
Public Class GameOptions
|
|
|
|
Public RenderDistance As Integer = 3
|
|
Public ShowDebug As Integer = 0
|
|
Public ShowGUI As Boolean = True
|
|
Public GraphicStyle As Integer = 1
|
|
Public LoadOffsetMaps As Integer = 1
|
|
Public ContentPackNames() As String = {}
|
|
Public ViewBobbing As Boolean = True
|
|
Public LightingEnabled As Boolean = True
|
|
Public GamePadEnabled As Boolean = True
|
|
Public StartedOfflineGame As Boolean = False
|
|
Public WindowSize As New Vector2(1200, 680)
|
|
Public ForceMusic As Boolean = False
|
|
Public MaxOffsetLevel As Integer = 0
|
|
Public UpdateDisabled As Boolean = False
|
|
Public Extras As New List(Of String)
|
|
|
|
Public Sub LoadOptions()
|
|
KeyBindings.CreateKeySave(False)
|
|
If Directory.Exists(GameController.GamePath & "\Save\") = False Then
|
|
Directory.CreateDirectory(GameController.GamePath & "\Save\")
|
|
End If
|
|
|
|
If File.Exists(GameController.GamePath & "\Save\options.dat") = False Then
|
|
CreateOptions()
|
|
End If
|
|
|
|
Dim Data() As String = File.ReadAllText(GameController.GamePath & "\Save\options.dat").SplitAtNewline()
|
|
|
|
Dim LanguageFound As Boolean = False
|
|
|
|
For Each line As String In Data
|
|
If line <> "" Then
|
|
Dim name As String = line.GetSplit(0, "|")
|
|
Dim value As String = line.GetSplit(1, "|")
|
|
|
|
Select Case name.ToLower()
|
|
Case "volume"
|
|
MusicManager.MasterVolume = CSng(CDbl(value) / 100)
|
|
SoundManager.Volume = CSng(CDbl(value) / 100)
|
|
Case "music"
|
|
MusicManager.MasterVolume = CSng(CDbl(value) / 100)
|
|
Case "sound"
|
|
SoundManager.Volume = CSng(CDbl(value) / 100)
|
|
Case "muted"
|
|
SoundManager.Muted = CBool(value)
|
|
MusicManager.Muted = CBool(value)
|
|
Case "renderdistance"
|
|
Me.RenderDistance = CInt(value)
|
|
Case "showdebug"
|
|
Me.ShowDebug = CInt(value)
|
|
Case "showboundingboxes"
|
|
Entity.drawViewBox = CBool(value)
|
|
Case "showdebugconsole"
|
|
Logger.DisplayLog = CBool(value)
|
|
Case "showgui"
|
|
Me.ShowGUI = CBool(value)
|
|
Case "graphicstyle"
|
|
Me.GraphicStyle = CInt(value)
|
|
Case "loadoffsetmaps"
|
|
Me.LoadOffsetMaps = CInt(value)
|
|
Case "language"
|
|
LanguageFound = True
|
|
Localization.Load(value)
|
|
Case "contentpack", "contentpacks"
|
|
ContentPackManager.CreateContentPackFolder()
|
|
If value <> "" Then
|
|
Me.ContentPackNames = value.Split(CChar(","))
|
|
If Me.ContentPackNames.Count > 0 Then
|
|
For Each c As String In Me.ContentPackNames
|
|
If Directory.Exists(GameController.GamePath & "\ContentPacks\" & c) = False Then
|
|
Dim cList As List(Of String) = Me.ContentPackNames.ToList()
|
|
cList.Remove(c)
|
|
Me.ContentPackNames = cList.ToArray()
|
|
Else
|
|
ContentPackManager.Load(GameController.GamePath & "\ContentPacks\" & c & "\exceptions.dat")
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
Case "viewbobbing"
|
|
Me.ViewBobbing = CBool(value)
|
|
Case "lightingenabled", "lightningenabled"
|
|
Me.LightingEnabled = CBool(value)
|
|
Case "gamepadenabled"
|
|
Me.GamePadEnabled = CBool(value)
|
|
Case "startedofflinegame"
|
|
Me.StartedOfflineGame = CBool(value)
|
|
Case "prefermultisampling"
|
|
Core.GraphicsManager.PreferMultiSampling = CBool(value)
|
|
Case "windowsize"
|
|
If value.Contains(",") = True Then
|
|
Dim arg() As String = value.Split(CChar(","))
|
|
If StringHelper.IsNumeric(arg(0)) = True Then
|
|
Me.WindowSize.X = CSng(arg(0).Replace(".", GameController.DecSeparator)).Clamp(1, 4096)
|
|
End If
|
|
If StringHelper.IsNumeric(arg(1)) = True Then
|
|
Me.WindowSize.Y = CSng(arg(1).Replace(".", GameController.DecSeparator)).Clamp(1, 4096)
|
|
End If
|
|
End If
|
|
Case "forcemusic"
|
|
Me.ForceMusic = CBool(value)
|
|
Case "maxoffsetlevel"
|
|
Me.MaxOffsetLevel = CInt(value)
|
|
Case "extras"
|
|
If Not String.IsNullOrEmpty(value) Then
|
|
Me.Extras = value.Split(";"c).ToList()
|
|
End If
|
|
Case "updatedisabled"
|
|
UpdateDisabled = CBool(value)
|
|
End Select
|
|
End If
|
|
Next
|
|
|
|
If LanguageFound = False Then
|
|
Localization.Load("en")
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub SaveOptions()
|
|
If MapPreviewScreen.MapViewMode = False Then
|
|
Dim mutedString As String = MusicManager.Muted.ToNumberString()
|
|
Dim showDebugString As String = Me.ShowDebug.ToString()
|
|
Dim ContentPackString As String = ""
|
|
If Me.ContentPackNames.Count > 0 Then
|
|
For Each c As String In Me.ContentPackNames
|
|
If ContentPackString <> "" Then
|
|
ContentPackString &= ","
|
|
End If
|
|
ContentPackString &= c
|
|
Next
|
|
End If
|
|
|
|
Dim Data As String = "Music|" & CInt(MusicManager.MasterVolume * 100) & Environment.NewLine &
|
|
"Sound|" & CInt(SoundManager.Volume * 100) & Environment.NewLine &
|
|
"Muted|" & mutedString & Environment.NewLine &
|
|
"RenderDistance|" & Me.RenderDistance.ToString() & Environment.NewLine &
|
|
"ShowDebug|" & showDebugString & Environment.NewLine &
|
|
"ShowBoundingBoxes|" & Entity.drawViewBox.ToNumberString() & Environment.NewLine &
|
|
"ShowDebugConsole|" & Logger.DisplayLog.ToNumberString() & Environment.NewLine &
|
|
"ShowGUI|" & Me.ShowGUI.ToNumberString() & Environment.NewLine &
|
|
"GraphicStyle|" & Me.GraphicStyle.ToString() & Environment.NewLine &
|
|
"LoadOffsetMaps|" & Me.LoadOffsetMaps.ToString() & Environment.NewLine &
|
|
"Language|" & Localization.LanguageSuffix & Environment.NewLine &
|
|
"ViewBobbing|" & Me.ViewBobbing.ToNumberString() & Environment.NewLine &
|
|
"GamePadEnabled|" & Me.GamePadEnabled.ToNumberString() & Environment.NewLine &
|
|
"LightingEnabled|" & Me.LightingEnabled.ToNumberString() & Environment.NewLine &
|
|
"StartedOfflineGame|" & Me.StartedOfflineGame.ToNumberString() & Environment.NewLine &
|
|
"PreferMultiSampling|" & Core.GraphicsManager.PreferMultiSampling.ToNumberString() & Environment.NewLine &
|
|
"ContentPacks|" & ContentPackString & Environment.NewLine &
|
|
"WindowSize|" & Core.windowSize.Width.ToString() & "," & Core.windowSize.Height.ToString().Replace(GameController.DecSeparator, ".") & Environment.NewLine &
|
|
"ForceMusic|" & Me.ForceMusic.ToNumberString() & Environment.NewLine &
|
|
"MaxOffsetLevel|" & Me.MaxOffsetLevel.ToString() & Environment.NewLine &
|
|
"UpdateDisabled|" & Me.UpdateDisabled.ToNumberString() & Environment.NewLine &
|
|
"Extras|" & String.Join(";", Me.Extras)
|
|
|
|
File.WriteAllText(GameController.GamePath & "\Save\options.dat", Data)
|
|
KeyBindings.SaveKeys()
|
|
|
|
Logger.Debug("---Options saved---")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CreateOptions()
|
|
Dim s As String = "Music|50" & Environment.NewLine &
|
|
"Sound|50" & Environment.NewLine &
|
|
"Muted|0" & Environment.NewLine &
|
|
"RenderDistance|2" & Environment.NewLine &
|
|
"ShowDebug|0" & Environment.NewLine &
|
|
"ShowBoundingBoxes|0" & Environment.NewLine &
|
|
"ShowDebugConsole|0" & Environment.NewLine &
|
|
"ShowGUI|1" & Environment.NewLine &
|
|
"GraphicStyle|1" & Environment.NewLine &
|
|
"LoadOffsetMaps|1" & Environment.NewLine &
|
|
"Language|en" & Environment.NewLine &
|
|
"ViewBobbing|1" & Environment.NewLine &
|
|
"GamePadEnabled|1" & Environment.NewLine &
|
|
"LightingEnabled|1" & Environment.NewLine &
|
|
"StartedOfflineGame|0" & Environment.NewLine &
|
|
"PreferMultiSampling|1" & Environment.NewLine &
|
|
"ContentPacks|" & Environment.NewLine &
|
|
"WindowSize|1200,680" & Environment.NewLine &
|
|
"ForceMusic|0" & Environment.NewLine &
|
|
"MaxOffsetLevel|0" & Environment.NewLine &
|
|
"UpdateDisabled|0" & Environment.NewLine &
|
|
"Extras|"
|
|
|
|
File.WriteAllText(GameController.GamePath & "\Save\options.dat", s)
|
|
End Sub
|
|
|
|
End Class |