SBuilderX Forum

Stumbled across this in the SBuilderX.ini file. Seems SBuilder knows something about where FSX is on my system. I wonder why it won't run?

[Main]
BackUpSeconds=60
BackUpON=False
SmoothDistance=50
SampleDistance=10
CornerSmooth=True
NoEndsSmooth=True
NameJoin=True
DirJoin=True
DisplayJoin=True
ShowLabels=1
AutoLinePolyJoin=1
UnselectedPointColor=FFFF0000
SelectedPointColor=FF008000
BGLFolder=E:\FSX\SBuilderX\Scenery
ShowDonation=True
AskDelete=True
BorderON=True
ShowAircraftPeriod=5000
MeasuringMeters=True
DecimalDegrees=False
LatIniCenter=40
LonIniCenter=-10
DefaultWC=2
DefaultLC=11

[Objects]
LibObjectsPath=E:\FSX\SBuilderX\LibObjects
MacroASDPath=E:\FSX\SBuilderX\ASD
MacroAPIPath=E:\FSX\SBuilderX\API
Rwy12Path=E:\FSX\SBuilderX\Rwy12

Nevermind. I just realized that this is the path to SBuilder.

Luis Sa wrote:Hi Joe,

I hope you can follow the code that SBuilder uses to check for all the ressources that it needs. Then see if your registry is as SBuilder expects it to be.

Regards (and sorry if this is too technical),

Luis

Code: Select all

Private Sub CheckFS10()

        Dim C As String

        FSXExists = False
        FSPath = ""
        FSPath = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Microsoft Games\Flight Simulator\10.0", "SetupPath", Nothing)
        If FSPath = "" Then
            MsgBox("FSX could not be found in this computer!", 16, AppTitle)
        Else
            FSTextureFolder = FSPath & "\Scenery\World\Texture\"
            If Not My.Computer.FileSystem.FileExists(FSPath & "terrain.cfg") Then
                C = "The Windows Registry indicates that FSX is in the folder:" & vbCrLf & vbCrLf
                C = C & FSPath & vbCrLf & vbCrLf
                C = C & "but SBuilder could not find it there!"
                MsgBox(C, 16, AppTitle)
            Else
                FSXExists = True
            End If
        End If

    End Sub

    Private Sub CheckFSXTools()

        Dim B, C As String
        Dim ToolsFolder As String

        ToolsFolder = AppPath & "\Tools\"
        FSXTools = False
        If My.Computer.FileSystem.FileExists(ToolsFolder & "shp2vec.exe") _
         And My.Computer.FileSystem.FileExists(ToolsFolder & "resample.exe") _
         And My.Computer.FileSystem.FileExists(ToolsFolder & "bglcomp.exe") _
         And My.Computer.FileSystem.FileExists(ToolsFolder & "bglcomp.xsd") _
         And My.Computer.FileSystem.FileExists(ToolsFolder & "imagetool.exe") Then
            FSXTools = True
            SDKPath = ""
            SDKPath = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Microsoft Games\Flight Simulator X SDK", "SetupPath", Nothing)
            If SDKPath <> "" Then
                SDKTerrain = SDKPath & "SDK\Environment Kit\Terrain SDK\"
                SDKBglComp = SDKPath & "SDK\Environment Kit\BGL Compiler SDK\"
            End If
            Exit Sub
        End If

        SDKPath = ""
        SDKPath = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Microsoft Games\Flight Simulator X SDK", "SetupPath", Nothing)
        If SDKPath = "" Then
            C = "ImageTool, Shp2Vec, Resample & BGLComp do not exist in the ..\SBuilder\Tools folder and"
            C = C & vbCrLf & "the Terrain SDK could not be found in this computer! Some BGL files can not be generated!"
            MsgBox(C, 16, AppTitle)
        Else
            SDKTerrain = SDKPath & "SDK\Environment Kit\Terrain SDK\"
            SDKBglComp = SDKPath & "SDK\Environment Kit\BGL Compiler SDK\"
            If My.Computer.FileSystem.FileExists(SDKTerrain & "shp2vec.exe") _
            And My.Computer.FileSystem.FileExists(SDKTerrain & "resample.exe") _
            And My.Computer.FileSystem.FileExists(SDKBglComp & "bglcomp.exe") _
            And My.Computer.FileSystem.FileExists(SDKBglComp & "bglcomp.xsd") _
            And My.Computer.FileSystem.FileExists(SDKTerrain & "imagetool.exe") Then

                B = SDKTerrain & "shp2vec.exe"
                C = ToolsFolder & "shp2vec.exe"
                File.Copy(B, C, True)
                B = SDKTerrain & "resample.exe"
                C = ToolsFolder & "resample.exe"
                File.Copy(B, C, True)
                B = SDKTerrain & "imagetool.exe"
                C = ToolsFolder & "imagetool.exe"
                File.Copy(B, C, True)

                B = SDKBglComp & "bglcomp.exe"
                C = ToolsFolder & "bglcomp.exe"
                File.Copy(B, C, True)
                B = SDKBglComp & "bglcomp.xsd"
                C = ToolsFolder & "bglcomp.xsd"
                File.Copy(B, C, True)

                FSXTools = True
            Else
                C = "Shp2Vec, ImageTool, Resample & BGLComp do not exist in the ..\SBuilder\Tools folder and"
                C = C & vbCrLf & "the Terrain SDK could not be found in this computer! Some BGL files can not be generated!"
                MsgBox(C, 16, AppTitle)
            End If
        End If


    End Sub

    Private Sub CheckTerrainCFG()

        If Not FSXExists Then Exit Sub
        If OriginalTerrainCFG Then Exit Sub

        Dim TerrainFile As String = FSPath & "terrain.cfg"
        Dim A As String

        Dim IsOK As Boolean = True
        FileOpen(2, TerrainFile, OpenMode.Input)
        A = LineInput(2)
        FileClose()

        If A <> "//------------------------------------------------------------------------" Then IsOK = False

        If IsOK Then Exit Sub

        A = "The modified FSX terrain.cfg file authored by Richard Ludowise" & vbCrLf
        A = A & "and Luis Féliz-Tirado was not detected in your system! For better" & vbCrLf
        A = A & "results you should install this file. SBuilderX can make a backup" & vbCrLf
        A = A & "of the original terrain.cfg and install the modified file for you." & vbCrLf & vbCrLf
        A = A & "Do you want to install the modified terrain.cfg?" & vbCrLf

        If MsgBox(A, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            A = "Enter a filename to store the original terrain.cfg."
            Dim BackUpFile As String = InputBox(A, , "terrain_original.cfg")
            If BackUpFile = "" Then Exit Sub
            BackUpFile = FSPath & BackUpFile
            File.Copy(TerrainFile, BackUpFile, True)
            Dim ModTerrainFile As String = AppPath & "\Tools\terrain.cfg"
            File.Copy(ModTerrainFile, TerrainFile, True)
        Else
            A = "If you want to keep your present terrain.cfg and" & vbCrLf
            A = A & "force SBuilderX to ignore this test, answer YES!"
            If MsgBox(A, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                OriginalTerrainCFG = True
                WriteMainSettings()
            End If
        End If

    End Sub

I have problem as SBuilderX claims that it could not find FSX from my PC. My FSX is C:\Program Files (x86)\Microsoft Games\Microsoft Flight Simulator X\

Refer to my earlier post above:

My FSX path is: C:\Program Files (x86)\Microsoft Games\Microsoft Flight Simulator X\
and I have added it to my register but it didn't solve the problem.

I am using Vista 64bit.