Projektdateien hinzufügen.

SMBX Magic Patcher.sln

@@ -0,0 +1,22 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio 14
+VisualStudioVersion = 14.0.25420.1
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SMBX Magic Patcher", "SMBX Magic Patcher\SMBX Magic Patcher.vbproj", "{0C2BB6C3-5D7C-4E85-A170-2C0E46D39162}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{0C2BB6C3-5D7C-4E85-A170-2C0E46D39162}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{0C2BB6C3-5D7C-4E85-A170-2C0E46D39162}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{0C2BB6C3-5D7C-4E85-A170-2C0E46D39162}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{0C2BB6C3-5D7C-4E85-A170-2C0E46D39162}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal

SMBX Magic Patcher/App.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2" />
+    </startup>
+</configuration>

SMBX Magic Patcher/Form1.Designer.vb

@@ -0,0 +1,762 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form1
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
+        Me.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.CircularProgress_Apply = New DevComponents.DotNetBar.Controls.CircularProgress()
+        Me.LabelX14 = New DevComponents.DotNetBar.LabelX()
+        Me.Button_ApplyPatch = New System.Windows.Forms.Button()
+        Me.LabelX4 = New DevComponents.DotNetBar.LabelX()
+        Me.LabelX6 = New DevComponents.DotNetBar.LabelX()
+        Me.ButtonX4 = New DevComponents.DotNetBar.ButtonX()
+        Me.TextBoxX_PatchFileApply = New DevComponents.DotNetBar.Controls.TextBoxX()
+        Me.ButtonX6 = New DevComponents.DotNetBar.ButtonX()
+        Me.TextBoxX_OriginalLevelApply = New DevComponents.DotNetBar.Controls.TextBoxX()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.CircularProgress_Create = New DevComponents.DotNetBar.Controls.CircularProgress()
+        Me.LabelX15 = New DevComponents.DotNetBar.LabelX()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.SwitchButton_Liquids = New DevComponents.DotNetBar.Controls.SwitchButton()
+        Me.LabelX8 = New DevComponents.DotNetBar.LabelX()
+        Me.LabelX10 = New DevComponents.DotNetBar.LabelX()
+        Me.SwitchButton_Layers = New DevComponents.DotNetBar.Controls.SwitchButton()
+        Me.SwitchButton_Scripts = New DevComponents.DotNetBar.Controls.SwitchButton()
+        Me.LabelX11 = New DevComponents.DotNetBar.LabelX()
+        Me.LabelX12 = New DevComponents.DotNetBar.LabelX()
+        Me.SwitchButton_Variables = New DevComponents.DotNetBar.Controls.SwitchButton()
+        Me.SwitchButton_Events = New DevComponents.DotNetBar.Controls.SwitchButton()
+        Me.LabelX13 = New DevComponents.DotNetBar.LabelX()
+        Me.LabelX5 = New DevComponents.DotNetBar.LabelX()
+        Me.SwitchButton_BlocksEtc = New DevComponents.DotNetBar.Controls.SwitchButton()
+        Me.LabelX9 = New DevComponents.DotNetBar.LabelX()
+        Me.LabelX7 = New DevComponents.DotNetBar.LabelX()
+        Me.SwitchButton_Configs = New DevComponents.DotNetBar.Controls.SwitchButton()
+        Me.SwitchButton_Graphics = New DevComponents.DotNetBar.Controls.SwitchButton()
+        Me.CheckBoxX2 = New DevComponents.DotNetBar.Controls.CheckBoxX()
+        Me.CheckBoxX1 = New DevComponents.DotNetBar.Controls.CheckBoxX()
+        Me.Button_CreatePatch = New System.Windows.Forms.Button()
+        Me.LabelX3 = New DevComponents.DotNetBar.LabelX()
+        Me.LabelX2 = New DevComponents.DotNetBar.LabelX()
+        Me.LabelX1 = New DevComponents.DotNetBar.LabelX()
+        Me.ButtonX3 = New DevComponents.DotNetBar.ButtonX()
+        Me.TextBoxX_ModifiedLevel = New DevComponents.DotNetBar.Controls.TextBoxX()
+        Me.ButtonX2 = New DevComponents.DotNetBar.ButtonX()
+        Me.ButtonX1 = New DevComponents.DotNetBar.ButtonX()
+        Me.TextBoxX_PatchFileCreate = New DevComponents.DotNetBar.Controls.TextBoxX()
+        Me.TextBoxX_OriginalLevelCreate = New DevComponents.DotNetBar.Controls.TextBoxX()
+        Me.TabControl1.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.GroupBox1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'TabControl1
+        '
+        Me.TabControl1.Controls.Add(Me.TabPage1)
+        Me.TabControl1.Controls.Add(Me.TabPage2)
+        Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TabControl1.Location = New System.Drawing.Point(0, 0)
+        Me.TabControl1.Name = "TabControl1"
+        Me.TabControl1.SelectedIndex = 0
+        Me.TabControl1.Size = New System.Drawing.Size(352, 118)
+        Me.TabControl1.TabIndex = 0
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.CircularProgress_Apply)
+        Me.TabPage1.Controls.Add(Me.LabelX14)
+        Me.TabPage1.Controls.Add(Me.Button_ApplyPatch)
+        Me.TabPage1.Controls.Add(Me.LabelX4)
+        Me.TabPage1.Controls.Add(Me.LabelX6)
+        Me.TabPage1.Controls.Add(Me.ButtonX4)
+        Me.TabPage1.Controls.Add(Me.TextBoxX_PatchFileApply)
+        Me.TabPage1.Controls.Add(Me.ButtonX6)
+        Me.TabPage1.Controls.Add(Me.TextBoxX_OriginalLevelApply)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(344, 92)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Apply Patch"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'CircularProgress_Apply
+        '
+        '
+        '
+        '
+        Me.CircularProgress_Apply.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.CircularProgress_Apply.Location = New System.Drawing.Point(6, 63)
+        Me.CircularProgress_Apply.Name = "CircularProgress_Apply"
+        Me.CircularProgress_Apply.ProgressBarType = DevComponents.DotNetBar.eCircularProgressType.Dot
+        Me.CircularProgress_Apply.ProgressColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.CircularProgress_Apply.Size = New System.Drawing.Size(23, 23)
+        Me.CircularProgress_Apply.Style = DevComponents.DotNetBar.eDotNetBarStyle.OfficeXP
+        Me.CircularProgress_Apply.TabIndex = 41
+        '
+        'LabelX14
+        '
+        '
+        '
+        '
+        Me.LabelX14.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX14.Location = New System.Drawing.Point(35, 63)
+        Me.LabelX14.Name = "LabelX14"
+        Me.LabelX14.Size = New System.Drawing.Size(196, 23)
+        Me.LabelX14.TabIndex = 1
+        Me.LabelX14.Text = "<font color=""#2F3699"">Patching level. Please wait ...</font>"
+        Me.LabelX14.Visible = False
+        '
+        'Button_ApplyPatch
+        '
+        Me.Button_ApplyPatch.Location = New System.Drawing.Point(237, 63)
+        Me.Button_ApplyPatch.Name = "Button_ApplyPatch"
+        Me.Button_ApplyPatch.Size = New System.Drawing.Size(101, 23)
+        Me.Button_ApplyPatch.TabIndex = 40
+        Me.Button_ApplyPatch.Text = "Apply Patch!"
+        Me.Button_ApplyPatch.UseVisualStyleBackColor = True
+        '
+        'LabelX4
+        '
+        '
+        '
+        '
+        Me.LabelX4.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX4.Location = New System.Drawing.Point(6, 34)
+        Me.LabelX4.Name = "LabelX4"
+        Me.LabelX4.Size = New System.Drawing.Size(72, 23)
+        Me.LabelX4.TabIndex = 39
+        Me.LabelX4.Text = "<font color=""#000000"">Patch file:</font>"
+        '
+        'LabelX6
+        '
+        '
+        '
+        '
+        Me.LabelX6.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX6.Location = New System.Drawing.Point(6, 5)
+        Me.LabelX6.Name = "LabelX6"
+        Me.LabelX6.Size = New System.Drawing.Size(72, 23)
+        Me.LabelX6.TabIndex = 37
+        Me.LabelX6.Text = "<font color=""#000000"">Original level:</font>"
+        '
+        'ButtonX4
+        '
+        Me.ButtonX4.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
+        Me.ButtonX4.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
+        Me.ButtonX4.Location = New System.Drawing.Point(305, 34)
+        Me.ButtonX4.Name = "ButtonX4"
+        Me.ButtonX4.Size = New System.Drawing.Size(33, 23)
+        Me.ButtonX4.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.ButtonX4.Symbol = "58055"
+        Me.ButtonX4.SymbolSet = DevComponents.DotNetBar.eSymbolSet.Material
+        Me.ButtonX4.SymbolSize = 15.0!
+        Me.ButtonX4.TabIndex = 36
+        '
+        'TextBoxX_PatchFileApply
+        '
+        '
+        '
+        '
+        Me.TextBoxX_PatchFileApply.Border.Class = "TextBoxBorder"
+        Me.TextBoxX_PatchFileApply.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.TextBoxX_PatchFileApply.Location = New System.Drawing.Point(84, 36)
+        Me.TextBoxX_PatchFileApply.Name = "TextBoxX_PatchFileApply"
+        Me.TextBoxX_PatchFileApply.PreventEnterBeep = True
+        Me.TextBoxX_PatchFileApply.ReadOnly = True
+        Me.TextBoxX_PatchFileApply.Size = New System.Drawing.Size(215, 20)
+        Me.TextBoxX_PatchFileApply.TabIndex = 35
+        Me.TextBoxX_PatchFileApply.WatermarkBehavior = DevComponents.DotNetBar.eWatermarkBehavior.HideNonEmpty
+        Me.TextBoxX_PatchFileApply.WatermarkText = "No file loaded!"
+        '
+        'ButtonX6
+        '
+        Me.ButtonX6.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
+        Me.ButtonX6.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
+        Me.ButtonX6.Location = New System.Drawing.Point(305, 5)
+        Me.ButtonX6.Name = "ButtonX6"
+        Me.ButtonX6.Size = New System.Drawing.Size(33, 23)
+        Me.ButtonX6.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.ButtonX6.Symbol = "58055"
+        Me.ButtonX6.SymbolSet = DevComponents.DotNetBar.eSymbolSet.Material
+        Me.ButtonX6.SymbolSize = 15.0!
+        Me.ButtonX6.TabIndex = 33
+        '
+        'TextBoxX_OriginalLevelApply
+        '
+        '
+        '
+        '
+        Me.TextBoxX_OriginalLevelApply.Border.Class = "TextBoxBorder"
+        Me.TextBoxX_OriginalLevelApply.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.TextBoxX_OriginalLevelApply.Location = New System.Drawing.Point(84, 7)
+        Me.TextBoxX_OriginalLevelApply.Name = "TextBoxX_OriginalLevelApply"
+        Me.TextBoxX_OriginalLevelApply.PreventEnterBeep = True
+        Me.TextBoxX_OriginalLevelApply.ReadOnly = True
+        Me.TextBoxX_OriginalLevelApply.Size = New System.Drawing.Size(215, 20)
+        Me.TextBoxX_OriginalLevelApply.TabIndex = 31
+        Me.TextBoxX_OriginalLevelApply.WatermarkBehavior = DevComponents.DotNetBar.eWatermarkBehavior.HideNonEmpty
+        Me.TextBoxX_OriginalLevelApply.WatermarkText = "No file loaded!"
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.CircularProgress_Create)
+        Me.TabPage2.Controls.Add(Me.LabelX15)
+        Me.TabPage2.Controls.Add(Me.GroupBox1)
+        Me.TabPage2.Controls.Add(Me.CheckBoxX2)
+        Me.TabPage2.Controls.Add(Me.CheckBoxX1)
+        Me.TabPage2.Controls.Add(Me.Button_CreatePatch)
+        Me.TabPage2.Controls.Add(Me.LabelX3)
+        Me.TabPage2.Controls.Add(Me.LabelX2)
+        Me.TabPage2.Controls.Add(Me.LabelX1)
+        Me.TabPage2.Controls.Add(Me.ButtonX3)
+        Me.TabPage2.Controls.Add(Me.TextBoxX_ModifiedLevel)
+        Me.TabPage2.Controls.Add(Me.ButtonX2)
+        Me.TabPage2.Controls.Add(Me.ButtonX1)
+        Me.TabPage2.Controls.Add(Me.TextBoxX_PatchFileCreate)
+        Me.TabPage2.Controls.Add(Me.TextBoxX_OriginalLevelCreate)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(344, 92)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Create Patch"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'CircularProgress_Create
+        '
+        '
+        '
+        '
+        Me.CircularProgress_Create.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.CircularProgress_Create.Location = New System.Drawing.Point(6, 260)
+        Me.CircularProgress_Create.Name = "CircularProgress_Create"
+        Me.CircularProgress_Create.ProgressBarType = DevComponents.DotNetBar.eCircularProgressType.Dot
+        Me.CircularProgress_Create.ProgressColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.CircularProgress_Create.Size = New System.Drawing.Size(23, 23)
+        Me.CircularProgress_Create.Style = DevComponents.DotNetBar.eDotNetBarStyle.OfficeXP
+        Me.CircularProgress_Create.TabIndex = 42
+        '
+        'LabelX15
+        '
+        '
+        '
+        '
+        Me.LabelX15.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX15.Location = New System.Drawing.Point(35, 260)
+        Me.LabelX15.Name = "LabelX15"
+        Me.LabelX15.Size = New System.Drawing.Size(196, 23)
+        Me.LabelX15.TabIndex = 33
+        Me.LabelX15.Text = "<font color=""#2F3699"">Creating patch. Please wait ...</font>"
+        Me.LabelX15.Visible = False
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.SwitchButton_Liquids)
+        Me.GroupBox1.Controls.Add(Me.LabelX8)
+        Me.GroupBox1.Controls.Add(Me.LabelX10)
+        Me.GroupBox1.Controls.Add(Me.SwitchButton_Layers)
+        Me.GroupBox1.Controls.Add(Me.SwitchButton_Scripts)
+        Me.GroupBox1.Controls.Add(Me.LabelX11)
+        Me.GroupBox1.Controls.Add(Me.LabelX12)
+        Me.GroupBox1.Controls.Add(Me.SwitchButton_Variables)
+        Me.GroupBox1.Controls.Add(Me.SwitchButton_Events)
+        Me.GroupBox1.Controls.Add(Me.LabelX13)
+        Me.GroupBox1.Controls.Add(Me.LabelX5)
+        Me.GroupBox1.Controls.Add(Me.SwitchButton_BlocksEtc)
+        Me.GroupBox1.Controls.Add(Me.LabelX9)
+        Me.GroupBox1.Controls.Add(Me.LabelX7)
+        Me.GroupBox1.Controls.Add(Me.SwitchButton_Configs)
+        Me.GroupBox1.Controls.Add(Me.SwitchButton_Graphics)
+        Me.GroupBox1.Location = New System.Drawing.Point(6, 118)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(330, 136)
+        Me.GroupBox1.TabIndex = 1
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Settings"
+        '
+        'SwitchButton_Liquids
+        '
+        '
+        '
+        '
+        Me.SwitchButton_Liquids.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.SwitchButton_Liquids.FocusCuesEnabled = False
+        Me.SwitchButton_Liquids.Location = New System.Drawing.Point(103, 48)
+        Me.SwitchButton_Liquids.Name = "SwitchButton_Liquids"
+        Me.SwitchButton_Liquids.OffText = "No"
+        Me.SwitchButton_Liquids.OnText = "Yes"
+        Me.SwitchButton_Liquids.Size = New System.Drawing.Size(57, 23)
+        Me.SwitchButton_Liquids.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SwitchButton_Liquids.TabIndex = 49
+        Me.SwitchButton_Liquids.Value = True
+        Me.SwitchButton_Liquids.ValueObject = "Y"
+        '
+        'LabelX8
+        '
+        '
+        '
+        '
+        Me.LabelX8.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX8.Location = New System.Drawing.Point(6, 48)
+        Me.LabelX8.Name = "LabelX8"
+        Me.LabelX8.Size = New System.Drawing.Size(91, 23)
+        Me.LabelX8.TabIndex = 50
+        Me.LabelX8.Text = "<font color=""#000000"">Liquids:</font>"
+        '
+        'LabelX10
+        '
+        '
+        '
+        '
+        Me.LabelX10.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX10.Location = New System.Drawing.Point(170, 19)
+        Me.LabelX10.Name = "LabelX10"
+        Me.LabelX10.Size = New System.Drawing.Size(91, 23)
+        Me.LabelX10.TabIndex = 41
+        Me.LabelX10.Text = "<font color=""#000000"">Scripts:</font>"
+        '
+        'SwitchButton_Layers
+        '
+        '
+        '
+        '
+        Me.SwitchButton_Layers.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.SwitchButton_Layers.FocusCuesEnabled = False
+        Me.SwitchButton_Layers.Location = New System.Drawing.Point(267, 106)
+        Me.SwitchButton_Layers.Name = "SwitchButton_Layers"
+        Me.SwitchButton_Layers.OffText = "No"
+        Me.SwitchButton_Layers.OnText = "Yes"
+        Me.SwitchButton_Layers.Size = New System.Drawing.Size(57, 23)
+        Me.SwitchButton_Layers.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SwitchButton_Layers.TabIndex = 48
+        Me.SwitchButton_Layers.Value = True
+        Me.SwitchButton_Layers.ValueObject = "Y"
+        '
+        'SwitchButton_Scripts
+        '
+        '
+        '
+        '
+        Me.SwitchButton_Scripts.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.SwitchButton_Scripts.FocusCuesEnabled = False
+        Me.SwitchButton_Scripts.Location = New System.Drawing.Point(267, 19)
+        Me.SwitchButton_Scripts.Name = "SwitchButton_Scripts"
+        Me.SwitchButton_Scripts.OffText = "No"
+        Me.SwitchButton_Scripts.OnText = "Yes"
+        Me.SwitchButton_Scripts.Size = New System.Drawing.Size(57, 23)
+        Me.SwitchButton_Scripts.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SwitchButton_Scripts.TabIndex = 42
+        Me.SwitchButton_Scripts.Value = True
+        Me.SwitchButton_Scripts.ValueObject = "Y"
+        '
+        'LabelX11
+        '
+        '
+        '
+        '
+        Me.LabelX11.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX11.Location = New System.Drawing.Point(170, 106)
+        Me.LabelX11.Name = "LabelX11"
+        Me.LabelX11.Size = New System.Drawing.Size(91, 23)
+        Me.LabelX11.TabIndex = 47
+        Me.LabelX11.Text = "<font color=""#000000"">Layers:</font>"
+        '
+        'LabelX12
+        '
+        '
+        '
+        '
+        Me.LabelX12.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX12.Location = New System.Drawing.Point(170, 48)
+        Me.LabelX12.Name = "LabelX12"
+        Me.LabelX12.Size = New System.Drawing.Size(91, 23)
+        Me.LabelX12.TabIndex = 43
+        Me.LabelX12.Text = "<font color=""#000000"">Events:</font>"
+        '
+        'SwitchButton_Variables
+        '
+        '
+        '
+        '
+        Me.SwitchButton_Variables.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.SwitchButton_Variables.FocusCuesEnabled = False
+        Me.SwitchButton_Variables.Location = New System.Drawing.Point(267, 77)
+        Me.SwitchButton_Variables.Name = "SwitchButton_Variables"
+        Me.SwitchButton_Variables.OffText = "No"
+        Me.SwitchButton_Variables.OnText = "Yes"
+        Me.SwitchButton_Variables.Size = New System.Drawing.Size(57, 23)
+        Me.SwitchButton_Variables.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SwitchButton_Variables.TabIndex = 46
+        Me.SwitchButton_Variables.Value = True
+        Me.SwitchButton_Variables.ValueObject = "Y"
+        '
+        'SwitchButton_Events
+        '
+        '
+        '
+        '
+        Me.SwitchButton_Events.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.SwitchButton_Events.FocusCuesEnabled = False
+        Me.SwitchButton_Events.Location = New System.Drawing.Point(267, 48)
+        Me.SwitchButton_Events.Name = "SwitchButton_Events"
+        Me.SwitchButton_Events.OffText = "No"
+        Me.SwitchButton_Events.OnText = "Yes"
+        Me.SwitchButton_Events.Size = New System.Drawing.Size(57, 23)
+        Me.SwitchButton_Events.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SwitchButton_Events.TabIndex = 44
+        Me.SwitchButton_Events.Value = True
+        Me.SwitchButton_Events.ValueObject = "Y"
+        '
+        'LabelX13
+        '
+        '
+        '
+        '
+        Me.LabelX13.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX13.Location = New System.Drawing.Point(170, 77)
+        Me.LabelX13.Name = "LabelX13"
+        Me.LabelX13.Size = New System.Drawing.Size(91, 23)
+        Me.LabelX13.TabIndex = 45
+        Me.LabelX13.Text = "<font color=""#000000"">Variables:</font>"
+        '
+        'LabelX5
+        '
+        '
+        '
+        '
+        Me.LabelX5.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX5.Location = New System.Drawing.Point(6, 77)
+        Me.LabelX5.Name = "LabelX5"
+        Me.LabelX5.Size = New System.Drawing.Size(91, 23)
+        Me.LabelX5.TabIndex = 33
+        Me.LabelX5.Text = "<font color=""#000000"">Graphics:</font>"
+        '
+        'SwitchButton_BlocksEtc
+        '
+        '
+        '
+        '
+        Me.SwitchButton_BlocksEtc.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.SwitchButton_BlocksEtc.FocusCuesEnabled = False
+        Me.SwitchButton_BlocksEtc.Location = New System.Drawing.Point(103, 19)
+        Me.SwitchButton_BlocksEtc.Name = "SwitchButton_BlocksEtc"
+        Me.SwitchButton_BlocksEtc.OffText = "No"
+        Me.SwitchButton_BlocksEtc.OnText = "Yes"
+        Me.SwitchButton_BlocksEtc.Size = New System.Drawing.Size(57, 23)
+        Me.SwitchButton_BlocksEtc.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SwitchButton_BlocksEtc.TabIndex = 34
+        Me.SwitchButton_BlocksEtc.Value = True
+        Me.SwitchButton_BlocksEtc.ValueObject = "Y"
+        '
+        'LabelX9
+        '
+        '
+        '
+        '
+        Me.LabelX9.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX9.Location = New System.Drawing.Point(6, 19)
+        Me.LabelX9.Name = "LabelX9"
+        Me.LabelX9.Size = New System.Drawing.Size(91, 23)
+        Me.LabelX9.TabIndex = 39
+        Me.LabelX9.Text = "<font color=""#000000"">Blocks/NPCs/etc.:</font>"
+        '
+        'LabelX7
+        '
+        '
+        '
+        '
+        Me.LabelX7.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX7.Location = New System.Drawing.Point(6, 106)
+        Me.LabelX7.Name = "LabelX7"
+        Me.LabelX7.Size = New System.Drawing.Size(91, 23)
+        Me.LabelX7.TabIndex = 35
+        Me.LabelX7.Text = "<font color=""#000000"">Configurations:</font>"
+        '
+        'SwitchButton_Configs
+        '
+        '
+        '
+        '
+        Me.SwitchButton_Configs.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.SwitchButton_Configs.FocusCuesEnabled = False
+        Me.SwitchButton_Configs.Location = New System.Drawing.Point(103, 106)
+        Me.SwitchButton_Configs.Name = "SwitchButton_Configs"
+        Me.SwitchButton_Configs.OffText = "No"
+        Me.SwitchButton_Configs.OnText = "Yes"
+        Me.SwitchButton_Configs.Size = New System.Drawing.Size(57, 23)
+        Me.SwitchButton_Configs.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SwitchButton_Configs.TabIndex = 38
+        Me.SwitchButton_Configs.Value = True
+        Me.SwitchButton_Configs.ValueObject = "Y"
+        '
+        'SwitchButton_Graphics
+        '
+        '
+        '
+        '
+        Me.SwitchButton_Graphics.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.SwitchButton_Graphics.FocusCuesEnabled = False
+        Me.SwitchButton_Graphics.Location = New System.Drawing.Point(103, 77)
+        Me.SwitchButton_Graphics.Name = "SwitchButton_Graphics"
+        Me.SwitchButton_Graphics.OffText = "No"
+        Me.SwitchButton_Graphics.OnText = "Yes"
+        Me.SwitchButton_Graphics.Size = New System.Drawing.Size(57, 23)
+        Me.SwitchButton_Graphics.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SwitchButton_Graphics.TabIndex = 36
+        Me.SwitchButton_Graphics.Value = True
+        Me.SwitchButton_Graphics.ValueObject = "Y"
+        '
+        'CheckBoxX2
+        '
+        '
+        '
+        '
+        Me.CheckBoxX2.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.CheckBoxX2.CheckBoxStyle = DevComponents.DotNetBar.eCheckBoxStyle.RadioButton
+        Me.CheckBoxX2.FocusCuesEnabled = False
+        Me.CheckBoxX2.Location = New System.Drawing.Point(199, 33)
+        Me.CheckBoxX2.Name = "CheckBoxX2"
+        Me.CheckBoxX2.Size = New System.Drawing.Size(100, 23)
+        Me.CheckBoxX2.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.CheckBoxX2.TabIndex = 32
+        Me.CheckBoxX2.Text = "use custom level"
+        '
+        'CheckBoxX1
+        '
+        '
+        '
+        '
+        Me.CheckBoxX1.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.CheckBoxX1.CheckBoxStyle = DevComponents.DotNetBar.eCheckBoxStyle.RadioButton
+        Me.CheckBoxX1.Checked = True
+        Me.CheckBoxX1.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.CheckBoxX1.CheckValue = "Y"
+        Me.CheckBoxX1.FocusCuesEnabled = False
+        Me.CheckBoxX1.Location = New System.Drawing.Point(84, 33)
+        Me.CheckBoxX1.Name = "CheckBoxX1"
+        Me.CheckBoxX1.Size = New System.Drawing.Size(100, 23)
+        Me.CheckBoxX1.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.CheckBoxX1.TabIndex = 31
+        Me.CheckBoxX1.Text = "use emtpy level"
+        '
+        'Button_CreatePatch
+        '
+        Me.Button_CreatePatch.Location = New System.Drawing.Point(237, 260)
+        Me.Button_CreatePatch.Name = "Button_CreatePatch"
+        Me.Button_CreatePatch.Size = New System.Drawing.Size(101, 23)
+        Me.Button_CreatePatch.TabIndex = 30
+        Me.Button_CreatePatch.Text = "Create Patch!"
+        Me.Button_CreatePatch.UseVisualStyleBackColor = True
+        '
+        'LabelX3
+        '
+        '
+        '
+        '
+        Me.LabelX3.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX3.Location = New System.Drawing.Point(6, 89)
+        Me.LabelX3.Name = "LabelX3"
+        Me.LabelX3.Size = New System.Drawing.Size(72, 23)
+        Me.LabelX3.TabIndex = 29
+        Me.LabelX3.Text = "<font color=""#000000"">Patch file:</font>"
+        '
+        'LabelX2
+        '
+        '
+        '
+        '
+        Me.LabelX2.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX2.Location = New System.Drawing.Point(6, 60)
+        Me.LabelX2.Name = "LabelX2"
+        Me.LabelX2.Size = New System.Drawing.Size(72, 23)
+        Me.LabelX2.TabIndex = 28
+        Me.LabelX2.Text = "<font color=""#000000"">Modified level:</font>"
+        '
+        'LabelX1
+        '
+        '
+        '
+        '
+        Me.LabelX1.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.LabelX1.Location = New System.Drawing.Point(6, 5)
+        Me.LabelX1.Name = "LabelX1"
+        Me.LabelX1.Size = New System.Drawing.Size(72, 23)
+        Me.LabelX1.TabIndex = 27
+        Me.LabelX1.Text = "<font color=""#000000"">Original level:</font>"
+        '
+        'ButtonX3
+        '
+        Me.ButtonX3.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
+        Me.ButtonX3.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
+        Me.ButtonX3.Location = New System.Drawing.Point(305, 60)
+        Me.ButtonX3.Name = "ButtonX3"
+        Me.ButtonX3.Size = New System.Drawing.Size(33, 23)
+        Me.ButtonX3.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.ButtonX3.Symbol = "58055"
+        Me.ButtonX3.SymbolSet = DevComponents.DotNetBar.eSymbolSet.Material
+        Me.ButtonX3.SymbolSize = 15.0!
+        Me.ButtonX3.TabIndex = 26
+        '
+        'TextBoxX_ModifiedLevel
+        '
+        '
+        '
+        '
+        Me.TextBoxX_ModifiedLevel.Border.Class = "TextBoxBorder"
+        Me.TextBoxX_ModifiedLevel.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.TextBoxX_ModifiedLevel.Location = New System.Drawing.Point(84, 62)
+        Me.TextBoxX_ModifiedLevel.Name = "TextBoxX_ModifiedLevel"
+        Me.TextBoxX_ModifiedLevel.PreventEnterBeep = True
+        Me.TextBoxX_ModifiedLevel.ReadOnly = True
+        Me.TextBoxX_ModifiedLevel.Size = New System.Drawing.Size(215, 20)
+        Me.TextBoxX_ModifiedLevel.TabIndex = 25
+        Me.TextBoxX_ModifiedLevel.WatermarkBehavior = DevComponents.DotNetBar.eWatermarkBehavior.HideNonEmpty
+        Me.TextBoxX_ModifiedLevel.WatermarkText = "No file loaded!"
+        '
+        'ButtonX2
+        '
+        Me.ButtonX2.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
+        Me.ButtonX2.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
+        Me.ButtonX2.Location = New System.Drawing.Point(305, 89)
+        Me.ButtonX2.Name = "ButtonX2"
+        Me.ButtonX2.Size = New System.Drawing.Size(33, 23)
+        Me.ButtonX2.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.ButtonX2.Symbol = "57697"
+        Me.ButtonX2.SymbolSet = DevComponents.DotNetBar.eSymbolSet.Material
+        Me.ButtonX2.SymbolSize = 15.0!
+        Me.ButtonX2.TabIndex = 24
+        '
+        'ButtonX1
+        '
+        Me.ButtonX1.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
+        Me.ButtonX1.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
+        Me.ButtonX1.Enabled = False
+        Me.ButtonX1.Location = New System.Drawing.Point(305, 5)
+        Me.ButtonX1.Name = "ButtonX1"
+        Me.ButtonX1.Size = New System.Drawing.Size(33, 23)
+        Me.ButtonX1.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.ButtonX1.Symbol = "58055"
+        Me.ButtonX1.SymbolSet = DevComponents.DotNetBar.eSymbolSet.Material
+        Me.ButtonX1.SymbolSize = 15.0!
+        Me.ButtonX1.TabIndex = 23
+        '
+        'TextBoxX_PatchFileCreate
+        '
+        '
+        '
+        '
+        Me.TextBoxX_PatchFileCreate.Border.Class = "TextBoxBorder"
+        Me.TextBoxX_PatchFileCreate.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.TextBoxX_PatchFileCreate.Location = New System.Drawing.Point(84, 91)
+        Me.TextBoxX_PatchFileCreate.Name = "TextBoxX_PatchFileCreate"
+        Me.TextBoxX_PatchFileCreate.PreventEnterBeep = True
+        Me.TextBoxX_PatchFileCreate.ReadOnly = True
+        Me.TextBoxX_PatchFileCreate.Size = New System.Drawing.Size(215, 20)
+        Me.TextBoxX_PatchFileCreate.TabIndex = 22
+        Me.TextBoxX_PatchFileCreate.WatermarkBehavior = DevComponents.DotNetBar.eWatermarkBehavior.HideNonEmpty
+        Me.TextBoxX_PatchFileCreate.WatermarkText = "No file loaded!"
+        '
+        'TextBoxX_OriginalLevelCreate
+        '
+        '
+        '
+        '
+        Me.TextBoxX_OriginalLevelCreate.Border.Class = "TextBoxBorder"
+        Me.TextBoxX_OriginalLevelCreate.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.TextBoxX_OriginalLevelCreate.Enabled = False
+        Me.TextBoxX_OriginalLevelCreate.Location = New System.Drawing.Point(84, 7)
+        Me.TextBoxX_OriginalLevelCreate.Name = "TextBoxX_OriginalLevelCreate"
+        Me.TextBoxX_OriginalLevelCreate.PreventEnterBeep = True
+        Me.TextBoxX_OriginalLevelCreate.ReadOnly = True
+        Me.TextBoxX_OriginalLevelCreate.Size = New System.Drawing.Size(215, 20)
+        Me.TextBoxX_OriginalLevelCreate.TabIndex = 21
+        Me.TextBoxX_OriginalLevelCreate.WatermarkBehavior = DevComponents.DotNetBar.eWatermarkBehavior.HideNonEmpty
+        Me.TextBoxX_OriginalLevelCreate.WatermarkText = "No file loaded!"
+        '
+        'Form1
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(352, 118)
+        Me.Controls.Add(Me.TabControl1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.Name = "Form1"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "SMBX Magic Patcher"
+        Me.TabControl1.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.GroupBox1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents TabControl1 As TabControl
+    Friend WithEvents TabPage1 As TabPage
+    Friend WithEvents TabPage2 As TabPage
+    Friend WithEvents Button_ApplyPatch As Button
+    Friend WithEvents LabelX4 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents LabelX6 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents ButtonX4 As DevComponents.DotNetBar.ButtonX
+    Friend WithEvents TextBoxX_PatchFileApply As DevComponents.DotNetBar.Controls.TextBoxX
+    Friend WithEvents ButtonX6 As DevComponents.DotNetBar.ButtonX
+    Friend WithEvents TextBoxX_OriginalLevelApply As DevComponents.DotNetBar.Controls.TextBoxX
+    Friend WithEvents Button_CreatePatch As Button
+    Friend WithEvents LabelX3 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents LabelX2 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents LabelX1 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents ButtonX3 As DevComponents.DotNetBar.ButtonX
+    Friend WithEvents TextBoxX_ModifiedLevel As DevComponents.DotNetBar.Controls.TextBoxX
+    Friend WithEvents ButtonX2 As DevComponents.DotNetBar.ButtonX
+    Friend WithEvents ButtonX1 As DevComponents.DotNetBar.ButtonX
+    Friend WithEvents TextBoxX_PatchFileCreate As DevComponents.DotNetBar.Controls.TextBoxX
+    Friend WithEvents TextBoxX_OriginalLevelCreate As DevComponents.DotNetBar.Controls.TextBoxX
+    Friend WithEvents CheckBoxX2 As DevComponents.DotNetBar.Controls.CheckBoxX
+    Friend WithEvents CheckBoxX1 As DevComponents.DotNetBar.Controls.CheckBoxX
+    Friend WithEvents LabelX5 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents LabelX9 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents SwitchButton_Configs As DevComponents.DotNetBar.Controls.SwitchButton
+    Friend WithEvents SwitchButton_Graphics As DevComponents.DotNetBar.Controls.SwitchButton
+    Friend WithEvents LabelX7 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents SwitchButton_BlocksEtc As DevComponents.DotNetBar.Controls.SwitchButton
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents LabelX10 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents SwitchButton_Layers As DevComponents.DotNetBar.Controls.SwitchButton
+    Friend WithEvents SwitchButton_Scripts As DevComponents.DotNetBar.Controls.SwitchButton
+    Friend WithEvents LabelX11 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents LabelX12 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents SwitchButton_Variables As DevComponents.DotNetBar.Controls.SwitchButton
+    Friend WithEvents SwitchButton_Events As DevComponents.DotNetBar.Controls.SwitchButton
+    Friend WithEvents LabelX13 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents SwitchButton_Liquids As DevComponents.DotNetBar.Controls.SwitchButton
+    Friend WithEvents LabelX8 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents LabelX14 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents LabelX15 As DevComponents.DotNetBar.LabelX
+    Friend WithEvents CircularProgress_Apply As DevComponents.DotNetBar.Controls.CircularProgress
+    Friend WithEvents CircularProgress_Create As DevComponents.DotNetBar.Controls.CircularProgress
+End Class

SMBX Magic Patcher/Form1.vb

@@ -0,0 +1,429 @@
+Imports System.IO
+Imports DevComponents.DotNetBar
+
+Public Class Form1
+
+    Public TempDir As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\SMBX Magic Patcher"
+
+    Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click
+        With New OpenFileDialog
+            .Filter = "SMBX-38A Levels (*.lvl)|*.lvl"
+            If .ShowDialog = Not DialogResult.OK Then
+                Exit Sub
+            End If
+            TextBoxX_OriginalLevelCreate.Text = .FileName
+        End With
+    End Sub
+
+    Private Sub ButtonX3_Click(sender As Object, e As EventArgs) Handles ButtonX3.Click
+        With New OpenFileDialog
+            .Filter = "SMBX-38A Levels (*.lvl)|*.lvl"
+            If .ShowDialog = Not DialogResult.OK Then
+                Exit Sub
+            End If
+            TextBoxX_ModifiedLevel.Text = .FileName
+        End With
+    End Sub
+
+    Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
+        With New SaveFileDialog
+            .Filter = "SMBX Magic Patch (*.plx)|*.plx"
+            If .ShowDialog = Not DialogResult.OK Then
+                Exit Sub
+            End If
+            TextBoxX_PatchFileCreate.Text = .FileName
+        End With
+    End Sub
+
+    Private Sub ButtonX6_Click(sender As Object, e As EventArgs) Handles ButtonX6.Click
+        With New OpenFileDialog
+            .Filter = "SMBX-38A Levels (*.lvl)|*.lvl"
+            If .ShowDialog = Not DialogResult.OK Then
+                Exit Sub
+            End If
+            TextBoxX_OriginalLevelApply.Text = .FileName
+        End With
+    End Sub
+
+    Private Sub ButtonX4_Click(sender As Object, e As EventArgs) Handles ButtonX4.Click
+        With New OpenFileDialog
+            .Filter = "All supported files (*.plx, *.slp)|*.plx;*.slp"
+            If .ShowDialog = Not DialogResult.OK Then
+                Exit Sub
+            End If
+            TextBoxX_PatchFileApply.Text = .FileName
+        End With
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button_CreatePatch.Click
+        CircularProgress_Create.IsRunning = True
+        Button_CreatePatch.Enabled = False
+        LabelX15.Visible = True
+
+        Select Case SMBXPFX.CreatePatch(TextBoxX_OriginalLevelCreate.Text,
+                                        TextBoxX_ModifiedLevel.Text,
+                                        TextBoxX_PatchFileCreate.Text,
+                                        CheckBoxX2.Checked,
+                                        SwitchButton_BlocksEtc.Value,
+                                        SwitchButton_Graphics.Value,
+                                        SwitchButton_Configs.Value,
+                                        SwitchButton_Events.Value,
+                                        SwitchButton_Layers.Value,
+                                        SwitchButton_Variables.Value,
+                                        SwitchButton_Scripts.Value)
+
+            Case 1 : MessageBoxEx.Show("Done", "Patch succesfully created!", MessageBoxButtons.OK, MessageBoxIcon.Information)
+            Case Else : MessageBoxEx.Show("Done", "Patch succesfully created!", MessageBoxButtons.OK, MessageBoxIcon.Information)
+        End Select
+
+        Button_CreatePatch.Enabled = True
+        LabelX15.Visible = False
+        CircularProgress_Create.IsRunning = False
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button_ApplyPatch.Click
+        SMBXPFX.ApplyPatch(TextBoxX_OriginalLevelApply.Text, TextBoxX_PatchFileApply.Text)
+    End Sub
+
+    Private Sub CheckBoxX2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxX2.CheckedChanged
+        ButtonX1.Enabled = CheckBoxX2.Checked
+        TextBoxX_OriginalLevelCreate.Enabled = CheckBoxX2.Checked
+    End Sub
+
+    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
+        Select Case TabControl1.SelectedIndex
+            Case 0 : Me.Size = New Point(368, 157)
+            Case 1 : Me.Size = New Point(368, 354)
+        End Select
+    End Sub
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If Not Directory.Exists(TempDir) Then Directory.CreateDirectory(TempDir)
+    End Sub
+End Class
+
+Public Class SMBXPFX
+
+    Shared Function CreatePatch(OriginalLevel As String, PatchedLevel As String, PatchFile As String, Optional UseCustomOriginalLevelFile As Boolean = False, Optional CopyBlocksEtc As Boolean = True, Optional CopyGraphics As Boolean = True, Optional CopyConfigurations As Boolean = True, Optional CopyEvents As Boolean = True, Optional CopyLayers As Boolean = True, Optional CopyVariables As Boolean = True, Optional CopyScripts As Boolean = True) As Integer
+        If Not UseCustomOriginalLevelFile Then
+            OriginalLevel = Application.StartupPath & "\emptylevel.dat"
+            CopyGraphics = False
+        End If
+
+        Dim OLevel() As String = File.ReadAllLines(OriginalLevel)
+        Dim PLevel() As String = File.ReadAllLines(PatchedLevel)
+        Dim PFile As New List(Of String)
+        Dim UsedThings As New List(Of String)
+
+        'Add differences to patch:
+        For Each l As String In PLevel
+            If Not OLevel.Contains(l) Then
+                If l.StartsWith("P1|") Or l.StartsWith("P2|") Or l.StartsWith("M|") Then GoTo SkipCheck
+                If l.StartsWith("B|") And Not Form1.SwitchButton_BlocksEtc.Value Then GoTo SkipCheck 'Blcks
+                If l.StartsWith("N|") And Not Form1.SwitchButton_BlocksEtc.Value Then GoTo SkipCheck 'NPCs
+                If l.StartsWith("T|") And Not Form1.SwitchButton_BlocksEtc.Value Then GoTo SkipCheck 'Backgrounds
+                If l.StartsWith("Q|") And Not Form1.SwitchButton_Liquids.Value Then GoTo SkipCheck 'Liquids
+                If l.StartsWith("CB|") And Not Form1.SwitchButton_Configs.Value Then GoTo SkipCheck 'Custom Block Configurations
+                If l.StartsWith("CT|") And Not Form1.SwitchButton_Configs.Value Then GoTo SkipCheck 'Custom Backgrounds Configurations
+                If l.StartsWith("L|") And Not Form1.SwitchButton_Layers.Value Then GoTo SkipCheck 'Layer
+                If l.StartsWith("E|") And Not Form1.SwitchButton_Events.Value Then GoTo SkipCheck 'Events
+                If l.StartsWith("V|") And Not Form1.SwitchButton_Variables.Value Then GoTo SkipCheck 'Variables
+                If l.StartsWith("S|") And Not Form1.SwitchButton_Scripts.Value Then GoTo SkipCheck 'Scripts
+                If l.StartsWith("Su|") And Not Form1.SwitchButton_Scripts.Value Then GoTo SkipCheck 'Scripts
+                PFile.Add(l) 'Finaly add line to patch
+SkipCheck:  End If
+        Next
+
+        'Check for custom graphics:
+        Dim OLeveldir As String = Path.GetDirectoryName(PatchedLevel) : Dim OLevelfiledir As String = OLeveldir & Path.GetFileNameWithoutExtension(PatchedLevel)
+        Dim PLeveldir As String = Path.GetDirectoryName(PatchedLevel) : Dim PLevelfiledir As String = PLeveldir & Path.GetFileNameWithoutExtension(PatchedLevel)
+        Dim OFilesInLeveldir() As String = Directory.GetFiles(OLeveldir) : Dim OFilesInLevelfiledir() As String = {""} : If Directory.Exists(OLevelfiledir) Then OFilesInLevelfiledir = Directory.GetFiles(OLevelfiledir)
+        Dim PFilesInLeveldir() As String = Directory.GetFiles(PLeveldir) : Dim PFilesInLevelfiledir() As String = {""} : If Directory.Exists(PLevelfiledir) Then PFilesInLevelfiledir = Directory.GetFiles(PLevelfiledir)
+        Dim FilesToCopyInLeveldir As New List(Of String) : Dim FilesToCopyInLevelfiledir As New List(Of String)
+        Dim UsedNPCs As New List(Of String)
+
+        If Form1.SwitchButton_Graphics.Value Then
+            For Each l As String In PFile
+                If l.StartsWith("B|") Then
+                    Dim lid As String = l.Replace("B|", "").Split("|")(1)
+                    Dim lFileInLeveldir As String = String.Format(PLeveldir & "\block-{0}.png", lid)
+                    Dim lFileInLevelfiledir As String = String.Format(PLevelfiledir & "\block-{0}.png", lid)
+                    If FilesToCopyInLeveldir.Contains(lFileInLeveldir) Or FilesToCopyInLevelfiledir.Contains(lFileInLevelfiledir) Then GoTo Skip1
+                    If Directory.Exists(PLevelfiledir) And Directory.Exists(OLevelfiledir) Then
+                        If File.Exists(lFileInLevelfiledir) And Not File.Exists(lFileInLevelfiledir) Then
+                            FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip1
+                        End If
+                    ElseIf Directory.Exists(PLevelfiledir) Then
+                        FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip1
+                    End If
+                    If File.Exists(lFileInLeveldir) And Not File.Exists(lFileInLeveldir) Then
+                        FilesToCopyInLeveldir.Add(lFileInLeveldir)
+                    End If
+Skip1:              Application.DoEvents()
+                ElseIf l.StartsWith("N|") Then
+                    Dim lid As String = l.Replace("N|", "").Split("|")(1) : UsedNPCs.Add(lid)
+                    Dim lFileInLeveldir As String = String.Format(PLeveldir & "\npc-{0}.png", lid)
+                    Dim lFileInLevelfiledir As String = String.Format(PLevelfiledir & "\npc-{0}.png", lid)
+                    If FilesToCopyInLeveldir.Contains(lFileInLeveldir) Or FilesToCopyInLevelfiledir.Contains(lFileInLevelfiledir) Then GoTo Skip2
+                    If Directory.Exists(PLevelfiledir) And Directory.Exists(OLevelfiledir) Then
+                        If File.Exists(lFileInLevelfiledir) And Not File.Exists(lFileInLevelfiledir) Then
+                            FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip2
+                        End If
+                    ElseIf Directory.Exists(PLevelfiledir) Then
+                        FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip2
+                    End If
+                    If File.Exists(lFileInLeveldir) And Not File.Exists(lFileInLeveldir) Then
+                        FilesToCopyInLeveldir.Add(lFileInLeveldir)
+                    End If
+Skip2:              Application.DoEvents()
+                ElseIf l.StartsWith("T|") Then
+                    Dim lid As String = l.Replace("T|", "").Split("|")(1)
+                    Dim lFileInLeveldir As String = String.Format(PLeveldir & "\background-{0}.png", lid)
+                    Dim lFileInLevelfiledir As String = String.Format(PLevelfiledir & "\background-{0}.png", lid)
+                    If FilesToCopyInLeveldir.Contains(lFileInLeveldir) Or FilesToCopyInLevelfiledir.Contains(lFileInLevelfiledir) Then GoTo Skip4
+                    If Directory.Exists(PLevelfiledir) And Directory.Exists(OLevelfiledir) Then
+                        If File.Exists(lFileInLevelfiledir) And Not File.Exists(lFileInLevelfiledir) Then
+                            FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip4
+                        End If
+                    ElseIf Directory.Exists(PLevelfiledir) Then
+                        FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip4
+                    End If
+                    If File.Exists(lFileInLeveldir) And Not File.Exists(lFileInLeveldir) Then
+                        FilesToCopyInLeveldir.Add(lFileInLeveldir)
+                    End If
+Skip4:              Application.DoEvents()
+                End If
+            Next
+
+            For i As Integer = 1 To 172
+                Dim lFileInLeveldir As String = String.Format(PLeveldir & "\effect-{0}.png", i)
+                Dim lFileInLevelfiledir As String = String.Format(PLevelfiledir & "\effect-{0}.png", i)
+                If Directory.Exists(PLevelfiledir) And Directory.Exists(OLevelfiledir) Then
+                    If File.Exists(lFileInLevelfiledir) And Not File.Exists(lFileInLevelfiledir) Then
+                        FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip5
+                    End If
+                ElseIf Directory.Exists(PLevelfiledir) Then
+                    FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip5
+                End If
+                If File.Exists(lFileInLeveldir) And Not File.Exists(lFileInLeveldir) Then
+                    FilesToCopyInLeveldir.Add(lFileInLeveldir)
+                End If
+Skip5:          Application.DoEvents()
+            Next
+
+            For Each p As String In {"mario", "luigi", "toad", "peach", "link"}
+                For i As Integer = 1 To 12
+                    Dim lFileInLeveldir As String = String.Format(PLeveldir & "\{1}-{0}.png", i, p)
+                    Dim lFileInLevelfiledir As String = String.Format(PLevelfiledir & "\{1}-{0}.png", i, p)
+                    If Directory.Exists(PLevelfiledir) And Directory.Exists(OLevelfiledir) Then
+                        If File.Exists(lFileInLevelfiledir) And Not File.Exists(lFileInLevelfiledir) Then
+                            FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip6
+                        End If
+                    ElseIf Directory.Exists(PLevelfiledir) Then
+                        FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip6
+                    End If
+                    If File.Exists(lFileInLeveldir) And Not File.Exists(lFileInLeveldir) Then
+                        FilesToCopyInLeveldir.Add(lFileInLeveldir)
+                    End If
+Skip6:              Application.DoEvents()
+                Next
+            Next
+
+            For Each p As String In {"yoshib", "yoshit"}
+                For i As Integer = 1 To 8
+                    Dim lFileInLeveldir As String = String.Format(PLeveldir & "\{1}-{0}.png", i, p)
+                    Dim lFileInLevelfiledir As String = String.Format(PLevelfiledir & "\{1}-{0}.png", i, p)
+                    If Directory.Exists(PLevelfiledir) And Directory.Exists(OLevelfiledir) Then
+                        If File.Exists(lFileInLevelfiledir) And Not File.Exists(lFileInLevelfiledir) Then
+                            FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip7
+                        End If
+                    ElseIf Directory.Exists(PLevelfiledir) Then
+                        FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip7
+                    End If
+                    If File.Exists(lFileInLeveldir) And Not File.Exists(lFileInLeveldir) Then
+                        FilesToCopyInLeveldir.Add(lFileInLeveldir)
+                    End If
+Skip7:              Application.DoEvents()
+                Next
+            Next
+
+            If Directory.Exists(PLevelfiledir) And Directory.Exists(OLevelfiledir) Then
+                If File.Exists(PLevelfiledir & "\yoshi-0.png") And Not File.Exists(PLevelfiledir & "\yoshi-0.png") Then
+                    FilesToCopyInLevelfiledir.Add(PLevelfiledir & "\yoshi-0.png") : GoTo Skip8
+                End If
+            ElseIf Directory.Exists(PLevelfiledir) Then
+                FilesToCopyInLevelfiledir.Add(PLevelfiledir & "\yoshi-0.png") : GoTo Skip8
+            End If
+            If File.Exists(PLeveldir & "\yoshi-0.png") And Not File.Exists(PLeveldir & "\yoshi-0.png") Then
+                FilesToCopyInLeveldir.Add(PLeveldir & "ßyoshi-0.png")
+            End If
+Skip8:      Application.DoEvents()
+
+            If Directory.Exists(PLevelfiledir) And Directory.Exists(OLevelfiledir) Then
+                If File.Exists(PLevelfiledir & "\scflash.png") And Not File.Exists(PLevelfiledir & "\scflash.png") Then
+                    FilesToCopyInLevelfiledir.Add(PLevelfiledir & "\scflash.png") : GoTo Skip15
+                End If
+            ElseIf Directory.Exists(PLevelfiledir) Then
+                FilesToCopyInLevelfiledir.Add(PLevelfiledir & "\scflash.png") : GoTo Skip15
+            End If
+            If File.Exists(PLeveldir & "\scflash.png") And Not File.Exists(PLeveldir & "\scflash.png") Then
+                FilesToCopyInLeveldir.Add(PLeveldir & "\scflash.png")
+            End If
+Skip15:     Application.DoEvents()
+        End If
+
+        If CopyConfigurations Then
+            For Each lid As String In UsedNPCs
+                Dim lFileInLeveldir As String = String.Format(PLeveldir & "\npc-{0}.png", lid)
+                Dim lFileInLevelfiledir As String = String.Format(PLevelfiledir & "\npc-{0}.png", lid)
+                If FilesToCopyInLeveldir.Contains(lFileInLeveldir) Or FilesToCopyInLevelfiledir.Contains(lFileInLevelfiledir) Then GoTo Skip9
+                If Directory.Exists(PLevelfiledir) And Directory.Exists(OLevelfiledir) Then
+                    If File.Exists(lFileInLevelfiledir) And Not File.Exists(lFileInLevelfiledir) Then
+                        FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip9
+                    End If
+                ElseIf Directory.Exists(PLevelfiledir) Then
+                    FilesToCopyInLevelfiledir.Add(lFileInLevelfiledir) : GoTo Skip9
+                End If
+                If File.Exists(lFileInLeveldir) And Not File.Exists(lFileInLeveldir) Then
+                    FilesToCopyInLeveldir.Add(lFileInLeveldir)
+                End If
+Skip9:          Application.DoEvents()
+            Next
+        End If
+
+        'Copy files and directories to the temp-dir:
+        Dim TempLeveldir As String = Form1.TempDir & "\TempLevel"
+        Dim TempLevelfiledir As String = TempLeveldir & "\data"
+        If Directory.Exists(TempLeveldir) Then Directory.Delete(TempLeveldir, True)
+        Directory.CreateDirectory(TempLeveldir)
+        If FilesToCopyInLevelfiledir.Count > 0 Then Directory.CreateDirectory(TempLevelfiledir)
+        For Each f As String In FilesToCopyInLeveldir
+            Try : File.Copy(f, TempLeveldir & "\" & Path.GetFileName(f)) : Catch ex As Exception : End Try
+            Application.DoEvents() : Next
+        For Each f As String In FilesToCopyInLevelfiledir
+            Try : File.Copy(f, TempLevelfiledir & "\" & Path.GetFileName(f)) : Catch ex As Exception : End Try
+            Application.DoEvents() : Next
+
+        'Write level:
+        File.WriteAllLines(TempLeveldir & "\data.lvl", PFile.ToArray)
+
+        'Pack with 7-zip:
+        Dim sevenzip As New Process
+        sevenzip.StartInfo.CreateNoWindow = True
+
+        If Environment.Is64BitOperatingSystem Then
+            sevenzip.StartInfo.FileName = Application.StartupPath & "\7-Zip\x64\7z.exe"
+        Else : sevenzip.StartInfo.FileName = Application.StartupPath & "\7-Zip\x86\7z.exe"
+        End If
+        Dim password As String = "SMBX Magic Patcher"
+        sevenzip.StartInfo.Arguments = String.Format("a -t7z ""{1}"" -p{0} -mx9 ""{2}""", password, Form1.TextBoxX_PatchFileCreate.Text, TempLeveldir & "\*")
+        sevenzip.StartInfo.UseShellExecute = False
+        sevenzip.StartInfo.CreateNoWindow = True
+        sevenzip.Start()
+        Do Until sevenzip.HasExited = True : Application.DoEvents() : Loop
+        If sevenzip.ExitCode <> 0 Then
+            Return 2 'Error at packing
+        End If
+
+        Return 1
+    End Function
+
+    Shared Function ApplyPatch(OriginalLevel As String, PatchFile As String) As Integer
+        Dim OLevel() As String = File.ReadAllLines(OriginalLevel)
+        Dim PLevel As List(Of String) = OLevel.ToList
+
+        'Extract with 7-zip
+
+        Dim PFile() As String = File.ReadAllLines("<extracted file>")
+
+        For Each l As String In PFile
+            If Not PLevel.Contains(l) Then
+                PLevel.Add(l)
+            End If
+        Next
+
+        'Copy and replace files
+
+        'Wirte new level file
+
+        Return 1
+    End Function
+
+    Shared Function GetHelp() As String
+        Return "Not aviable yet!"
+    End Function
+End Class
+
+Public Class PatchSettings
+
+    Private _CopyBlocksEtc As Boolean = True
+    Private _CopyGraphics As Boolean = True
+    Private _CopyConfigs As Boolean = True
+    Private _CopyEvents As Boolean = True
+    Private _CopyLayers As Boolean = True
+    Private _CopyScripts As Boolean = True
+    Private _CopyVariables As Boolean = True
+
+    Public Property CopyBlocksEtc As Boolean
+        Get
+            Return _CopyBlocksEtc
+        End Get
+        Set(value As Boolean)
+            _CopyBlocksEtc = value
+        End Set
+    End Property
+
+    Public Property CopyGraphics As Boolean
+        Get
+            Return _CopyGraphics
+        End Get
+        Set(value As Boolean)
+            _CopyGraphics = value
+        End Set
+    End Property
+
+    Public Property CopyConfigs As Boolean
+        Get
+            Return _CopyConfigs
+        End Get
+        Set(value As Boolean)
+            _CopyConfigs = value
+        End Set
+    End Property
+
+    Public Property CopyEvents As Boolean
+        Get
+            Return _CopyEvents
+        End Get
+        Set(value As Boolean)
+            _CopyEvents = value
+        End Set
+    End Property
+
+    Public Property CopyLayers As Boolean
+        Get
+            Return _CopyLayers
+        End Get
+        Set(value As Boolean)
+            _CopyLayers = value
+        End Set
+    End Property
+
+    Public Property CopyScripts As Boolean
+        Get
+            Return _CopyScripts
+        End Get
+        Set(value As Boolean)
+            _CopyScripts = value
+        End Set
+    End Property
+
+    Public Property CopyVariables As Boolean
+        Get
+            Return _CopyVariables
+        End Get
+        Set(value As Boolean)
+            _CopyVariables = value
+        End Set
+    End Property
+End Class

SMBX Magic Patcher/My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+    'NOTE: This file is auto-generated; do not modify it directly.  To make changes,
+    ' or if you encounter build errors in this file, go to the Project Designer
+    ' (go to Project Properties or double-click the My Project node in
+    ' Solution Explorer), and make changes on the Application tab.
+    '
+    Partial Friend Class MyApplication
+
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.SMBX_Magic_Patcher.Form1
+        End Sub
+    End Class
+End Namespace

SMBX Magic Patcher/My Project/Application.myapp

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>Form1</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <ApplicationType>0</ApplicationType>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

SMBX Magic Patcher/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden 
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die einer Assembly zugeordnet sind.
+
+' Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("SMBX Magic Patcher")>
+<Assembly: AssemblyDescription("This is a simple tool to create and apply patchs of SMBX files.")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("SMBX Magic Patcher")>
+<Assembly: AssemblyCopyright("Copyright © Pilzinsel64 2017")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
+<Assembly: Guid("952e5c45-712e-404e-9319-be5aee0688f7")>
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion 
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern 
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")> 
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

SMBX Magic Patcher/My Project/Resources.Designer.vb

@@ -0,0 +1,62 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My.Resources
+
+    'This class was auto-generated by the StronglyTypedResourceBuilder
+    'class via a tool like ResGen or Visual Studio.
+    'To add or remove a member, edit your .ResX file then rerun ResGen
+    'with the /str option, or rebuild your VS project.
+    '''<summary>
+    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+    Friend Module Resources
+
+        Private resourceMan As Global.System.Resources.ResourceManager
+
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+
+        '''<summary>
+        '''  Returns the cached ResourceManager instance used by this class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SMBX_Magic_Patcher.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+
+        '''<summary>
+        '''  Overrides the current thread's CurrentUICulture property for all
+        '''  resource lookups using this strongly typed resource class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set(ByVal value As Global.System.Globalization.CultureInfo)
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

SMBX Magic Patcher/My Project/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

SMBX Magic Patcher/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+        Private Shared addedHandler As Boolean
+
+        Private Shared addedHandlerLockObject As New Object
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+            If My.Application.SaveMySettingsOnExit Then
+                My.Settings.Save()
+            End If
+        End Sub
+#End If
+#End Region
+
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+
+#If _MyType = "WindowsForms" Then
+                   If Not addedHandler Then
+                        SyncLock addedHandlerLockObject
+                            If Not addedHandler Then
+                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                                addedHandler = True
+                            End If
+                        End SyncLock
+                    End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+    Friend Module MySettingsProperty
+
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        Friend ReadOnly Property Settings() As Global.SMBX_Magic_Patcher.My.MySettings
+            Get
+                Return Global.SMBX_Magic_Patcher.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

SMBX Magic Patcher/My Project/Settings.settings

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+  <Profiles>
+    <Profile Name="(Default)" />
+  </Profiles>
+  <Settings />
+</SettingsFile>

SMBX Magic Patcher/SMBX Magic Patcher.vbproj

@@ -0,0 +1,136 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="14.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{0C2BB6C3-5D7C-4E85-A170-2C0E46D39162}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>SMBX_Magic_Patcher.My.MyApplication</StartupObject>
+    <RootNamespace>SMBX_Magic_Patcher</RootNamespace>
+    <AssemblyName>SMBX Magic Patcher</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>SMBX Magic Patcher.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>SMBX Magic Patcher.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>1485383780_magic-wand-star-fantasy-magician-witchcraft.ico</ApplicationIcon>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="DevComponents.DotNetBar2, Version=12.8.0.8, Culture=neutral, PublicKeyToken=7eb7c3a35b91de04, processorArchitecture=MSIL" />
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Form1.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Form1.Designer.vb">
+      <DependentUpon>Form1.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="Form1.resx">
+      <DependentUpon>Form1.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="App.config" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="1485383780_magic-wand-star-fantasy-magician-witchcraft.ico" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>