Game-saving issue fixed.

This commit is contained in:
rhobar 2015-03-15 17:49:43 +00:00
parent 077550eb5e
commit b107f2e8fd

View file

@ -1062,8 +1062,8 @@
SortOutBooleans(WebBrowserCorrupted, 613, False) SortOutBooleans(WebBrowserCorrupted, 613, False)
If boughtdesktopicons = True Then savelines(614) = 11 Else savelines(614) = 10 If boughtdesktopicons = True Then savelines(614) = 11 Else savelines(614) = 10
If boughtadvapplauncher = True Then savelines(615) = 11 Else savelines(615) = 10 If boughtadvapplauncher = True Then savelines(615) = 11 Else savelines(615) = 10
IO.File.WriteAllLines(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", savelines) IO.File.WriteAllLines(ShiftOSPath + "\Shiftum42\Drivers\HDD.dri", savelines)
File_Crypt.EncryptFile(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", "C:\ShiftOS\Shiftum42\SKernal.sft", sSecretKey) File_Crypt.EncryptFile(ShiftOSPath + "\Shiftum42\Drivers\HDD.dri", "C:\ShiftOS\Shiftum42\SKernal.sft", sSecretKey)
Try Try
Dim sw As New IO.StreamWriter(Paths.dnldata & "Downloadhistory.lst") Dim sw As New IO.StreamWriter(Paths.dnldata & "Downloadhistory.lst")
sw.Write(downloadmanagerhistory) sw.Write(downloadmanagerhistory)