aboutsummaryrefslogtreecommitdiff
path: root/ShiftOS Save File Converter.vb
diff options
context:
space:
mode:
authorShiftOS <[email protected]>2015-03-07 22:31:31 +0200
committerShiftOS <[email protected]>2015-03-07 22:31:31 +0200
commit4caacce50cef00e4175d35f78f2089f1f6d69562 (patch)
tree6b1ceb79d9590869fe3742753e68831378cc9e56 /ShiftOS Save File Converter.vb
parentfeafdde01c360f8260b4092fc045952d97ad8872 (diff)
downloadshiftos-4caacce50cef00e4175d35f78f2089f1f6d69562.tar.gz
shiftos-4caacce50cef00e4175d35f78f2089f1f6d69562.tar.bz2
shiftos-4caacce50cef00e4175d35f78f2089f1f6d69562.zip
ShiftOS
ShiftOS is a game about evolving an experimental operating system called "ShiftOS" from a completely black and white text based command line based OS to a fully graphical operating system filled with advanced features and beautiful colours. The level of customization will exceed the levels of real world operating systems
Diffstat (limited to 'ShiftOS Save File Converter.vb')
-rw-r--r--ShiftOS Save File Converter.vb215
1 files changed, 215 insertions, 0 deletions
diff --git a/ShiftOS Save File Converter.vb b/ShiftOS Save File Converter.vb
new file mode 100644
index 0000000..906d73a
--- /dev/null
+++ b/ShiftOS Save File Converter.vb
@@ -0,0 +1,215 @@
+Public Class ShiftOS_Save_File_Converter
+ Dim loadlines(2000) As String
+
+ 'Required for encryption of save files
+ Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer
+ Public Const sSecretKey As String = "Password"
+
+ Private Sub btnconvert_Click(sender As Object, e As EventArgs) Handles btnconvert.Click
+ loadold()
+ addlines()
+ convertfile()
+ MessageBox.Show("Your save file is now compatible with ShiftOS 0.0.7. Press ok then open the ShiftOS application again to start playing ShiftOS 0.0.7.", "Conversion Complete", MessageBoxButtons.OK, MessageBoxIcon.Information)
+ Me.Close()
+ HijackScreen.Close()
+ End Sub
+
+ Private Sub loadold()
+ File_Crypt.DecryptFile("C:/ShiftOS/Shiftum42/SKernal.sft", "C:\ShiftOS\Shiftum42\Drivers\HDD.dri", sSecretKey)
+ loadlines = IO.File.ReadAllLines("C:\ShiftOS\Shiftum42\Drivers\HDD.dri")
+ End Sub
+
+ Private Sub addlines()
+ ReDim Preserve loadlines(2000)
+ loadlines(308) = 105
+ loadlines(309) = 69
+ loadlines(310) = 4
+ loadlines(311) = 4
+ loadlines(312) = 2
+ loadlines(313) = 2
+ loadlines(314) = 10
+ loadlines(315) = 10
+ loadlines(316) = 10
+ loadlines(317) = 10
+ loadlines(318) = 10
+ loadlines(319) = 10
+ loadlines(320) = 10
+ loadlines(321) = 10
+ loadlines(322) = 10
+ loadlines(323) = 10
+ loadlines(324) = 10
+ loadlines(325) = 10
+ loadlines(326) = 10
+ loadlines(327) = 10
+ loadlines(328) = 10
+ loadlines(329) = 10
+ loadlines(330) = 10
+ loadlines(331) = 10
+ loadlines(332) = 10
+ loadlines(333) = 10
+ loadlines(334) = 10
+ loadlines(335) = 10
+ loadlines(336) = 10
+ loadlines(337) = 10
+ loadlines(338) = 10
+ loadlines(339) = 10
+ loadlines(340) = 10
+ loadlines(341) = 10
+ loadlines(342) = 10
+ loadlines(343) = 10
+ loadlines(344) = 10
+ loadlines(345) = 10
+ loadlines(346) = 10
+ loadlines(347) = 10
+ loadlines(348) = 10
+ loadlines(349) = 10
+ loadlines(350) = 10
+ loadlines(351) = 10
+ loadlines(352) = 10
+ loadlines(353) = 10
+ loadlines(354) = 10
+ loadlines(355) = 10
+ loadlines(356) = -16777216
+ loadlines(357) = -16777216
+ loadlines(358) = -16777216
+ loadlines(359) = -16777216
+ loadlines(360) = -16777216
+ loadlines(361) = -16777216
+ loadlines(362) = -16777216
+ loadlines(363) = -16777216
+ loadlines(364) = -16777216
+ loadlines(365) = -16777216
+ loadlines(366) = -16777216
+ loadlines(367) = -16777216
+ loadlines(368) = -16777216
+ loadlines(369) = -16777216
+ loadlines(370) = -16777216
+ loadlines(371) = -16777216
+ loadlines(372) = -16777216
+ loadlines(373) = -16777216
+ loadlines(374) = -16777216
+ loadlines(375) = -16777216
+ loadlines(376) = -16777216
+ loadlines(377) = -16777216
+ loadlines(378) = -16777216
+ loadlines(379) = -16777216
+ loadlines(380) = -16777216
+ loadlines(381) = -16777216
+ loadlines(382) = -16777216
+ loadlines(383) = -16777216
+ loadlines(384) = -16777216
+ loadlines(385) = -16777216
+ loadlines(386) = -16777216
+ loadlines(387) = -16777216
+ loadlines(388) = -16777216
+ loadlines(389) = -16777216
+ loadlines(390) = -16777216
+ loadlines(391) = -16777216
+ loadlines(392) = -16777216
+ loadlines(393) = -16777216
+ loadlines(394) = -16777216
+ loadlines(395) = -16777216
+ loadlines(396) = -16777216
+ loadlines(397) = -16777216
+ loadlines(398) = -16777216
+ loadlines(399) = -16777216
+ loadlines(400) = -16777216
+ loadlines(401) = -16777216
+ loadlines(402) = -16777216
+ loadlines(403) = -16777216
+ loadlines(404) = -16777216
+ loadlines(405) = -16777216
+ loadlines(406) = -16777216
+ loadlines(407) = -16777216
+ loadlines(408) = -16777216
+ loadlines(409) = -16777216
+ loadlines(410) = -16777216
+ loadlines(411) = -16777216
+ loadlines(412) = -16777216
+ loadlines(413) = -16777216
+ loadlines(414) = -16777216
+ loadlines(415) = -16777216
+ loadlines(416) = -16777216
+ loadlines(417) = -16777216
+ loadlines(418) = -16777216
+ loadlines(419) = -16777216
+ loadlines(420) = -16777216
+ loadlines(421) = -16777216
+ loadlines(422) = -16777216
+ loadlines(423) = -16777216
+ loadlines(424) = -16777216
+ loadlines(425) = -16777216
+ loadlines(426) = -16777216
+ loadlines(427) = -16777216
+ loadlines(428) = -16777216
+ loadlines(429) = -16777216
+ loadlines(430) = -16777216
+ loadlines(431) = -16777216
+ loadlines(432) = -16777216
+ loadlines(433) = -16777216
+ loadlines(434) = -16777216
+ loadlines(435) = -16777216
+ loadlines(436) = -16777216
+ loadlines(437) = -16777216
+ loadlines(438) = -16777216
+ loadlines(439) = -16777216
+ loadlines(440) = -16777216
+ loadlines(441) = -16777216
+ loadlines(442) = -16777216
+ loadlines(443) = -16777216
+ loadlines(444) = -16777216
+ loadlines(445) = -16777216
+ loadlines(446) = -16777216
+ loadlines(447) = -16777216
+ loadlines(448) = -16777216
+ loadlines(449) = -16777216
+ loadlines(450) = -16777216
+ loadlines(451) = -16777216
+ loadlines(452) = -16777216
+ loadlines(453) = -16777216
+ loadlines(454) = -16777216
+ loadlines(455) = -16777216
+ loadlines(456) = -16777216
+ loadlines(457) = -16777216
+ loadlines(458) = -16777216
+ loadlines(459) = -16777216
+ loadlines(460) = -16777216
+ loadlines(461) = -16777216
+ loadlines(462) = -16777216
+ loadlines(463) = -16777216
+ loadlines(464) = -16777216
+ loadlines(465) = -16777216
+ loadlines(466) = -16777216
+ loadlines(467) = -16777216
+ loadlines(468) = -16777216
+ loadlines(469) = -16777216
+ loadlines(470) = -16777216
+ loadlines(471) = -16777216
+ loadlines(472) = -16777216
+ loadlines(473) = -16777216
+ loadlines(474) = -16777216
+ loadlines(475) = -16777216
+ loadlines(476) = -16777216
+ loadlines(477) = -16777216
+ loadlines(478) = -16777216
+ loadlines(479) = -16777216
+ loadlines(480) = -16777216
+ loadlines(481) = -16777216
+ loadlines(482) = -16777216
+ loadlines(483) = -16777216
+ loadlines(484) = 10
+ End Sub
+
+ Private Sub convertfile()
+ IO.File.WriteAllLines("C:\ShiftOS\Shiftum42\Drivers\HDD.dri", loadlines)
+ File_Crypt.EncryptFile("C:\ShiftOS\Shiftum42\Drivers\HDD.dri", "C:/ShiftOS/Shiftum42/SKernal.sft", sSecretKey)
+ Dim objWriter As New System.IO.StreamWriter("C:/ShiftOS/Shiftum42/HDAccess.sft", False)
+ objWriter.Write("0.0.7")
+ objWriter.Close()
+ End Sub
+
+ Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
+ Me.Close()
+ HijackScreen.Close()
+ End Sub
+End Class \ No newline at end of file