melonDS + mGBA + Kronos support

Added support for melonDS
Added support for mGBA
Added support for Kronos but can't launch it directly.

W Emuloader/bin/Debug/settings.dat

@@ -1,6 +1,6 @@
 load=1
-dark=0
-version=1.1.0
+dark=2
+version=1.2.0
 autoupdate=1
 exitonx=0
 fancydl=0

W Emuloader/downloads.vb

@@ -62,6 +62,9 @@ Module downloads
             Case "SWH"
                 platform_id = ".nsp"
                 Directory.CreateDirectory(".\roms\SWH")
+            Case "STN"
+                platform_id = ".cue"
+                Directory.CreateDirectory(".\roms\STN")
         End Select
 
         main.listbox_queue.Items(0).SubItems(5).Text = "Downloading"

W Emuloader/listlink.vb

@@ -24,12 +24,14 @@ Public Class listlink
 
     Private Sub btn_import_MouseDown(sender As Object, e As MouseEventArgs) Handles btn_import.MouseDown
         btn_import.BackgroundImage = System.Drawing.Image.FromFile(".\resources\importclick.png")
-        Dim urls As String() = textbox_url.Lines
-        Dim index As Boolean = False
-        For Each line In urls
-            If line.Contains("archive") Then
-                Process.Start("https://www.reddit.com/r/Emuloader/comments/i4qat9/archiveorg_eldr_builder_scripts/")
-            Else
+        Dim result = MessageBox.Show("Emuloader's ELDR system is a way to turn your existing rom libraries which are stored in the cloud, as well as publicly available romhacks, homebrew and abandonware into a format more easily manipulated. Think of it as a compatibility layer and stopover tool. It is not to be used for piracy under any circumstances, you may not be allowed to download online backups, even if you own a physical copy of the game.
+
+
+Do you confirm that you either own this content, or that this content has been allowed to be shared by the content owner and/or copyright holder?", "Verify ownership of content", MessageBoxButtons.YesNo)
+        If result = DialogResult.Yes Then
+            Dim urls As String() = textbox_url.Lines
+            Dim index As Boolean = False
+            For Each line In urls
 
                 Dim timestamp As String = Date.Now.ToString("HH-mm-ss-dd-MM-yyyy")
                 Using importlinks = New WebClient()
@@ -85,8 +87,11 @@ Public Class listlink
                         File.Delete(".\lists\" & timestamp & ".eldr")
                     End Try
                 End Using
-            End If
-        Next
+            Next
+        Else
+            MessageBox.Show("Your source/eldr has not been imported. Please take a moment to review our stance on piracy and copyrighted content.", "Import failed.")
+            Process.Start("https://tungstencore.com/emuloader/#Disclaimer")
+        End If
         Me.Close()
     End Sub
 
@@ -101,4 +106,5 @@ Public Class listlink
     Private Sub btn_import_MouseUp(sender As Object, e As MouseEventArgs) Handles btn_import.MouseUp
         btn_import.BackgroundImage = System.Drawing.Image.FromFile(".\resources\importwhite.png")
     End Sub
+
 End Class

W Emuloader/load_functions.vb

@@ -341,6 +341,27 @@ Module load_functions
                         End If
                     Next
                 Next
+            Case "STN"
+                platform_id = "STN"
+                Dim rom_directory_wiiU = IO.Directory.GetFiles(".\roms\" & main.currenttab_metadata(1), "*.cue", IO.SearchOption.AllDirectories)
+                For Each f In rom_directory_wiiU
+                    Dim fullpath As String = System.IO.Path.GetFullPath(f)
+                    Dim filepath As String = fullpath.Replace(System.IO.Path.GetFullPath(".\roms\" & main.currenttab_metadata(1)), "")
+                    Dim filename As String() = filepath.Split("\")
+                    main.listbox_installedroms.Items.Add(New ListViewItem(New String() {filename(1), platform_id, f}))
+                Next
+                For Each custom_directory_entry In customromlist
+                    Try
+                        Dim rom_directory_wiiU2 = IO.Directory.GetFiles(custom_directory_entry, "*.cue", IO.SearchOption.AllDirectories)
+                        For Each f In rom_directory_wiiU2
+                            Dim fullpath As String = System.IO.Path.GetFullPath(f)
+                            Dim filepath As String = fullpath.Replace(custom_directory_entry, "")
+                            Dim filename As String() = filepath.Split("\")
+                            main.listbox_installedroms.Items.Add(New ListViewItem(New String() {filename(1), platform_id, f}))
+                        Next
+                    Catch ex As Exception
+                    End Try
+                Next
         End Select
         Call main.retrieveboxart()
         If main.listbox_installedroms.Items.Count = 0 Then
@@ -432,6 +453,18 @@ Module load_functions
                     emutabs(index).Text = "DuckStation"
                     emutabs(index).Visible = True
                     currentmetadata = File.ReadAllLines(".\" & eldr_entry & "\duckstation.eldr")
+                ElseIf eldr_entry.Contains("MELONDS") Then
+                    emutabs(index).Text = "melonDS"
+                    emutabs(index).Visible = True
+                    currentmetadata = File.ReadAllLines(".\" & eldr_entry & "\melonds.eldr")
+                ElseIf eldr_entry.Contains("KRONOS") Then
+                    emutabs(index).Text = "Kronos"
+                    emutabs(index).Visible = True
+                    currentmetadata = File.ReadAllLines(".\" & eldr_entry & "\kronos.eldr")
+                ElseIf eldr_entry.Contains("MGBA") Then
+                    emutabs(index).Text = "mGBA"
+                    emutabs(index).Visible = True
+                    currentmetadata = File.ReadAllLines(".\" & eldr_entry & "\mgba.eldr")
                 End If
                 emu_tab_metadata_list.emutabs_metadata(index) = currentmetadata
                 index = index + 1