#SingleInstance force
If not A_IsAdmin
{
Run *RunAs Install_BZB-Qickstart.exe %A_ScriptName%
ExitApp
}
#Include %A_ScriptDir%\Scr\Header.ahk
SetWorkingDir, %A_ScriptDir%
If 0 = 1
{ fsxp3d = %1%
second = Second run:
}Else
{ fsxp3d := 0
second =
}
If (fsxp3d < 2 AND FileExist("scr\FSXHeader.ahk") )
{ FileDelete, Scr\Header.ahk
FileDelete, Lib\CFGParams.ahk
FileDelete, Scr\Lib\CFGParams.ahk
FileMove, scr\FSXHeader.ahk, scr\Header.ahk
FileMove, Lib\FSXCFGParams.ahk, Lib\CFGParams.ahk
FileMove, Scr\Lib\FSXCFGParams.ahk, Scr\Lib\CFGParams.ahk
If fsxp3d = 0
{ Run Install_BZB-Qickstart.exe %A_ScriptName%
ExitApp
}
}
If pexepf
{ If (exepfad = pexepf)
{
FileCopy, P3D\Header.ahk, Scr, 1
FileCopy, P3D\CFGParams.ahk, Lib, 1
FileCopy, P3D\CFGParams.ahk, Scr\Lib, 1
Run Install_BZB-Qickstart.exe %A_ScriptName% 1
ExitApp
}Else
{ If !InStr(FileExist(inipf), "D")
{ InputBox, fsxp3d, Select simulator, Both FSX and P3Dv4 found`, choose what you want to do:`n[0] - Install only for FSX`n[1] - Install only for P3D`n[2] - Install both (FSX first)
If Errorlevel > 0
fsxp3d =
If fsxp3d = 1
{ FileCopy, P3D\Header.ahk, Scr, 1
FileCopy, P3D\CFGParams.ahk, Lib, 1
FileCopy, P3D\CFGParams.ahk, Scr\Lib, 1
Run Install_BZB-Qickstart.exe %A_ScriptName% 1
ExitApp
}Else If fsxp3d = 2
{ FileCopy, P3D\Header.ahk, Scr\P3dHeader.ahk, 1
FileMove, Scr\Configstarter.ahk, Scr\FSXConfigstarter.ahk
FileCopy, P3D\Configstarter.ahk, Scr\Configstarter.ahk, 1
FileCopy, P3D\CFGParams.ahk, Lib\P3dCFGParams.ahk, 1
FileCopy, P3D\CFGParams.ahk, Scr\Lib\P3dCFGParams.ahk, 1
}Else If fsxp3d =
Abbruch("by user")
}
}
}
If exepfad =
Abbruch(simulator . " not found")
airplanes = %exepfad%SimObjects\Airplanes\
programme = %A_ProgramFiles%
IfNotInString, programme, "(x86)"
IfExist, %programme% (x86)
programme .= " (x86)"
kneetools = \KneeboardTools
progpf = \BZB-Qickstarter
toolpf = \Scr
missionpf = %exepfad%Missions\MyMissions
startpf = %A_Programs%\%bzbqick%
progData = MyDocuments\KneeboardTools\%bzbqick%
kneedata = %A_AppData%%kneetools%
aktdata = %kneedata%%progpf%
apinfopf = %aktdata%\ApInfoData
airplipf = %cfgpfad%SimObjects\
IfExist, %airplipf%Airplanes
airplipf .= "Airplanes\"
rscinh =
routdat = Routen.inc
routhdat = %progData%\%apinfoname%\Routen_H.txt
airplini = %progData%\%apinfoname%\Airplanes.rsc
If p3d
{ fltdummy = %progData%\%apinfoname%\Fxml_Dummy.txt
fsxbak = P3DBackup
docfiles = Prepar3D v4 Files
}Else
{ fltdummy = %progData%\%apinfoname%\Flt_Dummy.txt
fsxbak = FSXBackup
docfiles = Flight Simulator X Files
}
statsdat = %progData%\%apinfoname%\AircraftStations.rsc
scenery = %exepfad%Addon Scenery\scenery
If p3d
IfNotExist, %scenery%
FileCreateDir, %scenery%
scenery .= "\"
qickstartPf = %programme%%kneetools%%progpf%
dwnldurl = http://www.dreisein.de/VirtualLife/Downloads/
#Include MyDocuments\KneeboardTools\BZB-Qickstarter\ApInfoData\Aircraft.inc
MsgBox, 33, %second% Installing %bzbqick% %version% for %simulator%, Ready to create folders and copy files in/to  `n%qickstartPf%,  `n'AppData'\KneeboardTools,  `n'MyDocuments'\%docfiles% and  `n'Programs'...%simulator%\Missions.  `n-- Do so? --
IfMsgBox, Cancel
Abbruch("by user")
If fsxp3d = 3
Goto ZweitInst
Tooltip, Creating folders & copying files
IfNotExist, %programme%%kneetools%
FileCreateDir, %programme%%kneetools%
IfNotExist, %qickstartPf%
FileCreateDir, %qickstartPf%
IfNotExist, %qickstartPf%%toolpf%
{ FileCreateDir, %qickstartPf%%toolpf%
FileCreateDir, %qickstartPf%%toolpf%\Lib
FileCreateDir, %qickstartPf%\Lib
}
IfNotExist, %qickstartPf%%toolpf%\MakeApInfos
FileCreateDir, %qickstartPf%%toolpf%\MakeApInfos
IfNotExist, %qickstartPf%\Docs
FileCreateDir, %qickstartPf%\Docs
IfNotExist, %qickstartPf%\Data
FileCreateDir, %qickstartPf%\Data
FileCopy, Scr\*.ahk, %qickstartPf%%toolpf%,1
FileCopy, Lib\*.*, %qickstartPf%\Lib,1
FileCopy, Lib\*.*, %qickstartPf%%toolpf%\Lib,1
FileCopy, Scr\MakeApInfos\*.*, %qickstartPf%%toolpf%\MakeApInfos,1
FileCopy, Docs\*.*, %qickstartPf%\Docs,1
FileCopy, Install_BZB-Qickstart.exe, %qickstartPf%\%bzbqick%.exe,1
FileCopy, Scr\FSX-KickStarter.ahk, %qickstartPf%\%bzbqick%.ahk, 1
FileCopyDir, Data,%qickstartPf%\Data,1
FileCopy, Spb2xml.exe, %qickstartPf%, 1
FileCopy, 7za.exe, %qickstartPf%, 1
FileCopy, BglAnalyzeX.exe, %qickstartPf%, 1
txttxt =
(
Which language for manual and quick reference do you prefer?
)
menuetxt = German language | English language
titeltxt = Language of the manuals
instLogo = Data\BZBLogo.jpg
ok := " Take "
Goto Menue
ButtonTake:
GUI, Submit
xyz = BZB-QickStarterDokurz_DE.html
xyy = BZB-QickStarterDoku_DE.html
If auswahl = 2
{ xyz = BZB-QickStarterManShort_EN.html
xyy = BZB-QickStarterManu_EN.html
}
FileCopy, %qickstartPf%\Docs\%xyz%, %qickstartPf%\Docs\BZB-QickStarterDokurz.html, 1
FileCopy, %qickstartPf%\Docs\%xyy%, %qickstartPf%\Docs\BZB-QickStarterDoku.html, 1
Tooltip
IfNotExist, %startpf%
FileCreateDir, %startpf%
FileCreateShortcut, %qickstartPf%\%bzbqick%.exe, %startpf%\BZB-Qickstarter.lnk, %qickstartPf%, , Start %bzbqick%, %qickstartPf%\Data\BZB-Icon.ico,,1
FileCreateShortcut, %qickstartPf%\%bzbqick%.exe, %startpf%\QickStarter Configurator.lnk, %qickstartPf%, scr\ConfigStarter.ahk, Config %bzbqick%, %qickstartPf%\Data\BZBConf-Icon.ico,,1
FileCreateShortcut, %qickstartPf%\%bzbqick%.exe, %startpf%\UnInstall BZB-Qickstarter.lnk, %qickstartPf%, scr\UnInstall_BZB-Qickstarter.ahk, Clean FSX from BZB, SHELL32.dll, , 132
MsgBox, 3, Creating program shortcuts, Creating shortcuts on desktop too?
IfMsgBox, Cancel
Abbruch(" by user")
Else IfMsgBox, Yes
{ xyz := bzbqick
If !InStr(xyz, " ")
StringReplace, xyz, xyz, -, -%A_Space%    ; dann beim ersten "-" eins einfügen
FileCreateShortcut, %qickstartPf%\%bzbqick%.exe, %A_Desktop%\%xyz%.lnk, %qickstartPf%, , %bzbqick%, %qickstartPf%\Data\BZB-Icon.ico,,1
FileCreateShortcut, %qickstartPf%\%bzbqick%.exe, %A_Desktop%\QStarter- Configurator.lnk, %qickstartPf%, scr\ConfigStarter.ahk, Config %bzbqick%, %qickstartPf%\Data\BZBConf-Icon.ico,,1
}
IfNotExist, %startpf%
{
FileCreateDir, %startpf%
If Errorlevel
Abbruch("Installation canceled")
}
ZweitInst:
FileCopy, %qickstartPf%\Data\*.BGL,%scenery%,1
If !p3d
FileCopy, MakeRwys4693.exe, %exepfad%
Else
{ FileCopy, P3D\MakeRwys4891.exe, %exepfad%
FileCopy, P3D\LorbySceneryExport.exe, %exepfad%
If Dateilesen(rscinh, szenerie)
Abbruch("unable to open " . szenerie)
If !InStr(rscinh, "Title=Addon Scenery")
MsgBox, Don't forget to register "Addon Scenery" in Scenery Library to get the extra waypoints
}
rscinh =
x := A_ScreenWidth /2
y := A_ScreenHeight /4
Tooltip, Copying files into %simulator%, , %y%
IfNotExist, %missionpf%
FileCreateDir, %missionpf%
FileCopyDir, Missions, %missionpf%, 1
If p3d
{ FileCopy, P3D\%ainfoname%.XML, %missionpf%\%ainfoname%, 1
FileCopy, P3D\%bzbname%.XML, %missionpf%\%bzbname%, 1
FileDelete, %missionpf%\%ainfoname%\%ainfoname%.FLT
FileDelete, %missionpf%\%bzbname%\%bzbname%.FLT
FileDelete, %missionpf%\%bzbname%\NewMission.FLT
FileCopy, P3D\%ainfoname%.Fxml, %missionpf%\%ainfoname%, 1
FileCopy, P3D\%bzbname%.Fxml, %missionpf%\%bzbname%, 1
}
FileCopy, MyDocuments\Flight Simulator X Files\BZB*%flight_ext%, %flightpfad%
IfNotExist, %flightpfad%Weatherfiles
FileCreateDir, %flightpfad%Weatherfiles
FileCopy, MyDocuments\Flight Simulator X Files\Weatherfiles\*.*, %flightpfad%Weatherfiles, 1
IfNotExist, %A_AppData%%kneetools%
FileCreateDir, %A_AppData%%kneetools%
IfNotExist, %aktdata%
FileCreateDir, %aktdata%
IfNotExist, %apinfopf%\Temp
FileCreateDir, %apinfopf%\Temp
IfNotExist, %apinfopf%\%makrwdir%
FileCreateDir, %apinfopf%\%makrwdir%
j := True
IfExist, %aktdata%\WaypointsFSX.csv
{ MsgBox, 36, Copying Data Files, BZB Data files already exists on your computer - do you want to keep them?
IfMsgBox, Yes
j := False
}
If j
{ FileCopyDir, %progData%, %aktdata%, 1
FileMove, %aktdata%\g5eu.csv, %apinfopf%\%makrwdir%\g5eu.csv
FileCopy, %progData%\%apinfoname%\WaypointsT1.csv, %aktdata%\WaypointsFSX.csv, 1
}
FileAppend, Comp: %A_Computername%  OS: %A_OsVersion%  Typ: %A_OSType%`r`n, %aktdata%\FSX-QickStarter.Log
Sleep, 1000
ToolTip
If !FileExist(A_Temp . "\cpuinfo.xml")
{ Msgbox, , Reading sysinfo , This may take a few seconds`, please wait until the next dialog opens automatically, 7
Runwait, dxdiag.exe /64bit /X%A_Temp%\cpuinfo.xml
}
x := 1
If FileExist(A_Temp . "\cpuinfo.xml")
{ If Dateilesen(sysinh, A_Temp . "\cpuinfo.xml")
core := -1
Else
{ sysinfo := RW_LiesParamX(sysinh, x, StrLen(sysinh), "<Processor>", "</Processor>", 0)
If sysinfo = "--"
core := -1
Else
core := 1
If InStr(sysinfo, "Intel")
core := 3
Else If InStr(sysinfo, "AMD")
core := 2.5
x := InStr(sysinfo, "CPUs")
wert := LiesSys(sysinfo, x, 3, "C")
If wert IS NOT number
core := -1
Else
{ If wert > 4
wert := 4
If wert < 2
core := core / 2
core := core * wert
}
x := InStr(sysinfo, "GHz")
wert := LiesSys(sysinfo, x, 6, "G")
If wert IS NOT number
core := -1
Else
{ If wert < 3
wert := 1
core := core * (wert +(wert/10))
}
}
If core > 0
{
auswahl = 4
If core >= 50
auswahl = 1
Else If core BetWeen 49 AND 40
auswahl = 2
Else If core BetWeen 39 AND 20
auswahl = 3
Goto ButtonGetInfo
}
}
txttxt =
(
The attempt to read out the CPU properties and to calculate the system performance of your computer failed. To start with a suitable set of performance-relevant variables, choose from the 4 options the one that most closely matches your PC.
)
menuetxt = - Highend pc (Intel i7 and above) |- Upper middleclass (e.g. AMD 4x, 3.5-4.0GHz) |- Lower middleclass (e.g. Intel/AMD 2x < 4GHz) |- any PC below
titeltxt = Describe your computer
instLogo = Data\BZBLogo.jpg
ok = GetInfo
Goto Menue
ButtonGetInfo:
GUI, Submit
instpf = Data\
If p3d
instpf = P3D\
name = fsxvarset_
If auswahl In 1,2,3,4
If auswahl = 1
name .= "highend.rsc"
Else If auswahl = 2
name .= "uppmiddl.rsc"
Else If auswahl = 3
name .= "dwnmiddl.rsc"
Else
name .= "lowend.rsc"
If Dateilesen(rscinh, instpf . bzbqick . "_head.rsc")
Abbruch("unable to open " . bzbqick . "_head.rsc")
RW_SetzParam(rscinh, 1, "frstProg=", "-1", 1)
If Dateilesen(xyz, instpf . name)
Abbruch("unable to open " . name)
rscinh .= xyz
IfNotExist, %flightpfad%IFR-Flightplans
FileCreateDir, %flightpfad%IFR-Flightplans
RW_SetzParam(rscinh, 1, "flyplandir=", flightpfad . "IFR-Flightplans\", 1)
Loop
{ backupf =
FileSelectFolder, backuPf, , 3, Choose Backup folder for %fsxbak%`nOnce a day %bzbqick% will backup certain config files - choose a place where the backup folder %fsxbak% should be created.
If backupf =
backupf = %A_MyDocuments%
If !(SubStr(backupf, StrLen(backupf), 1) = "\")
backupf .= "\"
IfNotInstring, backupf, %fsxbak%
backupf .= fsxbak
MsgBox, 32, Backup Folder ok, The following files will be backed up to the folder %backupf% : `n%config%`, cameras.cfg`, dll.xml`, exe.xml`, Standard.xml`, `nScenery.cfg`, SceneryStatus.BIN`, GrantedRewards*.BIN`nthe current flightfile (incl .SPB) and `nthe BZB missionfiles. `nIf you want to add more files to be saved daily, refer to the manual under Resource File.
IfMsgBox No
backupf =
} Until backupf
IfNotExist, %backupf%
FileCreateDir, %backupf%
RW_SetzParam(rscinh, 1, "backupf=", backupf, 1)
xyz = %cfgpfad%%config%
RW_SetzParam(rscinh, 1, "backup1=", xyz, 1)
xyz = %cfgpfad%dll.xml
IfExist, %xyz%
RW_SetzParam(rscinh, 1, "backup2=", xyz, 1)
xyz = %cfgpfad%exe.xml
IfExist, %xyz%
RW_SetzParam(rscinh, 1, "backup3=", xyz, 1)
xyz = %cfgpfad%cameras.cfg
IfExist, %xyz%
RW_SetzParam(rscinh, 1, "backup4=", xyz, 1)
xyz = %cfgpfad%Controls\Standard.xml
RW_SetzParam(rscinh, 1, "backup5=", xyz, 1)
xyz = %szenerie%
RW_SetzParam(rscinh, 1, "backup6=", xyz, 1)
xyz = %progdat%SceneryStatus.BIN
RW_SetzParam(rscinh, 1, "backup7=", xyz, 1)
xyz = %bzbairpf%%bzbname%.xml
IfExist, %xyz%
{ RW_SetzParam(rscinh, 1, "backup8=", xyz, 1)
xyz = %bzbairpf%%bzbname%%flight_ext%
RW_SetzParam(rscinh, 1, "backup9=", xyz, 1)
}
xyz := cfgpfad . RW_LiesParam(rscinh, "backup10=", 1)
IfExist, %xyz%
{ RW_SetzParam(rscinh, 1, "backup10=", xyz, 1)
backupzl = 10
}Else
backupzl = 9
bpath = %backupf%\%A_YYYY%.%A_MM%.%A_DD%_do-not-restore
IfNotExist, %bpath%
{ FileCreateDir, %bpath%
Loop, %backupzl%
{ xyz := RW_LiesParam(rscinh, "backup" . A_Index . "=", 1)
If xyz
Filecopy, %xyz%, %bpath%
}
}
multi = .
mltStandardxml = 0
MsgBox, 36, Set multi standard.xml's active, If set 'multi standard' to active you will have a separate keyboard control file 'Standard-[airplane].xml' for every selectable airplane.
IfMsgbox, Yes
{ mltStandardxml = 1
multi = %A_Space%and as many keytable files "Standard-<airplane>.xml" in AppData\..\%simulator%\Controls.
}
RW_SetzParam(rscinh, 1, "mltStandardxml=", mltStandardxml, 1)
typeint := 3
airplist1 = 1,2,12
airplist2 = 1,2,3,12,13,26
airplist3 = 3,26,5,14,30
airplistR = 1,2,4,6,7,8,9,10,11,18,27,28,29
airplist4 = 4,5,8,14,13,26
airplist5 = 20,17,26,21,25,14,15
airplist6 = 1,2,3,4,5,7,8,9,10,11
dwnlst = 4,6,8,10,15,16,17,18,20,21,22,23,24,25,27,28
fwlst = 4,8,10,18,27,28
If p3d
airplist3 = 2,33,35,36,37,34
If 1 = I
auswahl := 6
Else
auswahl := 3
If auswahl > 3
{
IfNotExist, %exepfad%SimObjects\Airplanes\%airpldir7%
StringReplace, airplist6, airplist6, ",7,", ",27,"
IfNotExist, %exepfad%SimObjects\Airplanes\%airpldir9%
StringReplace, airplist6, airplist6, ",9,", ",18,"
IfNotExist, %exepfad%SimObjects\Airplanes\%airpldir11%
StringReplace, airplist6, airplist6, ",11", ",28"
}
If auswahl > 3
{ MsgBox, 36, Download free aircraft, Now it is up to download additional freeware airplanes. Download now?
IfMsgBox No
{ MsgBox, 35, Aircraft selection, Would you like to download and install freeware aircraft later? (Cancel will end the installation`, No will continue download)
IfMsgBox, Cancel
Abbruch(" by user")
IfMsgBox, Yes
dwnlst =
}
}Else
dwnlst =
auswahl := airplist%auswahl%
If dwnlst
{ Loop, Parse, auswahl, `,
{ If A_LoopField IN %dwnlst%
{
name := airpldir%A_LoopField%
If A_LoopField IN %fwlst%
xyz := dwnldurl . name . ".zip"
Else
xyz := dwldurl%A_LoopField%
FileGetSize, x, %name%.zip, M
If !(FileExist(name . ".zip") AND x > 5)
UrlDownloadToFile, *0 %xyz%, %name%.zip
Loop
{ ToolTip, -- downloading -[%A_Index% to 120 timeout`
If GetKeyState(Esc)
Break
Sleep, 500
FileGetSize, xyz, %name%.zip, M
} Until (xyz > 5 OR A_Index > 120)
If xyz < 5
{ MsgBox, 33, Download failed, Download of %name% cancelled because of timeout (with OK to next download)
IfMsgBox, Cancel
Break
}Else
Runwait, Install_BZB-Qickstart.exe Scr\IntegrateAirpl.ahk "%A_WorkingDir%" "%name%.zip"
}
}
}
Loop, Parse, auswahl, `,
{ xyz := airpldir%A_LoopField%
IfExist, %exepfad%SimObjects\Airplanes\%xyz%
neuauswahl .= A_LoopField . ","
}
auswahl := RTrim(neuauswahl, ",")
routhinh =
airplinh =
fltinh =
statsinh =
If Dateilesen(routhinh, routhdat)
Abbruch("could not open " . routhdat)
If Dateilesen(airplinh, airplini)
Abbruch("could not open Airplanes.rsc")
If Dateilesen(fltinh, fltdummy)
Abbruch("could not open " . fltdummy)
If Dateilesen(statsinh, statsdat)
Abbruch("could not open " . statsdat)
Loop, Parse, auswahl, `,
{ NewAircraft( A_LoopField, typeint )
If A_Index = 1
situaname := name
}
RW_SetzParam(rscinh, 1, "maxPassenger=", maxPassenger, 1)
RW_SetzParam(rscinh, 1, "maxBaggage=", maxBaggage, 1)
RW_SetzParam(rscinh, 1, "maxCargo=", maxCargo, 1)
Loop % 10-anzahl
{ name := HolAirRoute(airplinh, xyz, 0)
RW_SetzParam(rscinh, 1, "airplane" . anzahl+A_Index . "=", name, 1)
}
auswahl := airplistR
Loop, Parse, auswahl, `,
{ xyz := airpldir%A_LoopField%
IfExist, %exepfad%SimObjects\Airplanes\%xyz%
{
IfNotExist, %exepfad%SimObjects\Airplanes\%xyz%\texture.BZB
FileCreateDir, %exepfad%SimObjects\Airplanes\%xyz%\texture.BZB
FileCopy, Data\Repaints\%xyz%\*.*, %exepfad%SimObjects\Airplanes\%xyz%\texture.BZB
}
}
IfExist, %aktdata%\%routdat%
FileDelete, %aktdata%\%routdat%
FileAppend, %routhinh%, %aktdata%\%routdat%
Tooltip
MsgBox, , Airplanes installed,
(
%anzahl% planes were set up in the BZB-Qickstarter airplanes menu. If you want to use more or other planes with the BZB-Qickstarter, you can install and configure them with the supplied Qickstarter-Configurator.`n
For each of the aircraft, a flight file (saved flight) was created in the "%flightxfiles%" folder with the name: "Standard-<airplane>"%flight_ext% %multi% `n
)
If Dateilesen(cfginhalt, cfgpfad . config)
Abbruch("unable to open " . config)
If !InStr(cfginhalt, "SITUATION=")
RW_Einfuegen(cfginhalt, "SITUATION=", "[USERINTERFACE]")
RW_SetzParam(cfginhalt, 1, "Situation=", flightpfad . "Standard-" . situaname . flight_ext, 1)
If !p3d
{ RW_Einfuegen(cfginhalt, "HighMemFix=1", "[GRAPHICS]")
RW_Einfuegen(cfginhalt, "AffinityMask=14", "[GRAPHICS]")
RW_Einfuegen(cfginhalt, "TEXTURE_MAX_LOAD=1024", "[GRAPHICS]")
RW_Einfuegen(cfginhalt, "D3D10=", "[GRAPHICS]")
RW_Einfuegen(cfginhalt, "TEXTURE_BANDWIDTH_MULT=40", "[Display]")
RW_Einfuegen(cfginhalt, "TERRAIN_MAX_AUTOGEN_TREES_PER_CELL=1000", "[TERRAIN]")
RW_Einfuegen(cfginhalt, "TERRAIN_MAX_AUTOGEN_BUILDINGS_PER_CELL=2000", "[TERRAIN]")
RW_Einfuegen(cfginhalt, "SmallPartRejectRadius=4", "[SCENERY]")
RW_Einfuegen(cfginhalt, "LOD_RADIUS=4.500000", "[TERRAIN]")
RW_Einfuegen(cfginhalt, "ForceFullScreenVSync=False", "[Display]")
RW_Einfuegen(cfginhalt, "ForceVSync=False", "[Display]")
}Else
{
RW_Einfuegen(cfginhalt, "TEXTURE_MAX_LOAD=4096", "[GRAPHICS]")
RW_Einfuegen(cfginhalt, "TextureMaxLoad=6", "[DISPLAY]")
RW_Einfuegen(cfginhalt, "LOD_RADIUS=4.500000", "[TERRAIN]")
RW_Einfuegen(cfginhalt, "FIBER_FRAME_TIME_FRACTION=0.33", "[MAIN]")
}
If ErsetzDatei(cfginhalt, cfgpfad . config)
MsgBox, Error while writing %config%
cfginhalt =
If !p3d
{ If Dateilesen(cfginhalt, exepfad . "Airlines.cfg")
Abbruch("unable to open Airlines.cfg ")
IfNotInstring, cfginhalt, %bzbqick%
FileAppend, %bzbqick%, %exepfad%Airlines.cfg`r`n
}
IfExist, %inidat%
FileDelete, %inidat%
FileAppend, %rscinh%, %inidat%
RunWait, Install_BZB-Qickstart.exe Scr\SetCFGVar.ahk i
launch =
( Join`r`n
<Launch.Addon>
<Name>SimVar</Name>
<Disabled>False</Disabled>
<ManualLoad>False</ManualLoad>
<Path>Missions\MyMissions\SimVar.exe</Path>
</Launch.Addon>

)
If p3d
{ cfgbak := cfgpfad
cfgpfad := progdat
}
IfNotExist, %cfgpfad%exe.xml
FileCopy, MyDocuments\KneeboardTools\BZB-Qickstarter\ApInfoData\exe.xml, %cfgpfad%exe.xml
Else
{ cfginhalt =
If Dateilesen(cfginhalt, cfgpfad . "exe.xml")
Abbruch("unable to open exe.xml ")
IfNotExist, %cfgpfad%exe.xml_beforeBZB
FileMove, %cfgpfad%exe.xml, %cfgpfad%exe.xml_beforeBZB
Else
FileDelete, %cfgpfad%exe.xml
x := InStr(cfginhalt, "<Name>SimVar<")
If x
{ x := InStr(cfginhalt, "<Launch.Addon>", 1, x - StrLen(cfginhalt))
exmlT1 := SubStr(cfginhalt, 1, x-1)
exmlT2 := SubStr(cfginhalt, x)
RW_SetzXmlParam(exmlT1, "", "<Disabled>", "False", "</")
RW_SetzXmlParam(exmlT1, "", "<Launch.ManualLoad>", "False", "</")
RW_SetzXmlParam(exmlT2, "", "<Disabled>", "False", "</")
RW_SetzXmlParam(exmlT2, "", "<ManualLoad>", "False", "</")
cfginhalt := exmlT1 . exmlT2
}Else
{ y := InStr(cfginhalt, "</SimBase.Document>")
cfginhalt := SubStr(cfginhalt, 1, y-1) . launch . SubStr(cfginhalt, y)
}
afe := A_FileEncoding
If InStr(cfginhalt, "UTF-8")
FileEncoding, UTF-8
FileAppend, %cfginhalt%, %cfgpfad%exe.xml
FileEncoding, %afe%
}
If p3d
cfgpfad := cfgbak
xyz =
If InStr(exepfad, programme)
xyz = Since the flight simulator is installed in the system folder, you always have to call up the BZB-Qickstarter in administrator mode.
If fsxp3d = 3
txtbeide = `nIn order to toggle between BZB-Qickstarter for FSX or for P3D also use the Qickstarter-Configurator.
MsgBox, 48, BZB-Qickstarter for %simulator% successful installed, 	Congrats!Now you can start and try out the BZB-Qickstarter main program. %xyz%`n`nA set of airport and runway data was supplied with the program. Unfortunately, the coordinates, dimensions and distances of the flight simulator are sometimes different from those in the supplied data. Therefore you should call the Qickstarter-Configurator sooner or later and run the modules marked 1, 2, 3 and 4. %txtbeide% Find more information in the manual.`n`nHappy Flying!
If fsxp3d = 2
{
FileMove, %qickstartPf%%toolpf%\Header.ahk, %qickstartPf%%toolpf%\FsxHeader.ahk
FileMove, %qickstartPf%\Lib\CFGParams.ahk, %qickstartPf%\Lib\FsxCFGParams.ahk
FileMove, %qickstartPf%%toolpf%\Lib\CFGParams.ahk, %qickstartPf%%toolpf%\Lib\FsxCFGParams.ahk
FileMove, %qickstartPf%%toolpf%\P3dHeader.ahk, %qickstartPf%%toolpf%\Header.ahk
FileMove, %qickstartPf%\Lib\P3dCFGParams.ahk, %qickstartPf%\Lib\CFGParams.ahk
FileMove, %qickstartPf%%toolpf%\Lib\P3dCFGParams.ahk, %qickstartPf%%toolpf%\Lib\CFGParams.ahk
FileMoveDir, %kneedata%%progpf%, %kneedata%\FSX%bzbqick%
FileMove, Scr\Header.ahk, Scr\FSXHeader.ahk, 1
FileMove, Scr\CfgParams.ahk, Scr\FSXCfgParams.ahk, 1
FileMove, Scr\Lib\CFGParams.ahk, Scr\Lib\FSXCFGParams.ahk, 1
FileMove, Scr\P3DHeader.ahk, Scr\Header.ahk, 1
FileMove, Lib\P3dCFGParams.ahk, Lib\CFGParams.ahk, 1
FileMove, Scr\Lib\P3dCFGParams.ahk, Scr\Lib\CFGParams.ahk, 1
Run Install_BZB-Qickstart.exe %A_ScriptName% 3
}
GuiClose:
EndeundAb:
ExitApp
LiesSys(ByRef sysinf, pos, stlln, tag)
{ pos := pos - stlln
xyz := SubStr(sysinf, pos, stlln)
StringReplace, w, w, %tag%, %A_Space%
Loop, %stlln%
{ w := SubStr(xyz, A_Index)
If w IS number
Break
}
Return Trim(w)
}
Menue:
GUI, New, Resize, %titeltxt%
GUI, Margin, 8, 8
Gui, Font, s11 q5, Times
Gui, Add, Picture, , %instLogo%
Gui, Add, Text, x100 y10, %txttxt%
Loop, Parse, menuetxt, |
{ If A_Index = 1
GUI, Add, Radio, Vauswahl Checked, %A_LoopField%
Else
GUI, Add, Radio, , %A_LoopField%
}
GUI, Add, Button, Default, %ok%
GuiControl, Move, %ok%, X180
GUI, Show, AutoSize
return
#Include Lib\Absturz.ahk
