First ever VB mod... it isn't going well.

1 files changed, 49 insertions, 0 deletions

diff --git a/ShiftOS.Modding.VB.LegacySkinConverter/SkinConverter.vb b/ShiftOS.Modding.VB.LegacySkinConverter/SkinConverter.vb
new file mode 100644
index 0000000..95eba35
--- /dev/null
+++ b/ShiftOS.Modding.VB.LegacySkinConverter/SkinConverter.vb
@@ -0,0 +1,49 @@
+Imports ShiftOS.Engine
+
+<Launcher("Legacy Skin Converter", True, "al_skin_loader", "Customization")>
+<RequiresUpgrade("skinning")>
+Public Class SkinConverter
+    Implements IShiftOSWindow
+
+    Private Sub btnin_Click(sender As Object, e As EventArgs) Handles btnin.Click
+        FileSkimmerBackend.GetFile(New String() {".skn"}, FileOpenerStyle.Open, New Action(Of String)(Sub(path As String)
+                                                                                                          txtin.Text = path
+                                                                                                      End Sub))
+    End Sub
+
+    Private Sub btnout_Click(sender As Object, e As EventArgs) Handles btnout.Click
+        FileSkimmerBackend.GetFile(New String() {".skn"}, FileOpenerStyle.Save, New Action(Of String)(Sub(path As String)
+                                                                                                          txtout.Text = path
+                                                                                                      End Sub))
+
+    End Sub
+
+    Private Sub btnconvert_Click(sender As Object, e As EventArgs) Handles btnconvert.Click
+        If String.IsNullOrWhiteSpace(txtin.Text) Then
+            Infobox.Show("No input", "Please select a legacy skin file as your input.")
+            Return
+        End If
+        If String.IsNullOrWhiteSpace(txtout.Text) Then
+            Infobox.Show("No output", "Please select an output file path to place the converted skin.")
+            Return
+        End If
+
+
+        TerminalBackend.InvokeCommand("skinning.convert{in:""" + txtin.Text + """,out:""" + txtout.Text + """}")
+
+    End Sub
+
+    Public Sub OnLoad() Implements IShiftOSWindow.OnLoad
+
+    End Sub
+
+    Public Sub OnSkinLoad() Implements IShiftOSWindow.OnSkinLoad
+    End Sub
+
+    Public Function OnUnload() As Boolean Implements IShiftOSWindow.OnUnload
+        Return True
+    End Function
+
+    Public Sub OnUpgrade() Implements IShiftOSWindow.OnUpgrade
+    End Sub
+End Class