$SpeicherFile = FileOpenDialog("Choose Save Game to Patch", @ScriptDir, "Save Games (*.sav)", 3)
$LadenFile = $SpeicherFile
If $SpeicherFile <> "" And Not @error Then
	$Speicher = IniRead($LadenFile, "MAX", "Spei", "")
					$HolzRead = IniRead($LadenFile, "Rohstoffe", "Holz", "")
					$HolzFormel = $HolzRead / $Speicher * 100
					$EisenRead = IniRead($LadenFile, "Rohstoffe", "Eisen", "")
					$EisenFormel = $EisenRead * 100 / $Speicher
					$NahrungRead = IniRead($LadenFile, "Rohstoffe", "Nahrung", "")
					$NahrungFormel = $NahrungRead / 100 * $Speicher
					$LehmRead = IniRead($LadenFile, "Rohstoffe", "Lehm", "")
					$LehmFormel = $LehmRead * 100 / $Speicher
					$SteinRead = IniRead($LadenFile, "Rohstoffe", "Stein", "")
					$SteinFormel = $SteinRead * 100 / $Speicher
					$GetreideRead = IniRead($LadenFile, "Rohstoffe", "Getreide", "")
					$GetreideFormel = $GetreideRead * 100 / $Speicher
					$WerkzeugRead = IniRead($LadenFile, "Rohstoffe", "Werkzeug", "")
					$WerkzeugFormel = $WerkzeugRead * 100 / $Speicher
					$KohleRead = IniRead($LadenFile, "Rohstoffe", "Kohle", "")
					$KohleFormel = $KohleRead * 100 / $Speicher
					$WolleRead = IniRead($LadenFile, "Rohstoffe", "Wolle", "")
					$WolleFormel = $WolleRead * 100 / $Speicher
					$GoldRead = IniRead($LadenFile, "Rohstoffe", "Gold", "")
					$GoldFormel = $GoldRead * 100 / $Speicher
					$MamorRead = IniRead($LadenFile, "Rohstoffe", "Mamor", "")
					$MamorFormel = $MamorRead * 100 / $Speicher
					$BurgerRead = IniRead($LadenFile, "Burger", "Burger", "")
					$BurgerRead2 = IniRead($LadenFile, "Burger", "Burger2", "")
					$BurgerRead3 = IniRead($LadenFile, "Burger", "Burger3", "")
					$WeltFrei = IniRead($LadenFile, "Sontiges", "W", "")
					$Welt1Holzfaller = IniRead($LadenFile, "BauZahl1", "Holzfaller", "")
					$Welt1Muhlen = IniRead($LadenFile, "BauZahl1", "Muhle", "")
					$Welt1Getreidefarm = IniRead($LadenFile, "BauZahl1", "Getreidefarm", "")
					$Welt1Backerrei = IniRead($LadenFile, "BauZahl1", "Backerrei", "")
					$Welt1Weberrei = IniRead($LadenFile, "BauZahl1", "Weberrei", "")
					$Welt1Lehmgrube = IniRead($LadenFile, "BauZahl1", "Lehmgrube", "")
					$Welt1Schaffarm = IniRead($LadenFile, "BauZahl1", "Schaffarm", "")
					$Welt1Schmiede = IniRead($LadenFile, "BauZahl1", "Schmiede", "")
					$Welt1Steinbruch = IniRead($LadenFile, "BauZahl1", "Steinbruch", "")
					$Welt1Steinmetz = IniRead($LadenFile, "BauZahl1", "Steinmetz", "")
					$Welt1Kohlemine = IniRead($LadenFile, "BauZahl1", "Kohlemine", "")
					$Welt2Holzfaller = IniRead($LadenFile, "BauZahl2", "Holzfaller", "")
					$Welt2Muhlen = IniRead($LadenFile, "BauZahl2", "Muhle", "")
					$Welt2Getreidefarm = IniRead($LadenFile, "BauZahl2", "Getreidefarm", "")
					$Welt2Backerrei = IniRead($LadenFile, "BauZahl2", "Backerrei", "")
					$Welt2Weberrei = IniRead($LadenFile, "BauZahl2", "Weberrei", "")
					$Welt2Lehmgrube = IniRead($LadenFile, "BauZahl2", "Lehmgrube", "")
					$Welt2Schaffarm = IniRead($LadenFile, "BauZahl2", "Schaffarm", "")
					$Welt2Schmiede = IniRead($LadenFile, "BauZahl2", "Schmiede", "")
					$Welt2Steinbruch = IniRead($LadenFile, "BauZahl2", "Steinbruch", "")
					$Welt2Steinmetz = IniRead($LadenFile, "BauZahl2", "Steinmetz", "")
					$Welt2Kohlemine = IniRead($LadenFile, "BauZahl2", "Kohlemine", "")
					$Welt3Holzfaller = IniRead($LadenFile, "BauZahl3", "Holzfaller", "")
					$Welt3Muhlen = IniRead($LadenFile, "BauZahl3", "Muhle", "")
					$Welt3Getreidefarm = IniRead($LadenFile, "BauZahl3", "Getreidefarm", "")
					$Welt3Backerrei = IniRead($LadenFile, "BauZahl3", "Backerrei", "")
					$Welt3Weberrei = IniRead($LadenFile, "BauZahl3", "Weberrei", "")
					$Welt3Lehmgrube = IniRead($LadenFile, "BauZahl3", "Lehmgrube", "")
					$Welt3Schaffarm = IniRead($LadenFile, "BauZahl3", "Schaffarm", "")
					$Welt3Schmiede = IniRead($LadenFile, "BauZahl3", "Schmiede", "")
					$Welt3Steinbruch = IniRead($LadenFile, "BauZahl3", "Steinbruch", "")
					$Welt3Steinmetz = IniRead($LadenFile, "BauZahl3", "Steinmetz", "")
					$Welt3Kohlemine = IniRead($LadenFile, "BauZahl3", "Kohlemine", "")
					$Welt3Goldmine = IniRead($LadenFile, "BauZahl3", "Goldmine", "")
					$Welt3Goldschmiede = IniRead($LadenFile, "BauZahl3", "Goldschmiede", "")
					$Welt3Mamormetz = IniRead($LadenFile, "BauZahl3", "Mamormetz", "")
					$Welt3Mamormine = IniRead($LadenFile, "BauZahl3", "Mamormine", "")
					$Entschluss = $HolzRead + $EisenRead + $NahrungRead + $LehmRead + $SteinRead + $GetreideRead + $WerkzeugRead + $KohleRead + $WolleRead + $GoldRead + $MamorRead + $BurgerRead + $BurgerRead2 + $BurgerRead3 + $Speicher + 5937
					$Entschluss2 = $Welt1Holzfaller + $Welt1Muhlen + $Welt1Getreidefarm + $Welt1Backerrei + $Welt1Weberrei + $Welt1Lehmgrube + $Welt1Schaffarm + $Welt1Schmiede + $Welt1Steinbruch + $Welt1Steinmetz + $Welt1Kohlemine + 56128
					$Entschluss3 = $Welt2Holzfaller + $Welt2Muhlen + $Welt2Getreidefarm + $Welt2Backerrei + $Welt2Weberrei + $Welt2Lehmgrube + $Welt2Schaffarm + $Welt2Schmiede + $Welt2Steinbruch + $Welt2Steinmetz + $Welt2Kohlemine + 125215
					$Entschluss4 = $Welt3Holzfaller + $Welt3Muhlen + $Welt3Getreidefarm + $Welt3Backerrei + $Welt3Weberrei + $Welt3Lehmgrube + $Welt3Schaffarm + $Welt3Schmiede + $Welt3Steinbruch + $Welt3Steinmetz + $Welt3Kohlemine + $Welt3Mamormetz + $Welt3Mamormine + $Welt3Goldmine + $Welt3Goldschmiede + 6566
					$Entschluss = IniRead($LadenFile, "Sicherung", "Ver", "")
					$Entschluss2 = IniRead($LadenFile, "Sicherung", "Ver2", "")
					$Entschluss3 = IniRead($LadenFile, "Sicherung", "Ver3", "")
					$Entschluss4 = IniRead($LadenFile, "Sicherung", "Ver4", "")
	$Verschluss = $HolzRead + $EisenRead + $NahrungRead + $LehmRead + $SteinRead + $GetreideRead + $WerkzeugRead + $KohleRead + $WolleRead + $GoldRead + $MamorRead + $BurgerRead + $BurgerRead2 + $BurgerRead3 + $Speicher + 5937
	$Verschluss2 = $Welt1Holzfaller + $Welt1Muhlen + $Welt1Getreidefarm + $Welt1Backerrei + $Welt1Weberrei + $Welt1Lehmgrube + $Welt1Schaffarm + $Welt1Schmiede + $Welt1Steinbruch + $Welt1Steinmetz + $Welt1Kohlemine + 56128
	$Verschluss3 = $Welt2Holzfaller + $Welt2Muhlen + $Welt2Getreidefarm + $Welt2Backerrei + $Welt2Weberrei + $Welt2Lehmgrube + $Welt2Schaffarm + $Welt2Schmiede + $Welt2Steinbruch + $Welt2Steinmetz + $Welt2Kohlemine + 125215
	$Verschluss4 = $Welt3Holzfaller + $Welt3Muhlen + $Welt3Getreidefarm + $Welt3Backerrei + $Welt3Weberrei + $Welt3Lehmgrube + $Welt3Schaffarm + $Welt3Schmiede + $Welt3Steinbruch + $Welt3Steinmetz + $Welt3Kohlemine + $Welt3Mamormetz + $Welt3Mamormine + $Welt3Goldmine + $Welt3Goldschmiede + 6566
	IniWrite($SpeicherFile, "Sicherung", "Ver", $Verschluss)
	IniWrite($SpeicherFile, "Sicherung", "Ver2", $Verschluss2)
	IniWrite($SpeicherFile, "Sicherung", "Ver3", $Verschluss3)
	IniWrite($SpeicherFile, "Sicherung", "Ver4", $Verschluss4)
	IniWrite($SpeicherFile, "MAX", "Spei", $Speicher)
	IniWrite($SpeicherFile, "Sontiges", "W", $WeltFrei)
EndIf