Made Changes to ThePlague virus, more changes to come shortly.

ShiftOS/ShiftOSDesktop.vb

@@ -21,6 +21,8 @@
     Public password As String
 
     'Corruptions
+    Public NumberOn As Integer = 1
+    Public CrashGameReady As Boolean = False
     Public FileSkimmerCorrupted As Boolean = False
     Public ArtpadCorrupted As Boolean = False
     Public AudioPlayerCorrupted As Boolean = False
@@ -1062,6 +1064,8 @@
         SortOutBooleans(VideoPlayerCorrupted, 610, False)
         SortOutBooleans(VirusScannerCorrupted, 612, False)
         SortOutBooleans(WebBrowserCorrupted, 613, False)
+        SortOutBooleans(CrashGameReady, 614, False)
+        savelines(615) = NumberOn
         If boughtdesktopicons = True Then savelines(614) = 11 Else savelines(614) = 10
         If boughtadvapplauncher = True Then savelines(615) = 11 Else savelines(615) = 10
         savelines(616) = password
@@ -1580,6 +1584,8 @@
         SortOutBooleans(VideoPlayerCorrupted, 610, True)
         SortOutBooleans(VirusScannerCorrupted, 612, True)
         SortOutBooleans(WebBrowserCorrupted, 613, True)
+        SortOutBooleans(CrashGameReady, 614, True)
+        NumberOn = loadlines(615)
         Try
             If loadlines(614) = 11 Then boughtdesktopicons = True Else boughtdesktopicons = False
         Catch

ShiftOS/Viruses.vb

@@ -382,76 +382,107 @@
     Public Sub theplaguedestroy(ByVal sender As Object, ByVal e As EventArgs) Handles theplaguetimer.Tick
         Randomize()
         Dim Chance As Integer = CInt(Math.Ceiling(Rnd() * 100))
-        If Chance = ChanceOfDestroyThePlague Or Chance < ChanceOfDestroyThePlague Then
+        If Chance = ChanceOfDestroyThePlague Or Chance > ChanceOfDestroyThePlague Then
             GetRandomApplication()
         End If
     End Sub
 
     Public Sub GetRandomApplication()
-        Dim chooser As Integer = CInt(Math.Ceiling(Rnd() * 32))
+        Dim Chooser As Integer = ShiftOSDesktop.NumberOn
         Select Case chooser
             Case 1
                 InfectApplication(ArtPad, ShiftOSDesktop.ArtpadCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 2
                 InfectApplication(File_Skimmer, ShiftOSDesktop.FileSkimmerCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 3
                 InfectApplication(Audio_Player, ShiftOSDesktop.AudioPlayerCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 4
                 InfectApplication(Bitnote_Digger, ShiftOSDesktop.BitNoteDiggerCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 5
                 InfectApplication(Bitnote_Wallet, ShiftOSDesktop.BitNoteWalletCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 6
                 InfectApplication(Calculator, ShiftOSDesktop.CalculatorCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 7
                 InfectApplication(Clock, ShiftOSDesktop.ClockCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 8
                 InfectApplication(coherencemodeform, ShiftOSDesktop.CoherenceModeCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 9
                 InfectApplication(Colour_Picker, ShiftOSDesktop.ColourPickerCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 10
                 InfectApplication(Dodge, ShiftOSDesktop.DodgeCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 11
                 InfectApplication(Downloadmanager, ShiftOSDesktop.DownloadManagerCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 12
                 InfectApplication(FloodGate_Manager, ShiftOSDesktop.FloodGateManagerCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 13
                 InfectApplication(Graphic_Picker, ShiftOSDesktop.GraphicPickerCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 14
                 InfectApplication(Icon_Manager, ShiftOSDesktop.IconManagerCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 15
                 InfectApplication(Installer, ShiftOSDesktop.InstallerCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 16
                 InfectApplication(Knowledge_Input, ShiftOSDesktop.KnowledgeInputCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 17
                 InfectApplication(Labyrinth, ShiftOSDesktop.LabyrinthCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 18
                 InfectApplication(Name_Changer, ShiftOSDesktop.NameChangerCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 19
                 InfectApplication(OrcWrite, ShiftOSDesktop.OrcWriteCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 20
                 InfectApplication(Pong, ShiftOSDesktop.PongCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 21
                 InfectApplication(Shifter, ShiftOSDesktop.ShifterCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 22
                 InfectApplication(Shiftnet, ShiftOSDesktop.ShiftNetCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 23
                 InfectApplication(Shiftorium, ShiftOSDesktop.ShiftoriumCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 24
                 InfectApplication(Skin_Loader, ShiftOSDesktop.SkinLoaderCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 25
                 InfectApplication(Skinshifter, ShiftOSDesktop.SkinShifterCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 26
                 InfectApplication(systeminfo, ShiftOSDesktop.SystemInfoCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 27
                 InfectApplication(Terminal, ShiftOSDesktop.TerminalCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 28
                 InfectApplication(TextPad, ShiftOSDesktop.TextpadCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 29
                 InfectApplication(Video_Player, ShiftOSDesktop.VideoPlayerCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 30
                 InfectApplication(VirusScanner, ShiftOSDesktop.VirusScannerCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 31
                 InfectApplication(Web_Browser, ShiftOSDesktop.WebBrowserCorrupted)
+                ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1
             Case 32
                 crash.ThePlagueBSOD()
         End Select