Imports System.IO
Imports System.ArgumentException
Module ChangeSettings
Sub Main()
Dim lines() As String = System.IO.File.ReadAllLines(My.Resources.Install3rdperson)
If lines.Count >= 76 Then
lines(76) = ".Bindings=(Name=""" + SettingsForm.Freecam.Text + """" + "," + "Command=" + "Camera Freecam" + ")"
System.IO.File.WriteAllLines(My.Resources.Install3rdperson, lines)
End If
End Sub
End Module
Imports System.ArgumentException
Module ChangeSettings
Sub Main()
Dim lines() As String = System.IO.File.ReadAllLines(My.Resources.Install3rdperson)
If lines.Count >= 76 Then
lines(76) = ".Bindings=(Name=""" + SettingsForm.Freecam.Text + """" + "," + "Command=" + "Camera Freecam" + ")"
System.IO.File.WriteAllLines(My.Resources.Install3rdperson, lines)
End If
End Sub
End Module