Game-saving issue fixed #2.

This commit is contained in:
rhobar 2015-03-15 17:56:53 +00:00
parent b107f2e8fd
commit dda2964b74

View file

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