diff options
| author | ShiftOS <[email protected]> | 2015-03-07 22:31:31 +0200 |
|---|---|---|
| committer | ShiftOS <[email protected]> | 2015-03-07 22:31:31 +0200 |
| commit | 4caacce50cef00e4175d35f78f2089f1f6d69562 (patch) | |
| tree | 6b1ceb79d9590869fe3742753e68831378cc9e56 /ShiftOS Save File Converter.vb | |
| parent | feafdde01c360f8260b4092fc045952d97ad8872 (diff) | |
| download | shiftos-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.vb | 215 |
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 |
