fix queue issue

fix queue issue

Crunchyroll Downloader/Anime_Add.vb

@@ -185,14 +185,30 @@ Public Class Anime_Add
                     '    '    Exit Sub
                     '    '    pictureBox4.Enabled = True
                     'Else
-                    If Main.RunningDownloads >= Main.MaxDL Then
+                    If Main.RunningQueue = True Then
-                        Debug.WriteLine("Max_Dl")
+                        If CBool(InStr(textBox1.Text, "series/")) Then
-                        'ListBox1.Items.Add(textBox1.Text)
+                            Debug.WriteLine("Queue_Block_series")
+                            'textBox1.Text = "URL"
+                            StatusLabel.Text = "Status: Series add blocked, queue is running!"
+                            Pause(5)
+                            StatusLabel.Text = "Status: Idle"
+                        Else
+                            Debug.WriteLine("Queue_Block")
                             Main.ListBoxList.Add(textBox1.Text)
-                        textBox1.ForeColor = Color.FromArgb(9248044)
-                        Pause(2)
-                        textBox1.ForeColor = Color.Black
                             textBox1.Text = "URL"
+                            StatusLabel.Text = "Status: Added to Queue"
+                            Pause(5)
+                            StatusLabel.Text = "Status: Idle"
+                        End If
+                    ElseIf Main.RunningDownloads >= Main.MaxDL Then
+                        Debug.WriteLine("Max_Dl")
+                        Main.ListBoxList.Add(textBox1.Text)
+                        textBox1.Text = "URL"
+                        StatusLabel.Text = "Status: Added to Queue"
+                        Pause(5)
+                        StatusLabel.Text = "Status: Idle"
+
+
                     Else
 
                         If CBool(InStr(textBox1.Text, "funimation.com")) Then

Crunchyroll Downloader/Main.vb

@@ -103,6 +103,7 @@ Public Class Main
     'Public ErrorBrowserString As String
     'Public ErrorBrowserUrl As String
     'Public ErrorBrowserBackString As String
+    Public RunningQueue As Boolean = False
     Public UserCloseDialog As Boolean = False
     Dim Aktuell As String
     Dim Gesamt As String

Crunchyroll Downloader/einstellungen.vb

@@ -36,6 +36,8 @@ Public Class Einstellungen
         CB_OverrideDub.Checked = My.Settings.OverrideDub
         CB_Cap.Checked = My.Settings.Captions
 
+        CB_Mod1.Checked = My.Settings.SubtitleMod1
+
         TempTB.Text = Main.TempFolder
         LeadingZeroDD.SelectedIndex = Main.LeadingZero
 

Crunchyroll Downloader/queue.vb

@@ -58,6 +58,7 @@ Public Class Queue
 
     Private Sub RunQueue_CheckedChanged(sender As Object, e As EventArgs) Handles RunQueue.CheckedChanged
         RunQueueTimer.Enabled = RunQueue.Checked
+        Main.RunningQueue = RunQueue.Checked
     End Sub
 
     Private Sub RunQueueTimer_Tick(sender As Object, e As EventArgs) Handles RunQueueTimer.Tick
@@ -140,4 +141,15 @@ Public Class Queue
             End If
         End If
     End Sub
+
+
+
+    Private Sub ListBox1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseDoubleClick
+        If RunQueue.Checked = True Then
+            MessageBox.Show("Please stop the queue before removing entries", "Unable to comply.")
+        Else
+            Dim UriUsed As String = ListBox1.Text
+            Main.ListBoxList.Remove(UriUsed)
+        End If
+    End Sub
 End Class